form1.frm

模拟一个单片机键盘的程序模拟一个单片机键盘的程序

        Select Case DataMdown
            Case 1
                RichTextBox1.Text = "  " & Chr(13) & "    温度测量"
                DataMOK = 1
                DataMup = 13
                DataMdown = DataMdown + 1
            Case 2
               RichTextBox1.Text = "  " & Chr(13) & "    PH测量"
               DataMOK = 2
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 3
               RichTextBox1.Text = "  " & Chr(13) & "    盐份测量"
               DataMOK = 3
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 4
               RichTextBox1.Text = "  " & Chr(13) & "    含氧测量"
               DataMOK = 4
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 5
               RichTextBox1.Text = "  " & Chr(13) & "    H2S测量"
               DataMOK = 5
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 6
               RichTextBox1.Text = "  " & Chr(13) & "    NH3测量"
               DataMOK = 6
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 7
               RichTextBox1.Text = "  " & Chr(13) & "    磷测量"
               DataMOK = 7
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 8
               RichTextBox1.Text = "  " & Chr(13) & "    氰化物测量"
               DataMOK = 8
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 9
               RichTextBox1.Text = "  " & Chr(13) & "    氟化物测量"
               DataMOK = 9
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 10
               RichTextBox1.Text = "  " & Chr(13) & "    锌测量"
               DataMOK = 10
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 11
               RichTextBox1.Text = "  " & Chr(13) & "    硝酸盐测量"
               DataMOK = 11
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 12
               RichTextBox1.Text = "  " & Chr(13) & "    硝酸盐测量"
               DataMOK = 12
               DataMup = DataMdown - 1
               DataMdown = DataMdown + 1
            Case 13
               RichTextBox1.Text = "  " & Chr(13) & "    铜测量"
               DataMOK = 13
               DataMup = 12
               DataMdown = 1
        End Select
    End If
End Sub

Private Sub cmdGoon_Click()
    Timer1.Enabled = False
    menu = True
    If menuRow = 0 And menuUp = 0 And menuDown = 0 Then
        RichTextBox1.Text = "  " & Chr(13) & "    数据测量"
        menuUp = 4
        menuDown = 2
        DataMup = 0
        DataMdown = 0
'        DataMOK = 1
        menuRow = 1
        menuOk = 1
        Exit Sub
    End If
    
    
    If menuRow = 1 And menuOk = 1 Then
        RichTextBox1.Text = "  " & Chr(13) & "    温度测量"
        DataMdown = 2
        DataMup = 12
        menuRow = 2
        menuOk = 1
        DataMOK = 1
        Exit Sub
    End If
    
    If menuRow = 1 And menuOk = 3 Then
        RichTextBox1.Text = "  " & Chr(13) & "    PH测量"
        bdDown = 3
        bdUp = 120
        menuRow = 2
        bdOk = 1
'        menuOk = 3
        Exit Sub
    End If
    
    bdmxUp = bdOk
    bdmxDown = bdOk
    bdj = bdOk \ 10
    bdk = bdOk Mod 10
    If menuRow = 2 And menuOk = 3 Then
        If bdk = 0 Then
            RichTextBox1.Text = "  " & Chr(13) & "    存水标定"
            menuRow = 3
            bdmxDown = bdmxDown + 1
            bdmxUp = bdmxUp + 3
        End If
    End If
End Sub

Private Sub cmdPower_Click()
     RichTextBox1.Text = "  " & Chr(13) & "    欢迎使用" & Chr(13) & "    BL-100" & Chr(13) & ""
     Timer1.Enabled = True
End Sub

Private Sub cmdUp_Click()

    If menu = True Then
        If menuRow = 1 And DataMup = 0 Then
            Text1.Text = menuUp
            Select Case menuUp
                Case 1
                    RichTextBox1.Text = "  " & Chr(13) & "    数据测量"
                    menuOk = 1
                    menuDown = 2
                    menuUp = 5
                Case 2
                    RichTextBox1.Text = "  " & Chr(13) & "    数据查阅"
                    menuOk = 2
                    menuDown = menuUp + 1
                    menuUp = menuUp - 1
                Case 3
                   RichTextBox1.Text = "  " & Chr(13) & "    仪器标定"
                   menuOk = 3
                   menuDown = menuUp + 1
                   menuUp = menuUp - 1
                Case 4
                   RichTextBox1.Text = "  " & Chr(13) & "    时间调整"
                   menuOk = 4
                   menuDown = menuUp + 1
                   menuUp = menuUp - 1
                Case 5
                   RichTextBox1.Text = "  " & Chr(13) & "    数据通讯"
                   menuOk = 5
                   menuDown = 1
                   menuUp = menuUp - 1
               
            End Select
         End If
         '测量
         DataMupsub
         bdUpsub
        
        bdj = bdmxUp \ 10
        bdk = bdmxUp Mod 10
        
        If menuRow = 3 And menuOk = 3 Then
            If bdk = 0 Then
                RichTextBox1.Text = "  " & Chr(13) & "    存水标定"
                bdmxOk = 1
                bdmxDown = bdmxUp + 1
                bdmxUp = bdmxUp + 3
            End If
            If bdk = 1 Then
                If bdj = 5 Then
                    RichTextBox1.Text = "  " & Chr(13) & "    标定0.2溶液"
                Else
                    RichTextBox1.Text = "  " & Chr(13) & "    标定0.05溶液"
                End If
                bdmxOk = 2
                bdmxDown = bdmxUp + 1
                bdmxUp = bdmxUp - 1
            End If
            If bdk = 2 Then
                If bdj = 5 Then
                    RichTextBox1.Text = "  " & Chr(13) & "    标定0.6溶液"
                Else
                    RichTextBox1.Text = "  " & Chr(13) & "    标定0.1溶液"
                End If
                bdmxOk = 3
                bdmxDown = bdmxUp + 1
                bdmxUp = bdmxUp - 1
            End If
            If bdk = 3 Then
                If bdj = 5 Then
                    RichTextBox1.Text = "  " & Chr(13) & "    标定1.0溶液"
                Else
                    RichTextBox1.Text = "  " & Chr(13) & "    标定0.2溶液"
                End If
                bdmxOk = 4
                bdmxDown = bdmxUp - 3
                bdmxUp = bdmxUp - 1
            End If
        End If
    End If
