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 

 Was mache ich falsch ??!?! Kategorie: Programmierung Basic (von bernd - 17.10.2005 10:09)
guten morgen !

wer kann mir helfen ? ich habe mal versucht im anfangsstadium ein programm zu schrieben für eine mischersteuerung!

soweit geht es auch nur zeigt er nie an bei den ausgaben im basic "Temperatur stieg schnell" !!! in diese zeile kommt er NIE ! egal was ich mache !

wer kann mir das erklären ?!?!

wenn noch einem einfällt wie man das programm etwas kürzen kann bin ich für ratschläge dankbar !

mfg bern



Hier mal das Programm !!!

define Temp ad[1]
define led1 port[1]
define led2 port[2]
define oldTemp word
define Newtemp word
define pumpen_timer_laeuft byte
define pumpen_timer word

oldTemp = Temp

#loop
if pumpen_timer_laeuft then goto test else goto steuerung

#test
if abs(timer - pumpen_timer) >1*50 then goto mischer else goto steuerung

#steuerung
if pumpen_timer_laeuft then goto laeuft_schon
   pumpen_timer_laeuft=ON
   pumpen_timer=timer
goto loop

#mischer
NewTemp = Temp
if oldTemp = NewTemp then goto blieb_gleich
if oldTemp > Newtemp and oldTemp - Newtemp <  10 then goto fiel_langsam
if oldTemp > Newtemp and oldTemp - Newtemp >= 10 then goto fiel_schnell
if oldTemp < Newtemp and oldTemp - Newtemp <  10 then goto stieg_langsam
if oldTemp < Newtemp and oldTemp - Newtemp >= 10 then goto stieg_schnell



goto loop



#laeuft_schon
goto loop
#loop2
pumpen_timer_laeuft=OFF
goto loop


#blieb_gleich
print "Temperatur gleich"
oldTemp = NewTemp
led1 = 0
led2 = 0
goto loop2
#fiel_langsam
print "Temperatur fiel langsam"
oldTemp = NewTemp
led1 = 1
led2 = 1
goto loop2
#fiel_schnell
print "Temperatur fiel schnell"
oldTemp = NewTemp
led1 = 1
led2 = 1
goto loop2
#stieg_langsam
print "Temperatur stieg langsam"
oldTemp = NewTemp
led1 = 0
led2 = 1
goto loop2
#stieg_schnell
print "Temperatur stieg schnell"
oldTemp = NewTemp
led1 = 0
led2 = 1
goto loop2


 Antwort schreiben

Bisherige Antworten:

Re: Was mache ich falsch ??!?! (von Achim - 17.10.2005 10:52)
    Re: Was mache ich falsch ??!?! (von frank - 17.10.2005 11:09)
        Re: Was mache ich falsch ??!?! (von Achim - 17.10.2005 12:39)
            Re: Was mache ich falsch ??!?! (von frank - 17.10.2005 13:20)
Re: Was mache ich falsch ??!?! (von ReinhardB - 17.10.2005 10:25)