Autor Tema: Recepcion Datos Binarios (Leído 2554 veces)

cubillejo · « **en:** Sábado 5 de Agosto de 2006, 00:19 »

estoy haciendo un programa y quiero recibir los datos binarios que me envia un microcontrolador PIC al ordenador. quiero que me salga el valor binario de lo que me ha mandado vamos. puse un codigo que encontre:

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

pero cambie FileData por una caja de texto porque yo queria visualizarlos en esa caja.probablemente sera una burrada pero soy recien iniciado en el tema.acepto cualquier sugerencia.gracias.

Toph

Citar

quiero recibir los datos binarios que me envia un microcontrolador PIC al ordenador. quiero que me salga el valor binario de lo que me ha mandado vamos. puse un codigo que encontre:

cubillejo este codigo que has posteado si no me equivoco lo encontraste como un truco de vb titulado como "Enviar y recibir datos binarios con MSComm" pero realmente no se refiere a que los datos se puedan ver en binario sino en bytes, el puerto serial trabaja solamente en ASCII (envio y recepcion) analizando el programa este hace una conversion en esta sentencia:

Código: Text

FileData = CByte(Asc(Mid(TmpStr, I, 1)))
 

pero con esto lo que se hace es que el valor ASCII que ha recibido lo pasa a su valor en decimal es decir si recibio "A" lo convierte a 65 que es su valor decimal, si recibe "B" lo convierte a 66 y asi ...
no a Binario

, te lo digo por que cuando yo necesitaba hacer lo mismo que tu comunicar un pic con la PC me tope con este codigo y lo probe y no me sirvio por lo que te comento, ahora no se si cuando dices ver los datos en Binario te refieres propiamente a 1 y 0 o verlos en hexadecimal, en cualquiera de los dos casos puedo darte una mano solo es que me avises ya que por ahi tengo las rutinas.

saludos

cubillejo

Cita de: "Tania_D"

Citar
quiero recibir los datos binarios que me envia un microcontrolador PIC al ordenador. quiero que me salga el valor binario de lo que me ha mandado vamos. puse un codigo que encontre:

cubillejo este codigo que has posteado si no me equivoco lo encontraste como un truco de vb titulado como "Enviar y recibir datos binarios con MSComm" pero realmente no se refiere a que los datos se puedan ver en binario sino en bytes, el puerto serial trabaja solamente en ASCII (envio y recepcion) analizando el programa este hace una conversion en esta sentencia:
Código: Text
FileData = CByte(Asc(Mid(TmpStr, I, 1)))

pero con esto lo que se hace es que el valor ASCII que ha recibido lo pasa a su valor en decimal es decir si recibio "A" lo convierte a 65 que es su valor decimal, si recibe "B" lo convierte a 66 y asi ...
no a Binario , te lo digo por que cuando yo necesitaba hacer lo mismo que tu comunicar un pic con la PC me tope con este codigo y lo probe y no me sirvio por lo que te comento, ahora no se si cuando dices ver los datos en Binario te refieres propiamente a 1 y 0 o verlos en hexadecimal, en cualquiera de los dos casos puedo darte una mano solo es que me avises ya que por ahi tengo las rutinas.

saludos

quiero recibir el valor en binario para asi luego una vez haya obtenido los valores pasarlos yo mismo a decimal. ojala me puedas ayudar.muchas gracias.

cubillejo

Cita de: "cubillejo"

Cita de: "Tania_D"

Citar
quiero recibir los datos binarios que me envia un microcontrolador PIC al ordenador. quiero que me salga el valor binario de lo que me ha mandado vamos. puse un codigo que encontre:

cubillejo este codigo que has posteado si no me equivoco lo encontraste como un truco de vb titulado como "Enviar y recibir datos binarios con MSComm" pero realmente no se refiere a que los datos se puedan ver en binario sino en bytes, el puerto serial trabaja solamente en ASCII (envio y recepcion) analizando el programa este hace una conversion en esta sentencia:
Código: Text
FileData = CByte(Asc(Mid(TmpStr, I, 1)))

pero con esto lo que se hace es que el valor ASCII que ha recibido lo pasa a su valor en decimal es decir si recibio "A" lo convierte a 65 que es su valor decimal, si recibe "B" lo convierte a 66 y asi ...
no a Binario , te lo digo por que cuando yo necesitaba hacer lo mismo que tu comunicar un pic con la PC me tope con este codigo y lo probe y no me sirvio por lo que te comento, ahora no se si cuando dices ver los datos en Binario te refieres propiamente a 1 y 0 o verlos en hexadecimal, en cualquiera de los dos casos puedo darte una mano solo es que me avises ya que por ahi tengo las rutinas.

saludos
quiero recibir el valor en binario para asi luego una vez haya obtenido los valores pasarlos yo mismo a decimal. ojala me puedas ayudar.muchas gracias.

quiero ver la ristra de 0 y 1 de cada caracter enviado.gracias.

Toph

Citar

quiero recibir el valor en binario para asi luego una vez haya obtenido los valores pasarlos yo mismo a decimal. ojala me puedas ayudar.muchas gracias.

cubillejo como te dije antes el puerto serial solo trabaja en ascii los datos van a ser enviados y recibidos en ascii, el microcontrolador trabaja en hexadecimal al enviar un dato a la computadora por ejemplo 61(en hexadecimal claro) el puerto de la computadora al recibirlo va a recibir su equivalente en ascii "a" y si envias por ejemplo "33"h al puerto llegara su equivalente en ascii, es decir el numero "3",
el puerto solamente trabaja en ASCII no se pueden recibir datos en binario para poder verlos en binario hay que convertirlos de ascii a binario
dices que los quieres pasarlos a decimal seria una conversion de ascii a decimal es tal como estaba en el primer programa que posteaste

Citar

quiero ver la ristra de 0 y 1 de cada caracter enviado.gracias.

a continuacion te posteo la rutina para convertir el dato recibido en ascii a decimal y luego a binario (1 y 0)

Código: Text

 Private Sub MSComm1_OnComm()
Dim TmpStr As String
Dim StrLen As Long, I As Long
Dim FileData As Byte
Dim endecimal, conver As Integer
Dim enbinario As String
 
If MSComm1.CommEvent = comEvReceive Then
While MSComm1.InBufferCount &#62; 0
TmpStr = MSComm1.Input
StrLen = Len(TmpStr)
For I = 1 To StrLen
conver = Asc(Mid(TmpStr, I, 1))
endecimal = conver & endecimal 'en la variable &#34;endecimal&#34; esta el valor ascii
Next I                                       'convertido ya a decimal
'ahora que ya esta el valor en decimal  lo pasamos a binario
Do While endecimal &#62; 1 
 enbinario = endecimal Mod 2 & enbinario
 endecimal = Fix(endecimal / 2)
Loop
enbinario = endecimal & enbinario 
'en la variable &#34;enbinario&#34; queda ya el dato convertido de decimal a binario
Wend
End If
End Sub
 
 

saludos

SoloCodigo

Autor Tema: Recepcion Datos Binarios (Leído 2554 veces)

cubillejo

Recepcion Datos Binarios

Toph

Re: Recepcion Datos Binarios

cubillejo

Re: Recepcion Datos Binarios

cubillejo

Re: Recepcion Datos Binarios

Toph

Re: Recepcion Datos Binarios