ich hab das mal so geschrieben

kommt das der sache näher?


ich hab das Buch von Claus Kühnel da stand das so ungefähr drinne allerdings mit einer 7 segmentanzeige. aber das prinzip ist ja das selbe.

es haut noch nich ganz hin, im Buch is ja die anzeige an einem port und da staht dann Portb = X(i) , das kann ich ja nicht schreiben weil ich ja mehere ports habe *bruml*

das mit der Tabelle klappt dadurch noch nicht ganz


mfg

Code:
$regfile "attiny2313.dat"
$crystal = 1000000
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40


Config Portd = Output
Config Portb = Output
Config Porta = Output


Porta.0 = A.0                                               'Linksoben
Portd.6 = A.1                                               'Linksmitte
Portd.2 = A.2                                               'Linksunten
Portb.1 = A.3                                               'Mitteoben
Portd.3 = A.4                                               'Mittemitte
Portb.0 = A.5                                               'Mitteunten
Portd.4 = A.6                                               'Rechtsoben
Portb.2 = A.7                                               'Rechtsmitte
Portd.5 = A.8                                               'Rechtsunten
Portd.1 = A.9                                               'Ebene1
Porta.1 = A.10                                              'Ebene2
Portd.0 = A.11                                              'Ebene3

Dim B As Word
Dim A As Word
Dim X(4) As Word


Restore Data1

For B = 1 To 4
Read X(i)
Next


Do


For B = 1 To 4
A = X(i)
Waitms 500
Next


Loop

Data1:

Data &B00000000111 , &B10000000011 , &B01000000011 , &B00100000011