Daten von BOSS 925 an PC übergeben

[DonnerGott]

Hallo zusammen,

die Geschichte, dass der Alarmierte Text vom Pager aus auf dem Rechner angezeigt wird hört sich sehr interessant an.
Ich würde mich gerne an diesem Projekt beteiligen, weil unsere Wehr dem nächst auch umstellt auf Digitalalarm und leider mit IDEA Verschlüsselung.

mfg

[Pirate]

also die daten vom pager auf den pc zu übernehmen ist nicht die große sache in vb.

Public Class schnittstelle

Public Function Receive(ByVal serialport1 As System.IO.Ports.SerialPort, ByRef zeichenbuffer As String) As Boolean
Dim zeichen As String = String.Empty

zeichenbuffer = ""

serialport1.Encoding = System.Text.Encoding.Default
serialport1.Open()

Do
System.Threading.Thread.Sleep(1000)
zeichen = serialport1.ReadExisting()
If (zeichen.Length > 0) Then
zeichenbuffer = zeichenbuffer & zeichen
End If
Loop Until zeichenbuffer.EndsWith(Chr(0))
serialport1.Close()
Return False
End Function
End Class