Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Qué control se utiliza para la comunicación serie en VB?

¿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

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

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