Wecker bauen

Servus ich würde mir da ich noch einen atmega 8 übrig habe gerne einen Wecker damit bauen.

Nun habe ich in dem Buch von Roland Walter den abschnitt über timer2 durchgelesen und wollte direkt mal fragen ob man mein vorhaben damit realisieren kann?

Da ich noch blutiger anfänger bin wollte ich ebenfalls noch fragen ob es einfacher ist eine 7 segment anzeige anzusteuern oder ein lcd. da ich ein 4x20 lcd noch da habe würde dies sich für mich anbieten aber wenn es zu schwer für den anfang ist investiere ich auch geld.

vielleicht habt ihr ja auch ein paar gute links wo ich mich einlesen kann.
es sol ein recht simpler wecker einfach werden. man soll die uhr sowie den wecker einstellen können und eben über ne anzeige ausgeben. recht simpel eigentlich oder ist das zu schwer für ein erstes projekt?

ich würd den anfang so gestalten
1 versuchen tasterauszulesen
dann display anschliesen wirst du auch hinbekommen (welche sprache nutzt oder willst du nutzen bascom oder c oder asmbler)
danach kanst du dich an die uhrzeit mit passendem quarz wagen.
7 segment ist einfach aber bei 4*7 segment anzeige wird das ganze schon aufwendiger als das display (was für ein display hast du?)
z.B. link http://www.mcselec.com/index2.php?op...&p=23456#23456

also ich will mit bascom arbeiten. display is so ein dot matrix display 4x20 zeichen.

mit treiber? der HDD44780 kompatibel ist?
sonst wirds schwierig
lies dir wenn du dann mit dem display anfängst die hilfe mal kurz durch was zum thema lcd steht.
http://www.rn-wissen.de/index.php/Bascom_und_LCD%27s rn wissen weis halt viel

ja is kompatibel hatte es damals zum anschließen an den rechner gekauft aber nie umgesetzt.

anschließen kann man im Endeffekt alle LCD, nur ob Bascom
dafür direkt die Unterstützung bietet ist wieder ne andere Sache.
Ggf. muss man sich seinen "Treiber" halt selbst zusammen
schustern.

Vielleicht mal als Anregung :
http://www.pixelklecks.de/projekteii...lock/index.php

hallo,
also hab mir hier nochmal das kapitel über den timer 2 durchgelesen nun wird hier gesagt dass man die uhr auch mit einem 3,2768MHz Quarz zum laufen bekommt und man nur wegen Stromverbrauch einen 32768Hz Quarz nehmen soll.

Also kann ich quasi mein Board mit dem Quarz testen und am ende alles auf den anderen quarz umschreiben?

ja kannst du wenn es aber um die uhrzeit geht macht sich ein uhren quarz mit 3,27... günstig (wegen teilbarkeit der zahl) kannst ja mal in paar ausschlacht baren uhren nachsehen ob ein passender quarz drin ist haupt sache er ist beschriftet
für den anfang kannst auch die 1mhz intern nehmen für die restlcihen sachen

ja wie jetzt brauch ich den 3,27...Mhz quarz oder den 327...Hz Quarz weil der Mhz Quarz is auf meinem AVR board bereits verbaut.

Zitat:

Zitat von Andree-HB

Vielleicht mal als Anregung :
http://www.pixelklecks.de/projekteii...lock/index.php

dieses teil is ja gar net mal so schlecht nur fehlt eben die wecker funktion. ich denke ich nehm dieses programm und erweitere es um den wecker.

wenn ich nun was auf dem display in der selben zeile erweiitern will schreibe ich:

Time$ = "00:00:00"
Date$ = "00/00/00"
Wecker$ = "00/00"

Do
Locate 1 , 1
Lcd Time$
Locate 1 , 8
Lcd Wecker$
Locate 2 , 1
Lcd _day ; "/" ; _month ; "/0" ; _year
'lcd Date$

kann ich zum vergleichen der weckzeit und der aktuellen zeit eigentlich eine gängige if schleife verwenden oder is das nicht ratsam?
is diese uhr überhaupt genau sehe da niergends was von nem timer oder ner quarz einstellung. was heißt eigentlich cls clear screen oder wie?

