Public Class form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
        ListBox1.Text = GibSechsZahlen(ListBox1.Text)
 
 
    End Sub
 
 
    Private Function GibSechsZahlen() As Collection
 
 
        ' Initialize den random-number generator.
        Randomize()
        ' Generiere zufällige Zahl zwischen 1 und 6.
        Dim zahl As Integer
        Dim i As Integer
        Dim cLottoZahlen As New Collection                                  _
          'Mit einem Collection-Objekt von Visual Basic lässt sich auf eine  
        For i = 1 To 6                                                      _
        'zusammenhängende Gruppe von Elementen bequem in Form eines einzelnen 
        ' Objekts verweisen.
 
 
            Dim bbadinteger As Boolean = False
            zahl = GibLottoZahl()
            MessageBox.Show("LOTTOZAHL:" & zahl)
 
            If cLottoZahlen.Count > 0 Then
                Dim j As Integer
                For j = 1 To cLottoZahlen.Count
                    If cLottoZahlen.Item(j) = zahl Then
                        bbadinteger = True
                        Exit For
                    End If
                Next j
            End If
 
 
            If bbadinteger = True Then
                'zurueck zum Anfang, damit wir eine neue Zahl bekommen!
                i = i - 1
            Else
                cLottoZahlen.Add(zahl)
            End If
 
        Next i
 
        Return cLottoZahlen
 
    End Function
 
 
    Private Function GibLottoZahl() As Integer
        Return CInt(Int((49 * Rnd()) + 1))
    End Function
 
End Class

ListBox1.Text = GibSechsZahlen(ListBox1.Text)

-----

-.-

Beitrag wurde zuletzt am 06.10.10 um 10:27:03 editiert.