[Edit] Anfängerfragen

[Befedo]

Gute Idee...

Hab mir mal eine neuere Version (Demo) runtergeladen und nun kommt der Fehler in Verbindung mit Fehler 22 "Out of SRAM space". Ist der Speicher jetzt Defekt oder wird da was falsch Adressiert?

Danke für eure Hilfe

[Bammel]

ändere doch mal die array größe.. testweise auf array(10)

[PicNick]

Folgendes kann ich fehlerfrei übersetzen:

$regfile = "m32def.dat"
$crystal = 20000000    

Dim X As Integer
Dim Y As Integer

Dim Array(256) As Integer

   Array(y) = X

Do

Loop


End

Indexwert =0 würde er erst zur Laufzeit merken

Falsches "Y" bringt ev. index out of range , aber nur, wenn es eine konstante ist, (sonst weiss er's ja nicht)

Falsches "Z" bringt ev. ...doesnot match ....

Assignment Error bringt er nur, wenn "Array" nicht definiert ist (z.B. schreibfehler --> s.o)

[Befedo]

Hallo Jungs...

Nachdem das mit dem Array geklärt ist, wollt ich nun noch eine Frage klären. Hab deshalb den Thread mal umbenannt.

Und zwar möchte ich mit einem If... Then... Konstruktor ein Ereignislößen, wenn ein Bestimmter Wert in einem Array vorhanden ist.

Das sieht bei mir so aus:

Declare Sub AuszuführenderSub()
Dim Array(256) As Integer    'Diesmal mit zwei R^^


... 'Das Array wird mit Werten gefüllt

If Array(1) = 1 Then
     Call AuszuführenderSub 'Wird nicht ausgeführt
End If

Die If Bedingung ergibt nicht True, weis jemand warum bzw. wie man es sonst lösen könnte?

Danke für eure Hilfe

[Thomas$]

ok du willst wissen ob in dem array irgendwo die 1 steht oder an 1. stelle array(1)?
die sub geht?
array(1)=1 steht bei "'Das Array wird mit Werten gefüllt "?
dann sollte das program gehen
wenn du wissen willst ob ein ein bestimmter wert überhaupt im array vorhanden ist dann mus du noch eine Zählschleife drum rum machen
edit: war noch ein fehler drin jetzt sollte es gehen
Declare Sub AuszuführenderSub()
Dim Array(256) As Integer 'Diesmal mit zwei R^
Dim var as integer

'Das Array wird mit Werten gefüllt
...
....
For var=1 to 256
If Array(var) = 1 Then
dein auszuführendes ereigniss oder die sub
End If
next ' next var oder nur next weis ich grad nicht ganz sicher