kann mir mal einer zufällig sagen wie ich ne selbsthaltung programmiere?

Die Ausgänge behalten ihren Zustand, bis er vom Programm geändert wird.
Der Takt wird im Allgemeinen am Anfang des Codes eingestellt. ($Crystal= x ) wobei x in Hz angegeben wird.

he kann mir mal einer helfen bin gerade am inbetrieb nehmen meines lcd displays nur gibt es mir nur wirres zeug aus. manchmal is es abgeschnitten der text manchmal überlagert mit anderen zeichen. woran liegt dass?

Code:

$regfile = "m8def.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4 Config Lcdbus = 4 Cls Locate 1 , 1 Lcd "Hallo Welt"

Hallo!

lcdbus rauswerfen und am ende ein end einfügen

MfG

Hey
@xbgamer ich bin auch erst neu in diesem gebiet hab aber auch letzt ein display angeschlossen ich hab bei meinem code noch ein

Waitms 1
Initlcd
Waitms 1

eingefügt weiß nicht ob man das braucht auf jeden fall fehlt bei dir das end am schluss deines codes

Code:

'LCD_Test.bas $regfile = "m32def.dat" $crystal = 16000000 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4 Config Lcdbus = 4 Waitms 1 Initlcd Waitms 1 Enable Interrupts Cls Locate 1 , 4 Lcd "*Hallo Welt*" Locate 2 , 9 Lcd "Test" Locate 3 , 6 Lcd "08.01.2010" Locate 4 , 7 Lcd "Freitag" Cursor Off End 'end program

so müsste es funktionieren
lg micha

Zitat:

Zitat von Rone

Hallo!

lcdbus rauswerfen und am ende ein end einfügen

MfG

wenn ich lcdbus rauswerfe bekomme ich nur noch zeichen aber nix gescheites.

habe am ende jetzt end eingefügt und habe festgestellt dass es zwar funktioniert aber nicht richtig.

wenn ich zb das wort "test" ausgebe bekomme ich immer "test_" auf dem display angezeigt. wie bekomm ich diesen strich weg? desweiteren wenn ich "hallo welt" eintrage bekomme ich wieder irgendwelche Zeichen aber eben nicht "hallo welt".

kann mir einer helfen?

Hallo!

Der "Strich" ist der Cursor!

Wie Du den wegbekommst und noch viel, viel mehr
steht in der Hilfedatei.

MfG
Rone

P.S. Auch eine kaputte Tastatur? Scheinen relativ teuer zu sein
die Dinger.

jetzt habe ich wieder ein problem ich will bei einem tastendruck ein wort text auf dem display erscheinen lassen nur wird das wort nicht beim tastendruck an sich angezeigt sonder nur wenn ich in die nähe des tasters komme.

habe auch schon entprellt nur hats nichts gebracht:

Code:

$regfile = "m8def.dat" $crystal = 1000000 $hwstack = 100 $swstack = 100 $framesize = 100 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Lcdbus = 4 Cursor Off Ddrb = &B11111111 Ddrd = &B00000000 Portd.2 = 1 Declare Sub Keypressed Cls Do Debounce Pind.2 , 1 , Keypressed , Sub Keypressed Loop Sub Keypressed Locate 2 , 1 Lcd "mp3" End Sub End

Dir fehlt ein Pull-Up oder Pull-Down. Je nachdem. Am einfachsten ist es, Du Tastest nach GND und schaltest die Pull-Ups des AVR ein.

Hallo!

Versuch mal das:

Code:

$regfile = "m8def.dat" $crystal = 1000000 $hwstack = 100 $swstack = 100 $framesize = 100 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Lcdbus = 4 Cursor Off Ddrb = &B11111111 Ddrd = &B00000000 Portd.2 = 1 'Declare Sub Keypressed Cls Do Debounce Pind.2 , 0 , Keypressed Loop End Keypressed: Locate 2 , 1 Lcd "mp3" Return

