Dort war ich gestern abend! Hab aber nicht wirklich etwas finden können.
Das Display wird dort ja über den PC und nicht über einen Atmega
angesteuert.
Ich möchte verschiedene Daten per uC übertragen und in einer
Großschrift darstellen.
Habe mal folgendes gemacht:
- per paint die zahlen 0-9 in einer auflösung von 32x16 erstellt.
- die bilder in bascom umgewandelt und im pfad des bascom programms
abgelegt
- ein kleines progrämmchen erstellt
-nun werden die zahlen 0-9 im display dargestellt.
problem: der lösungsweg gefällt mir nicht, da keine zahlen sondern
bilder dargestellt werden!
jemand andere vorschläge?
hier das programm:
'***********************************************************************
********
'***********************************************************************
********
'*
*
'* Schreibt die Zahlen von 0-9 mit einer Auflösung von 16x32 Pixeln
ins Display*
'*
*
'***********************************************************************
********
'***********************************************************************
********
'***********************************************************************
********
'* LCD-Anschlußbelegung mit T6963C-Controller
*
'***********************************************************************
********
'LCD pin
' 1 GND GND
'2 GND GND
'3 +5V +5V
'4 -9V Pin 6 Max 32
'5 WR PORTC.0
'6 RD PORTC.1
'7 CE PORTC.2
'8 C/D PORTC.3
'9 RESET PORTC.4
'10
'11-18 D0-D7 PORTA.0-7
'19 FS PORTC.5
'20
'rot +5V
'schwarz GND
'***********************************************************************
********
$regfile = "m32def.dat"
$crystal = 11059000
Config Graphlcd = 240 * 64 , Dataport = Porta , Controlport = Portc ,
Wr = 0 , Rd = 1 , Ce = 2 , Cd = 3 , Reset = 4 , Fs = 5 , Mode = 8
Cls 'Display
löschen
Cursor Off 'Cursor
aus
Dim N As Byte
N = 0
Do
For N = 0 To 9
Select Case N
Case 0 : Showpic 0 , 0 , 0
Case 1 : Showpic 0 , 0 , 1
Case 2 : Showpic 0 , 0 , 2
Case 3 : Showpic 0 , 0 , 3
Case 4 : Showpic 0 , 0 , 4
Case 5 : Showpic 0 , 0 , 5
Case 6 : Showpic 0 , 0 , 6
Case 7 : Showpic 0 , 0 , 7
Case 8 : Showpic 0 , 0 , 8
Case 9 : Showpic 0 , 0 , 9
End Select
Wait 1
Next N
Loop
End
'***********************************************************************
********
'* Hier die Daten für die Bilder
*
'***********************************************************************
********
0:
$bgf "0_32x16.bgf" 'Fügt 0
ein
1:
$bgf "1_32x16.bgf" 'Fügt 1
ein
2:
$bgf "2_32x16.bgf" 'Fügt 2
ein
3:
$bgf "3_32x16.bgf" 'Fügt 3
ein
4:
$bgf "4_32x16.bgf" 'Fügt 4
ein
5:
$bgf "5_32x16.bgf" 'Fügt 5
ein
6:
$bgf "6_32x16.bgf" 'Fügt 6
ein
7:
$bgf "7_32x16.bgf" 'Fügt 7
ein
8:
$bgf "8_32x16.bgf" 'Fügt 8
ein
9:
$bgf "9_32x16.bgf" 'Fügt 9
ein
