[VB.NET] แจกฟรีโปรแกรมและโค้ดของการสุ่มตัวเลข 2 และ 3 หลัก ในการจับฉลากรางวัล

thongkorn

โค้ดโปรแกรมชุดนี้แอดมินเลือกใช้ Digital Gauge ของฟรีจากค่าย Syncfusion น่ะครับ หากต้องการจะปรับแต่งโค้ดก็ต้องไป ดาวน์โหลด Syncfusion Community License มาทำการติดตั้งให้เรียบร้อยก่อน และต้องสมัครสมาชิกเขาด้วยล่ะครับ ถึงจะดาวน์โหลดได้ (เวอร์ชั่นของแอดมิน 17.1400.0.47) และต้องปรับ Net FrameWork ให้เป็นรุ่น 4.0 แบบเต็มด้วยครับ ...

ดาวน์โหลดโปรแกรมเพื่อนำไปใช้งานอย่างเดียว ...

Add References ... สำหรับ MB.DLL เป็น Custom MessageBox เพื่อให้แสดงผลตัวอักษรตัวใหญ่ได้


มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports System.IO
   
2. Imports System.Media
   
3. 
   
4. Public Class frmRandomNumber
   
5.     Dim RndNum As Integer
   
6.     Dim Buzzer As String
   
7. 
   
8.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
   
9.         ' / Formular
   
10.         ' / Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound)
    
11.         RndNum = Int((CInt(cmbUpper.Text) - CInt(cmbLower.Text) + 1) * Rnd() + CInt(cmbLower.Text))
    
12.         '//
    
13.         If rdo2Digit.Checked Then
    
14.             Me.DigitalGauge1.Value = Microsoft.VisualBasic.Right("00" & RndNum, 2)
    
15.         Else
    
16.             Me.DigitalGauge1.Value = Microsoft.VisualBasic.Right("000" & RndNum, 3)
    
17.         End If
    
18.         '//
    
19.     End Sub
    
20. 
    
21.     Private Sub frmRandomNumber_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
22.         Me.Dispose()
    
23.         Application.Exit()
    
24.     End Sub
    
25. 
    
26.     Private Sub frmRandomNumber_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
27.         '/ Me.DigitalGauge1.Size = New Size(760, 308)
    
28.         Randomize()
    
29.         'Timer1.Interval = 50
    
30.         Timer1.Enabled = False
    
31.         '
    
32.         Call SetupGridView()
    
33.         rdo3Digit.Checked = True
    
34.         'Call SetupRange()
    
35.         '//
    
36.         cmbBuzzer.Items.Add("Buzzer 1")
    
37.         cmbBuzzer.Items.Add("Buzzer 2")
    
38.         cmbBuzzer.SelectedIndex = 0
    
39.         '//
    
40.         With cmbSpeed
    
41.             .Items.Add("Speed 1")
    
42.             .Items.Add("Speed 2")
    
43.             .Items.Add("Speed 3")
    
44.         End With
    
45.         cmbSpeed.SelectedIndex = 1
    
46.         '// DigiTalGauge Setup
    
47.         With cmbColor
    
48.             .Items.Add("Color 1")
    
49.             .Items.Add("Color 2")
    
50.             .Items.Add("Color 3")
    
51.         End With
    
52.         cmbColor.SelectedIndex = 0
    
53.     End Sub
    
54. 
    
55.     Sub SetupRange()
    
56.         cmbLower.Items.Clear()
    
57.         cmbUpper.Items.Clear()
    
58.         If rdo2Digit.Checked Then
    
59.             For i = 1 To 99
    
60.                 cmbLower.Items.Add(i)
    
61.                 cmbUpper.Items.Add(i)
    
62.             Next
    
63.             '//
    
64.         ElseIf rdo3Digit.Checked Then
    
65.             For i = 1 To 999
    
66.                 cmbLower.Items.Add(i)
    
67.                 cmbUpper.Items.Add(i)
    
68.             Next
    
69.         End If
    
70.         cmbLower.SelectedIndex = 0
    
71.         cmbUpper.SelectedIndex = cmbUpper.Items.Count - 1
    
72.     End Sub
    
73. 
    
