Stockage variables

Discussions sur l'utilisation et les problèmes rencontrés avec le service et l'interface d'administration

Modérateur: HoMIDoM

Re: Stockage variables

Messagede davidinfo » 09 Mar 2015, 11:31

Voila un script qui marche chez moi !
Y a plus qu'a affecter les valeurs Ă  tes composants :-)

Imports System
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports Homidom
Namespace Dynam
'Ne pas supprimer cette class
Public Class DynamicCode

'Ne pas supprimer cette function
Public Function ExecuteCode(paramarray prmParameters() as object) as object
Dim Serveur as Homidom.Homidom.server
Serveur=prmParameters(0)

Serveur.log(1, 2, "Macro TEST TXT", "Heure: " & Serveur.GetTime)
Dim FileText as string =My.Computer.FileSystem.ReadAllText("D:\test.txt")
'ex: OPTARIF=HC..BASE=15032045HCHC=7897358HCHP=8753759PTEC=HP..PAPP=0IINST=0
Serveur.log(1, 2, "Macro TEST TXT", "Ligne: " & FileText)
If FileText.Contains("IINST") Then
Dim positionoptionBASE as integer =instr(FileText,"BASE")
Dim positionoptionHCHC as integer =instr(FileText,"HCHC")
Dim positionoptionHCHP as integer =instr(FileText,"HCHP")
Dim positionoptionPTEC as integer =instr(FileText,"PTEC")
Dim positionoptionPAPP as integer =instr(FileText,"PAPP")
Dim positionoptionIINST as integer =instr(FileText,"PAPP")
Dim valueOPTARIF as string =FileText.substring(8,2)
Dim valueBASE as string =FileText.substring(positionoptionBASE+4,positionoptionHCHC-positionoptionBASE-5)
Dim valueHCHC as string =FileText.substring(positionoptionHCHC+4,positionoptionHCHP-positionoptionHCHC-5)
Dim valueHCHP as string =FileText.substring(positionoptionHCHP+4,positionoptionPTEC-positionoptionHCHP-5)
Dim valuePTEC as string =FileText.substring(positionoptionPTEC+4,2)
Dim valuePAPP as string =FileText.substring(positionoptionPAPP+4,1)
Dim valueIINST as string =FileText.substring(positionoptionIINST+4,1)
Serveur.log(1, 2, "Macro TEST TXT", "OPTARIF: " & valueOPTARIF)
Serveur.log(1, 2, "Macro TEST TXT", "BASE: " & valueBASE)
Serveur.log(1, 2, "Macro TEST TXT", "HCHC: " & valueHCHC)
Serveur.log(1, 2, "Macro TEST TXT", "HCHP: " & valueHCHP)
Serveur.log(1, 2, "Macro TEST TXT", "PTEC: " & valuePTEC)
Serveur.log(1, 2, "Macro TEST TXT", "PAPP: " & valuePAPP)
Serveur.log(1, 2, "Macro TEST TXT", "IINST: " & valueIINST)

'Serveur.ChangeValueOfDevice("123456789","dd8764ac-2326-4c97-8504-1425a9011a48",value) 'pour extraire la valeur de la ligne Ă  partir du 7eme caractere (pour enlever "IINST=")
End If

End function
End class
End Namespace
HoMIDoM- Le système complet et gratuit de domotique pour la maison (Domos)
Avatar de l’utilisateur
davidinfo
Dieu de domotique
 
Messages: 1514
Inscription: 19 Oct 2008, 22:49
Localisation: Algrange (57)

Re: Stockage variables

Messagede PAT5659 » 09 Mar 2015, 13:38

Merci beaucoup David
chapeau bas!!!!!quand on a affaire a des pros le résultat est la!!
j'ai fait quelques modifs:
car les valeurs IINST et PAPP ne changeaient pas !

Dim positionoptionIINST as integer =instr(FileText,"PAPP") IINST pour remplacer "PAPP"

et positions:

Dim valuePAPP as string =FileText.substring(positionoptionPAPP+4,1) remplacé par :+4,4
Dim valueIINST as string =FileText.substring(positionoptionIINST+4,1) remplacé par+ 5,2

Après essais les valeurs sont correctes!

Merci infiniment!!
Pat
Sysyème domotique:Homidom,Homiwpf,Sarah,
2 Arduino méga avec expandeurs MCP23017 , arduino dueminalove,système chauffage Deltadore
5 sondes de température Dallas sur bus Onwire ,téléinformation , 8 modules 16 E/S sur bus I2C
8 commandes volets roulants piloté en RF433 (fabrication maison)
15 commandes Ă©clairage
Esp8266 01 Esp8266 12 ,sondes Lacrosse V2
Impérihome,Rflink
PAT5659
P'tit Dieu de domotique
 
Messages: 152
Inscription: 22 Sep 2014, 08:22

Précédente

Retourner vers Service et Interface HoMIAdmiN

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité

Copyright © 2011 - Touteladomotique.com - Tous droits rĂ©servĂ©s
Les blogs partenaires : Abavala, Domo-Blog, Domotique34, Maison et Domotique


cron