Programmation carte velleman K8056

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é :slight_smile:

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