danebasis
Messages postés11Date d'inscriptionsamedi 11 février 2006StatutMembreDernière intervention29 janvier 2008
-
27 janv. 2008 à 20:40
danebasis
Messages postés11Date d'inscriptionsamedi 11 février 2006StatutMembreDernière intervention29 janvier 2008
-
29 janv. 2008 à 14:44
bonjour je n'arrive a envoyer la valeur d'un HScroll (position du curseur HScroll ) de 0 a 255
Private Sub HScroll1_change() la valeur est la
Label1.Caption = HScroll1.Value
MSComm1.CommPort = 1
MSComm1.Settings = "4800,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = je met quoi ici
Do
tampon = tampon & MSComm1.Input
Loop Until InStr(tampon, " ")
MSComm1.PortOpen = False
End Sub
je code, tu code, il code, nous codons tous ensemble,
jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 29 janv. 2008 à 07:59
Salut,
Et bien rien de plus simple
10011001 = > 153 donc on envoie Chr(153)
Attention il faudra faire attention (peu etre) à la valeur de la propriété OutPutLen de ton objet MSCOMM
Soit :
MSComm1.Output = Chr(HScroll1.Value) & Chr(153)
NB: si les réponses que je te donne sont correctes et répondent à une ou plusieurs parties du problème, pense à valider les posts correspondants à l'aide du bouton réponse acceptée
@+: Ju£i?n Pensez: Réponse acceptée
danebasis
Messages postés11Date d'inscriptionsamedi 11 février 2006StatutMembreDernière intervention29 janvier 2008 28 janv. 2008 à 18:09
merci beaucoup julien de ta reponce sa marche mai survient un autre probleme je doi envoyer a l'endroit indiquer deux informations l'une est la position du HScroll1 (valeur decimal de 0 a 255) sa ca marche et un nombre binaire sur 8 bytes (10011001) le tout sur le meme envoi
Private Sub HScroll1_change()
Dim a As Byte
MSComm1.CommPort = 1
MSComm1.Settings = "4800,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = Chr(HScroll1.Value) '------------------ici
Do
tampon = tampon & MSComm1.Input
Loop Until InStr(tampon, " ")
Label1.Caption = tampon & MSComm1.Input
MSComm1.PortOpen = False
End Sub
je code, tu code, il code, nous codons tous ensemble,