| Weitere Artikel aus dem Elo-Magazin |
XY-Grafik
von Burkhard Kainka
Zwei neue Unterprogramme machen die Grafik-Programmierung noch einfacher. Nun können Sie einzelne LED-Punkte gezielt ein- und ausschalten.
$crystal = 8000000
$regfile = "m8def.dat"
$hwstack = 64
$swstack = 64
$framesize = 64
Dim Leds(12) As Word
Dim X As Byte
Dim Y As Byte
Dim N As Word
Declare Sub Standby
Declare Sub Test
Declare Sub Initialisierung
Declare Sub Led1(byval X As Byte , Byval Y As Byte)
Declare Sub Led0(byval X As Byte , Byval Y As Byte)
Sub Led1(byval X As Byte , Byval Y As Byte)
If X < 13 Then
Select Case Y
Case 1 : Leds(x).9 = 1
Case 2 : Leds(x).8 = 1
Case 3 : Leds(x).7 = 1
Case 4 : Leds(x).6 = 1
Case 5 : Leds(x).5 = 1
Case 6 : Leds(x).4 = 1
Case 7 : Leds(x).3 = 1
Case 8 : Leds(x).2 = 1
Case 9 : Leds(x).1 = 1
Case 10 : Leds(x).0 = 1
End Select
End If
End Sub
Hier ein Beispiel, wie die neuen Subs verwendet werden können. Das Display wird zeilenweise gefüllt und dann in der gleichen Ordnung wieder gelöscht.
Initialisierung
Do
For X = 1 To 12
For Y = 1 To 10
Led1 X , Y
Waitms 50
Next Y
Next X
For X = 1 To 12
For Y = 1 To 10
Led0 X , Y
Waitms 50
Next Y
Next X
Loop
Download: LEDmatrix2.zip
Lernen Sie die ganze Vielfalt vom Franzis Buch- und Softwareverlag kennen
