1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub CommandButton3_Click()
'paramétrage du comparateur sylvac
MSComm1.Settings = "4800,e,7,2"
'ouverture du Port
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Moul_Mes = Moul_Mes + 1
'Controls("textbox" & Moul_Mes).SetFocus ' ça c'est en attente
'interrogation du port
MSComm1.Output = "?" + Chr$(13)
'inscritption de la lecture dans le textbox(x) 3<=x<=10
Controls("textbox" & Moul_Mes).Value = MSComm1.Input
If Moul_Mes = 10 Then
Moul_Mes = 2
CommandButton2.Enabled = True 'activation du bouton de validation
CommandButton2.SetFocus 'selection du bouton de validation
End If
End Sub |
Partager