bin jetzt schon etwas weiter bloß hab ich ein problem und zwar funktioniert das entprellen bei dem einstellen der zeit nicht. die anzeige rast dann.
der letzte sub sollte für die einstellung sein nur irgendwie entprellt er nicht.

Code:

$regfile = "m8def.dat" $crystal = 1000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Lcdbus = 4 Cursor Off Ddrb = &B11111111 Ddrd = &B00000000 Portd.2 = 1 Portd.3 = 1 Portd.4 = 1 Portd.5 = 1 Portd.6 = 1 Portd.7 = 1 Enable Interrupts Config Clock = Soft Config Portd = Input Declare Sub Stunde Declare Sub Minute Declare Sub Ausgabe Declare Sub Menue Dim Modus As Byte Declare Sub Einstellen Cls Time$ = "00:00:00" Do Locate 1 , 1 Lcd Time$ ; " " ; Debounce Pind.3 , 0 , Stunde , Sub Debounce Pind.4 , 0 , Minute , Sub Debounce Pind.2 , 0 , Menue , Sub Debounce Pind.7 , 0 , Einstellen , Sub Loop Menue: Gosub Ausgabe Return Ausgabe: Incr Modus If Modus = 3 Then Modus = 0 Locate 2 , 1 If Modus = 0 Then Locate 2 , 1 Wait 1 Lcd "MP3 " Portb.0 = 1 Else Portb.0 = 0 End If If Modus = 1 Then Locate 2 , 1 Wait 1 Lcd "Radio" Portb.1 = 1 Else Portb.1 = 0 End If If Modus = 2 Then Locate 2 , 1 Wait 1 Lcd "AUX " Portb.2 = 1 Else Portb.2 = 0 End If Return 'Stunde Sub Stunde Waitms 200 Cls Waitms 200 Do Locate 1 , 1 Lcd "Stunde" Locate 1 , 10 Lcd _hour If Pind.7 = 0 Then Incr _hour Locate 1 , 10 Lcd _hour End If If _hour > 23 Then _hour = 00 End If Loop Until Pind.3 = 0 Waitms 200 Cls Waitms 200 End Sub 'Minute Sub Minute Waitms 200 Cls Waitms 200 Do Locate 1 , 1 Lcd "Minute" Locate 1 , 10 Lcd _min If Pind.7 = 0 Then Incr _min Locate 1 , 10 Lcd _min End If If _min > 59 Then _min = 00 End If Loop Until Pind.4 = 0 Waitms 200 Cls Waitms 200 End Sub Return 'einstellen Sub Einstellen Gosub Stunde Gosub Minute End Sub Return

Die weiteren Locates im Modus kannst Du dir sparen. Wofür sind die Waits gedacht? Du rufst Subs mit Gosub und debounce auf. Wofür soll der Einstellungen "Knop" gut sein? Irgendwie ist einiges doppelt, bzw ich versteh nicht, welchen Zweck es erfüllt.

habs gerade nochmal überarbeitet:

Code:

$regfile = "m8def.dat" $crystal = 1000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Lcdbus = 4 Cursor Off Ddrb = &B11111111 Ddrd = &B00000000 Portd.2 = 1 Portd.3 = 1 Portd.4 = 1 Portd.5 = 1 Portd.6 = 1 Portd.7 = 1 Enable Interrupts Config Clock = Soft Declare Sub Stunde Declare Sub Minute Declare Sub Ausgabe Declare Sub Menue Dim Modus As Byte Declare Sub Einstellen Cls Time$ = "00:00:00" Do Locate 1 , 1 Lcd Time$ ; " " ; Debounce Pind.3 , 0 , Stunde , Sub Debounce Pind.4 , 0 , Minute , Sub Debounce Pind.2 , 0 , Menue , Sub Debounce Pind.7 , 0 , Einstellen , Sub Loop Menue: Incr Modus If Modus = 4 Then Modus = 0 Locate 2 , 1 If Modus = 0 Then Locate 2 , 1 Wait 1 Lcd "Aus " End If If Modus = 1 Then Locate 2 , 1 Wait 1 Lcd "MP3 " Portb.0 = 1 Else Portb.0 = 0 End If If Modus = 2 Then Locate 2 , 1 Wait 1 Lcd "Radio" Portb.1 = 1 Else Portb.1 = 0 End If If Modus = 3 Then Locate 2 , 1 Wait 1 Lcd "AUX " Portb.2 = 1 Else Portb.2 = 0 End If Return 'Stunde Sub Stunde Incr _hour If _hour > 23 Then _hour = 00 End If End Sub 'Minute Sub Minute Incr _min If _min > 59 Then _min = 00 End If End Sub Return

