Hallo

Ich hab's mal umgesetzt, Bascom-Programmierer mögen mir verzeihen:

Bild hier  

Ein kleiner Bug in der oberen Zeile: Auch mein LCD hat nur 8 Sonderzeichen. Im Code ist das aber korrigiert:
Code:
' nibobee mit Bascom "Doppelthohe Ziffern"                                     6.5.10 mic

' Doppelthohe Ziffern:  https://www.roboternetz.de/phpBB2/viewtopic.php?t=54147
' nibobee mit 4bit-LCD: https://www.roboternetz.de/phpBB2/ze...ag.php?t=51821

' Zeichensatz von PICture: https://www.roboternetz.de/phpBB2/vi...=437434#437434


$regfile = "m16def.dat"
$crystal = 15000000
$hwstack = 32
$swstack = 8
$framesize = 24

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1
Config Lcd = 20 * 4
Config Lcdbus = 4                                           ' oje

Deflcdchar 0 , &H03 , &H03 , &H03 , &H03 , &H03 , &H03 , &H03 , &H03       ' Zeichensatz von PICture
Deflcdchar 1 , &H1F , &H1F , &H03 , &H03 , &H03 , &H03 , &H03 , &H03
Deflcdchar 2 , &H03 , &H03 , &H03 , &H03 , &H03 , &H03 , &H1F , &H1F
Deflcdchar 3 , &H1F , &H1F , &H03 , &H03 , &H03 , &H03 , &H1F , &H1F
Deflcdchar 4 , &H1F , &H1F , &H18 , &H18 , &H18 , &H18 , &H1F , &H1F
Deflcdchar 5 , &H1F , &H1F , &H1B , &H1B , &H1B , &H1B , &H1B , &H1B
Deflcdchar 6 , &H1B , &H1B , &H1B , &H1B , &H1B , &H1B , &H1F , &H1F
Deflcdchar 7 , &H1F , &H1F , &H1B , &H1B , &H1B , &H1B , &H1F , &H1F

Dim Ziffer(10) As Byte
Ziffer(1) = &H56                                            ' 0
Ziffer(2) = &H00                                            ' 1
Ziffer(3) = &H14                                            ' 2
Ziffer(4) = &H32                                            ' 3
Ziffer(5) = &H60                                            ' 4
Ziffer(6) = &H42                                            ' 5
Ziffer(7) = &H46                                            ' 6
Ziffer(8) = &H10                                            ' 7
Ziffer(9) = &H76                                            ' 8
Ziffer(10) = &H53                                           ' 9

Dim B As Byte , Temp As Byte

Cls                                                         ' clear the LCD display
Cursor Off Noblink
Lcd "Nibobee mit LCD"                                       ' display this at the top line
Locate 3 , 1
Lcd "Doppelthohe Ziffern"

Wait 2

Cls
For B = 1 To 8                                              ' es sind nur 8 Userzeichen ;)
   Locate 1 , B
   Temp = B - 1                                             ' ächz
   Lcd Chr(temp)
   Locate 2 , B
   Lcd Temp
Next
Wait 2
For B = 1 To 10
   Locate 3 , B
   Temp = Ziffer(b ) / 16                                   ' Bit 7-4 sind die obere Zifferhälfe
   Lcd Chr(temp)
   Locate 4 , B
   Temp = Ziffer(b) And &H0F                                ' und Bit 3-0 die Untere ;)
   Lcd Chr(temp)
Next

Do
Loop
End
Gruß

mic

&H72 für die 9?