Das Open-Control-Projekt - Die Alternative zur C-Control-I


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: M-Unit Kategorie: Programmierung Basic (von Carsten - 24.11.2004 9:13)
 Als Antwort auf Re: M-Unit von ReinhardB - 24.11.2004 8:19
Hallo Reinhard,

Ich weiß nicht mehr genau und hab auch gerade meine Unit nicht zum Testen da, aber ungefähr so:

define data byte[1] 'zur Aufnahme der SS-Daten
define dataw word[1] ' weil der print# Befehl nur Words speichert
define inBytes byte [4] 'Zähler, wieviele Bytes gelesen wurden

inBytes = 0
baud r4800
open# for write

#loop
    if not rxd then goto weiter
       'hier Daten abholen und auf der Unit speichern
       get data
       print# dataw
       inBytes = inBytes + 1

        'genug Bytes eingesammelt?
       if inBytes > 31 then goto auswerten

    #weiter
goto loop

#auswerten
close#
open# for read

'... usw              


###########################################################
Daß Du die 2.0 erhältst ist klar, aber welche OS-Version? (2.01 oder 2.02) / siehe auch C.Control-Seite / Problemlösungen. Du kannst es ganz leicht herausfinden, indem Du das untenstehende Programm testest (wenn die Anzeige sauber von 0 bis 600 durchläuft hast Du die 2.02, bei wirren Zahlen die 2.01)

DEFINE DatenBus BYTEPORT[1]
DEFINE AdrBus BYTEPORT[2]
define i             word[2]
define j             word[3]

'Initialisierungen und Text auf dem LCD ausgeben
print"#ON_LCD#";:print"#INIT#";:print"#L101#";:print"Testprogramm";:print"#OFF#";

'Anfang signalisieren und Tastenwiederholung vermeiden
BEEP 11,2,1:pause 50:BEEP 15,2,1

'Testschleife
i=0:j=0
for i = 0 to 600
    for j = 0 to 9
        AdrBus = AdrBus OR &B00000001
        gosub Anz
    next j
next i        

'fertig signalisieren
print"#ON_LCD#";:print"#INIT#";:print"#L201#";:print"FERTIG!";
BEEP 11,2,1:BEEP 13,2,1:BEEP 11,2,1:BEEP 13,2,1:BEEP 11,2,1

goto Ende

#anz
print"#ON_LCD#";:print"#INIT#";:print"#L101#";:print i:print"#L108#";:print j;:print"#OFF#";
RETURN

#Ende
END
 

 



> Hallo !


> Habe jetzt das neue Teil in Händen. Betriebssystem ist immer noch 2.0.


> Nur: An meine Daten bin ich noch nicht gekommen. Wie hast du den Ser-port genau ausgelesen ?


> Werde es mal mit der Bug-fix routine probieren.


>
> Reinhard
>
>  
>
>


 Antwort schreiben

Bisherige Antworten:

Re: M-Unit (von ReinhardB - 25.11.2004 8:49)
    Re: M-Unit (von Carsten - 25.11.2004 9:24)
        Re: M-Unit (von ReinhardB - 25.11.2004 14:02)
            Re: M-Unit (von Carsten - 25.11.2004 15:49)
                Re: M-Unit kl. Nachtrag (von Carsten - 25.11.2004 15:55)
                    Re: M-Unit kl. Nachtrag (von ReinhardB - 26.11.2004 14:10)