nun muss ich irgendwie die weckzeit einstellen und ausgeben wie gehe ich da vor zwecks variablen und so?

Versuch doch erstmal selber und poste, wenn Du an einem "Problem" verzweifelst. Denk Dir, wie es geht, und bringe es so Stück für Stück ins Programm.

so hab hier das ganze mal mit variablen mal noch mit der weckzeit
gemacht:

Code:

$regfile = "m8def.dat" $crystal = 1000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Lcdbus = 4 Cursor Off Ddrb = &B11111111 Ddrd = &B00000000 Portd.2 = 1 Portd.3 = 1 Portd.4 = 1 Portd.5 = 1 Portd.6 = 1 Portd.7 = 1 Enable Interrupts Config Clock = Soft Declare Sub Stunde Declare Sub Minute Declare Sub Menue Declare Sub Stundew Declare Sub Minutew Dim Modus As Byte Dim Stellenminute As Byte Dim Stellenstunde As Byte Cls Time$ = "00:00:00" Do Locate 1 , 1 Lcd Time$ ; " " ; Locate 1 , 12 Lcd Stellenstunde Locate 1 , 14 Lcd ":" Locate 1 , 15 Lcd Stellenminute Debounce Pind.2 , 0 , Menue , Sub Debounce Pind.3 , 0 , Stunde , Sub Debounce Pind.4 , 0 , Minute , Sub Debounce Pind.5 , 0 , Stundew , Sub Debounce Pind.6 , 0 , Minute W , Sub Loop Menue: Incr Modus If Modus = 4 Then Modus = 0 Locate 2 , 1 If Modus = 0 Then Locate 2 , 1 Wait 1 Lcd "Aus " End If If Modus = 1 Then Locate 2 , 1 Wait 1 Lcd "MP3 " Portb.0 = 1 Else Portb.0 = 0 End If If Modus = 2 Then Locate 2 , 1 Wait 1 Lcd "Radio" Portb.1 = 1 Else Portb.1 = 0 End If If Modus = 3 Then Locate 2 , 1 Wait 1 Lcd "AUX " Portb.2 = 1 Else Portb.2 = 0 End If Return 'Stunde Sub Stunde Incr _hour If _hour > 23 Then _hour = 00 End If End Sub 'Minute Sub Minute Incr _min If _min > 59 Then _min = 00 End If End Sub Return 'MinuteW Sub Minutew Incr Stellenminute If Stellenminute > 59 Then Stellenminute = 00 End If End Sub Return 'Stundew Sub Stundew Incr Stellenstunde If Stellenstunde > 23 Then Stellenstunde = 00 End If End Sub Return

nun habe ich dazu noch ne frage. wie bekomme ich es hin dass stellen
minute und stellenstunde mit 00 anzeigen. so wird mir nur eine 0
angezeigt wo dann beim überlauf die letzte ziffer immer stehen bleibt.

dann noch ne frage ich habe das ganze mit der anzeige so gelöst:

Locate 1 , 12
Lcd Stellenstunde
Locate 1 , 14
Lcd ":"
Locate 1 , 15
Lcd Stellenminute
gibt es da ne elegantere möglichkeit?

so also ich bin fast fertig. probleme habe ich noch mit 2 sachen:

1. ich möchte dass das sub onoff immer erscheint wenn konfiguration = 0 jedoch soll eben der taster pind.6 mit debounce auch entprellt sein.

2. dann habe ich noch ein problem mit dem format. meine weckzeit wird mir immer als 0:0 ausgegeben ich will aber 00:00 haben wie mache ich das?

Code:

