MSCOMM

[Lager.]

Que onda  JorgitoFRyOle,
EL  MID() te regresa en una variable tipo RESULTADOstring el formato obtenido de stringATRABAJAR definido por la longitud de inicio y la longitud de tamaño(esta opcional) de la siguiente forma:

RESULTADOstring= MID(stringATRABAJAR,longitud_de_inicio,longitud_de_tamaño)

Ejemplo :stringATRABAJAR = "Jorgito FR y OLE"
                RESULTADOstring=MID(stringATRABAJAR,9,2) "Texto Resultado es FR
Actua como filtro (tambien estan el Len(),left() right(),Instr(),split(),etc..)

¿de donde sale la sentencia if err then msgbox err.description, 48? no entiendo bien tu pregunta pana aqui lo que se hace es poner un error , podrias agregarle vbOKOnly,etc.. como todo msgbox . Este error viene tipificado por el sistema.asi que no hay que definirlo.
Un salu2

[ardnax]

Hola, soy alexandra por favor necesito ayuda en serio.
Estoy tratando de conectar un lector escritor de tarjetas con chip y necesito obtener los datos de esta tarjeta enviandole un comando de lectura y realmente no se como hacerlo me podrian ayudar.
A la tarjeta ya la detecto usando Visual lo que no se es como manipular el pic desde visual basic este lector consta de 2 conectores un rj45 y rj11, ademas tiene un conector db9 (td, rd, y ground)
Como hago la comunicación serial por fa ayudenme
Mi correo es ardnax@mixmail.com  

[JorgitoFRyOle]

Buenas:

Yo estoy haciendo algo parecido, solo que yo utilizo un lector de proximidad, yo aun toy en como detectar la tarjeta con visual basic. Como lo has hecho?


Otra cosa, respecto a tu problema, no he entendido exactamente cual es? Lo que hago yo para establecer la comunicacion serie entre el pc y el pic es un protocolo de comunicacion. He dejado informacion en este mismo foro acerca de como construirlo.

http://miarroba.com/foros/ver.php?foroid=46840&temaid=3091622

Si tienes alguna duda, ya sabes donde toy

Ah, otra cosa, como haces para que tu lector lea el codigo de la tarjeta? Mi lector utiliza 3pines, un clock, un data y un strobe que me indica cuando esta a 0 que esta transmitiendo los datos, pero como hago para recojerlos? Tengo mil dudas y no me doy aclarao para programarlo.

A ver si alguien me puede ayudar, gracias

1saludo y animo a tos

[ardnax]

Detecta tarjeta con chip dentro de un lector escritor conectado al comm

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
" Constantes para los códigos de control
Const STX = 2
Const ETX = 3
Const EOT = 4
Const SOH = 1
Const ENQ = 5
Const ACK = 6
Const NAK = 21
Const ETB = 23
Const ESC = 27
Private Sub Command1_Click() "botón que transmite el precio
Dim datos As String
Dim dato As String
" Envía una descripción y un precio de prueba
serie.Output = Chr(EOT) + Chr(STX) + "88" + "218" + "0" + Chr(ETX)
serie.InputLen = 1
dato = serie.Input
If dato <> "" Then
dato = Hex(Asc(dato))
Text1.Text = dato
Else
ms
End If

End Sub
Private Sub Form_Load()
serie.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
serie.PortOpen = False
End Sub
Private Sub Timer1_Timer()
serie.Output = Chr(EOT) + Chr(ENQ)
End Sub

Funciona lo que necesito es obtener los datos de esta tarjeta por fa ayudenme estoy desesperada.

[ladofes]

hola, quisiera saber si me puedes ayudar , necesito enviar varios datos del pic16f877a (  leo dos entradas analogicas, y lo que quiero es tomar su valor en visual basic y mostrarlos en 2 textbox) uso el VB 6, y pues programo en pic basic , quisiera alguna ayuda u orientacion por favor