Programación Específica > Programación de Aplicaciones para Dispositivos

 Piensan Q Funcione Asi ?

(1/2) > >>

laux:
Holas, yo otra vez, para leer la cadena de bits q me entran del puerto serie hize esto, a uds. les parece q si le conecto una balanza electrónica funcionara ? porq ahora en mi pc (en la cual el serie conecta al monitor ) al hacer la lectura no me da ningun dato.

El cod. para lectura usando el mscomm es este;

Private Sub Form_Load()
MSComm1.Settings = "1200,n,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True
End Sub
 
Private Sub RECIBIR_Click()
'muestra en el text
Text2.Text = MSComm1.Input   ------------ PERO NO ME ESCRIBE NADA..
End Sub


Q CREENN ??

GRACIAS,

LAU :kicking:

eliza_marti:
Hola laux!.. :hola: ..lamento decirte que está mal.. :( ..el Mscomm para recibir lo hace atravez de un procedimiento llamado Oncomm() en el tienes que validar el evento MSComm1.CommEvent ..si este es = 1..quiere decir que vas a recibir.. :) ..y entonces ahi va lo que dices   variable = MSComm1.Input..

 :hola: ..te aconsejo que revices los ejercicios del foro de visual basic... :)   :yes:

Visual Basic

eliza_marti:
Holas Laux!... :hola: ..me parece muy bonito tu proyecto.. :) ..mira aqui te pongo la parte del Oncomm...aunque cuidado que nos ve  © Jonathan © y nos manda al foro de visual basic.. :adios:


--- Código: Text ---Private Sub MSComm1_OnComm()Dim Rec() As ByteDim x As IntegerSelect Case MSComm1.CommEvent    Case MSCOMM_EV_RECEIVE    Rec() = MSComm1.Input    x = Rec(0)    Text2.Text = x    Text3.Text = Chr(x)End SelectEnd Sub 
Espero que te pueda servir de guia!.. :hola: ..bye!... :sorcerer:

© Jonathan ©:

--- Citar ---aunque cuidado que nos ve © Jonathan © y nos manda al foro de visual basic..
--- Fin de la cita ---

Ajaaa!!, te encontre pasando un codigo VB  :lightsabre: ... Creo que nunca dije nada al respecto, si este codigo ayuda a su consulta no veo el porque debe decir algo  :unsure:  :whistling: ... Eliza.. tan regañon me crees?  :( . Suerte!  :D

eliza_marti:
jijijijij  :P ...nop..no eres regañón (aunque si te enojas sabremos que no quedará servidor en pie  :P ).. :P ..era una bromita!... :P ..se que eres muy bueno!..y que siempre nos das una manita cuando la necesitamos  ..Gracias por Ayudarnos siempre! un besito.. :hola:  :)  (f)  :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente