Red de conocimiento informático - Problemas con los teléfonos móviles - Controle motores paso a paso utilizando la comunicación en serie del microcontrolador VB

Controle motores paso a paso utilizando la comunicación en serie del microcontrolador VB

Private Sub cmdcomm_Click()

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

dattemp = MSComm1.Input 'Leer datos del puerto serie