Autor Tema: Como Puedo Enviar Bytes Por El Puerto Serie (Leído 15201 veces)

oscar_937 · « **en:** Lunes 11 de Octubre de 2004, 21:36 »

HOLA A TODOS:

ME PODRIAN AYUDAR EN ESTE PROBLEMILLA?:

KIERO QUE DESDE LA PC PODER ENVIAR USANDO EL MSCOMM BYTES POR EL PUERTO SERIE, COMO LE HAGO NECESITO ENVIAR 8 BITS(1BYTE) A UN PIC16F84 PARA QUE ESTE REALICE CIERTA RUTINA Y AL TERMINAR LA RUTINA QUE EL PIC ENVIE UN DATO A LA PC INDICANDO QUE YA TERMINO, COMO LE PUEDO HACER, EL PIC TRABAJA A 4800 BAUDIOS Y OTRO A 9600 BAUDIOS, PERO LO QUE ME INTERESA ES ENVIAR BYTES, SUPONGO LOS TENGO QUE ENVIAR COMO UNA MATRIZ O ALGO ASI PERO COMO LE HAGO ME PUEDEN AYUDAR?

GRACIAS AMIGOS PROGRAMADORES Y LES ENVIO SALUDOS DESDE EL DF

ATM OSCAR_937

sirespi

A ver te comento.

Primero de todo, necesitas usar el componente MScomm, que es el de puerto serie. Te metes en componentes, lo buscasy lo pones en el formulario. Esto es muy facil

Seguidamente, configra el puerto. POr ejemplo, en el evento on load del formualrio, pon lo siguiente.

MSComm.Commport=1 para usar el puerto 1.
MSComm.Settings="4800, n, 8,1" con esto configuras el puerto a 4800 baudios, paridad nula, 8 bits de parada y uno de stop, esto lo puedes poner como quieras.

MSComm.portopen=true con esto abres finalmente el puerto.

Despues necesitas definir una variable tipo byte

Dim enviar(1) as byte si solo vas a enviar uno

La variable byte son tus 8 bits en decimal. Me explico. Si quieres enviar 11111111, lo que tiene que poner es un 255

enviar(0)=255
MSComm.output=enviar

Y con eso lo envias.

Recibir es pelin mas complejo, necesitas usar el evento oncomm y agregar un modulo, ademas de tocar las propiedades del puerto para que salten esos eventos, ya que por defecto vienen a 0.

Ahora mismo es que acabo de llegar de currar despues de 14 horas, pero si me dices exactamente lo que quieres hacer, yo te hago dos programas, uno qeu envia y otro que recibe, en eso tardo un periquete.

Un saludo.

oscar_937

hola amigo programador

necesito comunicarme con un pic con un programa en visual basic 6, por medio del puerto serie, el dato es el resultado de una operacion matematica, osea un dato decimal, tengo que convertir el decimal a binario y despues enviarlo?? kiero enviar 4 bytes o 6 o etc(podrias darme un ejemplo con 4 bytes??) entonces como le hago ?? los mando como matriz ?? y como se hace eso??esos bytes el pic los recoje y manda a realizar una rutina , al terminar la rutina el pic me envia cierto byte (8 bits oooraleee!!) yo atrapo ese byte y lo convierto a decimal como hago eso o como limpio el buffer despues de enviar y recibir???

como esta eso de la propiedad inputmode???

ahora necesito enviar un cero (0) y despues el byte(00001010) y despues un uno(1) para que el pic reconosca que es un dato nuevo o como??

o como seria para solo enviar los bytes sin tener que ponerle un cero y un uno al terminar el dato??

o enviar el cero(0) y los 4 bytes y al terminar enviar un uno(1)

me podrias dar un ejemplo uno para cada caso si pudieras o tienes tiempo porfavor

asi como configuro el mscomm si kiero que los envie a 4800 y otro para enviarlos a 9600??

espero me haya explicado gracias de antemano

saludos desde el DF

sirespi

perdona por no responder antes, pero estoy de curro hasta las cejas, y ademas tengo el proyecto fin de carrera.
Esta noche cuando llegue a casa miro lo que dices yte digo como se puede hacer. Un saludo

sirespi

Vamos a ver.

Ya se por donde vas.

Te comento varias cosas. Tienes qeu usar el mscomm, la propiedad input mode ha de estar a uno.
Para mandar cosas, te tienes que definir una variable tipo byte.

Te pongo un ejemplo.

