Delphi Code in VBA übertragen - Lotto

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von roddy.

    Delphi Code in VBA übertragen - Lotto

    Hallo Forum,

    nach langer Zeit beschäftige ich mich mal wieder mit VBA und wollte ein kleines Lottoprogramm,
    welches eine Lottozahl erstellt und diese dann per Timer so lang wieder erstellt bis die erste Zahl erreicht wurde;
    das kann einige Millionen Versuche dauern - VBA hat ja keinen Timer, deswegen wollte ich erstmal eine Reihe ziehen.

    mein Delphi Code:

    Visual Basic-Quellcode

    1. var
    2. Form1 :TForm1;
    3. num :array[1..49] of byte;
    4. zahlen :array[1..6] of byte;
    5. ziehung :array[1..6] of byte;
    6. range :byte = 49;
    7. tries :integer;
    9. implementation
    11. {$R *.dfm}
    13. procedure TForm1.FormCreate(Sender: TObject);
    14. var i,z:byte;
    15. begin
    16. tries := 0;
    17. randomize();
    18. for i := 1 to 49 do num[i] := i;
    19. for i := 1 to 6 do
    20. begin
    21. z := random(range) + 1;
    22. while num[z] = 0 do z := random(range) + 1;
    23. num[z] := 0;
    24. ziehung[i] := z;
    25. end;
    26. edit1.text := '';
    27. for i := 1 to 6 do edit1.text := edit1.text + inttostr(ziehung[i]) + ', ';
    28. end;


    mein VBA Code bisher:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim intNum(49) As Integer
    3. Dim intZahlen(6) As Integer
    4. Dim intZiehung(6) As Integer
    6. Dim bytRange As Byte
    8. Private Sub btnZiehung_Click()
    9. Dim i, i2, i3, z As Byte
    11. Randomize
    12. For i = 1 To 49
    13. intNum(i) = i
    14. Next i
    15. For i2 = 1 To 6
    17. z = Rnd(49) + 1
    19. While intNum(z) = 0
    20. z = Rnd(49) + 1
    21. intNum(z) = 0
    22. intZiehung(i) = z
    24. Wend
    25. Next i2
    27. edit1.Text = ""
    28. For i3 = 1 To 6
    29. edit1.Text = edit1.Text + Str(intZiehung(i3)) + ", "
    30. 'raus kommt hier nur 0, 0, 0, 0, 0, 0
    31. Next i3


    Erstmal stand ich vor dem Problem, das eine Variable nicht öfters in Schleifen verwendet werden kann.
    Das hab ich so gelöst in dem ich einfach mehrere Schleifenvariablen nutze.
    Weiterhin bin ich mir nicht sicher, ob die Bedingung: While intNum(z) = 0 richtig ist, das ein "=" in VBA doch eine Zuweisung ist?

    Wenn ihr mir helfen könnt wäre ich euch sehr dankbar.

    Ob ein Push nach 9 Stunden schon OK ist, weiß ich nicht.

    Nichtsdestotrotz hier einige Bemerkungen zu deinem Code:

    1) Du hast Recht. Man kann eine Laufvariable nicht innerhalb einer Schleife mit derselben Laufvariable nochmal verwenden. Dies geht also nicht:

    Visual Basic-Quellcode

    1. For i = 1 To 49
    2. For i = 1 To 6
    3. ...
    4. Next i
    5. Next i

    Aber außerhalb der Schleife kann man sie wieder verwenden, wenn man den Wert der Variablen nicht weiter benötigt. Dies geht also:

    Visual Basic-Quellcode

    1. For i = 1 To 49
    2. ...
    3. Next i
    4. For i = 1 To 6
    5. ...
    6. Next i


    Und so wie ich das sehe, ist bei dir zweiteres der Fall.


    2) Rnd(49) hat als Ergebnis einen Wert zwischen 0 und 1. Um eine Zahl zwischen 1 und 49 zu bekommen, musst du statt "Rnd(49) + 1" dies schreiben: "Int(49 * Rnd + 1)". (Int, damit die Nachkommastellen abgeschnitten werden) Für näheres über das Argument der Rnd-Funktion lese dir bitte den entsprechenden Abschnitt in der VB-Hilfe durch.


    3) Ich vermute, dass du in der While-Schleife nur die Zeile mit "z = ..." wiederholen lassen willst. Hierzu ein Tipp: Im vorliegenden Fall würde ich dir eine fußgesteuerte Schleife empfehlen. Dadurch kannst du dir das "z = ..." vor der Schleife sparen:

    Visual Basic-Quellcode

    1. Do
    2. z = Int(49 * Rnd + 1)
    3. Loop While intNum(z) = 0
    4. intNum(z) = 0
    5. intZiehung(i2) = z


    4) Du hast bei "intZiehung(i) = z" i verwendet, obwohl deine Laufvariable in dieser Schleife i2 ist.

    5) Noch ein Tipp: Wenn du willst, kannst du auch die untere Grenze bei der Deklaration eines Arrays angeben:

    Visual Basic-Quellcode

    1. Dim intNum(1 To 49) As Integer

Facebook
Telefonspende