Zufallsgenerator vb

Hallo der Fragensteller schlägt zurück

wie kann man einen zufalls generator in vb 2005 einbringen ? also wenn man auf button klickt entwedr Form4 oder Form5 kommt

 

Ungetestet:

Code:

Dim rNumber as System.Random()
rNumber = New System.Random()
If rNumber.Next(0, 1) = 0 Then
 Form4.Show()
Else
 Form5.Show()
End If

 

Das stimmt Definnitif nicht Das Blau unterstrichene ist das blau gekrinkkelte

Ich bin auf 2 sachen umgestiegen
1. VB 2008
2. Form 1 und 2

 

Dummerweise kann ich's net testen, weil ich gerade unter Linux bin und Mono net richtig funktioniert ^^.

Code:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rNumber As System.Random
rNumber = New System.Random()
If rNumber.Next(0, 1) = 0 Then
Form2.Show()
Else
Form1.Show()
End If

Sollte jetzt aber funktionieren. (Ich versuch nochmal Mono zu installieren und probier's nochmal)

 

mhhh funz schon nur es öffnet nur form 2 ich hab die 0 auch schon mit 1 ausprobiert nur es funktioniert nich ich probier ma weiter aus

 

Ist es vllt. jetzt Zufall?

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rNumber As System.Random
rNumber = New System.Random()
If rNumber.Next(0, 2) = 0 Then
Form2.Show()
Else
Form1.Show()
End If

 

lol es funz net

Ich hab das gefhül das so was dahin geht weil nix funz aba randome funz auch net

 

Nee, das kann ja gar nicht funktionieren. Random.Next ist eine statische Funktion, der man den Minimal- und den Maximalwert übergeben kann, innerhalb sich die "Zufallszahl" befinden wird. Diese wird als Integer zurückgegeben. Deswegen muss auch auf eine Zahl hin geprüft werden.

Aber so funktioniert es:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rNumber As System.Random
rNumber = New System.Random()
If rNumber.Next(0, 2) = 0 Then
Form2.Show()
Else
Form1.Show()
End If
End Sub

 

Boah

Big Thank es Funz Perfekt

nur ich hab jtz ein problem wenn ich noch ein Form haben möchte
hab ich gedacht das kann funzen tut aba nit

Ich weiß ich nerv ich bin numa halt so

 

so jtz bekomm ich nur noch eine fehlermeldung

 

If prüft eine Bedingung, in den Else-Zweig wird gegangen, wenn die Bedingung nicht erfüllt ist. Was soll VB machen, wenn 2x "tue das, wenn die nächste Zufallszahl nicht 0 ist" vorhanden ist?
Entweder

Code:

Dim rNumber As System.Random
 rNumber = New System.Random()
 Dim intNum As Integer = rNumber.Next(0, 3) 
 If intNum = 0 Then
	Form2.Show()
 ElseIf intNum = 1 Then
	Form1.Show()
 ElseIf intNum = 2 Then
	Form4.Show()
 End If

oder (eleganter):

Code:

Dim rNumber As System.Random
 rNumber = New System.Random()
 Dim intNum As Integer = rNumber.Next(0, 3) 
 Select Case intNum
	Case 0:
		Form2.Show()
	Case 1:
		Form1.Show()
	Case 2:
		 Form4.Show()
 End Select

Eine Select Case-Konstruktion erspart dir also verschachtelte If's oder ElseIf's.

Übrigens: Wenn du die Namen der Form's bei dem Standart belässt, kann man leicht durcheinander kommen. Es ist besser, sie umzubennen in die Funktionen, die sie erfüllen .

 

D A N K E

*Close*

Dark Shadow of WoW