74.     Private Sub btnStartStop_Click(sender As System.Object, e As System.EventArgs) Handles btnStartStop.Click
    
75.         If CInt(cmbLower.Text) >= CInt(cmbUpper.Text) Then
    
76.             Dim show As New mb.ShowMessagebox
    
77.             show.Fonts(New Font("Century Gothic", 34))
    
78.             show.ShowBox("ค่าเริ่มต้นต้องน้อยกว่าค่าสิ้นสุดเท่านั้น.", mb.MStyle.ok, mb.FStyle.Exclamation, "ตั้งค่าตัวเลขไม่ถูกต้อง")
    
79.             Return
    
80.         End If
    
81.         '//
    
82.         If Me.btnStartStop.Text = "START" Then
    
83.             Timer1.Enabled = False
    
84.             btnStartStop.Text = "STOP"
    
85.             btnSave.Enabled = True
    
86.             btnRemove.Enabled = True
    
87.             rdo2Digit.Enabled = True
    
88.             rdo3Digit.Enabled = True
    
89.             cmbLower.Enabled = True
    
90.             cmbUpper.Enabled = True
    
91.             '// Add Row.
    
92.             For iRow = 0 To dgvData.Rows.Count - 1
    
93.                 If Me.DigitalGauge1.Value = dgvData.Rows(iRow).Cells(0).Value Then
    
94.                     Dim show As New mb.ShowMessagebox
    
95.                     show.Fonts(New Font("Century Gothic", 34))
    
96.                     show.ShowBox("หมายเลข: " & Me.DigitalGauge1.Value & " ได้รับรางวัลเรียบร้อยแล้ว.", mb.MStyle.ok, mb.FStyle.Exclamation, "รายงานรางวัลซ้ำ")
    
97.                     Return
    
98.                 End If
    
99.             Next
    
100.             dgvData.Rows.Add(New String() {Me.DigitalGauge1.Value, ""})
     
101.             dgvData.Focus()
     
102.             SendKeys.Send("^{END}")
     
103.             If chkPlaySound.Checked Then Call PlaySoundLotto()
     
104.             Timer1.Stop()
     
105. 
     
106.             '//
     
107.         Else
     
108.             Randomize()
     
109.             'Timer1.Interval = 50    ' 1000 millisecond = 1 second.
     
110.             Timer1.Enabled = True
     
111.             btnStartStop.Text = "START"
     
112.             btnSave.Enabled = False
     
113.             btnRemove.Enabled = False
     
114.             rdo2Digit.Enabled = False
     
115.             rdo3Digit.Enabled = False
     
116.             cmbLower.Enabled = False
     
117.             cmbUpper.Enabled = False
     
118.         End If
     
119.     End Sub
     
120. 
     
121.     Private Sub rdo3Digit_CheckChanged(sender As System.Object, e As System.EventArgs) Handles rdo3Digit.CheckChanged
     
122.         Me.DigitalGauge1.CharacterCount = 3
     
123.         Call SetupRange()
     
124.     End Sub
     
125. 
     
126.     Private Sub rdo2Digit_CheckChanged(sender As System.Object, e As System.EventArgs) Handles rdo2Digit.CheckChanged
     
127.         Me.DigitalGauge1.CharacterCount = 2
     
128.         Call SetupRange()
     
129.     End Sub
     
130. 
     
131.     ' / --------------------------------------------------------------------------------
     
132.     Private Sub SetupGridView()
     
133.         With dgvData
     
134.             .RowHeadersVisible = False
     
135.             .AllowUserToAddRows = False
     
136.             .AllowUserToDeleteRows = False
     
137.             .AllowUserToResizeRows = False
     
138.             .MultiSelect = False
     
139.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
140.             .ReadOnly = True
     
141.             .RowTemplate.Height = 48
     
142.             .ColumnHeadersHeight = 54
     
143.             .Font = New Font("Century Gothic", 32, FontStyle.Bold)
     
144.             ' Columns Specified
     
145.             .Columns.Add("Number", "หมายเลข")
     
146.             .Columns.Add("Reward", "รางวัล")
     
147.             .Columns(1).DefaultCellStyle.Font = New Font("Tahoma", 20, FontStyle.Bold)
     
