Programación General > Visual Basic 6.0 e inferiores
Como Puedo Enviar Bytes Por El Puerto Serie
oscar_937:
MUCHISIMAS GRACIAS SIRESPI :devil:
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 :smartass:
SALUDOS DESDE EL DF :devil: :hola: :comp:
oscar_937:
OTRA COSA SE ME OLVIDABA :(
ME PODRIAS EXPLICAR LO DEL MODULO?? :unsure:
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?? :unsure:
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 :comp: :hola:
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??? :unsure:
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 :devil: :hola:
cuidate y saludos desde México DF :hola: :P
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
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa