Sorry, vielleicht hab ich nur ein Brett vorm Kopf und verstehe Dein Programm nicht. Helfen Dir zwei ineinander verschachtelte Scheifen. Nicht getestet:
Hier wird B(1) auf 1 gesetzt. Danach werden wieder alle Elemente von A mit Zahlen von 1 bis 10 gefülltCode:'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
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








Hoffentlich liegt das Ziel auch am Weg
Zitieren

Lesezeichen