@ stromflo... code is der hier:
ausserdem hat sich meine freundin auch noch einen wecker gebaut... der sieht jetzt so aus:Code:$regfile = "m8def.dat" $crystal = 8000000 '-----LCD----- Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4 Dim X As Word Dim Y As Word Dim Tag As Byte Dim Sekunde As Byte Dim Minute As Byte Dim Stunde As Byte Dim Minute_weck As Byte Dim Stunde_weck As Byte Dim Sekunde_weck As Byte Dim Minute_schlummer As Byte Dim Stunde_schlummer As Byte Dim Sekunde_schlummer As Byte Dim Beleuchtung_an As Byte Dim Wecker_an As Bit Dim Schlummer As Bit Dim Schnarch As Byte Dim Zaehler As Byte Dim Klingeln As Bit Dim Dummy As Byte Dim Dummy2 As Bit Dim Ton As Byte Dim Ton_l As Byte '-----Timer----- Config Timer1 = Timer , Prescale = 256 'Konfiguriere Timer1 Enable Timer1 'schalte den Timer1 ein On Timer1 Isr_von_timer1 'verzweige bei Timer1 überlauf zu Isr_von_Timer1 Timer1 = 34285 'Timer1 soll schon von 34285 wegzählen 'Timer1 soll schon von 34285 wegzählen Enable Interrupts '---Subs------ Declare Sub Zeit_einstellen Declare Sub Wecken Declare Sub Zeile_1 Declare Sub Zeile_2 Declare Sub Beleuchtung Declare Sub Weck_an_aus Declare Sub Weckzeit_einstellen Declare Sub Schlummer '----Ports---- Config Pinb.2 = Output Config Pind.1 = Output Config Pind.6 = Output Config Pind.7 = Output Config Pind.4 = Output Config Pind.5 = Output Config Pind.0 = Input Config Pinb.3 = Input Config Pinb.0 = Input Config Pinb.5 = Input Led1 Alias Portd.1 Led2 Alias Portd.6 Led3 Alias Portd.7 Led4 Alias Portd.4 Beeper Alias Portd.5 Beleucht Alias Portb.2 Taster_plus Alias Pind.0 Taster_minus Alias Pinb.3 Taster_enter Alias Pinb.0 Taster_schlummer Alias Pinb.5 Portd.0 = 1 Portb.3 = 1 Portb.0 = 1 Portb.5 = 1 Cls Cursor Off Locate 1 , 1 Lcd "Hallo ich bin" Locate 2 , 1 Lcd "ein Wecker...." '--------------Programm------------------------------------------------ Beleucht = 1 Wait 1 Tag = 0 Stunde = 0 Minute = 0 Minute_weck = 0 Stunde_weck = 0 Wecker_an = 0 Schlummer = 0 Zaehler = 0 Beleuchtung_an = 0 Klingeln = 0 Schlummer = 0 Zeit_einstellen Beleucht = 0 Do Wecken Weck_an_aus Weckzeit_einstellen Beleuchtung Zeile_2 Zeile_1 Schlummer Waitms 10 Led1 = 0 Led2 = 0 Led3 = 0 Led4 = 0 Loop '-----------------SUBS------------------------------------------------- '-------------Wecken Sub Wecken If Wecker_an = 1 Then If Stunde = Stunde_schlummer Then If Minute = Minute_schlummer Then If Sekunde = Sekunde_schlummer Then Klingeln = 1 Beleucht = 1 End If End If End If If Klingeln = 1 Then Ton = Rnd(12) Ton = Rnd(32) Ton = Ton / 4 Ton_l = 100 / Ton For X = 1 To Ton_l Beeper = 1 Waitms Ton Beeper = 0 Next X Select Case Ton Case 1 Led1 = 0 Led2 = 1 Led3 = 0 Led4 = 1 Case 2 Led1 = 1 Led2 = 0 Led3 = 0 Led4 = 1 Case 3 Led1 = 1 Led2 = 0 Led3 = 1 Led4 = 0 Case 4 Led1 = 0 Led2 = 1 Led3 = 1 Led4 = 0 Case 5 Led1 = 1 Led2 = 1 Led3 = 0 Led4 = 0 Case 5 Led1 = 0 Led2 = 0 Led3 = 1 Led4 = 1 Case 5 Led1 = 1 Led2 = 1 Led3 = 1 Led4 = 1 Case 5 Led1 = 0 Led2 = 0 Led3 = 0 Led4 = 1 End Select End If Else Led1 = 0 Led2 = 0 Led3 = 0 Led4 = 0 End If End Sub '------------- Zeit einstellen------------------------- Sub Zeit_einstellen While Zaehler < 4 Zeile_1 Locate 2 , 1 Select Case Zaehler Case 0 Lcd "Wochentag " ' anzeigen der eingabe auf 2. spalte Case 1 Lcd "Stunde " Case 2 Lcd "Minute " Case 3 Lcd "Sekunde " End Select Waitms 200 ' Zeit einstellen If Taster_plus = 0 Then Select Case Zaehler Case 0 Incr Tag Case 1 Incr Stunde Case 2 Incr Minute Case 3 Incr Sekunde End Select End If If Taster_minus = 0 Then Select Case Zaehler Case 0 Decr Tag Case 1 Decr Stunde Case 2 Decr Minute Case 3 Decr Sekunde End Select End If If Taster_enter = 0 Then Incr Zaehler End If If Tag = 7 Then Tag = 0 End If If Tag > 250 Then Tag = 23 End If If Stunde = 24 Then Stunde = 0 End If If Stunde > 250 Then Stunde = 23 End If If Minute = 60 Then Minute = 0 End If If Minute > 250 Then Minute = 59 End If If Sekunde = 60 Then Sekunde = 0 End If If Sekunde > 250 Then Sekunde = 59 End If Wend End Sub '----------Weckzeit-einstellen Sub Weckzeit_einstellen If Taster_enter = 0 Then If Dummy > 30 Then Zaehler = 0 Led1 = 1 Led2 = 1 Led3 = 1 Led4 = 1 Waitms 100 Led1 = 0 Led2 = 0 Led3 = 0 Led4 = 0 Locate 1 , 1 Lcd "Weck-Stunde " Waitms 500 While Zaehler < 3 Zeile_2 Locate 1 , 1 Select Case Zaehler ' anzeigen der eingabe auf 2. spalte Case 0 Lcd "Weck-Stunde " Case 1 Lcd "Weck-Minute " Case 2 Lcd "Weck-Sekunde :) " End Select Waitms 300 ' Zeit einstellen If Taster_plus = 0 Then Select Case Zaehler Case 0 Incr Stunde_weck Case 1 Incr Minute_weck Case 2 Incr Sekunde_weck End Select End If If Taster_minus = 0 Then Select Case Zaehler Case 0 Decr Stunde_weck Case 1 Decr Minute_weck Case 2 Decr Sekunde_weck End Select End If If Taster_enter = 0 Then Incr Zaehler End If If Stunde_weck = 24 Then Stunde_weck = 0 End If If Stunde_weck > 250 Then Stunde_weck = 23 End If If Minute_weck = 60 Then Minute_weck = 0 End If If Minute_weck > 250 Then Minute_weck = 59 End If If Sekunde_weck = 60 Then Sekunde_weck = 0 End If If Sekunde_weck > 250 Then Sekunde_weck = 59 End If If Sekunde = 60 Then Sekunde = 0 Incr Minute End If If Minute = 60 Then Minute = 0 Incr Stunde End If If Stunde = 24 Then Stunde = 0 Incr Tag End If If Tag = 7 Then Tag = 0 End If Wend Dummy = 0 Dummy2 = 0 Stunde_schlummer = Stunde_weck Minute_schlummer = Minute_weck Sekunde_schlummer = Sekunde_weck Wecker_an = 1 End If End If End Sub '---------- Zeile 1 Schreibe Sub Zeile_1 If Sekunde = 60 Then Sekunde = 0 Incr Minute End If If Minute = 60 Then Minute = 0 Incr Stunde End If If Stunde = 24 Then Stunde = 0 Incr Tag End If If Tag = 7 Then Tag = 0 End If Locate 1 , 1 Select Case Tag Case 0 Lcd "MO " Case 1 Lcd "DI " Case 2 Lcd "MI " Case 3 Lcd "DO " Case 4 Lcd "FR " Case 5 Lcd "SA " Case 6 Lcd "SO " End Select ' Zeitzeile setzen If Stunde < 10 Then Locate 1 , 4 Lcd "0" ; Stunde ; ":" Else Locate 1 , 4 Lcd Stunde ; ":" End If If Minute < 10 Then Locate 1 , 7 Lcd "0" ; Minute ; ":" Else Locate 1 , 7 Lcd Minute ; ":" End If If Sekunde < 10 Then Locate 1 , 10 Lcd "0" ; Sekunde ; " Uhr " Else Locate 1 , 10 Lcd Sekunde ; " Uhr" End If End Sub '---------- Zeile 2 Schreibe Sub Zeile_2 Locate 2 , 1 Lcd " " If Stunde_weck < 10 Then Locate 2 , 4 Lcd "0" ; Stunde_weck ; ":" Else Locate 2 , 4 Lcd Stunde_weck ; ":" End If If Minute_weck < 10 Then Locate 2 , 7 Lcd "0" ; Minute_weck ; ":" Else Locate 2 , 7 Lcd Minute_weck ; ":" End If If Sekunde_weck < 10 Then Locate 2 , 10 Lcd "0" ; Sekunde_weck Else Locate 2 , 10 Lcd Sekunde_weck End If If Wecker_an = 1 Then Locate 2 , 12 Lcd " an " Else Locate 2 , 12 Lcd " aus" End If Locate 2 , 12 If Schlummer = 1 Then If Schnarch < 10 Then Lcd " Zzz" Elseif Schnarch < 20 Then If Schnarch > 10 Then Lcd " zZz" End If Elseif Schnarch < 30 Then If Schnarch > 20 Then Lcd " zzZ" End If Elseif Schnarch < 40 Then If Schnarch > 30 Then Lcd " zzz" End If End If Incr Schnarch If Schnarch = 40 Then Schnarch = 1 End If End If End Sub '---------AN-AUS-------------------- Sub Weck_an_aus If Taster_enter = 1 Then Dummy = 0 Dummy2 = 0 Else Waitms 10 Incr Dummy End If If Taster_enter = 0 Then If Dummy > 10 Then If Dummy2 = 0 Then Led1 = 1 Led2 = 1 Led3 = 1 Led4 = 1 Waitms 100 Klingeln = 0 Dummy2 = 1 If Wecker_an = 1 Then Wecker_an = 0 Schlummer = 0 Else Wecker_an = 1 Stunde_schlummer = Stunde_weck Minute_schlummer = Minute_weck Sekunde_schlummer = Sekunde_weck End If End If Led1 = 0 Led2 = 0 Led3 = 0 Led4 = 0 End If End If End Sub '-----------Schlummer--------------- Sub Schlummer If Taster_schlummer = 0 Then If Klingeln = 1 Then Klingeln = 0 Schlummer = 1 For X = 1 To 5 Incr Minute_schlummer If Minute_schlummer = 60 Then Minute_schlummer = 0 Incr Stunde_schlummer End If If Stunde_schlummer = 24 Then Stunde_schlummer = 0 End If Next X End If End If End Sub '-----------Beleuchtung------------- Sub Beleuchtung If Taster_plus = 0 Then Beleuchtung_an = 15 End If If Taster_minus = 0 Then Beleuchtung_an = 15 End If If Taster_enter = 0 Then Beleuchtung_an = 15 End If If Taster_schlummer = 0 Then Beleuchtung_an = 15 End If If Beleuchtung_an > 0 Then Beleucht = 1 Else Beleucht = 0 End If End Sub '--------------TIMER---------------- '-------Timer1 Isr_von_timer1: 'ISR von Timer1 Timer1 = 34285 'Timer1 soll wieder von 34285 wegzählen Incr Sekunde If Beleuchtung_an > 0 Then Decr Beleuchtung_an End If Return
Bild hier
Bild hier
kann das gleiche... ist nur ein bischen lauter, hat ne platine statt nem drahtnetz und wohnt in einer alten kaffedose
Zitieren
Lesezeichen