$regfile = "m8def.dat" $crystal = 1000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Lcdbus = 4 Cursor Off Ddrb = &B11111111 Ddrd = &B00000000 Portd.2 = 1 Portd.3 = 1 Portd.4 = 1 Portd.5 = 1 Portd.6 = 1 Portd.7 = 1 Enable Interrupts Config Clock = Soft Declare Sub Stunde Declare Sub Minute Declare Sub Menue Declare Sub Stundew Declare Sub Minutew Declare Sub Onoff Declare Sub Licht Declare Sub Stellenmenue Dim Modus As Byte Dim Stellenstunde As Byte Dim Stellenminute As Byte Dim Konfiguration As Byte Dim Anaus As Byte Cls Time$ = "00:00:00" Do Locate 1 , 1 Lcd Time$ ; " " ; Locate 1 , 12 Lcd Stellenstunde ; ":" ; Stellenminute Debounce Pind.2 , 0 , Menue , Sub Debounce Pind.3 , 0 , Stellenmenue , Sub If Konfiguration = 1 Then 'Wecker stellen Debounce Pind.4 , 0 , Stundew , Sub Debounce Pind.5 , 0 , Minutew , Sub End If If Konfiguration = 2 Then 'Uhr stellen Debounce Pind.4 , 0 , Stunde , Sub Debounce Pind.5 , 0 , Minute , Sub End If If Konfiguration = 0 Then 'Wecker an/aus Debounce Pind.6 , 0 , Onoff , Sub End If If Stellenstunde = _hour And Stellenminute = _min And Anaus = 1 Then Portb.5 = 1 Else Portb.5 = 0 End If Debounce Pind.7 , 0 , Licht , Sub Loop 'Stellenmenü 'Menü zum einstellen Wecker/Uhr Sub Stellenmenue Incr Konfiguration If Konfiguration = 3 Then Konfiguration = 0 Locate 2 , 11 If Konfiguration = 0 Then Locate 2 , 11 Wait 1 Lcd " " End If If Konfiguration = 1 Then Locate 2 , 11 Wait 1 Lcd "Wecker" End If If Konfiguration = 2 Then Locate 2 , 11 Wait 1 Lcd " Uhr" End If End Sub Return 'Menü 'Menü MP3, Radio, Aux Menue: Incr Modus If Modus = 4 Then Modus = 0 Locate 2 , 1 If Modus = 0 Then Locate 2 , 1 Wait 1 Lcd "Aus " End If If Modus = 1 Then Locate 2 , 1 Wait 1 Lcd "MP3 " Portb.0 = 1 Else Portb.0 = 0 End If If Modus = 2 Then Locate 2 , 1 Wait 1 Lcd "Radio" Portb.1 = 1 Else Portb.1 = 0 End If If Modus = 3 Then Locate 2 , 1 Wait 1 Lcd "AUX " Portb.2 = 1 Else Portb.2 = 0 End If Return 'Stunde 'Hier wird die Stunde der Uhr hochgezählt Sub Stunde Incr _hour If _hour > 23 Then _hour = 00 End If End Sub 'Minute 'Hier wird die Minute der Uhr hochgezählt Sub Minute Incr _min If _min > 59 Then _min = 00 End If End Sub Return 'MinuteW 'Hier wird die Minute des Weckers hochgezählt Sub Minutew Incr Stellenminute If Stellenminute > 59 Then Stellenminute = 0 End If End Sub Return 'Stundew 'Hier wird die Stunde des Weckers hochgezählt Sub Stundew Incr Stellenstunde If Stellenstunde > 23 Then Stellenstunde = 0 End If End Sub Return 'onoff 'Hier wird der Wecker ein- und ausgeschaltet Sub Onoff Incr Anaus If Anaus = 2 Then Anaus = 0 Locate 2 , 13 If Anaus = 0 Then Locate 2 , 14 Wait 1 Lcd "aus" End If If Anaus = 1 Then Locate 2 , 14 Wait 1 Lcd " an" End If End Sub Return 'Licht 'Hier wird das Licht für 4 Sekunden eingeschaltet Sub Licht Portc.5 = 1 Wait 4 End Sub Return