End Sub
Private Sub bdUpsub()
    If menuRow = 2 And menuOk = 3 Then
       Text1.Text = bdUp
       Select Case bdUp
           Case 2
              RichTextBox1.Text = "  " & Chr(13) & "    PH标定"
              bdOk = 2
              bdDown = 3
              bdUp = 130
           Case 3
              RichTextBox1.Text = "  " & Chr(13) & "    盐份标定"
              bdOk = 3
              bdDown = 4
              bdUp = 2
           Case 4
              RichTextBox1.Text = "  " & Chr(13) & "    含氧标定"
              bdOk = 4
              bdDown = 50
              bdUp = 3
           Case 50
              RichTextBox1.Text = "  " & Chr(13) & "    H2S标定"
              bdOk = 50
              bdDown = 60
              bdUp = 4
           Case 60
              RichTextBox1.Text = "  " & Chr(13) & "    N3H标定"
              bdOk = 60
              bdUp = 50
              bdDown = 70
           Case 70
              RichTextBox1.Text = "  " & Chr(13) & "    磷标定"
              bdOk = 70
              bdDown = 80
              bdUp = 60
           Case 80
              RichTextBox1.Text = "  " & Chr(13) & "    氰化物标定"
              bdOk = 80
              bdDown = 90
              bdUp = 70
           Case 90
              RichTextBox1.Text = "  " & Chr(13) & "    氟化物标定"
              bdOk = 90
              bdDown = 100
              bdUp = 80
           Case 100
              RichTextBox1.Text = "  " & Chr(13) & "    锌标定"
              bdOk = 100
              bdDown = 110
              bdUp = 90
           Case 110
              RichTextBox1.Text = "  " & Chr(13) & "    亚硝酸盐标定"
              bdOk = 110
              bdDown = 120
              bdUp = 100
           Case 120
              RichTextBox1.Text = "  " & Chr(13) & "    硝酸盐标定"
              bdOk = 120
              bdDown = 130
              bdUp = 110
           Case 130
              RichTextBox1.Text = "  " & Chr(13) & "    铜标定"
              bdOk = 130
              bdDown = 2
              bdUp = 120
          End Select
    End If
End Sub
Private Sub DataMupsub()
    If menuRow = 2 And menuOk = 1 Then
         Text1.Text = DataMup
        Select Case DataMup
            Case 1
                RichTextBox1.Text = "  " & Chr(13) & "    温度测量"
                DataMOK = 1
                DataMdown = 2
                DataMup = 13

            Case 2
               RichTextBox1.Text = "  " & Chr(13) & "    PH测量"
               DataMOK = 2
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 3
               RichTextBox1.Text = "  " & Chr(13) & "    盐份测量"
               DataMOK = 3
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 4
               RichTextBox1.Text = "  " & Chr(13) & "    含氧测量"
               DataMOK = 4
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 5
               RichTextBox1.Text = "  " & Chr(13) & "    H2S测量"
               DataMOK = 5
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 6
               RichTextBox1.Text = "  " & Chr(13) & "    NH3测量"
               DataMOK = 6
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 7
               RichTextBox1.Text = "  " & Chr(13) & "    磷测量"
               DataMOK = 7
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 8
               RichTextBox1.Text = "  " & Chr(13) & "    氰化物测量"
               DataMOK = 8
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 9
               RichTextBox1.Text = "  " & Chr(13) & "    氟化物测量"
               DataMOK = 9
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 10
               RichTextBox1.Text = "  " & Chr(13) & "    锌测量"
               DataMOK = 10
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 11
               RichTextBox1.Text = "  " & Chr(13) & "    硝酸盐测量"
               DataMOK = 11
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 12
               RichTextBox1.Text = "  " & Chr(13) & "    硝酸盐测量"
               DataMOK = 12
               DataMdown = DataMup + 1
               DataMup = DataMup - 1
            Case 13
               RichTextBox1.Text = "  " & Chr(13) & "    铜测量"
               DataMOK = 13
               DataMdown = 1
               DataMup = DataMup - 1
        End Select
    End If
End Sub

Private Sub Form_Load()
    menu = False
    menuUp = 0
    menuDown = 0
    menuRow = 0
    
    DataMOK = 0
    DataMdown = 0
    DataMup = 0
    
    bdUp = 0
    bdDown = 0
    bdOk = 0
    
End Sub

Private Sub Timer1_Timer()
    RichTextBox1.Text = "  " & Chr(13) & "    中国水产" & Chr(13) & Date & " " & Time & Chr(13) & ""
End Sub