Siempre se han de mandar de 8 bits en 8 bits , ya que los micros (por lo menos la mayoria) trabajn asi, y el visual igual (esto varia segun algunos S.O. orientales, pero creo que es asi siempre). Es decir, tu vas a recibir y a envair de 8 en ocho. Si quisieras enviar 16, pos no hay problema, simplemente enviaria primero 8 y despues 8.

Vamos a ponernos en el caso facil. Enviar 8 bits. Por ejemplo: 10101010. Vamos a ver, este numero en binario, si lo pasas a decimal, tienes el 170.

Te defines una variable Dim a As byte.
Luego dice a=170.
y luego mscoom.output=a

De esta forma, al tener la propiedad input mode a 1, lo que de verdad le dices cuando mandas el 170, es mandarle los bits 10101010.

Y lo mismo para recibir.

Te envio un programa, echale un vistazo. Si tienes un cable serie para unir los dos puertos series del ordena, puedes usar los dos programas. Uno envia un byte y el otro lo recive y viceversa.

Echale un vistazo al codigo y veras que es muy sencillo

Espero qeu te sirva de ayuda

oscar_937

MUCHISIMAS GRACIAS SIRESPI

SOLO ME QUEDA UNA DUDA (UN POCO TONTA) SI KIERO ENVIAR EL BYTE COMO ME HABIAS DICHO ES DECIR: X= 00000011 = 3 DECIMAL Y X LA DECLARO COMO BYTE, PARA EL EJEMPLO QUE ME DISTE (MINIPRUEBA) PARA ENVIAR , LO HAGO EN CODIGO ASCII, Y SI YO KISIERA QUE EN EL TXTENVIAR PONER X QUE EN ESTE CASO ES = 3, LE PONGO :

Private Sub Mandar_Click()
Dim x As Integer
Dim Send(1) As Byte
x = Text1.Text
Send(0) = x
MSComm1.Output = Send
End Sub

Y EL TEXT1.TEXT LO LIMITO A QUE SOLO SE PUEDAN ESCRIBIR NUMEROS CON:

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
KeyAscii = 0
End If
End Sub

PODRIA PONER EL BYTE ?? Y ENTONCES PARA RECIBIRLO QUE PEX??
SERIA LO MISMO SOLO QUE LO RECIBA ??...

GRACIAS POR TU TIEMPO Y PASCIENCIA

SALUDOS DESDE EL DF

oscar_937

OTRA COSA SE ME OLVIDABA

ME PODRIAS EXPLICAR LO DEL MODULO??

SUPONGO QUE LOS NUMEROS ASIGNADOS SON PARA EL CASO DE UN SELECT CASE O ALGO ASI DEPENDIENDO DE CADA EVENTO O NO??

Y LO DEMAS ?

Y PARA HACER LA COMUNICACION CON EL PIC TENDRIA QUE UTILIZAR UN CABLE QUE ESTE PUENTEADO PARA QUE LOS RECIBA O COMO ESTA LA COSA??

ME REFIERO A QUE SI LA TX DEL PC LA PONGO AL RX DEL PIC Y EL RX AL TX DEL PIC PARA COMUNICACION IDA Y VUELTA??

GRACIAS AMIGO PROGRAMADOR

sirespi

MMMM a ver, no he pillado muy bien tu pregunta, pero es qeu acabo de llegar de curra ry estoy reventado. En el text tu has de poner un numero entre 0 y 255, ya que luego es lo que le pasas por el puerto serie y si se sale de ahi, pos casca. Tambien puedes poner una letra o simbolo cualquiera y con la funcion Chr(numero que sea) el ya coge el valor. Por ejemplo si le metes una a, te pone el 97 (creo que es el 97 , en cualquier, el numero que le corresponde). Lo que no puedes hacer es ponerle el numero en binario.

Bueno si, lo puedes poner, hacer una funcion intermedia que te pase ese numero binario a decimal, y luego ese numero decimal ponerlo en el puerto. Es bastante sencillo, si no te sale una funcion para pasar de binario a decimal me lo dices y te la mando.

Respecto al cable, yo uso un cable null modem. En cualquier tienda de electronica lo tienes. Solo tienes que decir que es un cable para conectar dos puertos serie, por ejemplo los dos del ordena para hacer prueba en transmision entre ellos.

Espero haber ayudado. Un saludo.

oscar_937

muchas gracias sirespi ya logre hacerlo, solo me queda la duda de que :

para que es el modulo que me mandaste del programa?

