Public Class Form1
' ------------------------------------------------------------
' Programmschnipsel von Basti
' Änderungen Ellen Ramcke 2009
' empfängt ein Telegramm vom uP bestehend aus Ascci Zeichen
' welches mit einem 0x0D (CR) abgeschlossen ist.
' Der String wird in eine Textbox visualisiert.
' Zur korrekten Funktion muss noch eine Windows Form erzeugt werden
' mit einer Textbox Name: Textbox3
' getestet IO
' ------------------------------------------------------------
 
' Das Delegat muss die selbe Signature haben
Delegate Sub TextBoxCallback(ByVal text As String)
'TODO modifier in friend geändert. Soll für das Assembly gültig sein
Friend WithEvents myComPort As IO.Ports.SerialPort
'TODO Du willst doch keine 2te Instanz SerialPort1 erzeugen??
'Friend WithEvents SerialPort1 As System.IO.Ports.SerialPort
Public Event DataReceived As IO.Ports.SerialDataReceivedEventHandler
Public Event ErrorReceived As IO.Ports.SerialErrorReceivedEventHandler
 
'Private EndOfCommand As String = Constants.vbCrLf.ToString
 
Private Sub Form3_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
 
 
' Mal nachschauen, ob es hier SerialPorts gibt
Dim str() As String = IO.Ports.SerialPort.GetPortNames()
'### -------------------------------------------------------------------
' ich empfehle alle Ports in eine Combobox einzutragen
' gibt die verfügbaren COM Ports zurück und stellt diese in die Combobox
'Dim Portnames As String() = System.IO.Ports.SerialPort.GetPortNames
'Dim b As Object = Portnames
'ComboBox_port.Items.Clear()
'ComboBox_port.Items.AddRange(b)
' Verwendung dann so : .PortName = ComboBox_port.Text
'----------------------------------------------------------------------
' --
' Wenn nein, dann beenden:
If str.Length = 0 Then
MsgBox("Kein Gerät angeschlossen!", MsgBoxStyle.Critical)
Me.Close()
End If
'### ich würde erst beenden, wenn das open fehlschlägt siehe unten
 
 
' Eine Instance von SerialPort erstellen
' Im Normalfall ist das COM1:
myComPort = New IO.Ports.SerialPort
With myComPort
' Die folgenden vier Einstellungen müssen denen der
' Gegenstelle entsprechen
.PortName = "COM2"
.BaudRate = 9600
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
.Parity = IO.Ports.Parity.None
.Encoding = System.Text.Encoding.GetEncoding(1252)
.Handshake = IO.Ports.Handshake.None
.RtsEnable = False
'.ReceivedBytesThreshold = 1
' Telegramm von UP mit CR als Terminierungszeichen im ReadLine()
.NewLine = vbCr
' Wichtig! Hier wird eingestellt nach wieviel Bytes im
' Eingangspuffer
' das DataReceived Event gefeuert wird
.ReceivedBytesThreshold = 1
End With
' Und nun öffnen wir den Port
' ### besser mit Try ... catch ex as exception ... end try arbeiten
'beim Port öffnen kann viel passieren. Aber das wirst Du schon noch
' sehen
myComPort.Open()
'TODO Abfrage ob der Port geöffnet ist
'Bei allen weiteren Aktionen (Send, Read) immer vorher abfragen: if
' comopen then ....
'sonst läufst Du eventuell auf einen Ausnahmefehler
Dim comOpen As Boolean = myComPort.IsOpen
End Sub

mfg
Ellen