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: Zeit Prog. Kategorie: Programmierung Basic (von palota - 27.07.2005 10:46)
 Als Antwort auf Re: Zeit Prog. von Achim - 27.07.2005 9:20
palota nutzt:  CC1-Station V2.0

> > > > Ich haben neue C-CONTROL I STATION 2.0 kaufen. Wie kann ich programiren das eine licht brennen ab 9.00 bis 21.00 uhr on relai K1. Danke
> > >
> > >
> > > #loop
> > > k1 = hour >= 9 AND hour <= 20
> > > goto loop
> > >
> > > DCF natürlich vorausgesetzt und annehmend, dass um 21.00.00 das Licht ausgehen soll.
>  
> > Kann ich ohne DCF das tun?
>
> Du kannst die aktuelle Uhrzeit nach jedem Einschalten natürlich auch von Hand setzen und von Zeit zu Zeit nachkorrigieren - entsprechendes Programm vorausgesetzt..
>
> Bye
>  Achim

Ist fur zeit die program richtig? Wie must ich kombinirung mit relei?

attributes
ccproject
ccproject
end ccproject
end attributes
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'III    BASIC++  DEMO ZUM BASIC-COMPUTER UNIT M 1.2/2.0         IIIII
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'--------------------------------------------------------------------
' Beispiel zum BASIC-COMPUTER    mit dem Programmer/Application-Board
'--------------------------------------------------------------------
' ANWENDUNG:  ECHTZEITUHR
'             SECOND
'             MINUTE
'             HOUR
'             DOW
'             MONTH
'             YEAR
'--------------------------------------------------------------------
' Dieses Beispiel zeigt die Vorgehensweise um die SYSTEMUHR zu stellen
' bzw. abzufragen.
'
' Beschreibung:
' Das Betriebssystem stellt alle für eine Zeitsteuerung (inklusive
' des Datums)notwendigen Variablen als SYSTEMVARIABLEN zur Verfügung.
' Die Variablen können für die Einstellung der Uhr natürlich auch
' beschrieben werden.
' Für eine automatische Einstellung ist an FREQ1 der Anschluss eines
' DCF77 Empfangsmoduls vorgesehen. Ist ein passendes Empfangsmodul
' angeschlossen, so stellt sich die RTC nach etwa 3 bis 5 min selbst.
' Die interne Echtzeituhr läuft ohne DCF77 Synchronisierung mit einer
' für Quarzuhren typischen Ungenauigkeit.

' Anmerkung:
' Bei den Demos zu den EXTENDED FUNCTIONS finden Sie eine weitere Version
' dieses Programms, das spezielle Aspekte der  DCF77 Synchronisierung
' beschreibt.
'-----------------------------------------------------------------------

'--------------------------
'------ I/O PORTS ---------
'--------------------------
define LIGHT as port[16]
'--------------------------
'---- SYSTEM MEMORY -------
'--------------------------
define OLDSEC       as byte

#INIT
LIGHT=off
LCD.INIT
LCD.CLR
'-------- WILLKÜRLICHE VOREINSTELLUNG -------------
hour=23
minute=59
second=58
day=31
month=12
year=3
'--------------------------------------------------------------------
'            Beispielprogramm  Abfrage ECHTZEITUHR
'--------------------------------------------------------------------
#LOOP
'------- AUF DEN SEKUNDENWECHSEL WARTEN ----------
if OLDSEC=SECOND then goto LOOP
OLDSEC=SECOND
pause 5
'------- ZEIT AUF LCD AUSGEBEN -------------------
LCD.POS 1,5
if HOUR<10 then LCD.PRINT "0"         'FÜHRENDE NULL SCHREIBEN
LCD.PRINT  HOUR                       'STUNDEN AUSGEBEN
LCD.PRINT ":"                         'TRENNZEICHEN SCHREIBEN
if MINUTE<10 then LCD.PRINT "0"       'FÜHRENDE NULL SCHREIBEN
LCD.PRINT  MINUTE
LCD.PRINT ":"                         'TRENNZEICHEN SCHREIBEN
if SECOND<10 then LCD.PRINT "0"       'FÜHRENDE NULL SCHREIBEN
LCD.PRINT  SECOND
LCD.PRINT "  "
'--------- DATUM AUF LCD AUSGEBEN ----------------
LCD.POS 2,1

SELECT CASE dow 'WOCHENTAG ZUWEISEN  
    CASE 1
    LCD.PRINT "MO"
    CASE 2
    LCD.PRINT "DI"
    CASE 3
    LCD.PRINT "MI"
    CASE 4
    LCD.PRINT "DO"
    CASE 5
    LCD.PRINT "FREI"
    CASE 6
    LCD.PRINT "SA"
    CASE 7
    LCD.PRINT "SO"
END SELECT    
'-------------------------------------------------
    LCD.PRINT "  "
    LCD.PRINT  DAY
LCD.PRINT "."
LCD.PRINT  MONTH
LCD.PRINT "."
LCD.PRINT "200"
LCD.PRINT  YEAR
LCD.PRINT "    "
'-------------------------------------------------
goto LOOP

DANKE

 Antwort schreiben

Bisherige Antworten:

Re: Zeit Prog. (von Achim - 27.07.2005 12:20)