Zitat:

Zitat von xbgamer

Declare Sub Stunde
Declare Sub Minute
Declare Sub Menue
Declare Sub Stundew
Declare Sub Minutew
Declare Sub Onoff
Declare Sub Licht
Declare Sub Stellenmenue

Debounce erwartet Subs vom Label-Typ, keine richtige Sub.
Die Declares kannst du alle löschen.

Dies

Code:

Sub Stellenmenue Incr Konfiguration If Konfiguration = 3 Then Konfiguration = 0 Locate 2 , 11 If Konfiguration = 0 Then Locate 2 , 11 Wait 1 Lcd " " End If If Konfiguration = 1 Then Locate 2 , 11 Wait 1 Lcd "Wecker" End If If Konfiguration = 2 Then Locate 2 , 11 Wait 1 Lcd " Uhr" End If End Sub Return

sollte so aussehen

Code:

Stellenmenue: Incr Konfiguration If Konfiguration = 3 Then Konfiguration = 0 Locate 2 , 11 If Konfiguration = 0 Then Locate 2 , 11 Wait 1 Lcd " " End If If Konfiguration = 1 Then Locate 2 , 11 Wait 1 Lcd "Wecker" End If If Konfiguration = 2 Then Locate 2 , 11 Wait 1 Lcd " Uhr" End If Return

Zitat:

Zitat von xbgamer

2. dann habe ich noch ein problem mit dem format. meine weckzeit wird mir immer als 0:0 ausgegeben ich will aber 00:00 haben wie mache ich das?

Z.B. so

Code:

If Stellenstunde<10 Then Lcd "0" Lcd Stellenstunde ; ":" If Stellenminute<10 Then Lcd "0" Lcd Stellenminute

also das mit dem format verstehe ich nicht so ganz. muss ich dass in die hauptschleife reinfügen oder kann ich es auch in die sub einfügen?

dann habe ich noch das problem dass wenn ich das menü durchdrücke dass ich wenn es klar ist wieder zum aktivieren des weckers auf die taste pind.6 drücken muss dass überhaupt mal wieder an oder aus erscheint.

ich will aber dass der zustand bleibt und sobald ich wieder bei konfiguration = 0 bin dass der zustand von der onoff schleife angezeigt wird.

wie mach ich das am besten?

ich bin jetzt soweit fertig nur wie startet man die uhr denn mit welchem befehl?

hier mal mein code. es scheint mir als ob der avr zu langsam wäre. ich muss jetzt etwas länger auf den tastern bleiben dass er ein signal wahrnimmt. is das normal?

Code:

