VB 5/6-Tipp 0472: Zufallszahlen in vorgegebenen Grenzen generieren II
von Benjamin Wilger
Beschreibung
Diese Funktion verhält sich, wenn keine Parameter angegeben werden, genauso wie das Original. Nur kann man hiermit nicht nur den Anfangs und Endwert angeben, es ist auch möglich, die Zahl (richtig) zu runden.
Schwierigkeitsgrad: | Verwendete API-Aufrufe: keine | Download: |
'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 --------------
Tipp-Kompatibilität:
Windows/VB-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() |
VB5 | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() |
VB6 | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() |
Ihre Meinung
Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.
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.
Kommentar von rouven am 02.09.2006 um 15:02
eine frage bin ein n4b in vb aber was macht die check box?
Kommentar von speedygonzales am 17.06.2004 um 08:54
Bei mir gehts so net.. was kann ich tun.??
Kommentar von am 18.04.2004 um 11:36
Auf den ersten Blick sehe ich, dass hier die Funktion int() zum Runden verwendet wird. Da immer abgerundet wird, wurde das mit +0.5 ausgeglichen. Wenn mans mit cint() macht, wird gleich richtig gerundet.