Private Sub Command_OpenCom_Click()

If Command_OpenCom.Caption = "COM öffnen" Then
  'Serielle Schnittstelle öffnen
  If OPENCOM(Combo_Com.Text & ":" & Combo_Baud.Text & ",n,8,1") = 0 Then
    MsgBox ("Fehler, kann " & Combo_Com.Text & " nicht öffnen")
  Else
    SDA 1 'I2C-Interface testen
    If Not SDA_in Then
      MsgBox ("Keine Antwort vom I2C-Seriell Interface")
    Else
      Command_OpenCom.Caption = "COM schließen"
      'I2C-Bus initialisieren
      i2cInit
      i2cStart
      i2cStop
    End If
  End If
Else
  CLOSECOM 'Serielle Schnittstelle schließen
  Command_OpenCom.Caption = "COM öffnen"
End If

End Sub

Private Sub Command_LCD_ausgeben_Click()

i2cInit
i2cStart
'Bus-Adresse zum LCD-Display schreiben
If i2cSlave(112) Then
  i2cOut 224      'LCD initialisieren
  i2cOut 200      'LCD EIN, 8 Stellen
  i2cOut 0        'LCD EIN, Cursor ganz links stellen

  i2cLCD "Hallo " 'Text ausgeben

  i2cOut 0        'Symbole alle AUS
  i2cOut 0
End If

i2cStop

End Sub