• Home
 · 
• Miscellaneous
 · 
• Lector de puerto RS232 de la Centralita Siemens Hicom 102 - Lee la actividad de la centralita y la

Lector de puerto RS232 de la Centralita Siemens Hicom 102 - Lee la actividad de la centralita y la

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



Rate Lector de puerto RS232 de la Centralita Siemens Hicom 102 - Lee la actividad de la centralita y la

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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