form1.vb

项目是为日本瑞萨工作所做的BAKE炉温控系统 整个文件夹包括设计文档

        'Label2
        '
        Me.Label2.ForeColor = System.Drawing.Color.Green
        Me.Label2.Location = New System.Drawing.Point(40, 53)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(88, 23)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "管理员："
        '
        'Label22
        '
        Me.Label22.Font = New System.Drawing.Font("楷体_GB2312", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label22.ForeColor = System.Drawing.Color.Maroon
        Me.Label22.Location = New System.Drawing.Point(680, 16)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(144, 64)
        Me.Label22.TabIndex = 24
        Me.Label22.Text = "请先选择需要显示的Bake炉号，然后按开始"
        '
        'StateTxt
        '
        Me.StateTxt.BackColor = System.Drawing.Color.Bisque
        Me.StateTxt.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.StateTxt.ForeColor = System.Drawing.Color.Teal
        Me.StateTxt.Location = New System.Drawing.Point(488, 672)
        Me.StateTxt.Name = "StateTxt"
        Me.StateTxt.Size = New System.Drawing.Size(464, 21)
        Me.StateTxt.TabIndex = 25
        Me.StateTxt.Text = ""
        '
        'Timer3
        '
        '
        'ButState
        '
        Me.ButState.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.ButState.ForeColor = System.Drawing.Color.Teal
        Me.ButState.Location = New System.Drawing.Point(952, 672)
        Me.ButState.Name = "ButState"
        Me.ButState.Size = New System.Drawing.Size(75, 32)
        Me.ButState.TabIndex = 26
        Me.ButState.Text = "隐藏信息"
        '
        'Label11
        '
        Me.Label11.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label11.ForeColor = System.Drawing.Color.Teal
        Me.Label11.Location = New System.Drawing.Point(8, 680)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(128, 16)
        Me.Label11.TabIndex = 27
        Me.Label11.Text = "软件版本号：V2.0"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(10, 22)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.ClientSize = New System.Drawing.Size(1024, 702)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.ButState)
        Me.Controls.Add(Me.StateTxt)
        Me.Controls.Add(Me.Label22)
        Me.Controls.Add(Me.TabControl1)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.StartBut)
        Me.Controls.Add(Me.MSComm1)
        Me.Controls.Add(Me.ExitBut)
        Me.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.ForeColor = System.Drawing.Color.Blue
        Me.MaximizeBox = False
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "瑞萨烘干机系统"
        CType(Me.MSComm1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.TabPage4.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.TabPage5.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.txt.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.TabPage6.ResumeLayout(False)
        Me.GroupBox7.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    REM  全局变量声明
    Dim SendData() As Byte  '发送数组
    Dim RecvData() As Byte  '接收数组
    Dim Flag As Boolean     '避免发送事件中断接收事件
    Dim ShowFlag1, ShowFlag2, ShowFlag3, ShowFlag4 As Boolean
    Public Shared frmMain As Form1
    Dim filename As String   '导出的文件名
    Dim SearchMCUno As Integer
    Dim SearchStartDate As String
    Dim objCmd As New OleDbCommand
    Dim objDA As OleDbDataAdapter
    Dim objTB As DataTable
    Dim objts As New DataGridTableStyle  '？？？？？？？？？？？？
    Public SecondSet1(24), SecondSet2(24), SecondSet3(24), SecondSet4(24) As Byte
    Public CurrentTmpSet1(24), CurrentTmpSet2(24), CurrentTmpSet3(24), CurrentTmpSet4(24) As Integer
    Public InDBFlag As Boolean = False
    Public InDBCount As Integer    '



    REM 加载窗体
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox1.BackColor = Color.YellowGreen
        Form1.frmMain = Me       '引用次窗体里的控件或全局变量时，要加" Form1.frmMain .××"

        REM 串行口初始化
        SCIinit(MSComm1, 1, "9600,N,8,1")

        REM 标志初始化
        ShowFlag1 = False : ShowFlag2 = False : ShowFlag3 = False : ShowFlag4 = False

        REM 日历初始化
        DateTimePicker1.Value = Now.Date
        DateTimePicker2.Value = Now.Date

        REM 不可更改DataGrid中显示的数据
        DataGrid1.ReadOnly = True

        REM 定时器定时间隔
        Timer1.Interval = 2000       '每隔5秒中断一次
        timer6.AutoReset = True
        Timer3.Interval = 3000

    End Sub

    REM 单击"退出"按钮
    Private Sub ExitBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitBut.Click

        REM 关闭串口
        If MSComm1.PortOpen = True Then MSComm1.PortOpen = False

        '      buffer.Save(System.IO.Directory.GetParent(Application.StartupPath).FullName & "\DataBase\" & Now.ToShortDateString & ".bmp")

        REM 卸载本窗体
        End '??????????????Application.Exit()

    End Sub

    REM 定时器1定时中断事件
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ReDim SendData(4)
        Dim DelayTime As Integer
        Dim start As Long

        Timer1.Enabled = False
        REM 每10秒发送接收所有数据的请求
        If ShowFlag1 = True Then StateTxt.Text = SendRecv(1) '接收1＃的数据
        If ShowFlag2 = True Then SendRecv(2) '接收2＃的数据
        If ShowFlag3 = True Then SendRecv(3) '接收3＃的数据
        If ShowFlag4 = True Then SendRecv(4) '接收4＃的数据

        InDBCount += 1
        If InDBCount = 600 Then
            InDBFlag = True
            InDBCount = 0
        End If

        ''''''''''''''        Panel1.Left = Panel1.Left - 1
        Timer1.Enabled = True

    End Sub

    REM 单击"开始"按钮
    Private Sub StartBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartBut.Click
        ''Dim g As Graphics
        ''g = PictureBox1.CreateGraphics()
        '''清空画的图
        ''g.Clear(Color.YellowGreen)

        '       buffer0 = Image.FromFile(System.IO.Directory.GetParent(Application.StartupPath).FullName & "\DataBase\tmp0.bmp")

        REM 允许定时器开始计时
        Timer1.Enabled = True
        Label22.Visible = False
        StateTxt.Text = "开始"

    End Sub

    REM 选项卡切换
    Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click
        If TabControl1.SelectedIndex <> 5 And TabControl1.SelectedIndex <> 0 And G_ManagerFlag = False Then
            MsgBox("本选项需要管理员身份！")
            TabControl1.SelectedIndex = 5

        End If

        Select Case TabControl1.SelectedIndex
            Case 0
                ''Button1.Text = "显示1＃" : Button2.Text = "显示2＃" : Button3.Text = "显示3＃" : Button4.Text = "显示4＃"
                ShowFlag1 = False : ShowFlag2 = False : ShowFlag3 = False : ShowFlag4 = False

            Case 1
                ShowFlag1 = False : ShowFlag2 = False : ShowFlag3 = False : ShowFlag4 = False
                ComboBox4.Text = "1＃"
                StateTxt.Text = "开始查询"
            Case 2
                ShowFlag1 = False : ShowFlag2 = False : ShowFlag3 = False : ShowFlag4 = False
                ComboBox1.Text = "1＃"
                AdjTxt.Text = ""
                StateTxt.Text = "校准当前温度"
            Case 3
                ShowFlag1 = False : ShowFlag2 = False : ShowFlag3 = False : ShowFlag4 = False
                ComboBox2.Text = "1＃"
                ComboBox3.Text = ""
                StateTxt.Text = "修改Bake炉号"



                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Case 4
                ShowFlag1 = False : ShowFlag2 = False : ShowFlag3 = False : ShowFlag4 = False
                ComboBox5.Text = "" : ComboBox6.Text = ""
                lbPhy.Text = "" : lbAD.Text = ""
                '初始化选路控件
                InitComBox1(ComboBox5)
                '''''''''''''''''''''''' btnRevise.Enabled = False

                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Case 5
                ShowFlag1 = False : ShowFlag2 = False : ShowFlag3 = False : ShowFlag4 = False

        End Select
    End Sub
    REM 校准当前温度
    Private Sub AdjTxt_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles AdjTxt.KeyPress

        If Asc(e.KeyChar) = 13 Then
            If Val(AdjTxt.Text) < 999 Then
                SendAdjust(Val(Microsoft.VisualBasic.Left(ComboBox1.Text, 1)), CByte(Asc("W")), Val(AdjTxt.Text))
                StateTxt.Text = "校准当前温度为" & Val(AdjTxt.Text) & "℃"
            Else
                MsgBox("校准值太大，请重新输入！")
            End If

        End If

    End Sub
    REM 修改MCU号
    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged

        Dim no1, no2 As Byte
        no1 = Val(Microsoft.VisualBasic.Left(ComboBox2.Text, 1))   '可以不加取左函数
        no2 = Val(ComboBox3.Text)
        If no1 = no2 Then
            MsgBox("本来就是" & no1 & "＃！" & Chr(10) & "请重新选择！", MsgBoxStyle.Information)
        Else
            SendMCUno(no1, no2)
            StateTxt.Text = "将" & no1 & "号MCU改为" & no2 & "号"
        End If

    End Sub
    ''''''REM "显示1＃"按钮
    ''''''Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''''''    If Button1.Text = "不显示1＃" Then
    ''''''        ShowFlag1 = False
    ''''''        Button1.Text = "显示1＃"
    ''''''    Else
    ''''''        ShowFlag1 = True
    ''''''        Button1.Text = "不显示1＃"
    ''''''    End If
    ''''''End Sub
    ''''''REM "显示2＃"按钮
    ''''''Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''''''    If Button2.Text = "不显示2＃" Then
    ''''''        ShowFlag2 = False
    ''''''        Button2.Text = "显示2＃"
    ''''''    Else
    ''''''        ShowFlag2 = True
    ''''''        Button2.Text = "不显示2＃"
    ''''''    End If
    ''''''End Sub
    ''''''REM "显示3＃"按钮
    ''''''Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''''''    If Button3.Text = "不显示3＃" Then
    ''''''        ShowFlag3 = False
    ''''''        Button3.Text = "显示3＃"
    ''''''    Else