Global Const MSCOMM_EV_SEND = 1
Global Const MSCOMM_EV_RECEIVE = 2
Global Const MSCOMM_EV_CTS = 3
Global Const MSCOMM_EV_DSR = 4
Global Const MSCOMM_EV_CD = 5
Global Const MSCOMM_EV_RING = 6
Global Const MSCOMM_EV_EOF = 7

Global Const MSCOMM_ER_BREAK = 1001
Global Const MSCOMM_ER_CTSTO = 1002
Global Const MSCOMM_ER_DSRTO = 1003
Global Const MSCOMM_ER_FRAME = 1004
Global Const MSCOMM_ER_OVERRUN = 1006
Global Const MSCOMM_ER_CDTO = 1007
Global Const MSCOMM_ER_RXOVER = 1008
Global Const MSCOMM_ER_RXPARITY = 1009
Global Const MSCOMM_ER_TXFULL = 1010

que significan? supongo que el evento enviar (send) le das el valor de uno para un select case o algo asi???

pero lo demas que pex????

y de casualidad tu sabes como puedo transmitir via internet lo que capta una webcam de una pc a otra??? se puede utilizar el control winsock??

si sabes como hacerlo me puedes enviar algun codigo que haga eso porfavor??

gracias por todo amigo programador y hechale ganas en tu job

cuidate y saludos desde México DF

sirespi

Si te das cuentas, en el evento OnComm del puerto serie hay un select case.
Para eso sirven las lineas que dies mas arriba. El evento recibir le asignas el 2, el evento mandar el 1 y el resto son otros eventos, que si error en el envio, activacion de un flag de no se que, etc etc, eso es ya mucho mas especifico no creo que te haga falta. Respecto a lo de la WebCam no se como hacerlo, pero en este foro he buscado y hay varios post que dicen como hacerlo, echalos un vistazo

oscar_937

OYE PERO EN QUE TEMA BUSCO ESO DE LA WEBCAM???

TU AYUDA ME HA SERVIDO DE MUCHO

sirespi

En la parte de abajo del foro, donde pone buscar coloca la palabra camara o webcam y te saldarn los post que tengan esa palabra dentro

dannyhar

Hola amigos.. espero que esteis bien..

No se que puedo hacer estoy en pocas palabras desesperado.. Tengo el mismo problema.. quiero leer una secuencia de 8 bits con el mscomm de vb 6. por el puerto serial.. No se porque pero siempre me devuelve 0.. ocupe el programa que se encuentra en esta discucion y no me funciono siempre me devuelve una secuencia de solo 00000000.. por favor ya no se que hacer de mi circuito me sale 8voltios para el cero y -8 voltios para el uno..
Por favor ayudenme..

sirespi

Hola dannyhar, tranquilo que todo acaba saliendo, te lo digo yo. Escribeme que es lo quequieres hacer exactamente, que señales salen de tu circuito y como quieras verlas o qeu necesitas hacer con visual basic y si puedo te hecho una mano, que ya veras como sale.

Cuentamelo con pelos y señales y vemos que se puede hacer

scorpion25acv

Hola a todos y disculpen mi intromision en su tema.

pero por la urgencia que tengo, me gustaria saber si sirespi me podria ayudar/explicar si conoce como enviar archivos usando el componete MSComm, en el caso de que lo que deseo enviar tiene algo como:

Código: Text

... FileName = &#34;C:&#092;BInFiles&#092;Datos.dat&#34;  ' Nombre del archivo a enviar
Open FileName For Binary Access Read As #1
For i = 1 to Len(FileName)
... ' continua 
 
 

segun entiendo es el envio de archivo binario

, termino que no entiendo muy bien, si bien se hace una funcion para enviar un archivo desde una maquina conectada a otra por el modem, y segun la ayuda del MSDN, se pasa el contenido del archivo por el buffer de salida del componente y llega al buffer del otro MSComm ubicado en el otro Pc, entonces donde se guarda el archivo que envié? o el MSComm no trabaja como el caso del Hyperterminal de windows, que ubica el archivo en alguna direccion. Esparando tu respuesta y agradeciendo de antemano tu ayuda... me despido
Salu2

Brroz

Hola

viendo el último comentario, comento un par de cosillas:

