comunicación serie vb, cómo enviar datos separados por espacios hexadecimales
Private Sub Command1_Click()
Atenuar t como variante
Atenuar i mientras
Atenuar sjSend() como byte
t = Dividir (Text1.Text, " ")
ReDim sjSend(UBound(t))
Para i = 0 a UBound(t)
sjSend(i) = "&H" & t(i)
Siguiente
MSComm1.Output = sjSend
End Sub
Sub privado Form_Load()
Text1="10 11 12 13 14"
MSComm1.Settings="9600,n,8,1"
MSComm1.PortOpen = True p>
Fin Sub