[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 ?