-
-
Hallo!
kleine Bascom-Timer-Uhr
$regfile = "m8def.dat"
$crystal = 14000000
Config Timer1 = Timer , Prescale = 1024
Dim Sekunde As Byte
Dim Minute As Byte
Dim Stunde As Byte
On Timer1 Timer1int
Load Timer1 , 13900
Enable Interrupts
Enable Timer1
Start Timer1
Do
'Haupschleife
'z.B. Uhr stellen mit Tastenabfrage
Loop
Timer1int:
Load Timer1 , 13900 '1ne Sekunde
Sekunde = Sekunde + 1
If Sekunde = 60 Then
Sekunde = 0
Minute = Minute + 1
If Minute = 60 Then
Minute = 0
Stunde = Stunde + 1
If Stunde = 24 Then Stunde = 0
End If
End If
'Hier kommt noch die Ausgabe rein, z.B. das LCD
Return
(Original von Jornbyte,
http://forum.electronicwerkstatt.de/...p?forum=28&128
)
mfg,MX3
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen