¿Cómo utilizar la programación VB en la comunicación en serie para realizar la autorrecepción espontánea de una sola máquina?
Guarde el siguiente código como form1.frm
Luego impórtelo a su programa
VERSIÓN 5.00
Objeto = "{648A5603- 2C6E -101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Comenzar VB.Form Form1
Título = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 'Ventana predeterminada
Begin VB.TextBox Text2
Height = 420
Izquierda = 1170
TabIndex = 2
Texto = "Text2"
Superior = 945
Ancho = 960
Fin
Inicio VB.CommandButton Comando1
Título = "Comando1"
Alto = 420
Izquierda = 2565
TabIndex = 1
Arriba = 1035
Ancho = 600
Fin
Inicio VB.TextBox Texto1
Alto = 420
Izquierda = 1170
TabIndex = 0
Texto = "Texto1"
Superior = 360
Ancho = 915
Fin
Inicio MSCommLib.MSComm MSComm1
Izquierda = 4095
Superior = 45
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
Fin
Fin
Atributo VB_Name = "Form1"
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = False
Atributo VB_PredeclaredId = True
Atributo VB_Exposed = False
Opción explícita
Subcomando privado1_Click()
MSComm1.Output = Texto1.Text
End Sub
Sub privado Form_Load()
MSComm1.CommPort = 2
MSComm1.RTreshold = 1
MSComm1.PortOpen = True
End Sub
Sub privado MSComm1_OnComm()
Seleccione caso MSComm1.CommEvent
Caso 2
Text2.Text = MSComm1.Input
Fin de selección
Fin de sub