¡Primeros auxilios! ¿Cómo leer y escribir datos de la tarjeta SLE4442 con VB?
vb usa el control mscomm para la comunicación en serie
Subcomando privado3_Click()
Atenuar a() como byte
ReDim a(3)
a(0) = amp; HA1
a(1) = amp.RTreshold = 1 'Una vez que el búfer recibe un carácter, genera un evento OnComm
End Sub
p>'Recibir los datos enviados por la computadora host
Private Sub MSComm1_OnComm()
Dim indata As Variant 'Definir variables
Dim arr ( ) Como byte 'Definir matriz de bytes
Atenuar i como entero
Seleccione caso MSComm1.
Text2.Text = Text2.Text amp; Hex(arr(i)) 'Muestra los datos en text2
Else
Text2.Text = Text2. Text amp;
Finalizar seleccione
Finalizar sub.