 |
| |
ให้VB สุ่ม คำใน textbox ตามที่เราคั่นไว้ ทำไง เช่นใน textbox เขียนว่าtest1,test2,test3,test4,test5 ให้มันสุ่มมาอย่างได้อย่างหนึ่ง ทำไงอะ |
| |
 |
|
|
 |
 |
|
Code (VB.NET)
Private Sub btnRandom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRandom.Click
Dim Test() As String = {"Test1", "Test2", "Test3", "Test4", "Test5", "Test6"}
Dim R1 As New Random
Dim Y As Integer = R1.Next(0, Test.Length)
TextBox1.Text = Test(Y)
End Sub
|
 |
 |
 |
 |
| Date :
2010-03-17 00:21:44 |
By :
msorawich |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Dim Test() As String = {"Test1", "Test2", "Test3", "Test4", "Test5", "Test6"}
คืออะไรครับ
ใน textbox นี้ผมไม่รู้จะใส่ไรบ้างไม่ใช่แค่ test1 test2
|
| |
|
|
| |
| Date :
2010-03-17 09:56:24 |
By :
makud |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เป็น Array ครับ โดยกำหนดค่า "Test1", "Test2", "Test3", "Test4", "Test5", "Test6" ไปเก็บไว้ที่
Array แทน ที่จะไปเก็บ ใน Text box แล้วพอกดปุ่ม มันก็ จะ Random ค่า มาแสดง
|
| |
|
|
| |
| Date :
2010-03-17 13:12:03 |
By :
msorawich |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
จขกท. จะสุ่มเอาคำที่ขั้นด้วย "," ใช่ไหมครับ
ผมแนะนำได้แค่ เอาคำที่ถูกขั้นนะครับ
Code (VB.NET)
'สมมุติว่ามี TextBoxt1.Text ="test1,test2,test3,test4,test5"
Dim StrText As String
StrText = TextBoxt1.Text.ToString.Split(",")
For i As Int16 = 0 To StrText.Lenght - 1
MessageBox.Show (StrText(i))
Next i
มันก็จะวนลูปแสดงค่า
test1
test2
test3
test4
test5
ส่วนคำสั่ง Random ว่าจะแสดงค่าไหนดู ลองไปคิด logic เองนะครับ 
|
| |
|
|
| |
| Date :
2010-03-17 13:17:12 |
By :
madoadza |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมทำได้ละเอาของพี่ 2 คนมา
ดัดแปลง
Code (VB.NET)
Dim Test() As String = Split(TextBox1.Text, ",")
Dim R1 As New Random
Dim Y As Integer = R1.Next(0, Test.Length)
MessageBox.Show(Test(Y))
|
| |
|
|
| |
| Date :
2010-03-17 14:35:15 |
By :
makud |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
