hhuurrkkaann
Üye
- Katılım
- 26 Ağu 2008
- Mesajlar
- 124
- Puanları
- 1
- Yaş
- 39
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
SANIYE var BYTE
DAKIKA VAR BYTE
SAAT VAR BYTE
GUN VAR BYTE
TRISB=%00000000
TRISA=%00000111
ADCON1=%00000111
GUN=3
SANIYE=14
DAKIKA=58
SAAT=11
TRISB=0
i VAR BYTE
D1 VAR BYTE
D2 VAR BYTE
D3 VAR BYTE
GUNCELLE VAR BYTE
GUNCELLE=1
OPTION_REG=%01010101
INTCON=%10100000
TMR0_SAY var byte
TMR0_SAY=0
i=0
ON INTERRUPT GOTO TMR0_KESME
pause 100
loop:
GUNCELLE=1
BUTTON PORTA.0,0,254,0,D1,1,DAKIKA_ARTTIR
BUTTON PORTA.1,0,254,0,D2,1,SAAT_ARTTIR
BUTTON PORTA.2,0,254,0,D3,1,GUN_AYARI
'*****************************************************************
IF (SAAT=0) AND (DAKIKA=0) AND (SANIYE=0) THEN GUN_AYARI
DONGU:
WHILE GUNCELLE=1
LCDOUT $FE,2
LCDOUT " ",dec2 SAAT,":",DEC2 DAKIKA,":",DEC2 SANIYE," (",DEC2 GUN,")"
GUNCELLE=0
WEND
IF (SAAT>=6) AND (SAAT<12) THEN TIME4
IF (SAAT>=12) AND (SAAT<18) THEN TIME3
IF (SAAT>=18) AND (SAAT<=23) THEN TIME2
IF (SAAT>=0) AND (SAAT<6) THEN TIME1
'*****************************************************************
TIME1:
LCDOUT $fe,$C0,"*iYi GECELER* "
FOR i=0 TO 200
PAUSE 5
NEXT
LCDOUT $fe,$C0," "
LCDOUT $fe,$C0,"*HERKESE*"
FOR i=0 TO 200
PAUSE 5
NEXT
GOTO LOOP
TIME2:
LCDOUT $fe,$C0,"*iYi AKSAMLAR* "
FOR i=0 TO 200
PAUSE 5
NEXT
LCDOUT $fe,$C0," "
LCDOUT $fe,$C0,"*HERKESE*"
FOR i=0 TO 200
PAUSE 5
NEXT
GOTO LOOP
TIME3:
LCDOUT $fe,$C0,"*iYi GUNLER* "
FOR i=0 TO 200
PAUSE 5
NEXT
LCDOUT $fe,$C0," "
LCDOUT $fe,$C0,"*HERKESE*"
FOR i=0 TO 200
PAUSE 5
NEXT
GOTO LOOP
TIME4:
LCDOUT $fe,$C0,"*GUNAYDIN* "
FOR i=0 TO 200
PAUSE 5
NEXT
LCDOUT $fe,$C0," "
LCDOUT $fe,$C0,"*HERKESE*"
FOR i=0 TO 200
PAUSE 5
NEXT
GOTO LOOP
'*****************************************************************
DAKIKA_ARTTIR:
DAKIKA=DAKIKA+1
IF DAKIKA=60 THEN
DAKIKA=0
ENDIF
GOTO LOOP:
SAAT_ARTTIR:
SAAT=SAAT+1
IF SAAT=24 THEN
SAAT=0
ENDIF
GOTO LOOP:
GUN_AYARI:
GUNCELLE=1
GUN=GUN+1
IF GUN=32 THEN
GUN=1
ENDIF
GOTO DONGU
'*****************************************************************
DISABLE
TMR0_KESME:
TMR0_SAY=TMR0_SAY+1
IF TMR0_SAY < 61 THEN KESME_SONU:
TMR0_SAY=0
SANIYE=SANIYE+1
IF SANIYE=60 THEN
SANIYE=0
DAKIKA=DAKIKA+1
ENDIF
IF DAKIKA=60 THEN
DAKIKA=0
SAAT=SAAT+1
ENDIF
IF SAAT=24 THEN
SANIYE=0:DAKIKA=0:SAAT=0
ENDIF
LCDOUT $FE,2
LCDOUT " ",dec2 SAAT,":",DEC2 DAKIKA,":",DEC2 SANIYE," (",DEC2 GUN,")"
GUNCELLE=1
'*****************************************************************
KESME_SONU:
INTCON.2=0
RESUME
ENABLE
END
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?