Der Nachfolger des WDR-Computerclub mit Wolfgang Back und Wolfgang Rudolph - ...und immer ein Bit übrigbehalten!


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Logger mit Flankenerkennung Kategorie: Programmierung Basic (von ManfredW, Homepage - 14.06.2005 22:21)
 Als Antwort auf Logger mit Flankenerkennung von Gast - 14.06.2005 15:12
ManfredW nutzt:  CC1-Station V1.1
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

Bisherige Antworten: