Autor Tema: Piensan Q Funcione Asi ? (Leído 3193 veces)

laux · « **en:** Martes 22 de Marzo de 2005, 19:04 »

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

eliza_marti

Hola laux!..

..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..

..te aconsejo que revices los ejercicios del foro de visual basic...

Visual Basic

eliza_marti

Holas Laux!...

..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..

Código: Text

Private Sub MSComm1_OnComm()
Dim Rec() As Byte
Dim x As Integer
Select Case MSComm1.CommEvent
    Case MSCOMM_EV_RECEIVE
    Rec() = MSComm1.Input
    x = Rec(0)
    Text2.Text = x
    Text3.Text = Chr(x)
End Select
End Sub
 

Espero que te pueda servir de guia!..

..bye!...

© Jonathan ©

Citar

aunque cuidado que nos ve © Jonathan © y nos manda al foro de visual basic..

Ajaaa!!, te encontre pasando un codigo VB

... Creo que nunca dije nada al respecto, si este codigo ayuda a su consulta no veo el porque debe decir algo

... Eliza.. tan regañon me crees?

. Suerte!

eliza_marti

jijijijij

...nop..no eres regañón (aunque si te enojas sabremos que no quedará servidor en pie

)..

..era una bromita!...

..se que eres muy bueno!..y que siempre nos das una manita cuando la necesitamos ..Gracias por Ayudarnos siempre! un besito..

(f)

laux

GRACIAS A LOS DOS... !! DESPUES LES CUENTO COMO VA ... !

LAUX

SoloCodigo

Autor Tema: Piensan Q Funcione Asi ? (Leído 3193 veces)

laux

Piensan Q Funcione Asi ?

eliza_marti

Re: Piensan Q Funcione Asi ?

eliza_marti

Re: Piensan Q Funcione Asi ?

© Jonathan ©

Re: Piensan Q Funcione Asi ?

eliza_marti

Re: Piensan Q Funcione Asi ?

laux

Re: Piensan Q Funcione Asi ?