Autor Tema: Transmitir Puerto Serie Modo Binario (Leído 2335 veces)

sirespi · « **en:** Viernes 27 de Agosto de 2004, 12:09 »

Muy buenas, a ver si me podeis echar un cable. Intentare ser claro.

Necesito comunicarme con un pic mediante el puerto serie, con un programa de visual. Tengo todo ya en la mente pensado pero me surge la siguiente duda.Estoy usando visual basic 6, y por supuesto, el componente MSCOMM. Se que el pic al que me conecto, solo puede receibir 0 y 1. Entonces mi duda es la sigueinte. Segun he leido, una propiedad de este componente en la version 6 en inputmode, que permite modificar si se envia texto o binario. Yo hasta ahora, cuando usaba el puerto serie, si queria enviar algo ponia una cadena. En este caso, supongamos que quiero enviar 4 bits, ej:1010. SI dejo la propiedad inputmode a 0 y pongo MSCOMM.Output="1010" me lo pillaria el micro??? O tengo que poner la propiedad a 1??? SI la pongo a uno vale la misma orden MSCOMM.Output="1010" o se tiene que enviar de otra manera.

Lo miso me pasa para recibir , si el me manda 0 o 1, como se rellena mi buffer de entrada, con 0 y 1, o tengo que tocar algo para que me los coja en binario y no en ascii

Igual me he liado un poco al contaroslo. Por ultimo, y suponiendo que por fin logre recibir 0 y 1, imaginaos que recibo la cadena 1011. Quiero pasarla a decimal, tengo una funcioncilla por aqui que deberia hacermelo, pero no me rula. Me podeis poner algun codigo para pasar esa cadena de binario a decimal??? Luego sino, si tengo mas tiempo (estoy en el curro) os pongo mi funcion y me decis en que puede estar mal.

Un saludo y muchas gracias por todo. Saludos.

sirespi

Bueno a ver, os pongo mi codigo. Suponiendo que la variable bin tiene los numero sen binario que me llegan por el puerto serie, con este codigo me convierte bien de binario a decimal pero solo para 5 bits, y yo necesito que lo haga para 16, es decir, los for irian de 1 a 16, pero en cuanto pongo 6 o mas, casca. POr que???

Private Sub Form_Load()
Dim var(4) As Integer
Dim x As Integer
Dim Valor As Integer
Dim bin As String
bin = "11111"

For x = 1 To 5 Step 1
var(x - 1) = Mid(bin, x, 1)
Next x

Valor = 0
For x = 1 To 5 Step 1
Valor = Valor + (var(x - 1) * (2 ^ (5 - x)))
Next x
Text1.Text = Valor
End Sub

un saludo y gracias

DiabloRojo

Qué tal sirespi?
Creo que el error está en la forma en que asignas cada elemento de la variable bin a la matríz. Tu colocas:

Código: Text

 
For x = 1 To 5 Step 1
   var(x - 1) = Mid(bin, x, 1)
Next x

Si por ejemplo bin="11" (3 en decimal) tendrías como resultado:

1 1 0 0 0 (24 en decimal)

que es muy distinto en binario a esto:

0 0 0 1 1 (3 en decimal)

Aquí te envío un ejemplo basado en tu código:

Código: Text

 
 
 
Private Sub Form_Load()
   Dim var(15) As Integer
   Dim x As Integer
   Dim Valor As Long
   Dim bin As String
   Dim potencia
   Dim Agregado As String
 
bin = &#34;11111&#34;
'bin = &#34;11&#34;
'bin = &#34;110&#34;
'bin = &#34;11110000111001&#34;
'bin = &#34;1000000000000000&#34;
 
Agregado = AgregarCero(bin)
 
For x = 16 To 1 Step -1
   var(x - 1) = Val(Mid(Agregado, x, 1)) 'Notar el uso de la función val
Next x
 
Valor = 0
'For x = 16 To 1 Step -1
For x = 1 To 16 ' es lo mismo que lo anterior
   Valor = Valor + (var(x - 1) * (2 ^ (16 - x)))
Next x
Text1.Text = Valor
 
End Sub
 
 
Private Function AgregarCero(NumBin As String) As String
   Dim longitud As Integer
   Dim ParteNueva As String
   Dim NuevoNum As String
   Dim k As Integer
   
   longitud = Len(NumBin)
   
   For k = 1 To 16 - longitud
      ParteNueva = ParteNueva & &#34;0&#34;
   Next k
      NuevoNum = ParteNueva + NumBin
      AgregarCero = NuevoNum
End Function
 
 
 
 

Bueno, espero que esto te resulte de utilidad. Revísalo y luego me dices.
Suerte.

sirespi

Bueno a ver DiabloRojo en pocas palabras........ ERES EL PUTO AMO.

Lo acabo de probar y funciona de #### madre. No se como lo has hecho porque son las 12 de la noche y acabo de llegar de currar, pero lo he probado y funciona de #### madre. Mañana me lo mirare con mas calma.

Acabas de ascender muchos puestos en mi lista de heroes. Ya si fueras capaz de decirme lo del puerto serie, como transmitir en binario en lugar de ascii, ya serias mi heroe absoluto.

Ahora en serio, mil gracias. Esto lo estoy haciendo para el proyecto fin de carrera, y entre el tutor que me esta metiendo prisa, el curro y lo paquete que soy, la llevo negra. Me acabas de ayuda un monton, de verdad que muchisimas gracias, me has salvado media vida. Si puedo hacer algo por ti sera un placer.

De nuevo muchisimas gracias.

Saludos.

SoloCodigo

Autor Tema: Transmitir Puerto Serie Modo Binario (Leído 2335 veces)

sirespi

Transmitir Puerto Serie Modo Binario

sirespi

Re: Transmitir Puerto Serie Modo Binario

DiabloRojo

Re: Transmitir Puerto Serie Modo Binario

sirespi

Re: Transmitir Puerto Serie Modo Binario