form1.vb
Public Class Form1
Inherits System.Windows.Forms.Form
#Region "变量声明"
Const MedicineMaxiumNumber = 10
Const BateriaMaxiumNumber = 100
Public CurrentMedicine As Byte
Public med(MedicineMaxiumNumber) As medicine
Public bact(BateriaMaxiumNumber) As bacteria
Public i, j, sum As Short
Public t As New bacteria
Public boi, boj As Boolean
Public lastbact As Byte
Public BacteriumAntiMedicineRate As Byte = 50
Dim LabelArrayExample As LabelArray
Dim ro As System.Random = New Random
#End Region
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写处置以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意：以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Label18 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents Label21 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents Label22 As System.Windows.Forms.Label
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents StartButton As System.Windows.Forms.Button
Friend WithEvents label23 As System.Windows.Forms.Label
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.Button5 = New System.Windows.Forms.Button
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Label21 = New System.Windows.Forms.Label
Me.Label20 = New System.Windows.Forms.Label
Me.Label19 = New System.Windows.Forms.Label
Me.Button3 = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.TextBox4 = New System.Windows.Forms.TextBox
Me.Button4 = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.Label10 = New System.Windows.Forms.Label
Me.Label11 = New System.Windows.Forms.Label
Me.Label12 = New System.Windows.Forms.Label
Me.Label13 = New System.Windows.Forms.Label
Me.Label14 = New System.Windows.Forms.Label
Me.Label15 = New System.Windows.Forms.Label
Me.Label16 = New System.Windows.Forms.Label
Me.StartButton = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Label17 = New System.Windows.Forms.Label
Me.Label18 = New System.Windows.Forms.Label
Me.Label22 = New System.Windows.Forms.Label
Me.label23 = New System.Windows.Forms.Label
Me.TextBox5 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'Timer1
'
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Button5)
Me.GroupBox1.Controls.Add(Me.TextBox2)
Me.GroupBox1.Controls.Add(Me.Label21)
Me.GroupBox1.Controls.Add(Me.Label20)
Me.GroupBox1.Controls.Add(Me.Label19)
Me.GroupBox1.Controls.Add(Me.Button3)
Me.GroupBox1.Controls.Add(Me.TextBox1)
Me.GroupBox1.Controls.Add(Me.TextBox3)
Me.GroupBox1.Controls.Add(Me.TextBox4)
Me.GroupBox1.Controls.Add(Me.Button4)
Me.GroupBox1.Location = New System.Drawing.Point(8, 8)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(456, 120)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "抗生素"
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(344, 24)
Me.Button5.Name = "Button5"
Me.Button5.TabIndex = 8
Me.Button5.Text = "Accept"
'
'TextBox2
'
Me.TextBox2.Enabled = False
Me.TextBox2.Location = New System.Drawing.Point(168, 24)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(56, 21)
Me.TextBox2.TabIndex = 5
Me.TextBox2.Text = ""
'
'Label21
'
Me.Label21.Location = New System.Drawing.Point(8, 56)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(96, 24)
Me.Label21.TabIndex = 4
Me.Label21.Text = "anti-it-number"
'
'Label20
'
Me.Label20.Location = New System.Drawing.Point(224, 24)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(56, 24)
Me.Label20.TabIndex = 3
Me.Label20.Text = "killrate"
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(128, 24)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(40, 24)
Me.Label19.TabIndex = 2
Me.Label19.Text = "area"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(48, 24)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(64, 24)
Me.Button3.TabIndex = 1
Me.Button3.Text = "Refresh"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(8, 24)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(32, 21)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = ""
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(280, 24)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(56, 21)
Me.TextBox3.TabIndex = 5
Me.TextBox3.Text = ""
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(104, 56)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(56, 21)
Me.TextBox4.TabIndex = 5
Me.TextBox4.Text = ""
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(168, 56)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(80, 24)
Me.Button4.TabIndex = 7
Me.Button4.Text = "Drop Med."
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(32, 144)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(32, 32)
Me.Label1.TabIndex = 1
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(72, 144)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(32, 32)
Me.Label2.TabIndex = 1
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(112, 144)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(32, 32)
Me.Label3.TabIndex = 1
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(152, 144)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(32, 32)
Me.Label4.TabIndex = 1
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(32, 184)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(32, 32)
Me.Label5.TabIndex = 1
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(72, 184)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(32, 32)
Me.Label6.TabIndex = 1
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(112, 184)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(32, 32)
Me.Label7.TabIndex = 1
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(152, 184)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(32, 32)
Me.Label8.TabIndex = 1
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(32, 224)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(32, 32)
Me.Label9.TabIndex = 1
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(72, 224)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(32, 32)
Me.Label10.TabIndex = 1
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(112, 224)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(32, 32)
Me.Label11.TabIndex = 1
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(152, 224)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(32, 32)
Me.Label12.TabIndex = 1
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(32, 264)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(32, 32)
Me.Label13.TabIndex = 1
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(72, 264)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(32, 32)
Me.Label14.TabIndex = 1
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(112, 264)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(32, 32)
Me.Label15.TabIndex = 1
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(152, 264)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(32, 32)
Me.Label16.TabIndex = 1
'
'StartButton
'
Me.StartButton.Location = New System.Drawing.Point(384, 136)
Me.StartButton.Name = "StartButton"
Me.StartButton.Size = New System.Drawing.Size(80, 24)
Me.StartButton.TabIndex = 2
Me.StartButton.Text = "Start"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(384, 168)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(80, 24)
Me.Button2.TabIndex = 3
Me.Button2.Text = "Drop Bact."
'
'Label17
'
Me.Label17.Location = New System.Drawing.Point(192, 144)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(64, 24)
Me.Label17.TabIndex = 4
Me.Label17.Text = "lastbact"
'
'Label18
'
Me.Label18.Location = New System.Drawing.Point(264, 144)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(32, 32)
Me.Label18.TabIndex = 5
'
'Label22
'
Me.Label22.Location = New System.Drawing.Point(312, 136)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(40, 24)
Me.Label22.TabIndex = 6
Me.Label22.Text = "Off"
'
'label23
'
Me.label23.Location = New System.Drawing.Point(192, 184)
Me.label23.Name = "label23"
Me.label23.Size = New System.Drawing.Size(64, 32)
Me.label23.TabIndex = 7
Me.label23.Text = "Bact.Anti-Med.rate"
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(256, 184)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(40, 21)
Me.TextBox5.TabIndex = 8
Me.TextBox5.Text = "50"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(304, 184)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(56, 24)
Me.Button1.TabIndex = 9
Me.Button1.Text = "Accept"
'
'Form1
'
Me.AcceptButton = Me.StartButton
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(480, 334)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.label23)
Me.Controls.Add(Me.Label22)
Me.Controls.Add(Me.Label18)
Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.StartButton)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.Label16)
Me.Name = "Form1"
Me.Text = "细菌抗药性模拟器"
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
'LabelArrayExample = New LabelArray(Me)
End Sub
#End Region
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 0 To MedicineMaxiumNumber - 1
med(i) = New medicine
Next
For i = 0 To BateriaMaxiumNumber - 1
bact(i) = New bacteria
ReDim bact(i).antimedicine(10)
For Each boi In bact(i).antimedicine
boi = False
Next
Next
CurrentMedicine = 0
firstready()
End Sub
Private Sub firstready()
clearlabel()
lastbact = 0
End Sub
Private Sub newbact(ByVal number As Byte)
Dim ro As System.Random = New Random
bact(number).locate.X = (ro.Next(0, 4))
bact(number).locate.Y = (ro.Next(0, 4))
bact(number).alive = True
For i = 0 To MedicineMaxiumNumber - 1
bact(number).antimedicine(i) = False
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartButton.Click
Timer1.Interval = 20
Timer1.Enabled = True
Timer1.Start()
StartButton.Enabled = False
Label22.Text = "On"
End Sub
Private Sub printbact(ByVal t As bacteria)
If t.locate.X = 0 And t.locate.Y = 0 Then Label1.Text = Val(Label1.Text) + 1
If t.locate.X = 0 And t.locate.Y = 1 Then Label2.Text = Val(Label2.Text) + 1
If t.locate.X = 0 And t.locate.Y = 2 Then Label3.Text = Val(Label3.Text) + 1
If t.locate.X = 0 And t.locate.Y = 3 Then Label4.Text = Val(Label4.Text) + 1
If t.locate.X = 1 And t.locate.Y = 0 Then Label5.Text = Val(Label5.Text) + 1
If t.locate.X = 1 And t.locate.Y = 1 Then Label6.Text = Val(Label6.Text) + 1
If t.locate.X = 1 And t.locate.Y = 2 Then Label7.Text = Val(Label7.Text) + 1
If t.locate.X = 1 And t.locate.Y = 3 Then Label8.Text = Val(Label8.Text) + 1
If t.locate.X = 2 And t.locate.Y = 0 Then Label9.Text = Val(Label9.Text) + 1
If t.locate.X = 2 And t.locate.Y = 1 Then Label10.Text = Val(Label10.Text) + 1
If t.locate.X = 2 And t.locate.Y = 2 Then Label11.Text = Val(Label11.Text) + 1
If t.locate.X = 2 And t.locate.Y = 3 Then Label12.Text = Val(Label12.Text) + 1
If t.locate.X = 3 And t.locate.Y = 0 Then Label13.Text = Val(Label13.Text) + 1
If t.locate.X = 3 And t.locate.Y = 1 Then Label14.Text = Val(Label14.Text) + 1
If t.locate.X = 3 And t.locate.Y = 2 Then Label15.Text = Val(Label15.Text) + 1
If t.locate.X = 3 And t.locate.Y = 3 Then Label16.Text = Val(Label16.Text) + 1
End Sub
Private Sub clearlabel()
Label1.Text = "0"
Label2.Text = "0"
Label3.Text = "0"
Label4.Text = "0"
Label5.Text = "0"
Label6.Text = "0"
Label7.Text = "0"
Label8.Text = "0"
Label9.Text = "0"
Label10.Text = "0"
Label11.Text = "0"
Label12.Text = "0"
Label13.Text = "0"
Label14.Text = "0"
Label15.Text = "0"
Label16.Text = "0"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
clearlabel()
Label18.Text = Str(lastbact)
sum = 0
For i = 0 To BateriaMaxiumNumber - 1
If bact(i).alive = True Then
printbact(bact(i))
boi = True
For Each boj In bact(i).antimedicine
If boj = False Then
boi = False
Exit For
End If
If boi = True Then
Timer1.Stop()
Label22.Text = "Off"
StartButton.Enabled = "True"
If MsgBox("Super bacteria appeared!Go on?", MsgBoxStyle.YesNo, "Super bacteria appeared!") = MsgBoxResult.Yes Then
Timer1.Start()
Label22.Text = "On"
StartButton.Enabled = False
End If
Exit Sub
End If
Next
sum += 1
End If
Next
If sum = 0 And lastbact <> 0 Then
Timer1.Stop()
Label22.Text = "Off"
StartButton.Enabled = True
MsgBox("All the bacterium died!")
Exit Sub
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If lastbact = 50 Then
MsgBox("maxium number of bacts!")
Else
lastbact = lastbact + 1
newbact(lastbact - 1)
refleshmap()
End If
End Sub
Private Sub refleshmap()
clearlabel()
Label18.Text = Str(lastbact)
For i = 0 To BateriaMaxiumNumber - 1
If bact(i).alive = True Then
printbact(bact(i))
End If
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Not (IsNumeric(TextBox1.Text)) Then
MsgBox("Must be number!")
Else
If Int(Val(TextBox1.Text)) <> Val(TextBox1.Text) Then
MsgBox("Must be integer!")
Else
If Val(TextBox1.Text) > 10 Or Val(TextBox1.Text) < 0 Then
MsgBox("Must be more than -1 and less than 11!")
Else
CurrentMedicine = Val(TextBox1.Text)
printinfo(CurrentMedicine)
End If
End If
End If
End Sub
Private Sub printinfo(ByVal i As Short)
TextBox2.Text = med(CurrentMedicine).area
TextBox3.Text = med(CurrentMedicine).killrate
sum = 0
For j = 0 To BateriaMaxiumNumber - 1
If bact(j).alive And bact(j).antimedicine(i) = True Then sum += 1
Next
TextBox4.Text = sum
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Not (IsNumeric(TextBox2.Text)) Then
MsgBox("Must be number!")
Else
If Int(Val(TextBox2.Text)) <> Val(TextBox2.Text) Then
MsgBox("Must be integer!")
Else
If Val(TextBox2.Text) > 100 Or Val(TextBox2.Text) < 0 Then
MsgBox("Must be no more than 100 and no less than 0!")
Else
med(CurrentMedicine).area = Val(TextBox2.Text)
End If
End If
End If
If Not (IsNumeric(TextBox3.Text)) Then
MsgBox("Must be number!")
Else
If Int(Val(TextBox3.Text)) <> Val(TextBox3.Text) Then
MsgBox("Must be integer!")
Else
If Val(TextBox3.Text) > 100 Or Val(TextBox3.Text) < 0 Then
MsgBox("Must be no more than 100 and no less than 0!")
Else
med(CurrentMedicine).killrate = Val(TextBox3.Text)
End If
End If
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
For i = 0 To BateriaMaxiumNumber - 1
If bact(i).alive Then
If Not (bact(i).antimedicine(CurrentMedicine)) Then
If rate(med(CurrentMedicine).killrate) Then
bact(i).alive = False
Else
If rate(BacteriumAntiMedicineRate) Then
bact(i).antimedicine(CurrentMedicine) = True
End If
End If
End If
End If
Next
refleshmap()
End Sub
Private Function rate(ByVal j As Byte) As Boolean
If ro.Next(1, 100) <= j Then
Return True
Else
Return False
End If
End Function
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not (IsNumeric(TextBox5.Text)) Then
MsgBox("Must be number!")
Else
If Int(Val(TextBox5.Text)) <> Val(TextBox5.Text) Then
MsgBox("Must be integer!")
Else
If Val(TextBox5.Text) > 100 Or Val(TextBox5.Text) < 0 Then
MsgBox("Must be no more than 100 and no less than 0!")
Else
BacteriumAntiMedicineRate = Val(TextBox5.Text)
End If
End If
End If
End Sub
End Class
medicine.vb:
Public Class medicine
Public area As Byte
Public killrate As Byte
Sub New()
area = 15
killrate = 70
End Sub
End Class
bacteria.vb:
Public Class bacteria
Public locate As System.Drawing.Point
Public antimedicine() As Boolean
Public alive As Boolean
End Class
labelarray.vb:
Public Class LabelArray
Inherits System.Collections.CollectionBase
Public Sub New(ByVal host As System.Windows.Forms.Form)
Me.AddNewLabel(host)
End Sub
Public Sub AddNewLabel(ByVal hostform As Form)
' 创建 Button 类的新实例。
Dim aLabel As New System.Windows.Forms.Label
' 将按钮添加到集合的内部列表。
Me.List.Add(aLabel)
' 将按钮添加到由 HostForm 字段
' 引用的窗体的控件集合中。
hostform.Controls.Add(aLabel)
' 设置按钮对象的初始属性。
aLabel.Location = New System.Drawing.Point(32 + (Count Mod 4) * 40, 144 + (Count \ 4) * 40)
aLabel.Name = "Label" & Str(Count)
aLabel.Size = New System.Drawing.Size(32, 32)
aLabel.Tag = Me.Count
aLabel.Text = "l" & Me.Count.ToString
End Sub
End Class
(TBC)
浙公网安备 33010602011771号