-
Hallo,
so habe es hinbekommen. lade einfach die zeichen aus dem unterprogramm.
leider füllt alleine das kleine programm schon 26% des speichers aus, werde es denke ich mal aus dem speicher des eeproms laden.
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()
Do
Call 1()
Wait 1
Call 2()
Wait 1
Call 3()
Wait 1
Call 4()
Wait 1
Call 5()
Wait 1
Call 6()
Wait 1
Call 7()
Wait 1
Call 8()
Wait 1
Call 9()
Wait 1
Call 0()
Wait 1
Loop
'******************************************************************************
Sub 1
'Zeichen definieren
'**** 1 ****
Deflcdchar 0 , 32 , 1 , 3 , 7 , 15 , 1 , 1 , 1 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 16 , 16 , 16 , 16 , 16 , 16 , 16 ' replace ? with number (0-7)
Deflcdchar 2 , 1 , 1 , 1 , 1 , 1 , 7 , 15 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 16 , 16 , 16 , 16 , 16 , 30 , 31 , 32 ' replace ? with number (0-7)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
End Sub
'***********************
Sub 2
'**** 2 ****
Deflcdchar 0 , 32 , 7 , 15 , 32 , 32 , 32 , 7 , 15 ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 28 , 30 , 6 , 6 , 6 , 30 , 28 ' replace ? with number (0-7)
Deflcdchar 2 , 12 , 12 , 12 , 12 , 12 , 15 , 7 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 32 , 32 , 32 , 32 , 32 , 28 , 30 , 32 ' replace ? with number (0-7)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
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)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
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)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
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)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
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)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
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)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
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)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
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)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
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)
Cls
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 2
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Locate 2 , 2
Lcd Chr(3)
End Sub
das programm zählt von 1 - 0.
cu arno
-
....der Font sieht optisch wirklich sehr gut aus !
