dessert_4
28.01.2010, 09:17
Ich habe das my avr Board Mk2 Usb mit einem Lcd Adon
und habe die Aufgabe, eine zu stellende Uhr auf dem Lcd anzeigen zulassen.
bis jetzt habe ich es geschafft, das er mir die Zeit anzeigt und mit hilfe eines Timers hochzählt.
nun stehe ich vor der aufgabe, die Uhrzeit mit Hilfe von Tastern auf die genaue Uhrzeit einzu stellen , da ich bis jetzt nirgendswo einen ansatz dazu gefunden habe
wäre ich über jede Hilfe sehr dankbar.
villeicht kann mir der eine oder andere einen Link oder sogar ein paar code schnipsel zu verfügung sellen
anbei mein bis jetz fertig gestellter quelltext der in bascom geschrieben wurde und beinhaltet die Sprache basic
$regfile = "m8def.dat" 'für Mega8
$crystal = 4000000
' /// UHR
Dim Sekunde As Word
Dim Minute As Word
Dim Stunde As Word
'// Zum setzten von Stunde Minute Sekunde setzen
Sekunde = 00
Minute = 00
Stunde = 00
'/// LCD ///
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Cls
'/// TIMER ////
Config Timer1 = Timer , Prescale = 64
Const Startwert = 7936
On Timer1 Ontimer1 'Interrupt-Routine für Timer1-Overflow
Enable Timer1 'Timer1-Overflow-Interrupt einschalten
Enable Interrupts 'Interrupts global zulassen
'-------------------------------------------------------------------------------
Main:
Do
'Uhrzeit in Sekunde Minute Stunde
If Sekunde = 60 Then
Sekunde = 0
Incr Minute
Cls
End If
If Minute = 60 Then
Minute = 0
Incr Stunde
End If
If Stunde = 24 Then
Stunde = 0
End If
'/// LCD Anzeige Stunde Minute Sekunde
Cursor Off Noblink
Home
Lcd Stunde ; ":" ; Minute ; ":" ; Sekunde ;
Waitms 100
Loop
Goto Main
End
'//////////////////
Ontimer1:
Timer1 = Startwert
Incr Sekunde
Return
Code-Tags eingefügt (PicNick)
und habe die Aufgabe, eine zu stellende Uhr auf dem Lcd anzeigen zulassen.
bis jetzt habe ich es geschafft, das er mir die Zeit anzeigt und mit hilfe eines Timers hochzählt.
nun stehe ich vor der aufgabe, die Uhrzeit mit Hilfe von Tastern auf die genaue Uhrzeit einzu stellen , da ich bis jetzt nirgendswo einen ansatz dazu gefunden habe
wäre ich über jede Hilfe sehr dankbar.
villeicht kann mir der eine oder andere einen Link oder sogar ein paar code schnipsel zu verfügung sellen
anbei mein bis jetz fertig gestellter quelltext der in bascom geschrieben wurde und beinhaltet die Sprache basic
$regfile = "m8def.dat" 'für Mega8
$crystal = 4000000
' /// UHR
Dim Sekunde As Word
Dim Minute As Word
Dim Stunde As Word
'// Zum setzten von Stunde Minute Sekunde setzen
Sekunde = 00
Minute = 00
Stunde = 00
'/// LCD ///
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Cls
'/// TIMER ////
Config Timer1 = Timer , Prescale = 64
Const Startwert = 7936
On Timer1 Ontimer1 'Interrupt-Routine für Timer1-Overflow
Enable Timer1 'Timer1-Overflow-Interrupt einschalten
Enable Interrupts 'Interrupts global zulassen
'-------------------------------------------------------------------------------
Main:
Do
'Uhrzeit in Sekunde Minute Stunde
If Sekunde = 60 Then
Sekunde = 0
Incr Minute
Cls
End If
If Minute = 60 Then
Minute = 0
Incr Stunde
End If
If Stunde = 24 Then
Stunde = 0
End If
'/// LCD Anzeige Stunde Minute Sekunde
Cursor Off Noblink
Home
Lcd Stunde ; ":" ; Minute ; ":" ; Sekunde ;
Waitms 100
Loop
Goto Main
End
'//////////////////
Ontimer1:
Timer1 = Startwert
Incr Sekunde
Return
Code-Tags eingefügt (PicNick)