I work to a small application on VBA to VM110 and I a novice in this software.
I am asks to programming this application.
I would like to press a button and the digital output0 is a (1) and no press the button is a (0).
I have write
Private Sub Commande_Click()
Dim i As Long
Dim n As Long
n = 0
For i = 0
n = n + Commande(i).Value * (2 ^ i)
Next
If Not DoNothing Then WriteAllDigital n
End Sub[/color]
or second
Private Sub Command1_Click()
ClearAllDigital
SetDigitalChannel 1
If Command1 = True Then
End If
End Sub
Bonjours tout le monde.
Je pense qu’en français je vais pouvoir m’exprimer mieux.
J’utilise 2 cartes K8055 pour piloter des RC. Avec le programme fournis par velleman ça marche très bien. Maintenant je suis en train crée ma petit apli en VB6.
Pour l’instant j’ai un problèmes de base.
Ce que je voudrai, c’est lorsque je fais un clic continu sur le bouton, la sortie 1 est active et lorsque je déclic, la sortie 1 est désactive. J’ai réussi a faire un debut de cette fonction mais avec trois boutons (bouton 1 ;2 et stop pour tout réinitialiser.
[code]Private Sub Command1_Click()
ClearDigitalChannel 2
SetDigitalChannel 1
If Command1 = True Then
End If
End Sub
Private Sub Command2_Click()
ClearDigitalChannel 1
SetDigitalChannel 2
If Command2 = True Then
End If
End Sub
Private Sub StopClearAllDig_Click()
Dim i As Long
DoNothing = True
For i = 0 To 7
Check3(i).Value = 0
Next
DoNothing = False
ClearAllDigital
End Sub[/code]
Je programme sous vb 2008 express
La fonction Toggle button n’est pas présente par contre j’ai utiliser une autre fonctions
[color=#00BF00][code]Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
SetDigitalChannel(1)
End Sub
Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
ClearDigitalChannel(1)
End Sub[/code][/color]
Nicolas