帮朋友做的vb.net代码

 

  1Public Class Form1Class 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()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()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()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()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()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()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()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()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()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
165End Class