Tabele z zawartoscia binarną

[bogdans]

Mam taki problem:
Chcialbym w tabeli schowac wartosci ktorymi pozniej bede sterowal pojedynczymi pinami portow.
Ale zauwazylem, ze kazdy kolejny zapisany w tabeli element nadpisuje jakby wszystkie poprzednie
Zobaczcie:

Dim A(10) As Bit
Dim X As Bit
Dim C As Integer

X = 0

For C = 1 To 10

A(c) = X

Print A(c)
If X = 0 Then
X = 1
Else
X = 0
End If

Next

For C = 1 To 10
Print A(c)
Next

W efekcie w tablicy powinno byc 0, 1, 0, 1, 0, a nie jest
Prosze, nie piszcie tylko: "zajrzyj do helpa" bo to tak jak: "naucz się programowac". No właśnie sie ucze i mam problem
Pozdrawiam!
BogdanS

[slawko-k]

A mi Twoj program nie chodzi.
Blad w pierwszej linii - nie mozna zadeklarowac jako bit.
Co mi przychodzi do glowy to moze to ze zmienna A chyba jest juz w bascomie zadeklarowana i sprobuj uzyc innej.
Skoro chcesz sterowac pinami portu to dlaczego nie uzyjesz po prostu zmiennej bajt? 8 bitow czyli caly port masz. a jak chcesz sterowac poszczegolnymi pinami tez nie ma problemu np: portd.3=zmienna.3

Poszukaj w helpie lookup. mysle ze tego szukasz

[W.K]

Podobny temat był już na Forum.
viewtopic.php?t=7091&highlight=tablica+bitowa
Pozdrawiam!

[bogdans]

Dziekuje za zainteresowanie.
A może mam jakas starą wersję Bascoma?
Moja wersja to: Bascom 8051 DEMO ver. 2.0.10.0

Poradziłem sobie tak:

x=1

On X Gosub Krok0 , Krok1 , Krok2 , Krok3 , Krok4
Waitms Przerwa
Gosub Krok0
Incr X
If X = 5 Then
X = 1
End If

.....i tak dalej

To ma sterowac silnikiem krokowym a nie chce zając całego portu skoro używam tylko 4 pinów.

Pozdrawiam!