01.
Public
Class
Form1
02.
Dim
i, l, txtnum, po, p3, pri
As
Integer
03.
04.
Public
Sub
Form1_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
05.
06.
txtdate.Text =
Date
.Today
07.
Button2.Enabled =
False
08.
txtmean.Enabled =
False
09.
txtsd.Enabled =
False
10.
txt3sd.Enabled =
False
11.
txtmp3sd.Enabled =
False
12.
txtm3sd.Enabled =
False
13.
txtmin.Enabled =
False
14.
txtmax.Enabled =
False
15.
txtrang.Enabled =
False
16.
17.
End
Sub
18.
19.
Public
Sub
Maketxtbox()
20.
21.
txtnum = Convert.ToInt32(txttest.Text)
22.
l = 30
23.
24.
For
Me
.i = 1
To
txtnum
25.
26.
po = 100 + (i * l)
27.
Dim
txtpo
As
New
TextBox
28.
txtpo.Location =
New
Point(150, po)
29.
txtpo.Name =
"txtpo"
+ i.ToString
30.
txtpo.Text = txtpo.Name
31.
32.
Me
.Controls.Add(txtpo)
33.
34.
p3 = 100 + (i * l)
35.
Dim
txtp3
As
New
TextBox()
36.
txtp3.Location =
New
Point(350, p3)
37.
txtp3.Name =
"txtp3"
+ i.ToString
38.
txtp3.Text = txtp3.Name
39.
Me
.Controls.Add(txtp3)
40.
41.
pri = 100 + (i * l)
42.
Dim
txtpri
As
New
TextBox()
43.
txtpri.Location =
New
Point(550, pri)
44.
txtpri.Name =
"txtpri"
+ i.ToString
45.
txtpri.Text = txtpri.Name
46.
Me
.Controls.Add(txtpri)
47.
Next
48.
49.
End
Sub
50.
51.
Private
Sub
Button1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
52.
53.
If
txttest.Text =
""
Then
54.
MessageBox.Show(
"กรุณากรอกจำนวนตัวอยากในการทดลอง"
)
55.
txttest.Focus()
56.
Else
57.
Maketxtbox()
58.
59.
60.
61.
62.
63.
64.
65.
txttest.Enabled =
False
66.
lotno.Enabled =
False
67.
Button1.Enabled =
False
68.
txtdate.Enabled =
False
69.
cus.Enabled =
False
70.
Button2.Enabled =
True
71.
End
If
72.
End
Sub
73.
74.
75.
Private
Sub
Button2_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button2.Click
76.
77.
txtmean.Enabled =
True
78.
txtsd.Enabled =
True
79.
txt3sd.Enabled =
True
80.
txtmp3sd.Enabled =
True
81.
txtm3sd.Enabled =
True
82.
txtmin.Enabled =
True
83.
txtmax.Enabled =
True
84.
txtrang.Enabled =
True
85.
86.
87.
88.
End
Sub
89.
End
Class