gina
29 de Agosto del 2003

NECESITO ABRIR UNA PUERTA DE CERRADURA ELECTRICO ( UN PORTERO COMUN)
SE COMO RECIVIR LOS DATOS PERO NO SE QUE ENVIAR PARA ABRIR LA PUERTA O LA CAJA REGISTRADORA CREO QUE SERA LO MISMO.
O NO ?
ESTO ES LO QUE ESCRIBO PERO NO ME FUNCION

Dim Instring As String, MSG As Variant, Buffer As String, Enviar As Integer

' Se elige el COM1.
MSComm1.CommPort = 1

' Se determinan los parametos
' 9600 baudios, Sin Paridad, 8 bits y 1 como bit de parada.
MSComm1.Settings = "9600,N,8,1"

' Se indica al control que lea el buffer completo cuando
' lleguen los datos
MSComm1.InputLen = 0

' Se abre el puerto
MSComm1.PortOpen = True
Dim HaciaCajon As Integer
HaciaCajon = FreeFile
Do
DoEvents
Buffer = MSComm1.Input
Loop Until InStr(Buffer, vbCrLf)


' Se lee la respuesta de "OK" en el puerto serial.

' Se cierra el puerto.
MSComm1.PortOpen = False

End Sub




Private Sub MSComm1_OnComm()
Dim MSG As Double, memoria As String, Instring As Variant
Dim HaciaCajon As Integer
HaciaCajon = FreeFile
MSComm1.InputLen = 0

' Comprobar los datos.
If MSComm1.InBufferCount Then
' Leer los datos.

Instring = MSComm1.Input
MSComm1.output = "#HaciaCajon" & Chr$(13)
Print #HaciaCajon, "Chr(27)+Chr(112)+Chr(0)+Chr(40)+Chr(40)"

Close #HaciaCajon

End If


End Sub