Code:
'**********************************
'* Atmega8 mit großen Zahlen *
'**********************************
$regfile "m8def.dat"
$crystal = 1000000
'blaues display
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0
Config Lcdbus = 4
Config Lcd = 16 * 2
Declare Sub 1()
Declare Sub 2()
Declare Sub 3()
Declare Sub 4()
Declare Sub 5()
Declare Sub 6()
Declare Sub 7()
Declare Sub 8()
Declare Sub 9()
Declare Sub 0()
'****************************** Main *******************************************
Do
Call 1()
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
Call 2()
Locate 1 , 3
Lcd Chr(0)
Locate 1 , 4
Lcd Chr(1)
Locate 2 , 3
Lcd Chr(2)
Locate 2 , 4
Lcd Chr(3)
Call 3()
Locate 1 , 5
Lcd Chr(0)
Locate 1 , 6
Lcd Chr(1)
Locate 2 , 5
Lcd Chr(2)
Locate 2 , 6
Lcd Chr(3)
Call 4()
Locate 1 , 7
Lcd Chr(0)
Locate 1 , 8
Lcd Chr(1)
Locate 2 , 7
Lcd Chr(2)
Locate 2 , 8
Lcd Chr(3)
Call 5()
Locate 1 , 9
Lcd Chr(0)
Locate 1 , 10
Lcd Chr(1)
Locate 2 , 9
Lcd Chr(2)
Locate 2 , 10
Lcd Chr(3)
Call 6()
Locate 1 , 11
Lcd Chr(0)
Locate 1 , 12
Lcd Chr(1)
Locate 2 , 11
Lcd Chr(2)
Locate 2 , 12
Lcd Chr(3)
Call 7()
Locate 1 , 13
Lcd Chr(0)
Locate 1 , 14
Lcd Chr(1)
Locate 2 , 13
Lcd Chr(2)
Locate 2 , 14
Lcd Chr(3)
Call 8()
Locate 1 , 15
Lcd Chr(0)
Locate 1 , 16
Lcd Chr(1)
Locate 2 , 15
Lcd Chr(2)
Locate 2 , 16
Lcd Chr(3)
' Call 9()
' Call 0()
Loop
'********* Unterverzeichnisse **************************************************
Sub 1
'Zeichen definieren
'**** 1 ****
Deflcdchar 0 , 32 , 1 , 3 , 7 , 15 , 1 , 1 , 1 'links oben
Deflcdchar 1 , 32 , 16 , 16 , 16 , 16 , 16 , 16 , 16 'rechts oben
Deflcdchar 2 , 1 , 1 , 1 , 1 , 1 , 7 , 15 , 32 'links unten
Deflcdchar 3 , 16 , 16 , 16 , 16 , 16 , 30 , 31 , 32 'rechts unten
End Sub
'***********************
Sub 2
'**** 2 ****
Deflcdchar 0 , 32 , 7 , 15 , 32 , 32 , 32 , 32 , 7 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 28 , 30 , 6 , 6 , 6 , 6 , 30 ' replace ? with number (0-7)
Deflcdchar 2 , 15 , 12 , 12 , 12 , 12 , 15 , 7 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 28 , 32 , 32 , 32 , 32 , 28 , 30 , 32 ' replace ? with number (0-7)
End Sub
Sub 3
'**** 3 ****
Deflcdchar 0 , 32 , 7 , 15 , 32 , 32 , 32 , 32 , 3 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 28 , 30 , 6 , 6 , 6 , 6 , 28 ' replace ? with number (0-7)
Deflcdchar 2 , 3 , 32 , 32 , 32 , 32 , 15 , 7 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 28 , 6 , 6 , 6 , 6 , 30 , 28 , 32 ' replace ? with number (0-7)
End Sub
Sub 4
'**** 4 ****
Deflcdchar 0 , 32 , 12 , 12 , 12 , 12 , 12 , 12 , 15 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 6 , 6 , 6 , 6 , 6 , 6 , 30 ' replace ? with number (0-7)
Deflcdchar 2 , 15 , 32 , 32 , 32 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 30 , 6 , 6 , 6 , 6 , 6 , 6 , 32 ' replace ? with number (0-7)
End Sub
Sub 5
'**** 5 ****
Deflcdchar 0 , 32 , 7 , 15 , 12 , 12 , 12 , 12 , 15 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 28 , 30 , 32 , 32 , 32 , 32 , 28 ' replace ? with number (0-7)
Deflcdchar 2 , 7 , 32 , 32 , 32 , 32 , 15 , 7 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 30 , 6 , 6 , 6 , 6 , 30 , 28 , 32 ' replace ? with number (0-7)
End Sub
Sub 6
'**** 6 ****
Deflcdchar 0 , 32 , 7 , 15 , 12 , 12 , 12 , 12 , 15 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 28 , 30 , 32 , 32 , 32 , 32 , 28 ' replace ? with number (0-7)
Deflcdchar 2 , 15 , 12 , 12 , 12 , 12 , 15 , 7 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 30 , 6 , 6 , 6 , 6 , 30 , 28 , 32 ' replace ? with number (0-7)
End Sub
Sub 7
'**** 7 ****
Deflcdchar 0 , 32 , 15 , 15 , 32 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 30 , 30 , 6 , 6 , 12 , 12 , 24 ' replace ? with number (0-7)
Deflcdchar 2 , 32 , 1 , 1 , 1 , 1 , 1 , 1 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 24 , 16 , 16 , 16 , 16 , 16 , 16 , 32 ' replace ? with number (0-7)
End Sub
Sub 8
'**** 8 ****
Deflcdchar 0 , 32 , 7 , 15 , 12 , 12 , 12 , 12 , 15 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 28 , 30 , 6 , 6 , 6 , 6 , 30 ' replace ? with number (0-7)
Deflcdchar 2 , 7 , 12 , 12 , 12 , 12 , 15 , 7 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 28 , 6 , 6 , 6 , 6 , 30 , 28 , 32 ' replace ? with number (0-7)
End Sub
Sub 9
'**** 9 ****
Deflcdchar 0 , 32 , 7 , 15 , 12 , 12 , 12 , 12 , 15 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 28 , 30 , 6 , 6 , 6 , 6 , 30 ' replace ? with number (0-7)
Deflcdchar 2 , 7 , 32 , 32 , 32 , 32 , 15 , 7 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 30 , 6 , 6 , 6 , 6 , 30 , 28 , 32 ' replace ? with number (0-7)
End Sub
Sub 0
'**** 0 ****
Deflcdchar 0 , 32 , 7 , 15 , 12 , 12 , 12 , 12 , 12 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 28 , 30 , 6 , 6 , 6 , 6 , 6 ' replace ? with number (0-7)
Deflcdchar 2 , 12 , 12 , 12 , 12 , 12 , 15 , 7 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 6 , 6 , 6 , 6 , 6 , 30 , 28 , 32 ' replace ? with number (0-7)
End Sub
Falls noch fragen sind. frage einfach, wenn du ne andere Art, eventuell sogar ne leichtre art gefunden hast die zeichen darzustellen, schreibe sie bitte.
Lesezeichen