Der Nachfolger des WDR-Computerclub mit Wolfgang Back und Wolfgang Rudolph - ...und immer ein Bit übrigbehalten!


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: Pausenglocke Kategorie: C-Control I V1.2/2.0 (von David - 22.04.2008 21:21)
 Als Antwort auf Re: Pausenglocke von joergm6 - 21.04.2008 23:20
David nutzt:  CC1-Station V2.0
Hallo Jörg,

Oh dass ist jetzt aber ein bisschen heftig, muss mich da erstmal zurechtfinden :)
Vielen vielen Dank.
Port29 ist der Digital Port1... habe eine C-Control 1 Station 2.0

Habe das ganze ein bisschen verändert... damit wird die Zeit auch auf dem LCD ausgegeben, klappt super :)
Jedoch komme ich mit dem ein- und ausschalten des Relais nicht so zurecht, muss man den BeepPort erst verändern oder geht das ganze so wie ich es gemacht habe (was ich nicht denke vor allem nicht die Alarm routine)

Ich danke dir vielmals !!!

goto init

define zeit as word
define BeepPort as port[29]
define SDA          as port[9]      
define SCL          as port[10]
define EXTPORT      as byteport[4]
define STATION_IO   as  byte
define LED1         ref STATION_IO at bit[1]
define LED2         ref STATION_IO at bit[2]
define LED3         ref STATION_IO at bit[3]
define LED4         ref STATION_IO at bit[4]
define REL1         ref STATION_IO at bit[5]
define REL2         ref STATION_IO at bit[6]
define REL3         ref STATION_IO at bit[7]
define REL4         ref STATION_IO at bit[8]

import "show_date.bas"
import "show_time.bas"

#init
SDA=on
SCL=on
lcd.INIT
lcd.clr

#loop

lcd.pos 1, 1
show_time()
lcd.pos 2, 1
show_date()

if second=0 then
 if dow>=1 and dow<=5 then 'Mo=1 Fr=5

  zeit=hour*100+minute

  if zeit=745 or zeit=915 or zeit=1100 or zeit=1245 or zeit=1445 or zeit=1500 or zeit=1630 then alarm()

 end if
end if

goto loop

sub Alarm()

 REL1=on
 EXTPORT=STATION_IO

 beep 20,5,0   ' Tonausgabe der C-Control siehe doku ton,dauer,pause
 BeepPort=on


 REL1=off
     EXTPORT=STATION_IO

end sub

 Antwort schreiben

Bisherige Antworten:

Re: Pausenglocke (von joergm6 - 22.04.2008 22:47)
    Re: Pausenglocke (von David - 27.04.2008 9:30)
        Re: Pausenglocke (von joergm6 - 27.04.2008 12:28)
            Re: Pausenglocke (von David - 27.04.2008 16:27)
                Re: Pausenglocke (von joergm6 - 27.04.2008 17:41)
                    Re: Pausenglocke (von David - 27.04.2008 17:49)
                       Re: Pausenglocke (von Achim - 27.04.2008 22:40)
                       Re: Pausenglocke (von joergm6 - 27.04.2008 18:30)
                          Re: Pausenglocke (von David - 27.04.2008 21:33)
                             Re: Pausenglocke (von joergm6 - 27.04.2008 23:06)
                                Re: Pausenglocke (von David - 29.04.2008 21:21)
                                   Re: Pausenglocke (von David - 29.04.2008 22:05)
                                     Re: Pausenglocke (von David - 29.04.2008 22:56)
                                       Re: Pausenglocke (von joergm6 - 29.04.2008 23:13)
                                         Re: Pausenglocke (von joergm6 - 29.04.2008 23:26)
                Re: Pausenglocke (von David - 27.04.2008 17:05)
                    Re: Pausenglocke (von joergm6 - 27.04.2008 17:51)