148.             '/ Autosize Column
     
149.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
150.             '.AutoResizeColumns()
     
151.             '// Even-Odd Color
     
152.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
153.             '/ Adjust Header Styles
     
154.             With .ColumnHeadersDefaultCellStyle
     
155.                 .BackColor = Color.Navy
     
156.                 .ForeColor = Color.Black ' Color.White
     
157.                 .Font = New Font("Century Gothic", 28, FontStyle.Bold)
     
158.             End With
     
159.         End With
     
160.         For i = 0 To 1
     
161.             With dgvData
     
162.                 .Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleLeft
     
163.                 .Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
     
164.             End With
     
165.         Next
     
166.     End Sub
     
167. 
     
168.     Private Sub dgvData_DoubleClick(sender As Object, e As System.EventArgs) Handles dgvData.DoubleClick
     
169.         If dgvData.Rows.Count = 0 Then Return
     
170.         frmReward.ShowDialog()
     
171.     End Sub
     
172. 
     
173.     Private Sub btnRemove_Click(sender As System.Object, e As System.EventArgs) Handles btnRemove.Click
     
174.         If dgvData.RowCount = 0 Then Exit Sub
     
175.         '//
     
176.         Dim show As New mb.ShowMessagebox
     
177.         show.Fonts(New Font("Century Gothic", 34))
     
178.         If show.ShowBox("คุณแน่ใจว่าต้องการลบข้อมูลนี้?", mb.MStyle.YesNo, mb.FStyle.Question, "ยืนยันการลบข้อมูล") = DialogResult.Yes Then
     
179.             dgvData.Rows.Remove(dgvData.CurrentRow)
     
180.             dgvData.Refresh()
     
181.         End If
     
182.     End Sub
     
183. 
     
184.     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
     
185.         If dgvData.Rows.Count = 0 Then Return
     
186.         '/ ประกาศใช้งาน Save File Dialog ในแบบ Run Time
     
187.         Dim dlgSaveFile As SaveFileDialog = New SaveFileDialog
     
188. 
     
189.         ' / Save File Dialog
     
190.         With dlgSaveFile
     
191.             .InitialDirectory = MyPath(Application.StartupPath)
     
192.             .Title = "Select text file."
     
193.             .Filter = "Text Files (*.txt)|*.txt"
     
194.             .FilterIndex = 1
     
195.             .RestoreDirectory = True
     
196.         End With
     
197.         '/ Choose OK button after Browse ...
     
198.         If dlgSaveFile.ShowDialog() = DialogResult.OK Then
     
199.             Dim swWriter As New StreamWriter(dlgSaveFile.FileName)
     
200.             Dim LineToWrite As String = String.Empty
     
201.             Try
     
202.                 For _Row As Integer = 0 To dgvData.Rows.Count - 1
     
203.                     LineToWrite = String.Empty
     
204.                     For _Column As Integer = 0 To dgvData.Columns.Count - 1
     
205.                         LineToWrite &= ", " & dgvData.Rows(_Row).Cells(_Column).Value.ToString
     
206.                     Next
     
207.                     LineToWrite = LineToWrite.Remove(0, 1) '/ Remove the first comma.
     
208.                     swWriter.WriteLine(Trim(LineToWrite))
     
209.                 Next
     
210.                 swWriter.Flush()
     
211.                 swWriter.Close()
     
212.                 '//
     
213.                 Dim show As New mb.ShowMessagebox
     
214.                 show.Fonts(New Font("Century Gothic", 34))
     
215.                 show.ShowBox("บันทึกข้อมูลเรียบร้อย.", mb.MStyle.ok, mb.FStyle.Exclamation, "รายงานสถานะ")
     
216.             Catch ex As Exception
     
