Red de conocimiento informático - Material del sitio web - Ayuda, código fuente de depuración serial VB urgente, contenido a transmitir mediante código AscII

Ayuda, código fuente de depuración serial VB urgente, contenido a transmitir mediante código AscII

Opción explícita

StrData privado como cadena

Sub privado Command1_Click() ' Enviar

MSComm1.Output = "123456"

End Sub

Private Sub Command1_Click() ' Enviar

MSComm1.Settings = "9600,N,8,1"

MSComm1.RTreshold = 1 ' Activar evento ONCOMM

MMSComm1.PortOpen = True

MSComm1.InputMode = comInputModeText ' Codificación ASCII recibida

Text1 = ""

End Sub

Sub privado MSComm1_OnComm()

Seleccione caso frmMain.MSComm1.CommEvent = ""

Sub privado MSComm1_OnComm()

Caso comEvReceive

strData = Mscomm1.Input

Text1 = Text1 & strData

Fin Seleccione

Fin Sub