[vb.net] einfache frage!

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

Code:

---

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?

Versuchs mal mit

Code:

---

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

---

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"

---

ausprobirt aber dan kam beim debuggen immer folgende fehlermeldungen

Code:

---

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

Code:

---

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!

Zitat:

---

hmm ich habe jetzt

Code:

---

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

Code:

---

End Select

---

dahinter,dann sollter Fehler 2 schonmal weg sein.

Zu Fehler 1:

Poste mal deinen GANZEN Source Code

thx fehler 2 ist weg

Code:

---

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

---

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

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

Code:

---

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

---

Code:

---

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?

Code:

---

    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 ;)

danke Gumbal jetzt geht es hat mich echt weiter gebracht!

Und wenn du mehrere Cases hast:

Beispiel

10 Cases

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

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

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