Discussion :

[defcom60]

Bonjour,

je souhaite pouvoir lire des variables LON.

J'ai trouvé un exemple en VB6 que je souhaite convertir en Windev. (http://ace.vtc.edu.hk/cp/LNS%20Program%20vb.pdf)

Pour cela j'ai mis sur une fenêtre un composant activeX (LonWorksObjetServer) qui a comme nom AX_SansNom1

je ne sais pas comment convertir le code suivant en Windev

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim ActiveNetwork As LcaNetwork 
Dim ActiveNI As LcaNetworkInterface
Dim ActiveNSD As LcaNetworkServiceDevice 
Dim ActiveSystem As LcaSystem 
Dim TargetNV1 As LcaNetworkVariable 
 
Private Sub Form_Load()     
LcaObjectServer1.Open     
Set ActiveNetwork = LcaObjectServer1.Networks("test")     
ActiveNetwork.Open     
Set ActiveNI = LcaObjectServer1.NetworkInterfaces("LON1")    
Set ActiveSystem = ActiveNetwork.Systems("test")     
Set ActiveNSD = ActiveSystem.NetworkServiceDevice     
Set ActiveNSD.NetworkInterface = ActiveNI     ActiveSystem.Open     
Set TargetNV1 = ActiveSystem.Subsystems("Subsystem 1").AppDevices("DO- 1").Interface.LonMarkObjects("DO- 1").NetworkVariables("Feedback") End Sub

Pour le moment j'ai codé cela est ça fonctionne avec une base LON.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
AX_SansNom1>>Open
Trace("connexion à l'activeX")
AX_SansNom1>>Networks(SAI_Nom_Base)
Trace("Connexion à la Base")
AX_SansNom1>>NetworkInterfaces(SAI_Nom_Connexion)
//AX_SansNom1>>ActiveNetwork("GTB")
Trace("Connexion au Reseau")

quelqu'un peut il m'aider sur la suite du code.

Je ne sais pas comment déclarer les variables suivante

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim ActiveNetwork As LcaNetwork 
Dim ActiveNI As LcaNetworkInterface
Dim ActiveNSD As LcaNetworkServiceDevice 
Dim ActiveSystem As LcaSystem 
Dim TargetNV1 As LcaNetworkVariable

Cordialement

[frenchsting]

En regardant l'exemple que tu donnes, j'ai vu ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Define ControlNV1 as LcaNetworkVariable type
ControlNV1.Value = "100.0 1"

Logiquement, on peut penser que le type LcaNetworkVariable est une chaîne.

Après, il faut creuser un peu, voire, trouver d'autres exemples (vb ou autre) sur internet pour trouver le typage des variables.