ขอแนวคิดการ random เช่น random 1-200 ใน 1 ก็มีอีก 10 ตัว ถ้าเต็มแล้วให้ random ตัวที่ยังไม่เต็มต่อครับ
คิดว่าปัญหาที่เจอ คือ สุ่มแล้วได้ค่าเดิม ใช่ไม๊ครับ
Date :
2017-02-28 16:56:49By :
lamaka.tor
สุ่ม 1-200 ถ้าใน 1 มีค่า 10 ให้สุ่ม 2-200 ถ้า 2 มีค่า 10 ให้สุ่ม 3-200 ไปเรื่อย ๆ แต่ถ้า 1 ลดเหลือ 3 ให้มาเริ่ม 1 ใหม่ ให้เต็ม 10 หมายความว่าต้องเพิ่มไปอีก 7 พอครบแล้วให้ไปที่ 4 เพราะ 3 เต็ม 10 ไปแล้ว ท่านผู้อ่านเข้าใจที่ผมพูดใช่ไหมครับ ผมคิดไม่ออกว่าจะเริ่มต้น code ยังไงใช้คำสั่งประมาณไหน รบกวนด้วยครับ
Date :
2017-03-03 09:35:35By :
sakkapong
ลองแบบนี้ดีไม๊ครับได้ ตัวเลขเดิม 3 ครั้ง ให้ถือว่าตัวเลขนั้นเต็ม
Date :
2017-03-03 09:49:44By :
lamaka.tor
สุ่มมาให้ดูได้ไหมครับ
Date :
2017-03-03 11:07:44By :
fonfire
สุ่มเลขอะไรก็ได้จำนวนตั้งแต่ 1-200
Date :
2017-03-03 11:10:06By :
fonfire
ผมว่าซื้อหวยยังมีโอกาศถูกมั่งนะเนี๊ยะ 5555
Date :
2017-03-03 11:27:37By :
lamaka.tor
Code (VB.NET) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim numbers = Enumerable.Range(1, 5).ToList()
Dim RandomClass As New Random()
Dim RandomIndex As Integer
For counter As Integer = 1 To 10
RandomIndex = RandomClass.Next(0, numbers.Count)
MsgBox(numbers(RandomIndex))
numbers.RemoveAt(RandomIndex)
Next
End Sub
Date :
2017-03-03 11:37:05By :
sakkapong
Dim numbers = Enumerable.Range(1, 5).ToList()
Date :
2017-03-03 11:40:54By :
sakkapong
วิธีสุ่มไม่ให้ซ้ำ ผมพอรู้น่ะครับว่าต้องทำยังไง
Date :
2017-03-03 12:07:46By :
fonfire
คือแบบนี้นะครับ เลข 1-200 คือช่องในการเก็บสินค้า มีทั้งหมด 200 ช่อง แต่ละช่องเก็บสินค้าได้ 10 ชิ้น ถ้าช่องไหนยังเก็บไม่ถึง 10 ชิ้น ให้สามารถเก็บเพิ่มได้ ช่องไหนเต็มแล้วให้ข้ามไปไม่ต้องทำอะไรเพราะมันไม่มีที่จะใส่แล้วครับเพราะรับได้สูงสุด 10 ชิ้นต่อ 1 ช่อง
Date :
2017-03-03 13:01:29By :
sakkapong
ขอแก้ก่อนหน้านี้นะครับ(มีคำภาษาไทยที่ผมพิมพ์ผิด พิมพ์ไม่ถูกอยู่)
Date :
2017-03-03 13:05:40By :
sakkapong
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Date :
2017-03-03 13:11:16By :
sakkapong
สำหรับผมเข้าใจว่า
Date :
2017-03-03 13:25:15By :
lamaka.tor
ใช่แบบนี้เปล่า
ประวัติการแก้ไข
Date :
2017-03-03 13:33:12By :
chanainut
โอ๊วววววววววววววว นึกว่าจะมาผิดทาง 5555
Date :
2017-03-03 14:07:28By :
lamaka.tor
พอจะมีโค้ดคร่าวๆ ไหมครับ ผมยังไม่เคยใช้ array อ่านไปก็งงไป
Date :
2017-03-03 14:09:31By :
sakkapong
Date :
2017-03-03 14:46:15By :
parinya-t
ถ้าเป็นเอาของไปเติม
Date :
2017-03-03 16:58:46By :
fonfire
อันนี้มันจะไม่สุ่มนะครับ แต่จะลงเรียงกันไปเรื่อยๆCode (VB.NET) Public Class Form1
Public a, b As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
testloop()
End Sub
Sub testloop()
For i As Integer = 1 To 10
Dim SUMEMPTY = 100 - (CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text) + CDbl(TextBox4.Text) + CDbl(TextBox5.Text) + CDbl(TextBox6.Text) + CDbl(TextBox7.Text) + CDbl(TextBox8.Text) + CDbl(TextBox9.Text) + CDbl(TextBox10.Text))
If SUMEMPTY >= CDbl(TextBox11.Text) Then
Dim txt = "TextBox" + Convert.ToString(i)
If CType(Me.Controls(txt), TextBox).Text <> "10" Then
b = CDbl(CType(Me.Controls(txt), TextBox).Text) + CDbl(TextBox11.Text)
a = b - 10
If b > 10 Then
CType(Me.Controls(txt), TextBox).Text = "10"
TextBox11.Text = a
Else
CType(Me.Controls(txt), TextBox).Text = b
Exit For
End If
End If
Else
MsgBox("ช่องไม่พอว่ะ !! โทษที")
Exit For
End If
Next
TextBox11.Text = ""
End Sub
End Class
ประวัติการแก้ไข
Date :
2017-03-03 17:02:27By :
chanainut
ผมว่าน่าจะเริ่มมีไอเดียแล้วนะคับ
Date :
2017-03-03 21:03:25By :
lamaka.tor
น่าจะพอมีไอเดียแล้วนะคับ
Date :
2017-03-03 21:05:51By :
lamaka.tor
Server 03
Load balance : Server 03
