SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: marc88 en Lunes 1 de Octubre de 2007, 18:23

Título: Envio De Datos Binarios Por El Puerto Serial Utili
Publicado por: marc88 en Lunes 1 de Octubre de 2007, 18:23

hola:

necesito enviar datos en binario por puerto serial utilizando el mscomm vb 6.0,
soy nuevo en esto pero e logrado enviar datos que son detectados por un microcontrolador.. pero no es el dato que pretendo enviar solo basura:

ejemplo:

quiero enviar el dato 00000001 y en microcontrolador quiero ver ese mismo numero, como lo puedo hacer?

atte marco peña..

Título: Re: Envio De Datos Binarios Por El Puerto Serial Utili
Publicado por: ezequielminor en Lunes 1 de Octubre de 2007, 23:41

una posible respuesta podria ser la siguiente:

'Código para transmitir
Dim FileName As String: FileName = "C:\BinFiles\Test.Exe"
Dim Offset As Long
Dim FileData As Byte
Open FileName For Binary Access Read As #1
For Offset = 1 To FileLen(FileName)
Get #1, Offset, FileData
MSComm1.Output = Chr$(FileData)
Next Offset
Close #1
'Código para recibir
'Se asume que File #1 ya ha sido abierto en alguna parte del código y
'que ByteCount ha sido declarado como Long e inicializado a 0.
Private Sub MSComm1_OnComm()
Dim TmpStr As String
Dim StrLen As Long, I As Long
Dim FileData As Byte
If MSComm1.CommEvent = comEvReceive Then
While MSComm1.InBufferCount > 0
TmpStr = MSComm1.Input
StrLen = Len(TmpStr)
For I = 1 To StrLen
FileData = CByte(Asc(Mid(TmpStr, I, 1)))
ByteCount = ByteCount + 1
Put #1, ByteCount, FileData
Next I
TmpStr = ""
Wend
End If
End Sub


para mas informacion visita Este enlace (http://www.gamarod.com.ar/trucos/enviar_y_recibir_datos_binarios_con_mscomm.asp)