|
|
|
|
|
Im Praxisheft 6 (Seite 71) zeigen Abb. 3 und Abb.5 nur das Prinzip der Schaltung, Schaltbilder für die Platinen selbst sind nicht abgedruckt.
Die Transistoren T9 - T16 steuern die x-Achse (also die Spalten), T1 - T8 die y-Achse (die Zeilen).
Die Lage des Koordinatensystems ist anders als gewohnt. Bild 2 entspricht der Abb. 10 im Praxisheft 6, Seite 74.
|
|
Bild 1
|
|
Bild 2
|
|
Zur Programmierung:
Mit dem folgenden Programm wird die im Bild gezeigte rote LED eingeschaltet:
|
|
OUT 888, 2 ^ 3 'Datenwort fuer x-Achse erzeugen
OUT 890, 1 'Datenwort an IC1 uebergeben
GOSUB warten 'Verzoegerung fuer Taktsignal
OUT 890, 3 'Uebergabe beenden
GOSUB warten 'Verzoegerung fuer Taktsignal
OUT 888,255 - 2 ^ 5 ‘Datenwort fuer y-Achse erzeugen: INVERSE EINGABE!
OUT 890, 2 'Datenwort an IC2 uebergeben
GOSUB warten 'Verzoegerung fuer Taktsignal
OUT 890, 3 'Uebergabe beenden
GOSUB warten 'Verzoegerung fuer Taktsignal
END
warten: 'Erzeugung der Wartezeit fuer Taktsignale
FOR zeit = 1 TO 1000 'an PC anpassen!
NEXT zeit
RETURN
|
|
Mit dem folgenden Programm werden nacheinander die vertikalen LEDs spaltenweise eingeschaltet:
|
|
'AS030 8x8-Matrix: Spalten nacheinander einschalten
FOR spalte = 0 TO 7
OUT 888, 2 ^ spalte 'Datenwort fuer x-Achse erzeugen
OUT 890, 1 'Datenwort an IC1 uebergeben
GOSUB warten 'Verzoegerung fuer Taktsignal
OUT 890, 3 'Uebergabe beenden
GOSUB warten 'Verzoegerung fuer Taktsignal
OUT 888, 0 'Datenwort fuer y-Achse erzeugen:INVERSE EINGABE!
OUT 890, 2 'Datenwort an IC2 uebergeben
GOSUB warten 'Verzoegerung fuer Taktsignal
OUT 890, 3 'Uebergabe beenden
GOSUB warten 'Verzoegerung fuer Taktsignal
NEXT spalte
END
warten: 'Erzeugung der Wartezeit fuer Taktsignale
FOR zeit = 1 TO 1000 'an PC anpassen!
NEXT zeit
RETURN
|
|
|
|
|
|
|
