Variable im Array

[Searcher]

Ich möchte gern mein array durch eine for schleife ansprechen und will dies durch eine variable im array machen.

Folgendes kleine Programm füllt das array "A" mit den Zahlen 1 bis 10 durch die Laufvariable "i"

'IDE: Bascom Demo Version 2.0.7.5
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 34
$crystal = 16000000

Dim A(10) As Byte
Dim i As Byte

For i = 1 To 10
  A(i) = i
Next

End

Wenn Du vor Deinem Code [ CODE] und nach Deinem Code [ /CODE], also die Code Tags benutzt (ohne die Leerzeichen nach der nach rechts geöffneten eckigen Klammer), wird es angenehmer zu lesen und Einrückungen bleiben erhalten. In der "Erweitert" oder "Vorschau" bei Threaderstellung oder Antwort kann man dafür das Nummernzeichen "#" verwenden, daß dann erreichbar wird

Gruß
Searcher

[th3r1pp3r]

Leider scheint dies nicht zu funktionieren, da Basecom A(i) als eine variable sieht und mir nie die variable i in der for-schleife hochzählt

[Searcher]

Hallo,
dann müstest Du genauer erklären, was Du haben möchtest.

In meinem Beispiel ist A ein Array mit 10 Elementen. i wird durch das For-Next erhöht und indiziert mit A(i) bei jedem Schleifendurchlauf ein Element in A. Welche Bascom Version verwendest Du?

Gibt es Fehlermeldungen bei Dir oder enthalten die 10 Elemente des Arrays nicht die Nummern 1 bis 10?

Gruß
Searcher

[th3r1pp3r]

Guten Morgen Searcher,
ich benutze die Bascom Version 2.0.7.5 . Ich möchte bei jedem Durchgang der For-Next schleife meine variable ari in Zeile(ari) erhöhen um die nächste Zeile mit meiner Led's anzuschalten.

Vielen Dank für deine bemühungen

[Searcher]

Sorry, vielleicht hab ich nur ein Brett vorm Kopf und verstehe Dein Programm nicht. Helfen Dir zwei ineinander verschachtelte Scheifen. Nicht getestet:

'IDE: Bascom Demo Version 2.0.7.5
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 34
$crystal = 16000000

Dim A(10) As Byte
Dim B(10) As Byte
Dim i As Byte
Dim k As Byte

For k = 1 to 10
   B(k) = k
   For i = 1 To 10
     A(i) = i
   Next i
Next k

End

Hier wird B(1) auf 1 gesetzt. Danach werden wieder alle Elemente von A mit Zahlen von 1 bis 10 gefüllt
Dann wird B(2) auf 2 gesetzt. Danach werden die Elemente von A NEU mit den Zahlen von 1 bis 10 gefüllt
Dann (B3) .. usw.

Falls das nicht hilft: Warum nicht?



Gruß
Searcher

[th3r1pp3r]

Ahhh jetzt funktioniert es! Vielen Dank!
Mir hat der ausdruck Zeile(ar) = ar gefehlt.
Nun zählt er die Zeilen nach der reihe hoch wie gewünscht.

Vielen Dank nochmal