XProfan

'den Quellcode aus der Hilfe kopiert -> [K]18.2 - Die serielle Schnittstelle[/K]
'Null-Modem-Kabel mit drei LED (rot gelb grün) bestückt
'und schon leuchten die LED's so wie im Fenster...
Declare a$, f%, ende%, x$,x%

Proc GetComInput

    Parameters id%
    Declare x$
    x$ = @ReadCom$(id%, 1)
    @ComError(id%)
    'Print x$;

    WhileNot x$ = ""

        x$=@ReadCom$(id%, 1)
        @ComError(id%)
        'Print x$;

    EndWhile

EndProc

proc texxt

    clear x$

    whileloop rnd(1000)

        x$ = x$+chr$((rnd(65))+65)

    endwhile

endproc

proc gruen

    'GRÜN
    locate 5,15
    color 0,10
    print "       "

endproc

proc gruenloesch

    'GRÜN löschen
    locate 5,15
    color 0,00
    print "       "

endproc

proc gelb

    'Gelb
    locate 7,15
    color 15,14
    print "       "

endproc

proc gelbloesch

    'Gelb löschen
    locate 7,15
    color 0,0
    print "       "

endproc

proc rot

    'Rot
    locate 9,15
    color 0,12
    print "       "

endproc

proc rotloesch

    'Rot löschen
    locate 9,15
    color 0,0
    print "       "

endproc

Window 330, 50 - 533,333
randomize
cls 0
color 14,0
locate 1,5
print "BEENDEN MIT ESC"
locate 5,5
print "DTR"
locate 7,5
print "CTS"
locate 9,5
print "TXD"
locate 20,5

WhileNot ende%

    f% = @OpenCom("COM1", 1024, 1024)
    'GRÜN löschen
    gruenloesch
    'Gelb
    gelb
    sleep 1333
    @SetCom("COM1:2400,N,8,1")
    @WriteCom(f%, "ATZ\n")' Modem initialisieren
    @ComError(f%)
    GetComInput f%' Antwort abwarten und anzeigen
    ende% = 0
    'Rot
    rot
    texxt
    @WriteCom(f%,x$)
    sleep rnd(555)
    'Rot löschen
    rotloesch
    color 14,0
    locate 3, 5
    print "Zeichen gesendet:";
    print x%
    inc x%
    sleep rnd(100)
    gelbloesch
    a$ = @Inkey$()' Tastatur abfragen

    If a$ = chr$(027)' Ende mit ESC

        ende%=1

    Else

        IfNot x$ = ""' Zeichen ans Modem

            'GRÜN löschen
            gruenloesch
            'Gelb
            gelb
            'Rot
            rot
            'sleep rnd(555)
            texxt
            @WriteCom(f%,x$)
            sleep rnd(55)
            'Rot löschen
            rotloesch
            sleep 55
            'Gelb löschen
            gelbloesch
            'GRÜN
            gruen

        Endif

        GetComInput f%' empfangene Zeichen lesen

    Endif

    @CloseCom(f%)
    sleep rnd(5100)
    'Gelb
    gelb
    'GRÜN löschen
    gruenloesch

Endwhile

Fin