Hallo Tido,


Der Code ist echt Simpel, ist nur aus einen MSomm (Serielle Schnittstelle) beispiel und einigen basics zusammengesetzt.

Wenn du noch fragen hast melde dich.

anbei der Quellcode, sowie der Link zu der vbp (visualBasic 6) datei.

Code:
'#################################################################
'#                                                               #
'#  Benötigte Elemente:                                          #
'#  -Label2 & label3                                             #
'#  -mscomm1                                                     #
'#  -progressbar1                                                #
'#                                                               #
'#################################################################


Private Sub Form_Load()
' Fire Rx Event Every x Bytes
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
' When Inputting Data, Input y Bytes at a time
MSComm1.InputLen = 1
MSComm1.Settings = "9600,N,8,1" 'Com port einstellungen
' Open COM1
MSComm1.CommPort = 1  'nummer des Com Ports
MSComm1.PortOpen = True 'Com Port öffnen
End Sub
' Kommunikationsereignis
Private Sub MSComm1_OnComm() 'Fehlerhandling COM Schnittstelle
  Select Case MSComm1.CommEvent
    Case comOverrun
      MsgBox "Datenverlust!"

    Case comRxOver
      MsgBox "Datenverlust!"

    Case comEvReceive
    
    'jetzt gehts los
    
      xx = MSComm1.Input  'Variable "xx" mit dem Empfangen Daten füllen
      
      daten = Asc(xx) 'Empfangenen Daten in Ascii umwandeln
      If daten > 71 Then daten = 0 '71 maximale Umdrehungen der Rolle = höhe des Brunnen, wenn größer als 71 dann null als höhe anzeigen
      If daten < 12 Then Label3.ForeColor = &HFF& 'Farbe der höhenanzeige auf rot setzen
      If daten > 12 Then Label3.ForeColor = &HFFFF& 'Farbe der höhenanzeige auf gelb setzen
      If daten >= 23 Then Label3.ForeColor = &HFF00& 'Farbe der höhenanzeige auf grün setzen

      Label3.Caption = daten * 0.22 & " METER" 'höhe ausrechnen und im Label3 anzeigen, 22 cm hat der Umfang des Rades
      ProgressBar1.Value = daten 'Progressbar setzen
      Label2.Caption = "letzter Empfang: " & "Datum: " & Date & " um: " & Time 'Label2 zeigt den letzten Empfang an
  End Select
End Sub
Brunnen.zip Project Datei


Ciao Ronny