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: drehimpulsgeber Kategorie: C-Control I V1.2/2.0 (von chuckie - 16.01.2008 20:48)
 Als Antwort auf drehimpulsgeber von chuckie - 15.01.2008 22:35
chuckie nutzt:  CC1-M-Unit V1.2/2.0
> hi
>
> ich hatte mal nen drehimpulsgeber programmiert aber des programm ist verlorgen gegangen und ich bekomme es net mehr zusammen, kann mir da jmd helfen

also ich hab ein neues programm geschrieben jedoch bleib die unit wenn ich etwas schneller drehe hängen woran liegt des kann mir des jmd sagen...

also hier ist mal das programm


define taste1      port[5]
define a      port[4]
define b      port[3]



define set       byte[3]
define aset        bit[4]
define bset        bit[5]


define nu          word[7]




nu=0


aset=a
bset=b



lcd.init
#loop


lcd.pos 1,4
lcd.print nu


if (a xor aset) xor (b xor bset) then
goto wahl
else
goto loop
end if


goto loop

#wahl
if (aset=on) and (bset=on) then
'goto set
goto eins
end if

if (aset=off) and (bset=off) then
'goto set
goto null
end if

goto loop



#null
if (a=off)and(b=on) then
nu=nu-1
goto set
end if

if (a=on)and(b=off) then
nu=nu+1
goto set
end if
goto null

#eins
if (a=off)and(b=on) then
nu=nu+1
goto set
end if

if (a=on)and(b=off) then
nu=nu-1
goto set
end if
goto eins

#set

if (a xor b) then
goto set
else
aset=a
bset=b
goto loop
end if

goto set

 Antwort schreiben

Bisherige Antworten:

Re: drehimpulsgeber (von ManfredW - 17.01.2008 0:11)
    Re: drehimpulsgeber (von chuckie - 17.01.2008 9:45)
        Re: drehimpulsgeber (von chuckie - 17.01.2008 9:48)
            Re: drehimpulsgeber (von ManfredW - 17.01.2008 15:32)
            Re: drehimpulsgeber (von ManfredW - 17.01.2008 15:12)
                Re: drehimpulsgeber (von chuckie - 18.01.2008 15:56)