[vb.net] einfache frage!

[T-Slide]

Hallo ich bin totaler vb.net anfänger naja jezz zu meiner frage:
Also ich habe einen Button und eine Textbox

jetzt will ich das wen ich auf "Button" klicke entweder "1123" oder "1241" oder..
steht ich habe es mal so versucht


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "123456" Or "12314" ...

hat aber nicht geklapt hat einer eine lösung?

[Gumball]

Versuchs mal mit


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim random As Short

Randomize()

random = Rand(1, 2)

Select random

Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"
End Select
End Sub

[T-Slide]

hmm ich habe jetzt



Dim random As Short

Randomize()

random = random(1, 2)

Select random

Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"

ausprobirt aber dan kam beim debuggen immer folgende fehlermeldungen


Fehler 1 Der Ausdruck ist kein Array oder keine Methode, und kann keine Argumentliste haben. C:\Dokumente und Einstellungen\ich\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\WindowsApplication1\Form1.vb 9 18 WindowsApplication1


und


Fehler 2 "Select Case" muss mit einer entsprechenden "End Select"-Anweisung enden. C:\Dokumente und Einstellungen\ich\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\WindowsApplication1\Form1.vb 15 13 WindowsApplication1


pls help!

[Gumball]

hmm ich habe jetzt


Code:

Dim random As Short

Randomize()

random = random(1, 2)

Select random

Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"

Shreib mal

End Select
dahinter,dann sollter Fehler 2 schonmal weg sein.

Zu Fehler 1:

Poste mal deinen GANZEN Source Code

[T-Slide]

thx fehler 2 ist weg

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim random As Short

Randomize()

random = random(1, 2)

Select random

Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"
End Select
End Sub
End Class

[Sawyer]

wegen dem ersten Fehler

dem wert random ist noch keine Funktion zugewiesen , kann von daher also gar nicht funktionieren

Public Function Rand(ByVal Low As Integer, ByVal High As Integer) As Integer
Rand = Int((High - Low + 1) * Rnd()) + Low
End Function

und hier müsste es heißen

random = Rand(1, 2)

MfG

[T-Slide]

sry the papst deine erklärung verstehe ich nicht aber trozdem thx
ich bin jetzt immernoch an dem problem


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim random As Short

random = Rand(1, 2)

Select random

Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"
End Select
End Sub
End Class


Fehler 1 Der Name "Rand" wurde nicht deklariert. C:\Dokumente und Einstellungen\ich\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\WindowsApplication1\Form1.vb 6 18 WindowsApplication1


wie soll ich jetzt den befehl Rand deklairen oder ist der befehl überhaupt richtig?

[Gumball]

Public Function Rand(ByVal Low As Integer, ByVal High As Integer) As Integer
Rand = Int((High - Low + 1) * Rnd()) + Low
End Function

mach das mal i Source nach gaaaaaanz oben oder unten , damit es deinen source nich durcheinander bringt ;)

[T-Slide]

danke Gumbal jetzt geht es hat mich echt weiter gebracht!

[Gumball]

Und wenn du mehrere Cases hast:

Beispiel

10 Cases

Dann musse bei Rand in den Klammern schreiben (1, 10) , you know ? ;)

[Sawyer]

wenn du das nicht verstehst solltest du es vll lassen

ich bin mir auch nicht wirklich sicher ob ihr beide den source versteht , den Gumbal hat nichtmal die Funktion gepostet um eine zufallszahl in einem vordefinierten Bereich zu generieren

kann mir nicht vorstellen das er das vergessen hat , wenn man gut vb kann und den source versteht sollte das einem schon auffallen

und @ T-Slide

kurz gesagt:

die Funktion Rand dient dazu eine Zufallszahl zu generieren

du weist dann der Funktion rand einen wert zu , in dem Fall nämlich 1,3 das heißt also es wird eine Zahl von 1-3 generiert

danach wird ein Case mit der Zahl gewählt

somit steht in deiner Textbox immer ein anderer wert

hoffe du hast es wenigstens verstanden , denn der source allein bringt einem nicht viel

MfG

[T-Slide]

ja thx für deine hilfe habe es jetzt begriffen und auch erfolgreich ausgefürt!