hi guten abend ich bin neu hier im forum.
achso ich bin der sascha und bin 32, ich komme aus der nehe von rheine,osnabrück.vom beruf bin ich Elektriker.gehe Angeln
da dachte ich mir ich versuche einmal eine uhr,so den anfang habe ich schon aber ich kome nicht weiter.
ich habe einen atmega32 mit internen quarz.
eil lcd mit 16x2
und es läuft auch alles mit dem programm auser die zeit noch nicht,die bleibt so stehen wie sie eingestellt wird.
so mal den code ....
CodeBox BASCOM
schon eimal danke für eure hilfe
achso ich bin der sascha und bin 32, ich komme aus der nehe von rheine,osnabrück.vom beruf bin ich Elektriker.gehe Angeln
da dachte ich mir ich versuche einmal eine uhr,so den anfang habe ich schon aber ich kome nicht weiter.
ich habe einen atmega32 mit internen quarz.
eil lcd mit 16x2
und es läuft auch alles mit dem programm auser die zeit noch nicht,die bleibt so stehen wie sie eingestellt wird.
so mal den code ....
CodeBox BASCOM
$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , _
Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
$baud = 9600
$regfile "m8def.dat"
$crystal = 16000000
Config Lcd = 16 * 2
Dim Sekunde As Word
Dim Minute As Word
Dim Stunde As Word
Dim S1 As String * 2
Dim S2 As String * 2
Dim S3 As String * 2
Dim Refresh As Byte
Config Pind.2 = Input
Portd.2 = 1
Taster0 Alias Pind.2
Config Pind.3 = Input
Portd.3 = 1
Taster1 Alias Pind.3
Config Timer1 = Timer , Prescale = 256
Enable Timer1
On Timer1 Test
Enable Interrupts
Timer1 = 3036
'------------ Uhr Voreinstellung ----------------------------------------------
Sekunde = 0
Minute = 0
Stunde = 0
Initlcd
Cursor Off
Do
'-------------------- Formatkonvertierung für Uhrzeit -------------------------
S1 = Str(stunde)
S1 = Format(s1 , "00")
'----------------------------------
S2 = Str(minute)
S2 = Format(s2 , "00")
'------------------------------------
S3 = Str(sekunde)
S3 = Format(s3 , "00")
'--------------------------------------
' S1 ist nun die Variable für Stunde
' S2 ist nun die Variable für Minuten
' S3 ist nun die Variable für Sekunden
'----------- Anzeige Stunden , Minuten, Sekunden auf Display ------------------
If Refresh = 1 Then
Cls ' Display löschen
Locate 2 , 13
Lcd S3
Locate 2 , 11
Lcd ":"
Locate 2 , 8
Lcd S2
Locate 2 , 6
Lcd ":"
Locate 2 , 3
Lcd S1
Locate 1 , 1
Lcd "Aktuelle Uhrzeit"
' Waitms 50
Refresh = 0
End If
'--------------Uhr einstellen Minute ------------------------------------------
If Taster0 = 0 Then
Waitms 50
Incr Stunde
End If
'--------------Uhr einstellen Stunde -----------------------------------------
If Taster1 = 0 Then
Waitms 50
Incr Minute
End If
'--------Uhr komplett auf Null stellen ----------------------------------------
If Taster0 = 0 And Taster1 = 0 Then
Sekunde = 0
Minute = 0
Stunde = 0
Waitms 50
End If
'------------------------------------------------------------------------------
Loop
End
Test:
Timer1 = 3036 'Timer macht man gerne zuerst in der ISR.
Incr Sekunde
Refresh = 1
Return
schon eimal danke für eure hilfe
Premium Benutzer