217.                 MessageBox.Show(ex.Message, "รายงานความผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
218.             End Try
     
219.         End If
     
220.     End Sub
     
221. 
     
222.     ' / --------------------------------------------------------------------------------
     
223.     ' / Get my project path
     
224.     ' / AppPath = C:\My Project\bin\debug
     
225.     ' / Replace "\bin\debug" with ""
     
226.     ' / Return : C:\My Project\
     
227.     Function MyPath(AppPath As String) As String
     
228.         '/ MessageBox.Show(AppPath);
     
229.         AppPath = AppPath.ToLower()
     
230.         '/ Return Value
     
231.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
232.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
     
233.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
234.     End Function
     
235. 
     
236.     Private Sub btnPlaySound_Click(sender As System.Object, e As System.EventArgs) Handles btnPlaySound.Click
     
237.         Call PlaySoundLotto()
     
238.     End Sub
     
239. 
     
240.     Sub PlaySoundLotto()
     
241.         If cmbBuzzer.SelectedIndex = 0 Then
     
242.             Buzzer = MyPath(Application.StartupPath) & "audio\lottosound.wav"
     
243.         Else
     
244.             Buzzer = MyPath(Application.StartupPath) & "audio\buzzers.wav"
     
245.         End If
     
246.         Dim Player As New SoundPlayer(Buzzer)
     
247.         Player.Play()
     
248.     End Sub
     
249. 
     
250.     Private Sub ToolStripStatusLabel2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel2.Click
     
251.         Process.Start("https://www.g2gnet.com")
     
252.     End Sub
     
253. 
     
254.     Private Sub ToolStripStatusLabel3_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel3.Click
     
255.         Process.Start("https://www.facebook.com/g2gnet")
     
256.     End Sub
     
257. 
     
258.     Private Sub cmbSpeed_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbSpeed.SelectedIndexChanged
     
259.         Select Case cmbSpeed.SelectedIndex
     
260.             Case 0
     
261.                 Timer1.Interval = 100
     
262.             Case 1
     
263.                 Timer1.Interval = 50
     
264.             Case 2
     
265.                 Timer1.Interval = 10
     
266.         End Select
     
267.     End Sub
     
268. 
     
269.     Private Sub cmbColor_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbColor.SelectedIndexChanged
     
270.         Select Case cmbColor.SelectedIndex
     
271.             Case 0
     
272.                 With Me.DigitalGauge1
     
273.                     .BackgroundGradientStartColor = Color.Black
     
274.                     .BackgroundGradientEndColor = Color.Black
     
275.                     .ForeColor = Color.White
     
276.                 End With
     
277.             Case 1
     
278.                 With Me.DigitalGauge1
     
279.                     .BackgroundGradientStartColor = Color.White
     
280.                     .BackgroundGradientEndColor = Color.White
     
281.                     .ForeColor = Color.Red
     
282.                 End With
     
283.             Case 2
     
284.                 With Me.DigitalGauge1
     
285.                     .BackgroundGradientStartColor = Color.White
     
286.                     .BackgroundGradientEndColor = Color.White
     
287.                     .ForeColor = Color.Black
     
288.                 End With
     
289.         End Select
     
290.     End Sub
     
291. End Class

คัดลอกไปที่คลิปบอร์ด

โค้ดในส่วนของฟอร์มป้อนรายการของรางวัล (frmReward.vb) ...

1. Public Class frmReward
   
2. 
   
3.     Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
   
4.         frmRandomNumber.dgvData.CurrentRow.Cells(1).Value = Trim(txtReward.Text)
   
5.         Me.Close()
   
6.     End Sub
   
7. 
   
8.     Private Sub frmDetail_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
   
9.         Select Case e.KeyCode
   
10.             Case Keys.F9
    
11.                 Call btnOK_Click(sender, e)
    
12.             Case Keys.Escape
    
13.                 Me.Close()
    
14.         End Select
    
15.     End Sub
    
16. 
    
17.     Private Sub frmReward_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
18.         txtReward.Text = frmRandomNumber.dgvData.CurrentRow.Cells(1).Value.ToString
    
19.         txtReward.Focus()
    
20.     End Sub
    
21. 
    
22.     Private Sub btnCancel_Click(sender As System.Object, e As System.EventArgs) Handles btnCancel.Click
    
23.         Me.Close()
    
24.     End Sub
    
25. 
    
26.     Private Sub txtReward_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtReward.KeyPress
    
27.         If Asc(e.KeyChar) = 13 Then
    
28.             e.Handled = True
    
29.             Call btnOK_Click(sender, e)
    
30.         End If
    
31.     End Sub
    
32. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