Thema Datum  Von Nutzer Rating
Antwort
Rot Anzahl der Lottozahlen festlegen
 01.03.2016 19:51:04 masemase
NotSolved

Ansicht des Beitrags:
Von:
masemase		 Datum:
01.03.2016 19:51:04		 Views:
1012		 Rating:
     
Antwort:
  Ja
Thema:
Anzahl der Lottozahlen festlegen

Ich habe eine Formel für die Ziehung der Lottzahlen gefunden,

möchte jetzt aber selber via inputbox festlegen, wie viele Zahlen gezogen sollen.

Mir zeitt es dann immer an, dass ein konstanter Ausdruck erwartet wird.

Hat jemand eine Idee, wie ich das lösen kann?

 

' Array für die gezogenen Lottozahlen
Dim Lottozahl(6) As Integer
' Sicherstellen, daß bei jedem Start wirklich
' eine neue Zufallszahl generiert wird
Randomize -Timer
 
' Insgesamt 6 Zufallszahlen ermitteln
Dim Ziehung As Integer
Dim i As Integer
Dim Result As Boolean
Dim Zahl As Integer
 
Ziehung = 0
While Ziehung < 6
  Ziehung = Ziehung + 1
  Do
    ' Zufallszahl 1..49
    Zahl = Int(49 * Rnd + 1)
 
    ' Prüfen, ob Zufallszahl bereits "gezogen"
    Result = True
    For i = 1 To Ziehung - 1
      If Lottozahl(i) = Zahl Then
        Result = False: Exit For
      End If
    Next i
  Loop Until Result = True
 
  Lottozahl(Ziehung) = Zahl
Wend
 
' Lottozahlen anzeigen
Dim Msg As String
 
Msg = "Die Lottozahlen lauten: "
For i = 1 To 6
  Msg = Msg & Format$(Lottozahl(i)) & "  "
Next i
MsgBox Msg

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Anzahl der Lottozahlen festlegen
 01.03.2016 19:51:04 masemase
NotSolved