Dies bedeutet, daß dieser Button automatisch gedrückt wird, wenn der User die Enter-Taste drückt. Und natürlich soll auch dieser Button beim Start erstmal unsichtbar sein (visible=False). Jetzt müssen wir nur unsere Ergebnis-Abfrage von unserem Ergebnis_Change- in das Fertig_Click-Ereignis verschieben:
Private Sub Fertig_Click()
If = "5" Then
MsgBox "Richtig! " Else
MsgBox "Leider falsch! " End If
End Sub
Und im Unterprogramm "Zaehlen" müssen wir auch dieses Control erstmal sichtbar machen:
Sub Zaehlen()
sible = True 'Frage anzeigen
For i = 1 To 5 '5 Kugeln anzeigen
KugelX(i). Visual basic zufallszahl code. Visible = True '1 abziehen, weil Index mit 0 beginnt! Next
sible = True 'Antwortfeld anzeigen
sible = True 'Fertig-Button anzeigen
tFocus 'Cursor ins Textfeld "Ergebnis" setzen
Damit der Cursor beim Start auch gleich an der richtigen Stelle steht, habe ich hier noch die SetFocus-Methode auf das Textfeld angewandt. Jetzt aber zur versprochenen Abwechslung! Es wäre recht mühsam und langweilig, wenn wir alle zu "erratenden" Zahlen vorher bestimmen und programmieren müßten.
- Visual basic zufallszahl code
- Visual basic zufallszahl programming
- Visual basic zufallszahlen erzeugen
Visual Basic Zufallszahl Code
2022, 12:01
# 15
Zitat: von EarlFred
Das mit der Arbeit ist richtig --- Danke
Visual Basic Zufallszahl Programming
In diesem Makro wird der Bereich, in welchem die Zufallszahl liegen soll, in der Zelle A1 festgelegt. Die Ausgabe der Zufallszahl wird dann in der Zelle A2 erzeugt. Wenn der Bereich sich nie ändert, können Sie diesen auch direkt in im Makro vorgeben. Das fertige Makro lautet:
Sub zufallszahl()
bereich = Range("a1")
zufall = Int((bereich * Rnd) + 1)
Range("a2") = zufall
End Sub
Wenn Sie dieses Makro noch einer Schaltfläche zuweisen, wird jeweils nach dem Klicken eine neue Zufallszahl in der Zelle A2 erzeugt. PS: Qualitätsmanagement ist uns wichtig! VBA - Zufallszahl zwischen 0 & 9 - MS-Office-Forum. Bitte teilen Sie uns mit, wie Ihnen unser Beitrag gefällt. Klicken Sie hierzu auf die unten abgebildeten Sternchen (5 Sternchen = sehr gut):
PPS: Ihnen hat der Beitrag besonders gut gefallen? Unterstützen Sie unser Ratgeberportal:
Visual Basic Zufallszahlen Erzeugen
Dies macht man, indem man (in den oberen DropDown-Listen) unter General > Declare (stets am Anfang des Moduls) die Variable mit
Dim x 'aktuelle Zufallszahl modulweit bekannt machen
deklariert. Dim ist eine Abkürzung für "Dimension", wir werden ihre Bedeutung und weitere Möglichkeiten später noch näher kennenlernen. Wenn wir jetzt unser Programm laufen lassen, kann unser Anwender bis zum Ermüden Zählen üben...
Beispielprojekt laden
p. s. : Laßt das Programm mehrmals von Neuem ablaufen und schreibt Euch mal die Zahlen auf..., fällt Euch was auf? VB 5/6-Tipp 0351: Zufallszahlen in vorgegebenen Grenzen generieren - ActiveVB. © Copyright 1998-2000 hling
Weitergabe und Druck (auch in Teilen, mit Ausnahme von Privatgebrauch) ohne ausdrückliche Genehmigung der Autorin untersagt.
Beschreibung:
Die Rnd Funktion liefert eine Zufallszahl zwischen 0 und 1 zurück, die bis zu 8 Nachkommastellen aufweist. Den Inhalt der Folge kostenlos als PDF einsehen Rnd Funktion Beispiel 1
Sub Beispiel1()
'Zufallszahl zwischen Null und Eins (mit bis zu 8 Nachkommastellen)
MsgBox Rnd 'Liefert bspw. Zufallszahlen ermitteln - Excel-Inside Solutions. 0, 5751838
End Sub
Rnd Funktion Beispiel 2
Sub Beispiel2()
'Zufallszahl zwischen Null und Zehn (mit bis zu 7 Nachkommastellen)
MsgBox (Rnd * 10) 'Liefert bspw. 2, 844803
Rnd Funktion Beispiel 3
Sub Beispiel3()
'Zufallszahl zwischen Eins und Elf (ohne Nachkommastellen)
MsgBox Int(Rnd * 10 + 1) 'Liefert bspw. 2