form1.vb

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

        Me.Label10.Location = New System.Drawing.Point(32, 112)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(88, 23)
        Me.Label10.TabIndex = 13
        Me.Label10.Text = "姓  名："
        '
        'txtName
        '
        Me.txtName.Location = New System.Drawing.Point(128, 112)
        Me.txtName.Name = "txtName"
        Me.txtName.Size = New System.Drawing.Size(192, 29)
        Me.txtName.TabIndex = 14
        Me.txtName.Text = ""
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(10, 22)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.ClientSize = New System.Drawing.Size(1028, 702)
        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.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 = 5000       '每隔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

        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
    ''''''        ShowFlag3 = True
    ''''''        Button3.Text = "不显示3＃"
    ''''''    End If
    ''''''End Sub
    ''''''REM "显示4＃"按钮
    ''''''Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''''''    If Button4.Text = "不显示4＃" Then
    ''''''        ShowFlag4 = False
    ''''''        Button4.Text = "显示4＃"
    ''''''    Else
    ''''''        ShowFlag4 = True
    ''''''        Button4.Text = "不显示4＃"
    ''''''    End If
    ''''''End Sub
    REM 单击"查询"按钮
    Private Sub SearchBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBut.Click
        Dim str0 As String, str1 As String, str2 As String, strInfo As String
        Dim Sdate As String, Edate As String

        REM 显示DataGrid
        DataGrid1.Visible = True
        DataGrid1.Focus()

        REM 查询日期
        Sdate = DateTimePicker1.Text
        Edate = DateTimePicker2.Text

        REM SQL语句初始化
        str0 = "NO" & Val(ComboBox4.Text)
        str1 = "记录日期,当前温度,设定温度,当前时间,设定时间,是否异常"
        str2 = "记录日期 >= # " & Sdate & "# and 记录日期 <= #" & Edate & "# order by 记录日期 "

        REM searchTB（查询的字段，查询的表，查询的条件，显示的DataGrid控件，用于添加的TableStyle）
        strInfo = searchTB(str1, str0, str2, DataGrid1, objts)

SearchBut_exit:
        objts.Dispose()

    End Sub

    REM 单击"导出"按钮
    Private Sub OutBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OutBut.Click
        Dim i As Integer, j As Integer