Zufalls Zahl von bis erstellen

Question

Hallo zusammen,

ich habe folgendes geschieben. Je nach Button den ich klicke sollen Zufalls Zahlen ermittelnt werden.

 

Private Sub Btn_Zufall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Zufall.Click, _
Btn_Zehn.Click, Btn_Zwanzig.Click, Btn_Dreizig.Click
sender = sender.name ' ermittelt den Namen des Button der Click
Dim Zufall_Von As Integer = 0 ' kleinste Wert der Zufalls Zahl
Dim Zufall_Bis As Integer = 0 ' grӇte Wert der Zufalls Zahl
Select Case sender
Case "Btn_Zufall"
Zufall_Von = 1 ' kleinste Wert der Zufalls Zahl
Zufall_Bis = 100 ' grӇte Wert der Zufalls Zahl
Case "Btn_Zehn"
Zufall_Von = 1
Zufall_Bis = 10
Case "Btn_Zwanzig"
Zufall_Von = 11
Zufall_Bis = 20
Case "Btn_Dreizig"
Zufall_Von = 21
Zufall_Bis = 30
End Select
MsgBox(Zufall_Von & " " & Zufall_Bis) ' bis hier kommen die Werte richtig an
Randomize()
Tb_ZZ.Text = CStr(Int((Zufall_Bis * Rnd()) + Zufall_Von)) ' aber hier setzt er es nicht richtig um
End Sub

Bei den ersten beiden Select funktioniert es.
Jedoch bei der 11 -20 und 21-30 funktioniert es nicht mehr.
Der Wert "Zufall_bis" wir einfach überschritten.

Wo liegt denn mein denkfehler ?

danke 

Answer 1

Hallo Bernd,

warum benutzt Du nicht die System.Random - Klasse mit der der Next-Methode?

Dim Zufall As Random
Dim Zufall_von As Integer
Dim Zufall_bis As Integer
Dim returnValue As Integer

returnValue = Zufall.Next(Zufall_von, Zufall_bis)

Schöne Grüße
Oliver

Answer 2

Hallo Oliver,

weil ich die noch nicht kenne.

Dann versuche ich mal deine Variante.

lieben dank
bernd 

OK habe ich versucht, und dann kommt folgender fehler

Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
und 
Erstellen Sie eine Objektinstanz mit dem Schlüsselwort NEW

Bernd

OK
den habe ich auch gefunden
Dim Zufall As Random
sondern
Dim Zufall As NEW Random

vielen dank
Bernd

 

Answer 3

Sorry war ein Schreibfehler.

Schöne Grüße
Oliver

Answer 4

Hollo Oliver,

da gibt es kein sorry.
Deine Hilfe war doch super.
Somit habe ich goch gleich zwei sachen dazu gelehrnt.

Ich habe ein wenig mit F1 gearbeitet und mich durch gefummelt.
und klapt doch.


Spitze
und super vielen dank