by Luis Mariscal (11 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sun 29th October 2006
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Lector de puerto RS232 de la Centralita Siemens Hicom 102 - Lee la actividad de la centralita y la guarda en un Log , con fecha Interno Numero
API Declarations
' Ponert MSCOM
' Poner List1
'Conectar un cable del puerto RS232 (Comm1) a la Hicom102
' Son tres cables
'
' GND <--> GND
' RTS <--> RTS
' TXD <--> TXD
VBcoders
Private Sub Form_Load()
Timer1.interval=2000
'Puerto 1
MSComm1.CommPort = 1
' Velocidad
MSComm1.Settings = "4800,n,8,1"
MSComm1.RTSEnable = True
MSComm1.PortOpen = True
End Sub
Sub inicio()
Label2.Caption = "INICIADO..."
Timer1.Enabled = False
Do
DoEvents
Dim result
result = result & MSComm1.Input
If InStr(result, Chr(10)) > 0 Then
result = Replace(result, Chr(10), "")
result = Replace(result, Chr(13), "")
List1.AddItem Date & " - " & Time & " - " & result
Open App.Path & "/llamadas.log" For Append As #1
Print #1, Date & " - " & Time & " - " & result
Close #1
result = ""
End If
Loop
End Sub
Private Sub Timer1_Timer()
inicio
End Sub
No comments have been posted about Lector de puerto RS232 de la Centralita Siemens Hicom 102 - Lee la actividad de la centralita y la . Why not be the first to post a comment about Lector de puerto RS232 de la Centralita Siemens Hicom 102 - Lee la actividad de la centralita y la .