Tech-ecke - QBasic Code

DIM arg$, clean$, portStr$, cmd$, comName$
DIM i%, posComma%

arg$ = COMMAND$

IF LEN(arg$) = 0 THEN
GOTO Usage
END IF

' Leerzeichen entfernen
clean$ = ""
FOR i% = 1 TO LEN(arg$)
IF MID$(arg$, i%, 1) <> " " THEN
clean$ = clean$ + MID$(arg$, i%, 1)
END IF
NEXT i%

IF LEN(clean$) = 0 THEN
GOTO Usage
END IF

' auf Komma prüfen
posComma% = INSTR(clean$, ",")
IF posComma% = 0 THEN
GOTO Usage
END IF

' COM-Port und Befehlsteil auslesen
portStr$ = LEFT$(clean$, posComma% - 1)
cmd$ = MID$(clean$, posComma% + 1)

' prüfen, dass beides nicht leer ist
IF LEN(portStr$) = 0 OR LEN(cmd$) = 0 THEN
GOTO Usage
END IF

ON ERROR GOTO ComError

' COM-Port initialisieren
comName$ = "COM" + portStr$ + ":9600,N,8,1,CS,DS,CD"
OPEN comName$ FOR RANDOM AS #1

PRINT #1, cmd$ + CHR$(13);

CLOSE #1
ON ERROR GOTO 0
END

'-------------------------------------------------
Usage:
PRINT ">>> SendCom by Birger Hahn 2026 <<<"
PRINT "Verwendung: SENDCOM <Port,Befehl>"
PRINT "Beispiele:"
PRINT " SENDCOM 1,AT+O1"
PRINT " SENDCOM 1,AT+C1"
END

'-------------------------------------------------
ComError:
PRINT "Fehler beim Zugriff auf den COM-Port: " + comName$
CLOSE #1
ON ERROR GOTO 0
END