Cita:
Iniciado por jmaquino Hola a tod@s:
MI nombre es Juan Alvarez, soy nuevo programando en VB y necesito que por favor me ayuden a comprender el funcionamiento del control MSComm o de generar un código para enviar un dato por el puerto serial del PC.
Muchas gracias por su colaboración
Hola,
Private Sub Command1_Click()
'Envia un comando al puerto para recibir un dato
MSComm1.Output = Chr$(5) & vbCrLf
End Sub
Private Sub Form_Load()
'Indicamo en numero del puerto a usar
MSComm1.CommPort = 1
'Otros seteos basicos
MSComm1.Settings = "2400,e,7,1"
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 512
MSComm1.RThreshold = 15
MSComm1.SThreshold = 1
MSComm1.InputLen = 15
MSComm1.ParityReplace = "?"
MSComm1.RTSEnable = True
MSComm1.DTREnable = True
MSComm1.NullDiscard = False
MSComm1.Handshaking = comNone
' Abrimos el puerto
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
' Cerramos el puerto.
MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
' declaramos una variable donde quedaran los datos recibidos
Static strData As String
With MSComm1
Select Case .CommEvent
Case comEventBreak
MsgBox "Error", "1comEventBreak"
Case comEventFrame
MsgBox "Error", "1comEventFrame"
Case comEventOverrun
MsgBox "Error", "1comEventOverrun"
Case comEventRxOver
MsgBox "Error", "1comEventRxOver"
Case comEventRxParity
MsgBox "Error", "1comEventRxParity"
Case comEventTxFull
MsgBox "Error", "1comEventTxFull"
Case comEventDCB
MsgBox "Error", "1comEventDCB"
Case comEvReceive
' se guardan los datos en la variable
strData = strData & MSComm1.Input
' borramos la variable para los proximos datos
strData = ""
End Select
End With
End Sub
bueno, espero te sirva,
Saludos y buena suerte!!!