Private Sub form_load()
Dim I
I = init()
End Sub
 
Public Function init() As Integer
  Static FlagFormPainted As Integer
 
  ' When form is painting for first time,
  If FlagFormPainted <> True Then
      FlagFormPainted = True
      MSComm1.CommPort = 2
      MSComm1.RThreshold = 38
      MSComm1.Settings = "9600,N,8,1"
      MSComm1.PortOpen = True
  End If
End Function
 
' Löscht den Sende- und Empfangsbuffer und die Textfelder
Private Sub Command_clearBuffer_Click()
  Dim I
  RxDBuffer.Text = ""
  TxDBuffer.Text = ""
  I = init()
End Sub
 
' gibt einen String an uP aus, der vorher in das Textfeld
' geschrieben wurde:
Private Sub Command_sendBuffer_Click()
  MSComm1.Output = TxDBuffer.Text + vbCr
End Sub
 
' empfängt ein Telegramm von uP, Länge 38 Zeichen Ascii
Private Sub MSComm1_OnComm()
  RxDBuffer.Text = MSComm1.Input
End Sub

mfg
Ellen