Basic Frage

[Reaver1988]

Hi
folgende Ausgangssituation:
habe 9 casinos die 30 tage auf haben. An jedem tag gibt es ein Vorgegebenen Gewinn oder Verlust für jedes Casino.
Die casinos sind so angeordnet:

1 2 3
4 5 6
7 8 9


Jetzt habe ich eine Matrix die mir sagt wie ich zu den Casinos gehen kann.
WEnn ich bei Casino 1 Stehe kann ich:
Bei Casino 1 bleiben oder zu Casino 2 oder 4 gehen(die anderen sind nicht möglich da ich dann ja eins überspringen müsste).

Da dieses eine Aufgabe fürs Praktikum ist habe ich mir gedacht arbeite ich(unsinnigerweise) mit datenbanken(MYSQL). Habe jetzt folgendes Programmiert:

rs=mod_Utilities.DBRead("SELECT * FROM `tbl_matrix` WHERE `M_MatrixCasinoNr`='" +str(cdbl(eF_AktuellesCasino.text))+"' AND `M_MatrixOk`=1")
rs.MoveFirst

Casino1=cdbl(rs.field("M_MatrixSpalte").StringValue)
rs.MoveNext
Casino2=cdbl(rs.field("M_MatrixSpalte").stringvalue)
rs.MoveNext
Casino3=cdbl(rs.field("M_MatrixSpalte").stringvalue)
rs.MoveNext
Casino4=cdbl(rs.field("M_MatrixSpalter").stringvalue)
rs.MoveNext
Casino5=cdbl(rs.field("M_MatrixSpalte").stringvalue)
rs.MoveNext


For j=1 to cdbl(pM_TagBis.text) - cdbl(pM_TagVon.text)+1
lB_Casino.addrow str(i)
i=i+1
next
Gewinn=0
For i=1 to lB_Casino.ListCount-1
rs=mod_Utilities.DBRead("SELECT * FROM `tbl_casino` WHERE `C_CasinoNr`='" +str(Casino1)+"' AND `C_Tag` ='"+lB_Casino.cell(i,0)+"'")
rs.MoveFirst
if cdbl(rs.field("C_CasinoGewinn").StringValue)>Gewinn then
Gewinn=cdbl(rs.field("C_CasinoGewinn").StringValue)
end if
next

Verfeinert wird später noch alles. mod_utilities.DBRead ist eine von mir geschriebene Methdoe zum SQL Strings übergeben und zum Datenbank connecten.
mein Problem ist jetzt ich hab in den Variablen Casino1,2,3,4,5 die Nr der Casinos drinne stehen in die ich als nächstes gehen dürfte(falls ich nur in 3 gehen darf steht in casino4 und 5 halt ne 0).
Jetzt wäre der nächste schritt zu vergleichen was die Casinos in den Variablen für einen Gewinn oder Verlust an dem bestimmten tag haben. Der Größere Wert soll dann in die Variable Gewinn geschrieben werden und später auch in einer Listbox auf dem Formular angezeigt werden.
Die Problematische Stelle hab ich mal fett markiert. Das kann so ja nicht bleiben er soll irgendwie alle 5 variablen da reinpacken.....
Hab mir sowas vorgestellt:

for i=1 to 5
casinoi......
next
aber so kann man das natürlich nicht schreiben. Gibt es da eine Möglichkeit oder hat jemand eine Idee?
Vielen dank schon mal für eure Antworten


€: komm ich mit sowas in die richtige Richtung?

dim a1,a2,a3,a4,a5,i as integer

a1=1
a2=2
a3=3
a4=4
a5=5


for i=0 to 5
msgbox a+i
next

Dass das so nich geht das weiß ich aber irgendwie in der art?^^

 

[Cyrus791]

Ich glaube, Du müsstest hier rein -> http://www.forumdeluxx.de/forum/forumdisplay.php?f=24

 

[Reaver1988]

natürlich xD sry habs nich gesehen kann ma wer verschieben?^^

€: könnt auch closen habs

Dim Casino As String
Dim i As Integer

For i = 1 to 5
Casino = "Casino" + Str(i)
Msgbox Casino
Next i