Controle motores paso a paso utilizando la comunicación en serie del microcontrolador VB
Atenuar Senddat(5) como byte
Atenuar i como entero
Para i = 1 a 12 Paso 2 'Enviar cuadro de texto desde txtSend obtiene los datos enviados
Senddat ((i - 1) / 2) = "&H" & Mid(txtSend.Text, i, 2) '¿Qué significa esta oración? CommPort = 1 'Establece el número de puerto en 1
MSComm1.Settings = " 19200,N,8,1" 'Establece la velocidad en baudios y otros protocolos de comunicación
MSComm1.InputLen = 0 'Configurado para leer 6 bytes del puerto serie a la vez
MSComm1.RTreshold = 6
MSComm1.PortOpen = True 'Abre el puerto serie
MSComm1.InputMode = comInputLen = 0InputMode = comInputModeBinary 'Leer datos binarios del puerto serie
End Sub
Private Sub MSComm1_OnComm()
Dim Rcvdat() Como byte
Dim dattemp como variante
Dim i como entero
Seleccionar caso MSComm1.CommEvent
Caso 2 p>
dattemp = MSComm1.Input 'Leer datos del puerto serie