$regfile = "m8def.dat" $crystal = 1000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Lcdbus = 4 Cursor Off Ddrb = &B11111111 Ddrd = &B00000000 Portd.2 = 1 Portd.3 = 1 Portd.4 = 1 Portd.5 = 1 Portd.6 = 1 Portd.7 = 1 Enable Interrupts Config Clock = Soft Declare Sub Stunde Declare Sub Minute Declare Sub Menue Declare Sub Stundew Declare Sub Minutew Declare Sub Onoff Declare Sub Licht Declare Sub Stellenmenue Dim Modus As Byte Dim Stellenstunde As Byte Dim Stellenminute As Byte Dim Konfiguration As Byte Dim Anaus As Byte Cls Time$ = "00:00:00" Do Locate 1 , 1 Lcd Time$ ; " " ; Locate 1 , 12 If Stellenstunde < 10 Then Lcd "0" Lcd Stellenstunde ; ":" If Stellenminute < 10 Then Lcd "0" Lcd Stellenminute Debounce Pind.2 , 0 , Menue , Sub Debounce Pind.3 , 0 , Stellenmenue , Sub If Konfiguration = 1 Then 'Wecker stellen Debounce Pind.4 , 0 , Stundew , Sub Debounce Pind.5 , 0 , Minutew , Sub End If If Konfiguration = 2 Then 'Uhr stellen Debounce Pind.4 , 0 , Stunde , Sub Debounce Pind.5 , 0 , Minute , Sub End If Debounce Pind.6 , 0 , Onoff , Sub If Konfiguration = 0 Then 'Wecker an/aus If Anaus = 0 Then Locate 2 , 11 Wait 1 Lcd " aus" End If If Anaus = 1 Then Locate 2 , 11 Wait 1 Lcd " an" End If End If If Stellenstunde = _hour And Stellenminute = _min And Anaus = 1 Then Portb.5 = 1 Else Portb.5 = 0 End If Debounce Pind.7 , 0 , Licht , Sub Loop 'Stellenmenü 'Menü zum einstellen Wecker/Uhr Stellenmenue: Incr Konfiguration If Konfiguration = 3 Then Konfiguration = 0 Locate 2 , 11 If Konfiguration = 0 Then Locate 2 , 11 End If If Konfiguration = 1 Then Locate 2 , 11 Wait 1 Lcd "Wecker" End If If Konfiguration = 2 Then Locate 2 , 11 Wait 1 Lcd " Uhr" End If Return 'Menü 'Menü MP3, Radio, Aux Menue: Incr Modus If Modus = 4 Then Modus = 0 Locate 2 , 1 If Modus = 0 Then Locate 2 , 1 Wait 1 Lcd "Aus " End If If Modus = 1 Then Locate 2 , 1 Wait 1 Lcd "MP3 " Portb.0 = 1 Else Portb.0 = 0 End If If Modus = 2 Then Locate 2 , 1 Wait 1 Lcd "Radio" Portb.1 = 1 Else Portb.1 = 0 End If If Modus = 3 Then Locate 2 , 1 Wait 1 Lcd "AUX " Portb.2 = 1 Else Portb.2 = 0 End If Return 'Stunde 'Hier wird die Stunde der Uhr hochgezählt Stunde: Incr _hour If _hour > 23 Then _hour = 00 End If Return 'Minute 'Hier wird die Minute der Uhr hochgezählt Minute: Incr _min If _min > 59 Then _min = 00 End If Return 'MinuteW 'Hier wird die Minute des Weckers hochgezählt Minutew: Incr Stellenminute If Stellenminute > 59 Then Stellenminute = 0 End If Return 'Stundew 'Hier wird die Stunde des Weckers hochgezählt Stundew: Incr Stellenstunde If Stellenstunde > 23 Then Stellenstunde = 0 End If Return 'onoff 'Hier wird der Wecker ein- und ausgeschaltet Onoff: Incr Anaus If Anaus = 2 Then Anaus = 0 Return 'Licht 'Hier wird das Licht für 4 Sekunden eingeschaltet Licht: Portc.5 = 1 Wait 4 Return

Zitat:

Zitat von xbgamer

hier mal mein code. es scheint mir als ob der avr zu langsam wäre. ich muss jetzt etwas länger auf den tastern bleiben dass er ein signal wahrnimmt. is das normal?

Da sind zwei Sachen, die du bedenken musst.
Erstens benötigt jedes Debounce, dessen Bedingung erfüllt ist (Eingang hat den angegebenen Wert), die voreingestellte Debounce Zeit. Default ist dabei 25ms. Die kannst du mittels Config Debounce ändern.
Zweitens wird jedes Wait in deinem Code die Ansprechzeit verändern. Die Debounce sind also kein Interrupt, die ein Wait unterbrechen könnten.

jo habs gemerkt dass die waits ziemlich viel leistung brauchen. nachdem die raus waren lief alles wunderbar. werd mich jetzt an die hardware waagen und alles mal durchplanen.

Was hast du am Code verändert, damit die Reaktion sich an den Tastern verschnellert?

Ich kann die Uhr zwar einstellen, aber laufen tut sie nicht. Die Sekundenanzeige bleibt auf :00

Ich such eigentlich nur einen Uhren-Wecker mit einem 16*2 LCD Display. Also "MP3" und "Radio" sind nicht sooo nötig...
Die Struktur von deiner uhr gefällt mir ganz gut, also in der Ersten Zeile linke Seite die Uhrzeit mit Sekunde und die Rechte Seite die Alarmzeit, coole Sache...

Greetz
mohi