vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Problem mit Zufallszahlengenerator 
Autor: rockitatvb
Datum: 03.05.14 12:49
Hallo Leute.

ich muss für die Schule in vb ein Lottoprogramm schreiben. Soweit ist alles fertig, ich habe bloß ein problem, und zwar das teilweise die selben zahlen generiert werden.
Ich habe ein Array Zufall(5) in das die generierten Zahlen geschrieben werden und dann abgeglichen und in ein Label geschrieben werden. Könnt ihr mir helfen? Hier der Quellcode dazu. 
Zufall(0) = Int(49 * Rnd()) + 1                                        
        Zufall(1) = Int(49 * Rnd()) + 1
        Zufall(2) = Int(49 * Rnd()) + 1
        Zufall(3) = Int(49 * Rnd()) + 1
        Zufall(4) = Int(49 * Rnd()) + 1
        Zufall(5) = Int(49 * Rnd()) + 1
Soweit die Genrierung jetzt der Vergleich 

       For i = 0 To 5
            For y = 0 To 5
                If i <> y Then
nochmal:            If Zufall(y) = Zufall(i) Then
                        Zufall(i) = Int(49 * Rnd()) + 1
                        If Zufall(i) = Zufall(y) Then GoTo nochmal
                    End If
                End If
            Next
        Next
Dabei scheint leider nicht jede stelle im Array mit jeder anderen abgeglichen zu werden.
Ich gebe diese Zahlen dann in Labeln aus 
  Array.Sort(Zufall)                                                     
        Label7.Text = Zufall(0)                                                 
        Label8.Text = Zufall(1)
        Label9.Text = Zufall(2)
        Label10.Text = Zufall(3)
        Label11.Text = Zufall(4)
        Label12.Text = Zufall(5)
und vergleiche diese dann so 
   If Label7.Text = Label8.Text Then           
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label7.Text = Label9.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label7.Text = Label10.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label7.Text = Label11.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label7.Text = Label12.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label8.Text = Label9.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label8.Text = Label10.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label8.Text = Label11.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label8.Text = Label12.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label9.Text = Label10.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label9.Text = Label11.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label9.Text = Label12.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label10.Text = Label11.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label10.Text = Label12.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
        If Label11.Text = Label12.Text Then
            MsgBox("WARNUNG")
            Warnung = Warnung + 1
            Label4.Text = Warnung.ToString
        End If
Wenn einer mir Tipps geben kann Wäre ich wirklich sehr dankbar !
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem mit Zufallszahlengenerator2.523rockitatvb03.05.14 12:49
Re: Problem mit Zufallszahlengenerator1.745Manfred X03.05.14 14:04
Re: Problem mit Zufallszahlengenerator1.697rockitatvb03.05.14 14:15
Re: Problem mit Zufallszahlengenerator1.741Manfred X03.05.14 14:50
Re: Problem mit Zufallszahlengenerator1.800rockitatvb03.05.14 15:02
Re: Problem mit Zufallszahlengenerator1.671Manfred X03.05.14 15:18
Re: Problem mit Zufallszahlengenerator1.668Franki04.05.14 01:28
Re: Problem mit Zufallszahlengenerator1.661GriZz03.05.14 15:40
Re: Problem mit Zufallszahlengenerator1.644Manfred X03.05.14 15:46
Re: Problem mit Zufallszahlengenerator1.702rockitatvb07.05.14 10:42
Re: Problem mit Zufallszahlengenerator1.702Manfred X07.05.14 11:19
Re: Problem mit Zufallszahlengenerator1.641Franki08.05.14 00:05
Re: Problem mit Zufallszahlengenerator1.718Kuno6015.05.14 16:02

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel