Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0472: Zufallszahlen in vorgegebenen Grenzen generieren II

VB 5/6-Tipp 0472: Zufallszahlen in vorgegebenen Grenzen generieren II

 von Benjamin Wilger

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,09 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Projekt1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Kontrollkästchen-Steuerelement "Check1"
' Steuerelement: Textfeld "Text2"
' Steuerelement: Textfeld "Text1"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Beschriftungsfeld "Label4"
' Steuerelement: Beschriftungsfeld "Label3"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label1"
'Code von Benjamin Wilger
'Benjamin@ActiveVB.de
'Copyright (C) 2001
Option Explicit

Function RndEx(Optional ByVal Min As Long = 0, Optional ByVal Max As Long = 1, _
    Optional ByVal DoRound As Boolean = False, Optional DoRandomize As Boolean) As Single
    Dim X As Single
    
    If DoRandomize Then Randomize
    
    X = Rnd * (Max - Min) + Min 'Zufallszahl berechnen
    If DoRound Then X = Int(X + 0.5) 'Runden

    RndEx = X
End Function

Private Sub Command1_Click()
    Label1.Caption = Format(RndEx(Val(Text1.Text), Val(Text2.Text), _
        Check1.Value = vbChecked, False), "#,##0.00##")
End Sub

Private Sub Form_Load()
    Randomize
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 3 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.