¿Qué control se utiliza para la comunicación serie en VB?
Control MSComm Private Sub Command1_Click()
Atenuar a como cadena, B como cadena
Si MSComm1.PortOpen = True Entonces
a = Text2.Text
MSComm1.Output = a
Else
MsgBox "¡Abra el puerto serie!"
End If p>
Finalizar SubPrivate Sub Command2_Click()
Si MSComm1.PortOpen = False Entonces
MSComm1.CommPort = Val(Trim(Text3.Text))
' MSComm1.InputMode = comInputModeText
' 19200 baudios, sin paridad, 8 bits de datos, un bit de parada.
MSComm1.Settings = "19200,N,8,1"
' Cuando la entrada está ocupada,
' le dice al control que lea todo el buffer .
MSComm1.InputLen = 0
MSComm1.RTreshold = 1
'Abre el puerto.
MSComm1.PortOpen = True
Image1.Picture = LoadPicture("g:\123.bmp")
Else
MSComm1 .PortOpen = False
MSComm1.CommPort = Val(Trim(Text3.Text))
' MSComm1.InputMode = comInputModeText
' 19200 baudios, ninguna paridad , 8 bits de datos, un bit de parada.
MSComm1.Settings = "19200,N,8,1"
' Cuando la entrada está ocupada,
' le dice al control que lea todo el buffer .
MSComm1.InputLen = 0
MSComm1.RTreshold = 1
'Abre el puerto.
MSComm1.PortOpen = True
Imagen1.Picture = LoadPicture("g:\123.bmp")
End If
Fin Sub
Sub Comando Privado3_Click()
Text1.Text = ""
Fin Sub Comando Privado4_Click()
Si MSComm1. PortOpen = True Then
MSComm1.PortOpen = False
Imagen1.Picture = LoadPicture("g:\321.bmp")
Fin si
Finalizar subcomando subprivado5_Click()Atenuar i como entero
Atenuar a(4) como byte
Si MSComm1.PortOpen = True Entonces
a (0) = 177
a(1) = 1
a(2) = Val(Texto4.Text)
a(3) = 0
a(4) = 165 MSComm1.Output = a
Else
MsgBox "¡Abra el puerto serie!"
End If
p>Finalizar SubPrivate Sub Command6_Click()
Atenuar a(4) como byte
Atenuar i como entero
Si MSComm1. PortOpen = Verdadero Entonces
a(0) = 177
a(1) = 5
a(2) = 165
MSComm1.Output = a
Else
MsgBox "¡Abra el puerto serie!"
End If
Fin SubPrivate Sub Command7_Click( )
Atenuar i como entero
Atenuar a(4) como byte
Si MSComm1.PortOpen = True Entonces
a(0 ) = 177
a(1) = 1
a(2) = Val(Text5.Text)
a(3) = 0
a( 4) = 164
MSComm1.Output = a
Else
MsgBox "¡Abra el puerto serie! "
Finalizar si
Finalizar subcomando subprivado8_Click()
Atenuar a(4) como byte
Atenuar i como entero p>
Si MSComm1.PortOpen = True Entonces
a(0) = 177
a(1) = 5
a(2) = 164
MSComm1.Output = a
Else
MsgBox "¡Abra el puerto serie! "
Finalizar si
Finalizar SubPrivate Sub MSComm1_OnComm()
> Dim x
x = MSComm1.Input
Llamar a HEX_to_DEC(Val(x))
Texto1.Text = Texto1.Text + xEnd Sub