Code:
$regfile = "m644def.dat"
$crystal = 8000000
$hwstack = 300
$swstack = 300
$framesize = 300
Power_ Alias Portd.2
Config Power_ = Output
Taster Alias Pind.7
Config Taster = Input
Power_ = 0
Config Graphlcd = 240 * 128 , Dataport = Portb , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6
Cls
Cursor Off
Cls
Showpic 0 , 0 , Zurueck '
Showpic 66 , 0 , Einstellungen '
Showpic 188 , 0 , Unsicher '
Showpic 0 , 40 , T_ton '
Showpic 66 , 40 , Uhr '
Showpic 129 , 40 , Stby '
Showpic 188 , 40 , Daten_bgf '
Showpic 0 , 80 , Code '
Showpic 66 , 80 , Debugg_bgf '
Showpic 129 , 80 , Check_bgf '
Do
If Taster = 0 Then
Cls
Showpic 0 , 0 , Zurueck '
Showpic 66 , 0 , Einstellungen '
Showpic 188 , 0 , Unsicher '
Showpic 0 , 40 , T_ton '
Showpic 66 , 40 , Uhr '
Showpic 129 , 40 , Stby '
Showpic 188 , 40 , Daten_bgf '
Showpic 0 , 80 , Code '
Showpic 66 , 80 , Debugg_bgf '
Showpic 129 , 80 , Check_bgf
End If '
Loop
Zurueck:
$bgf "Zurück.bgf"
Einstellungen:
$bgf "Einstellungen.bgf"
Unsicher:
$bgf "Ungesichert.bgf"
Uhr:
$bgf "Uhr.bgf"
T_ton:
$bgf "T-Ton.bgf"
Stby:
$bgf "StBy.bgf"
Daten_bgf:
$bgf "Daten.bgf"
Code:
$bgf "Code.bgf"
Debugg_bgf:
$bgf "Debugg.bgf"
Check_bgf:
$bgf "check.bgf"
Könnte das ein Hardware fehler sein?
Lesezeichen