Hajo
14.03.2005, 17:46
Ich muss heute noch eine Frage loswerden!
In "Typendeklarationen in Bascom möglich?" hatte ich ja schon auf mein Problem mit der Umstellung von Pascal auf Bascom hingewiesen!
In der "Altanwendung" in 80C537-Pascal hatte ich mir fürs Grafikdisplay die Ziffern als Grosssymbole selbstgebaut und als Programmcode abgelegt (siehe Beispiel unten). Hat einer eine Idee, wie ich einen Konstanten-Array anlegen kann? Ich habe bis jetzt keinen Plan, wie dass in Bascom gehen kann.
Das ganze ins RAM abzulegen, ist bei der Datenmenge keine echte Alternative!
Danke für die Antworten und Gruss
Hajo
const Ziffer0 : array [1..164] of byte = (
$00,$0F,$E0,$00,$00,$7F,$F8,$00,$00,$FF,$FE,$00,$0 3,$FF,$FF,$00,$07,$FF,$FF,$80,$07,$FF,$FF,$C0,$0F, $F8,$3F,$E0,
$1F,$F0,$1F,$F0,$1F,$E0,$0F,$F0,$3F,$C0,$07,$F8,$3 F,$C0,$07,$F8,$3F,$C0,$07,$F8,$7F,$80,$03,$FC,$7F, $80,$03,$FC,$7F,
$80,$03,$FC,$7F,$80,$03,$FC,$FF,$80,$03,$FE,$FF,$8 0,$03,$FE,$FF,$80,$03,$FE,$FF,$80,$03,$FE,$FF,$80, $03,$FE,$FF,$80,
$03,$FE,$FF,$80,$03,$FE,$FF,$80,$03,$FE,$FF,$80,$0 3,$FE,$7F,$80,$03,$FC,$7F,$80,$03,$FC,$7F,$80,$03, $FC,$7F,$80,$07,
$FC,$3F,$C0,$07,$F8,$3F,$C0,$07,$F8,$3F,$C0,$07,$F 8,$1F,$E0,$0F,$F0,$1F,$E0,$0F,$F0,$0F,$F0,$1F,$E0, $07,$FC,$FF,$C0,
$03,$FF,$FF,$C0,$03,$FF,$FF,$80,$00,$FF,$FE,$00,$0 0,$7F,$FC,$00,$00,$0F,$E0,$00);
In "Typendeklarationen in Bascom möglich?" hatte ich ja schon auf mein Problem mit der Umstellung von Pascal auf Bascom hingewiesen!
In der "Altanwendung" in 80C537-Pascal hatte ich mir fürs Grafikdisplay die Ziffern als Grosssymbole selbstgebaut und als Programmcode abgelegt (siehe Beispiel unten). Hat einer eine Idee, wie ich einen Konstanten-Array anlegen kann? Ich habe bis jetzt keinen Plan, wie dass in Bascom gehen kann.
Das ganze ins RAM abzulegen, ist bei der Datenmenge keine echte Alternative!
Danke für die Antworten und Gruss
Hajo
const Ziffer0 : array [1..164] of byte = (
$00,$0F,$E0,$00,$00,$7F,$F8,$00,$00,$FF,$FE,$00,$0 3,$FF,$FF,$00,$07,$FF,$FF,$80,$07,$FF,$FF,$C0,$0F, $F8,$3F,$E0,
$1F,$F0,$1F,$F0,$1F,$E0,$0F,$F0,$3F,$C0,$07,$F8,$3 F,$C0,$07,$F8,$3F,$C0,$07,$F8,$7F,$80,$03,$FC,$7F, $80,$03,$FC,$7F,
$80,$03,$FC,$7F,$80,$03,$FC,$FF,$80,$03,$FE,$FF,$8 0,$03,$FE,$FF,$80,$03,$FE,$FF,$80,$03,$FE,$FF,$80, $03,$FE,$FF,$80,
$03,$FE,$FF,$80,$03,$FE,$FF,$80,$03,$FE,$FF,$80,$0 3,$FE,$7F,$80,$03,$FC,$7F,$80,$03,$FC,$7F,$80,$03, $FC,$7F,$80,$07,
$FC,$3F,$C0,$07,$F8,$3F,$C0,$07,$F8,$3F,$C0,$07,$F 8,$1F,$E0,$0F,$F0,$1F,$E0,$0F,$F0,$0F,$F0,$1F,$E0, $07,$FC,$FF,$C0,
$03,$FF,$FF,$C0,$03,$FF,$FF,$80,$00,$FF,$FE,$00,$0 0,$7F,$FC,$00,$00,$0F,$E0,$00);