hallo Che Guevara,

das ist nicht ganz richtig der eingangs wert wird gewandelt auf gross schrift.


If Eingang485 <> "" Then

'Hier wird alles in Großbuchstaben umwandeln
Eingang485 = Ucase(eingang485)

Locate 1 , 1
Lcd Eingang485

Tmp = Split(eingang485 , Command_array(1) , " ")

Select Case Command_array(1)
Case "2"

Call Do_trafonr_command(command_array(2))
Case "PROGRAM"

Call Do_program_command(command_array(2) , Command_array(3))
Case "ALL"

Call Do_all_command(command_array(2))
Case Else
Print "ERROR: unknown command"
End Select
End If
Eingang485 = ""
Command_array(1) = ""
Command_array(2) = ""
Command_array(3) = ""