SoloCodigo

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

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

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.

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.

tngo una duda acerca de como se comporta el PIC, si tngo una parte de programa dentro de un bucle que llama a subrutinas y luego una interrupcion aparte,yo creo que se debe ir ejecutando el programa principal y cada vez que se produzca la interrupcion atenderla y continuar posteriormente con el programa. el caso es que he hecho un programa con esas caracteristicas y no funciona como deberia, me gustaria saber si la idea que tengo es correcta, porque cuando pruebo partes separadas de subrutinas y de la propia interrupcion van pero al juntarlas no funciona bien.gracias.