hab das jetzt mal ausprobiert,

diese laufen nicht von 0 bis 9 durch..

0..2..4..6..8. und danach nur noch undefinierte zustände... komisch..


mit diesem code funktionierts prima..
Code:
Dim I As Byte

Dim X(10) As Byte

Restore Value_table

For I = 1 To 10
   Read X(i)
Next

Portb.0 = 1

Do
   For I = 1 To 10
      Portd = X(i)
      Waitms 400
   Next
Loop

End



Value_table:
Data &B10000001 ,                                           '0
Data &B11101101 ,                                           '1
Data &B01000011 ,                                           '2
Data &B01001001 ,                                           '3
Data &B00101101 ,                                           '4
Data &B00011001 ,                                           '5
Data &B00010001 ,                                           '6
Data &B11001101 ,                                           '7
Data &B00000001 ,                                           '8
Data &B00001001 ,                                           '9