Bonsoir,
J’espère poster dans le bon forum et vous m’excuserez car l’anglais et moi malheureusement …
Bref, j’ai acheté une carte velleman K8056 (en kit).
Après avoir souder les composants, fait le test avec le bouton test et télécharger l’appli sur le site de velleman, pour la commande via le port série en RS232 ma carte fonctionne parfaitement.
Maintenant, j’aimerais pouvoir piloter ma carte via vba excel.
Mon soucis est pour le code en lui même, je ne sais pas comment faire. J’ai essayé de copier le code vb mais il ne fonctionne pas en vba.
J’aimerais donc un userform identique au logiciel de test de velleman mais au format vba excel.
Merci d’avance pour votre aide.
Problème réglé
Pour ce qui se pose la question voici le code
Private Sub CommandButton1_Click()
MSComm1.CommPort = 1
MSComm1.Handshaking = None
MSComm1.Settings = "2400,N,8,1"
MSComm1.OutBufferSize = 4096
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.DTREnable = True
MSComm1.PortOpen = True
Address = 1
checksum = (255 - ((((13 + Address + Asc("S") + Asc("1")) / 256) - Int((13 + Address + Asc("S") + Asc("1")) / 256)) * 256)) + 1
messagestring = Chr$(13) & Chr$(Address) & "S1" & Chr$(checksum) 'remplacer S par une instruction du manuel
messagestring = messagestring & messagestring
messagestring = messagestring & messagestring
MSComm1.Output = messagestring
MSComm1.PortOpen = False
End Sub