Bonsoir,
je me lance dans un utilitaire avec de trés grand soucis de fonctionnement, vu mon niveau car la prog c un métier. M'enfin, je remercie d'avance la personne qui va comprendre mon problème et me le résoudre. (je ne connais rien a la prog je bidouille avec toute la richesse de ce site, je suis automaticien).
j'ai récupéré et fait tourner a ma façon cette routine pour communiquer avec un automate, via je pense le protocole VT100
Private Sub Form_Load()
MSComm1.PortOpen = True
Dim InBuff As String
Select Case MSComm1.CommEvent
Case comEventBreak
Case comEventCDTO
Case comEventCTSTO
Case comEventDSRTO
Case comEventFrame
Case comEventOverrun
Case comEventRxOver
Case comEventRxParity
Case comEventTxFull
Case comEventDCB
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvRing
Case comEvReceive
Label1.Caption = "Input"
InBuff = MSComm1.Input
Case comEvSend
Case comEvEOF
End Select
End Sub
Private Sub Lbl1_Click()
Dim Buffer As Variant
MSComm1.ParityReplace = ""
MSComm1.InputLen = 0
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
MSComm1.PortOpen = True
Timer1.Enabled = True
Timer1.Interval = 200
Buffer = Chr$(48)
MSComm1.Output = Buffer
End Sub
Private Sub Lbl10_Click()
Dim Buffer As Variant
MSComm1.ParityReplace = ""
MSComm1.InputLen = 0
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
MSComm1.PortOpen = True
Timer1.Enabled = True
Timer1.Interval = 200
Buffer = Chr$(72)
MSComm1.Output = Buffer
End Sub
Ma premier question est:
j'obtiens ça
, dans le TextBox
I[HMENU=1 VISU=2
MODIF=3et de temps en temps
OOXXXXIIIasXXMENU=1
Il faudrait pouvoir supprimer le
"I[H "et tout les trucs OOXXXX etc..Souhait
MENU=1 VISU=2
MODIF=3
Il y a bien longtemps on ma repondu que qu'il fallait mettre CHR$(27) & "H" Ok mais ou?
Deuxieme question; je pense que les infos tournent en boucle, comment est-il possible de rafraichir en permanence pour etre toujours au meme endroit au moment de l'ouverture du port com1.
Merci,