Random Counter

    • VB6

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von asconblake.

      Random Counter

      Hallo.

      Ich bin zwar schon drauch hingewiesen worden, dass dieser sub sehr uneffitient sei aber für sagen wir bis 100 zahlen dürfte er ausreichen.

      Es geht um die Aufgabenstellung, zahlen von x bis y in einer zufälligen reihenfolge zu generieren:

      Visual Basic-Quellcode

      1. Public Sub randcount(vcount As Variant, start1 As Long, stop1 As Long)
      2. ''''''''''''''
      3. ' by C.Hackl '
      4. ''''''''''''''
      5. Dim i As Long
      6. Dim j As Long
      7. Dim rand As Long
      8. Dim count As Long
      9. Randomize
      10. 'Länge ermitteln:
      11. count = stop1 - start1
      12. 'Zahlen von 0 bis Länge im Zufall abzählen:
      13. For i = 0 To count
      14. rand = Rnd * count
      15. 10: If rand >= (count + 1) Then rand = 0 Else rand = rand + 1
      16. For j = 0 To count
      17. If rand = vcount(j) Then GoTo 10
      18. Next j
      19. vcount(i) = rand
      20. Next i
      21. 'Zahlen normalisieren (wenn start bei 0 = überfüssig):
      22. For i = 0 To count
      23. vcount(i) = vcount(i) + start1
      24. Next i
      25. End Sub


      Quellcode

      1. vcount = Array in den die Zahlen geschrieben werden sollen
      2. start1 = Bei der Zahl x soll losgezählt werden
      3. stop1 = Mit inklusive dieser Zahl soll aufgehört werden
      5. Aufruf: in eine Zeile einer Anweisung "Call randcount randcount(a, x, y)" schreiben,
      6. wobei a, y und x für die jeweiligen werte stehen.


      Grüße C.Hackl

    Facebook