freut mich, aber was willst du am Testprogramm in Bascom sehen ?Zitat von RIFMAN
Deflcdchar 0 , 32 , 4 , 21 , 4 , 4 , 32 , 14 , 17
Deflcdchar 1 , 32 , 4 , 21 , 4 , 4 , 17 , 14 , 32
Deflcdchar 2 , 32 , 4 , 21 , 4 , 4 , 32 , 31 , 32
Deflcdchar 3 , 32 , 4 , 21 , 4 , 4 , 32 , 14 , 32
Deflcdchar 4 , 32 , 32 , 4 , 4 , 4 , 14 , 14 , 14
Deflcdchar 5 , 14 , 17 , 21 , 4 , 4 , 14 , 14 , 14
Deflcdchar 6 , 4 , 4 , 4 , 14 , 14 , 14 , 31 , 31
Deflcdchar 7 , 28 , 2 , 25 , 5 , 21 , 32 , 32 , 32
'Deflcdchar 0 , &H07 , &H08 , &H13 , &H14 , &H14 , &H13 , &H08 , &H07
'Deflcdchar 1 , &H00 , &H10 , &H08 , &H08 , &H08 , &H08 , &H10 , &H00
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000
Config Lcd = 20 * 2
Cls 'clear the LCD display
Lcd Chr(0) ; Chr(32) ; Chr(1) ; Chr(32) ; Chr(2) ; Chr(32) ; Chr(3) ; Chr(32) ;
Lowerline
Lcd Chr(4) ; Chr(32) ; Chr(5) ; Chr(32) ; Chr(6) ; Chr(32) ; Chr(7) ; Chr(32) ;
End 'end program
Lesezeichen