Si abres un archivo como binario, podrás leer y escribir en él utilizando Get y Put respectivamente. Los parámetros que reciben estos métodos son el número de canal del archivo abierto, un desplazamiento (offset) a partir del cual leer y/o escribir y una variable de typo byte. Sobre los dos primeros parámetros creo que sobran explicaciones, el último aparte de contener el valor leído/escrito indica la cantidad de bytes que se leen/escriben. Es decir, si utilizas una matriz dimensionada con x elementos, leeras/escribirás x bytes en el archivo. Si no utilizas una matriz, logicamente leeras/escribirás 1 byte.

Tambien hay que considerar que a la hora de abrir el puerto con OPEN, se pueden indicar parámetros para configurar la comunicación con el mismo (ahora mismo no sabría la sintáxis, pero hacer, se hace).

A partir de esto, como creo que el el caso de scorpion25acv, podría ocurrir que en una máquina leas de un archivo en disco cierta cantidad (al fin y al cabo como si dimensionaras un buffer) de bytes y a continuación los escribas en un puerto exactamente igual como si de un archivo en disco se tratase (configuraciones e historias así aparte). En otro punto existirá otro equipo leyendo información (con Get) de su puerto también abierto como un archivo.
La salvedad a la parte que escucha, es que mietras que no se reciben datos del archivo (del puerto), la ejecución del código se detiene en el Get...

Sin duda que el control Comm simplifica la tarea, pero básicamente supongo que viene a hacer lo mismo.

Chao.

dannyhar

Hola sirespi... muchas gracias por la preocupacion.. Espero que esto sea una señal de que me puedas seguir ayudando por que en verdad lo necesito...

Te voy a contar lo que me sucede y lo que quiero hacer.. Estoy haciendo mi proy de fin de carrera el cual consiste en el diseño de la mejor manera de hacer el control de vehiculos que acceden a un parqueadero.. Para esto tengo que presentar dos opciones una que permita ingresar los datos mediante el puerto serial y otra mediante el paralelo... esto mediante un teclado en el cual el cliente pulsa un codigo.. Despues de ingresar el codigo el usuario presiona end y los datos mediante un circuito (en el cual no tengo problem) deben pasar a la pc..

