Quellcode

'Beispiel Bascom Code für FunnyMatrix64


$regfile = "m8def.dat"
$crystal = 2000000
$hwstack = 32
$swstack = 10
$framesize = 40

Dim Zeile As Byte
Dim Zeilenbit As Byte
Dim Buffer(8) As Byte

Config Portb = Output                                       'Zeilen
Config Portd = Output                                       'Spalten
Config Portc.0 = Input                                      'Taster

Portc.0 = 1                                                 'Internen PullUp Widerstand am Taster aktivieren

Config Timer0 = Timer , Prescale = 8                        'Frequenz für Multiplexing runterteilen
On Timer0 Multiplex
Enable Timer0
Enable Interrupts

Gosub Clear_all                                             'Lösche Matrix


Looping:

Gosub Show_pattern_1                                        'Stelle "L" dar
Wait 1
Gosub Show_pattern_2                                        'Stelle "E" dar
Wait 1
Gosub Show_pattern_3                                        'Stelle "D" dar
Wait 1
Gosub Clear_all                                             'Lösche Matrix
Bitwait Pinc.0 , Reset                                      'Auf Tastendruck warten

Goto Looping

'-----------------------------------------------------------------------
Multiplex:
 Portd = 0                                                  'Zeilentreiber abschalten
 Incr Zeile                                                 'Zeile hochzählen
 If Zeile = 9 Then Zeile = 1                                'Überlauf abfangen
 Zeilenbit = Zeile - 1
 Portb = Buffer(zeile)                                      'Spaltentreiber umschalten
 Portd.zeilenbit = 1                                        'Zeilentreiber einschalten
Return
'------------------------------------------------------------------------

Show_pattern_1:
 Buffer(1) = &B00000011
 Buffer(2) = &B00000011
 Buffer(3) = &B00000011
 Buffer(4) = &B00000011
 Buffer(5) = &B00000011
 Buffer(6) = &B00000011
 Buffer(7) = &B11111111
 Buffer(8) = &B11111111
Return

Show_pattern_2:
 Buffer(1) = &B11111111
 Buffer(2) = &B11111111
 Buffer(3) = &B00000011
 Buffer(4) = &B00111111
 Buffer(5) = &B00111111
 Buffer(6) = &B00000011
 Buffer(7) = &B11111111
 Buffer(8) = &B11111111
Return

Show_pattern_3:
 Buffer(1) = &B00011111
 Buffer(2) = &B01111111
 Buffer(3) = &B11100011
 Buffer(4) = &B11000011
 Buffer(5) = &B11000011
 Buffer(6) = &B11100011
 Buffer(7) = &B01111111
 Buffer(8) = &B00011111
Return

Clear_all:
 Buffer(1) = 0
 Buffer(2) = 0
 Buffer(3) = 0
 Buffer(4) = 0
 Buffer(5) = 0
 Buffer(6) = 0
 Buffer(7) = 0
 Buffer(8) = 0
Return