帮朋友做的vb.net代码
1
Public Class Form1
2
3
4 Dim strParams(5) As String
5
6 Const dblMinpH As Double = 2
7 Const dblMaxpH As Double = 12
8 Const dblMinFlow As Double = 0
9 Const dblMaxFlow As Double = 2000
10 Const dblMinTSS As Double = 0
11 Const dblMaxTSS As Double = 100
12 Const dblMinTemp As Double = 0
13 Const dblMaxTemp As Double = 40
14 Const dblMinBOD As Double = 0
15 Const dblMaxBOD As Double = 400
16
17
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
18 Dim I As Short
19 strParams(0) = "FLOW"
20 strParams(1) = "PH"
21 strParams(2) = "TSS"
22 strParams(3) = "TEMP"
23 strParams(4) = "BOD"
24
25 For I = 0 To 4
26 cboID.Items.Add(strParams(I))
27 Next
28 cboID.Text = strParams(0)
29
30
End Sub
31 Private Sub Calculate(ByRef strName As String, ByRef intCount As Integer, ByRef dblAvg As Double)
32 Dim dblSum As Double
33 Dim I As Integer
34 dblSum = 0
35 intCount = 0
36
37 For I = 0 To lstParam.Items.Count - 1
38 If lstParam.Items.Item(I) = strName Then
39 dblSum = dblSum + lstValue.Items.Item(I)
40 intCount = intCount + 1
41 End If
42 Next
43 dblAvg = dblSum / intCount
44
45 End Sub
46 Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
47
48 Dim intFlowCount As Integer
49 Dim intPhCount As Integer
50 Dim intTssCount As Integer
51 Dim intTempCount As Integer
52 Dim intBODCount As Integer
53 Dim dblFlowAvg As Double
54 Dim dblPhAvg As Double
55 Dim dblTssAvg As Double
56 Dim dblTempAvg As Double
57 Dim dblBODAvg As Double
58
59 Calculate("FLOW", intFlowCount, dblFlowAvg)
60 Calculate("PH", intPhCount, dblPhAvg)
61 Calculate("TSS", intTssCount, dblTssAvg)
62 Calculate("TEMP", intTempCount, dblTempAvg)
63 Calculate("BOD", intBODCount, dblBODAvg)
64
65
66 txtFlowNum.Text = intFlowCount
67 txtFlowAvg.Text = FormatNumber(dblFlowAvg, 2)
68 txtpHNum.Text = intPhCount
69 txtpHAvg.Text = FormatNumber(dblPhAvg, 2)
70 txtTSSNum.Text = intTssCount
71 txtTSSAvg.Text = FormatNumber(dblTssAvg, 2)
72 txtTempNum.Text = intTempCount
73 txtTempAvg.Text = FormatNumber(dblTempAvg, 2)
74 txtBODNum.Text = intBODCount
75 txtBODAvg.Text = FormatNumber(dblBODAvg, 2)
76
77
78 End Sub
79
80
81
82 Private Sub Add(ByVal strname As String, ByVal dblVal As Double, ByVal dblMin As Double, ByVal dblMax As Double)
83 If (dblVal < dblMin Or dblVal > dblMax) Then
84 MessageBox.Show(strname & " must be between " & CStr(dblMin) & " and " & CStr(dblMax), "Data Entry Error", _
85 MessageBoxButtons.OK, MessageBoxIcon.Error)
86 Else
87 lstParam.Items.Add(cboID.Text)
88 lstValue.Items.Add(txtNum.Text)
89 End If
90 End Sub
91
92 Private Sub btnAdd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles btnAdd.Click
93 Dim dblVal As Double
94 Dim strParam As String
95 If IsNumeric(txtNum.Text) Then
96 strParam = cboID.Text
97 dblVal = Val(txtNum.Text)
98 If strParam = "FLOW" Then
99 Add("FLOW", dblVal, dblMinFlow, dblMaxFlow)
100 ElseIf strParam = "PH" Then
101 Add("PH", dblVal, dblMinpH, dblMaxpH)
102 ElseIf strParam = "TSS" Then
103 Add("TSS", dblVal, dblMinTSS, dblMaxTSS)
104 ElseIf strParam = "TEMP" Then
105 Add("TEMP", dblVal, dblMinTemp, dblMaxTemp)
106 ElseIf strParam = "BOD" Then
107 Add("BOD", dblVal, dblMinBOD, dblMaxBOD)
108 End If
109 Else
110 MessageBox.Show("Value Entered must be Numeric", "Data Entry Error", _
111 MessageBoxButtons.OK, MessageBoxIcon.Error)
112 End If
113 End Sub
114
115
116
117 Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
118 lstParam.Items.Clear()
119 lstValue.Items.Clear()
120 txtFlowNum.Clear()
121 txtFlowAvg.Clear()
122 txtpHNum.Clear()
123 txtpHAvg.Clear()
124 txtTSSNum.Clear()
125 txtTSSAvg.Clear()
126 txtTempNum.Clear()
127 txtTempAvg.Clear()
128 txtBODNum.Clear()
129 txtBODAvg.Clear()
130 End Sub
131
132 Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
133 Me.Close()
134 End Sub
135
136 Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
137 Dim choice As Integer = dlgOpen.ShowDialog
138 Dim strParams As String = ""
139 Dim strValues As String = ""
140 If choice <> Windows.Forms.DialogResult.Cancel Then
141 Dim fileNumber As Integer = FreeFile()
142 FileOpen(fileNumber, dlgOpen.FileName, OpenMode.Input)
143 While Not EOF(fileNumber)
144 Input(fileNumber, strParams)
145 Input(fileNumber, strValues)
146 lstParam.Items.Add(strParams)
147 lstValue.Items.Add(strValues)
148 End While
149 FileClose(fileNumber)
150 End If
151 End Sub
152
153 Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
154 Dim choice As Integer = dlgSave.ShowDialog()
155 Dim I As Integer
156 If choice <> Windows.Forms.DialogResult.Cancel Then
157 Dim fileNumber As Integer = FreeFile()
158 FileOpen(fileNumber, dlgSave.FileName, OpenMode.Output)
159 For I = 0 To lstParam.Items.Count - 1
160 PrintLine(fileNumber, lstParam.Items.Item(I), ",", lstValue.Items.Item(I))
161 Next
162 FileClose(fileNumber)
163 End If
164 End Sub
165
End Class
Public Class Form1
2
3
4
Dim strParams(5) As String5
6
Const dblMinpH As Double = 27
Const dblMaxpH As Double = 128
Const dblMinFlow As Double = 09
Const dblMaxFlow As Double = 200010
Const dblMinTSS As Double = 011
Const dblMaxTSS As Double = 10012
Const dblMinTemp As Double = 013
Const dblMaxTemp As Double = 4014
Const dblMinBOD As Double = 015
Const dblMaxBOD As Double = 40016
17
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
18
Dim I As Short19
strParams(0) = "FLOW"20
strParams(1) = "PH"21
strParams(2) = "TSS"22
strParams(3) = "TEMP"23
strParams(4) = "BOD"24
25
For I = 0 To 426
cboID.Items.Add(strParams(I))27
Next28
cboID.Text = strParams(0)29
30
End Sub31
Private Sub Calculate(ByRef strName As String, ByRef intCount As Integer, ByRef dblAvg As Double)32
Dim dblSum As Double33
Dim I As Integer34
dblSum = 035
intCount = 036
37
For I = 0 To lstParam.Items.Count - 138
If lstParam.Items.Item(I) = strName Then39
dblSum = dblSum + lstValue.Items.Item(I)40
intCount = intCount + 141
End If42
Next43
dblAvg = dblSum / intCount44
45
End Sub46
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click47
48
Dim intFlowCount As Integer49
Dim intPhCount As Integer50
Dim intTssCount As Integer51
Dim intTempCount As Integer52
Dim intBODCount As Integer53
Dim dblFlowAvg As Double54
Dim dblPhAvg As Double55
Dim dblTssAvg As Double56
Dim dblTempAvg As Double57
Dim dblBODAvg As Double58
59
Calculate("FLOW", intFlowCount, dblFlowAvg)60
Calculate("PH", intPhCount, dblPhAvg)61
Calculate("TSS", intTssCount, dblTssAvg)62
Calculate("TEMP", intTempCount, dblTempAvg)63
Calculate("BOD", intBODCount, dblBODAvg)64
65
66
txtFlowNum.Text = intFlowCount67
txtFlowAvg.Text = FormatNumber(dblFlowAvg, 2)68
txtpHNum.Text = intPhCount69
txtpHAvg.Text = FormatNumber(dblPhAvg, 2)70
txtTSSNum.Text = intTssCount71
txtTSSAvg.Text = FormatNumber(dblTssAvg, 2)72
txtTempNum.Text = intTempCount73
txtTempAvg.Text = FormatNumber(dblTempAvg, 2)74
txtBODNum.Text = intBODCount75
txtBODAvg.Text = FormatNumber(dblBODAvg, 2)76
77
78
End Sub79
80
81
82
Private Sub Add(ByVal strname As String, ByVal dblVal As Double, ByVal dblMin As Double, ByVal dblMax As Double)83
If (dblVal < dblMin Or dblVal > dblMax) Then84
MessageBox.Show(strname & " must be between " & CStr(dblMin) & " and " & CStr(dblMax), "Data Entry Error", _85
MessageBoxButtons.OK, MessageBoxIcon.Error)86
Else87
lstParam.Items.Add(cboID.Text)88
lstValue.Items.Add(txtNum.Text)89
End If90
End Sub91
92
Private Sub btnAdd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles btnAdd.Click93
Dim dblVal As Double94
Dim strParam As String95
If IsNumeric(txtNum.Text) Then96
strParam = cboID.Text97
dblVal = Val(txtNum.Text)98
If strParam = "FLOW" Then99
Add("FLOW", dblVal, dblMinFlow, dblMaxFlow)100
ElseIf strParam = "PH" Then101
Add("PH", dblVal, dblMinpH, dblMaxpH)102
ElseIf strParam = "TSS" Then103
Add("TSS", dblVal, dblMinTSS, dblMaxTSS)104
ElseIf strParam = "TEMP" Then105
Add("TEMP", dblVal, dblMinTemp, dblMaxTemp)106
ElseIf strParam = "BOD" Then107
Add("BOD", dblVal, dblMinBOD, dblMaxBOD)108
End If109
Else110
MessageBox.Show("Value Entered must be Numeric", "Data Entry Error", _111
MessageBoxButtons.OK, MessageBoxIcon.Error)112
End If113
End Sub114
115
116
117
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click118
lstParam.Items.Clear()119
lstValue.Items.Clear()120
txtFlowNum.Clear()121
txtFlowAvg.Clear()122
txtpHNum.Clear()123
txtpHAvg.Clear()124
txtTSSNum.Clear()125
txtTSSAvg.Clear()126
txtTempNum.Clear()127
txtTempAvg.Clear()128
txtBODNum.Clear()129
txtBODAvg.Clear()130
End Sub131
132
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click133
Me.Close()134
End Sub135
136
Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click137
Dim choice As Integer = dlgOpen.ShowDialog138
Dim strParams As String = ""139
Dim strValues As String = ""140
If choice <> Windows.Forms.DialogResult.Cancel Then141
Dim fileNumber As Integer = FreeFile()142
FileOpen(fileNumber, dlgOpen.FileName, OpenMode.Input)143
While Not EOF(fileNumber)144
Input(fileNumber, strParams)145
Input(fileNumber, strValues)146
lstParam.Items.Add(strParams)147
lstValue.Items.Add(strValues)148
End While149
FileClose(fileNumber)150
End If151
End Sub152
153
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click154
Dim choice As Integer = dlgSave.ShowDialog()155
Dim I As Integer156
If choice <> Windows.Forms.DialogResult.Cancel Then157
Dim fileNumber As Integer = FreeFile()158
FileOpen(fileNumber, dlgSave.FileName, OpenMode.Output)159
For I = 0 To lstParam.Items.Count - 1160
PrintLine(fileNumber, lstParam.Items.Item(I), ",", lstValue.Items.Item(I))161
Next162
FileClose(fileNumber)163
End If164
End Sub165
End Class