Attribute VB_Name = "PublicVar"
Option Explicit
Public OpenPort As Byte
Public PortSet As String
Public Sbyte() As Byte                '串行接受數組
Public FullPath As String
'Public RecNum As Integer              '接收個數
'Public TraNum As Integer              '發送個數
Public CmdIndex As Byte                'Frv2當前按下的按鈕
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)    '睡眠API
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long    '打開文件API
Public Sub MSCommset()
OpenPort = Form1.Combo1.Text
PortSet = Form1.Combo2.Text & "," & Form1.Combo4.Text & "," & _
Form1.Combo3.Text & "," & Form1.Combo5.Text
With Form1.MSComm1             'MSComm Setting
    .OutBufferSize = 2
    .InBufferSize = 1
    .InputMode = comInputModeBinary
    .InputLen = 1              '一次從緩沖區讀取一字節
    .RThreshold = 1            '接收一字節就中斷
    .OutBufferCount = 0        '輸出清0
    .InBufferCount = 0         '輸入清0
    .CommPort = OpenPort       '設置打開端口
    .Settings = PortSet        '設置波特特率
    .PortOpen = True           '打開端口
End With
End Sub
Public Sub StartAD()
Sleep 100
Call SendF
ReDim Sbyte(0)
Sbyte(0) = 0                               '啟動AD
Form1.MSComm1.Output = Sbyte
Sleep 100
Sbyte(0) = &HE0
Form1.MSComm1.Output = Sbyte
End Sub
Public Sub StopAD()
ReDim Sbyte(0)
Sbyte(0) = 0                               '停止AD
Form1.MSComm1.Output = Sbyte
Sleep 100
Sbyte(0) = &HC0
Form1.MSComm1.Output = Sbyte
End Sub

Public Sub SendF()
ReDim Sbyte(0)
Sbyte(0) = 0                               '發送頻率
Form1.MSComm1.Output = Sbyte
Sleep 100
Sbyte(0) = &H80 + (FrV.HZ.Value / 10 - 1) * 2
Form1.MSComm1.Output = Sbyte
End Sub
Public Sub SendB(bSend As Byte)                '發送一個字節
ReDim Sbyte(0)
Sbyte(0) = bSend
Form1.MSComm1.Output = Sbyte
Sleep 100
End Sub

Public Sub FrmDisCtr(Frm As Form)           '窗體在屏幕中間顯示
Frm.Left = (Screen.Width - Frm.Width) / 2
Frm.Top = (Screen.Height - Frm.Height) / 2
End Sub
Public Sub Path(FilePath As String)
If Right(App.Path, 1) = "\" Then       '若App.Path為根目錄
FullPath = App.Path + FilePath
Else
FullPath = App.Path + "\" + FilePath
End If
End Sub

Public Sub SendW()
Dim TmpStep As Byte
ReDim Sbyte(0)
Sbyte(0) = 0                                '發送波形
Form1.MSComm1.Output = Sbyte
Sleep 100
Select Case CmdIndex
    Case 1
        TmpStep = &H40
    Case 2
        TmpStep = &H60
    Case 3
        TmpStep = &H20
End Select
Sbyte(0) = (FrV2.SEG3.Value / 50 - 1) + TmpStep
Form1.MSComm1.Output = Sbyte
End Sub