INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Hallo, einige Anmerkungen habe ich eingefügt. Hinweise kannst Du auch auf meiner homepage finden. MfG ManfredW > > define AD AD[1] > define Kommando byte Das ist Byte 1 und hat Überschneidung mit Flanke bit 1 > define Wert byte > define n Word > define impuls port[1] > define flanke bit[1] > > > #Anfang > open# for write > #Loop > gosub abfrage > gosub Warten > goto Loop 'Endlosschleife > end > > > #abfrage > if impuls = on then goto Messen Hier setzt Du fort in #Messen, dort weiter #Ende und dann fehlt Return > flanke = off > return > > #Messen > if flanke = on then goto Ende > Flanke = on > print# AD > > return > #ende > goto loop > > #Warten > for n= 1 to 10 '1 s > pause 5 '5 x 20 ms > if rxd then gosub Unterbrechung > next > return > > #Unterbrechung > get Kommando > if Kommando = 27 then gosub Auslesen > return > > #Auslesen > close# > open# for read > #Next > input# Wert > put Wert > if not EOF then goto Next > close# > open# for append > return > > > Meine Homepage: http://manfred.wilzeck.de |
Antwort schreiben |