Bueno para no hacerme muy largo Al final de toda la parte electronica tengo una secuencia de bits o niveles de voltaje 8volt para el 0 y -8 volt para el 1 (bueno eso s lo que quisiera capturar en una variable en mi prog de visual Ah los niveles de voltaje cada un segundo ingresan al puerto serial.. pero me sale solo 0...

ocupo el mscomm pero e leido y e leido pero no me sale.. En este foro subista la respuesta a como enviar pero no como recibir... Bueno espero que te haya podido explicar mi problema y por

dannyhar

Perdon se me envio lo que te queria decir es AYUDAME por fis...... te juro que te agradecere infinitamente chau y muchos saludos

sirespi

Aver, vayamos por parte.

- Para Scorpion25. La verdad que en lo de enviar archivos entero por el puerto seri eme pillas. No obstante algo lei de como configurar el puerto serie como si se tratara de un modem, por lo que creo qeu es posible. Igual se puede hacer como dice Brroz, que lo que hagas es acceder al fichero e ir enviando su contenido segun lo vas leyendo y a la vez se va escribiendo en la maquina de destino. LA verdad, esto no lo he probado, tendria que verlo, si encuentro algo os lo digo, pero en principio seria buscar informacion sobre lo que ha planteado brroz.

- Para dannyhar.

Si no he entendido mal, lo que tu realmente tiene qeu hacer en tu aplicacion es recibir datos por el puerto serie.

Veamos, enviar es sumamente facil, tan solo tienes qeu definir una variable tipo byte y utilizar el mscomm.output. Creo qeu lo explique mas arriba. Si por ejemplo quieres enviar el numero binario 1010, este numero en decimal corresponde al 10, por lo tanto, tu variable tipo byte la pones a valor 10 y cuando la mandes, lo que realmente mandas sera la secuencia 1010.

Para recibir, tienes que usar la propiedad OnComm y despues seleccionar el commEvent. Es muy facil. TE coger una variable tipo byte y en ellas metes el buffer de entrada.
por ejmplo

Private Sub MSComm1_OnComm()
Dim Rec() As Byte
Select Case MSComm1.CommEvent
Case MSCOMM_EV_RECEIVE
Rec() = MSComm1.Input
en esa variable ya tienes lo qeu recoges del puerto serie y luego puedes utilizarla como tu quieras .

No se si esto te valdara de ayuda.

Mirate el ejemplo que adjunto, creo que ya lo subi uan vez. Metete en el codigo y repasalo, veras qeu es muy sencillo. Lo que no tengo claro es si tu quieres coger lo qeu te llega y ay esta, o si lo que quieres representar en tu programa es si te llegan 0 y 1 y en el caso de qeu te lleguen 0 poner un cero, y si te llegan 1 poner un 8.

De momento haz lo que te digo de recibir. Despues, si lo logras, orta cosa que se puede hacer es la siguiente. A ti te llegara a tu variable tipo byte un numero decimal. Pasas ese numero de decimal a binario con una funcion (si no sabes hacerla yo ya la tengo hecha). es decir, suponte que te envian la secuencia 1010 igual que antes, pero ahora te la envian a ti, no la envias tu. En tu variable byte del evento de recepcion tu recibes un numero, el 10, con lo cual no puedes saber si son 0 o 1, 0 v u 9v. Pues pasas el 10 a binario, es decir, 1010, y a aprtir de ahi te mueves pos la cadena de 0 y 1 y sabes si recibes 0 voltios u 8 voltios.

No se si te he podido ayudar o no pero en cualquier caso, dime lo qeu sea y si hace falta me escribes en una hoja todo detallado lo qeu necesitas y lo miramos mas profundamente. Un saludo.

dannyhar

Hola sirespi gracias por la ayuda...

Sabes que ya logro recibir datos por el puerto serie con tu prog.. pero siempre y cuando corte la alimentacion de mi circuito en el momento exacto en que recibo los ocho bits.. caso contrario recibo otro caracter y por ende otro numero.. Nose por que pasa esto.. bueno tengo una idea de mandar una señal por el puerto paralelo para que me permita activar o no el max232 para asi no tener que estar quitando la alimentacion manualmente... que te parece la idea.. tu que piensas como podria hacerlo y por que me sucede esto... Espero tu respuesta...Gracias Saludos

dannyhar

Hola sirespi como estas...

Sabes que no pude culminar con exito mi idea por que el paralelo solo me envia 3.5 volt y no me funciona bien el max232...
Me han dicho que tengo que usar un pic(pero no conozco sino lo bien basico de pics es por esto que no me atrevi a usar en mi proy), pero ahora que veo que lo necesito, tengo que hacerlo...

Sirespi he visto (creo que es en otra discucion) que tu necesitabas enviar la secuencia de ocho bits y usabas un pic creo que es lo mismo que quiero hacer yo, quisiera si tu pudieras me ayudes con mi problem...

Te juro que si me ayudas con esto te lo agradecere y no te molestare en mucho tiempo, todo lo que me puedas decir, que pic usar, o si me puedes enviar lo que tu hiciste y como lo conectaste, lo que deseo es algo que ya funcione para cambiar mi circuito te lo agradezco por que como ya te he dicho solo conozco lo bien basico de pics,....

Por fis sirespi ayudame ya que mi directo

esta que me molesta...

Saludos y gracias te voy a estar esperando chau

sirespi

Muy buenas.

Mmmm a ver, respecto al PIC no tengo mucha idea. Realmente mi proyecto consta de 3. Un compañero diseña una tarjeta de adquisicion de datos, otro usa el micro, que recoge los datos del primero y me lo envia a mi, qeu soy el tercero y que me encargo de desarrollar la aplicacion software. Lo que puedo hacer si quieres es preguntarle a este hombre que micro es el qeu usamos. EL martes tengo que pasar por la uni para ultimar los detalles, que espero presentar el proyecto a principios de diciembre, asi que si puedes intenta mandarme un post antes del martes con lo qeu necesitas saber y se lo pregunto. Si es a nivel software dimelo y yo investigo, si es a nivel hardware, ya te digo, preguntame y el martes yo se lo pregunto.

dannyhar

Que tal sirespi...
Como te va te felicito y espero que culmines con exito tu proy en diciembre...

Que te puedo decir lo que necesito es el modo de conexion es decir el diagrama de conexion entre el pic y el max 232 y de ahi al puerto DB9, todo lo que son resistencias pines, de los chips, condensadores, etc... Lamentablemente no te pude contestar antes por que no he leido tu mensaj... espero que no sea demasiado tarde y me puedas ayudar...

Saludos Hombre y venga que ya terminas.....

Gracias de antemano y cuidate mucho

sirespi

Hoy voy a hacer otras pruebas en la universidad, de momento todas estan saliendo a pedir de boca. Hablare con este honbre a ver si me puede pasar sus esquemas.