  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
> Gibt es eine Möglichkeit, Werte zu speichern, die auch nach Abschaltung / Neuzuschaltung der Versorgungsspannung weiter genutzt werden können? Ich habe da eine anwendung das die f1 - f2 Tasten Speichert und so wieder beim einschlagen die letzte einstellung wieder herstellt. 'Version 2.2 'am 24/10/03 'WWasser Steuerung von Lorenz 'Definition der Digiports 'define Pl port[l] 'define P2 port[2] 'define P3 port[3] 'define P4 port[4] 'define P5 port[5] 'define P6 port[6] define K1 port[7] ' Heizwiderstand 'define K2 port[8] define F1 port[9] 'Thermostat ein-aus define F2 port[10] 'Frequenz ein-aus 'define F3 port[11] 'define F4 port[12] define LED1 port[13] 'Thermostat define LED2 port[14] 'Freqenzmesser define LED3 port[15] 'thermostat activ define LED4 port[16] 'frequenz activ 'Definition der AnalogPorts 'define Al AD[l] 'define A2 AD[2] 'define A3 AD[3] 'define A4 AD[4] define T1 AD[5] 'Brauchwasserfühler 'define T2 AD[6] define U1 AD[7] 'Spannungsmessung 230V 'define U2 AD[8] 'Spannungsmessung 12V '================================================ 'Programm Start '================================================ 'Definition der Variablen define WTemp word 'define x word define Zaehler word ' Zähler Bei Warten define SecondMem Byte define soll_brauchw byte 'oberer sollwert Brauchwasser 'Definition der Konstanden define hyst_brauchw 5 'Hysteresse Brauchwasser define soll_freq 98 'oberer sollwert Frequenz define hyst_freq 2 'Hysteresse Frequenz 'define warten 1000 open# for read if EOF then gosub ledein if not EOF then gosub readblock close# beep 568,20,3 slowmode on #LOOP 'Große Programmschleife Wtemp=(T1/2)-25 if dow=6 then soll_brauchw=80 else soll_brauchw=60 if not F1 then gosub toggleTem if not F2 then gosub togglefre if Wtemp>=soll_brauchw then led3=off if Wtemp<=(soll_brauchw-hyst_brauchw) then Led3=on if freq2<=(soll_freq-hyst_freq) then led4=off if freq2>=soll_freq then led4=on if led2=off then zaehler=0 if led4=off and led2=on or zaehler<>0 then gosub warten else gosub Schalten goto LOOP #Schalten K1=((not led3) and led1) or ((not led4)and led2) ' (b*D)+(a*C) return #warten k1=on if second <> SecondMem then gosub Zaehlererhoehen if Zaehler > 15 then zaehler =0 return #Zaehlererhoehen SecondMem = second Zaehler = Zaehler + 1 return #toggleTem slowmode off beep 568,20,3 tog LED1 wait F1 gosub speichern return #togglefre slowmode off beep 568,20,3 tog LED2 wait F2 gosub speichern return #speichern Open# for write Print# LED1 Print# Led2 close# slowmode on return #ledein led1=on led2=on return #readblock input# led1 input# led2 return |
| Antwort schreiben |