modulemain.bas

完整的VB和单片机系统连接的源代码

Attribute VB_Name = "ModuleMain"
'Public fMainForm As frmMain

'Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
'Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long



Type POINT
    X As Single
    Y As Single
End Type

Public Const SPEED_LEN = (&H2000 - &H800) / 2

'软件设置
Public Type type_Setting
    '通讯设置
    ComPort As Integer
    ComSeting As String
    
    '显示设置
    ColorLeftSpeed As Long
    ColorRightSpeed As Long
    ColorHandDraw As Long
    picScaleWidth As Single
    
    '手绘设置
    picHandSmoothScale As Integer '画图平滑范围
    picHandSmoothTimes As Integer '画图平滑次数
    picModifyScale As Integer '修改数据平滑范围
    picModifySmoothScale As Integer '修改数据平滑范围
    picModifySmoothTimes As Integer '修改数据平滑次数
    picModifyMarginLeft As Integer
    picModifyMarginRight As Integer
    picModifyByMean As Boolean  '按平均值进行修改(自动校正纵向偏差)
    
    '井设置
    GapDepth As Single  '脉冲距离
    SpeedDevide As Integer   '保存速度分频
    depth_style As Integer    '深度显示方式
    'max_pnum As Long      '深度最大脉冲数
    well_depth As Integer    '井深脉冲鼠
End Type

Public MainSetting As type_Setting

Public fnWorkLogFileName As String   '日志文件
Public fnParameter As String        '变量存储
Public fnParameterHelp As String    '变量帮助
Public fnSpeedData1 As String    '速度数据1
Public fnSpeedData2 As String    '速度数据2
Public fnHelpFile As String    '软件帮助
Public fnIniFile As String    'INI文件
'图片文件
Public fnPicUp As String    '
Public fnPicDown As String    '
Public fnPicFormIcon As String    '


Sub Main()
    Dim myDir As String
    myDir = App.Path
    If Right(myDir, 1) <> "\" Then myDir = myDir & "\"
    
    fnWorkLogFileName = myDir & "log\protect.log"
    fnParameter = myDir & "data\para.ini"
    fnParameterHelp = myDir & "data\paraHelp.txt"
    fnSpeedData1 = myDir & "data\speed1.log"
    fnSpeedData2 = myDir & "data\speed2.log"
    fnHelpFile = myDir & "help\UserHelp.txt"
    
    fnPicUp = myDir & "pic\up.bmp"    '
    fnPicDown = myDir & "pic\down.bmp"    '
    fnPicFormIcon = myDir & "pic\FormIcon.bmp"     '
    fnIniFile = myDir & App.EXEName & ".ini"
    
    'Dim fLogin As New frmLogin
    'fLogin.Show vbModal
    'If Not fLogin.OK Then
        '登录失败，退出应用程序
    '   End
    'End If
    'Unload fLogin
    
    frmMain.Show
    frmSplash.Show 1, frmMain
    Call frmMain.mnuConnect_Click

'    Set fMainForm = New frmMain
'    Load fMainForm
'    Unload frmSplash
    'frmPara.Show 1, frmMain

'    fMainForm.Show
End Sub

Public Sub SaveLog(s As String)  '保存日志
    Dim fn As String
    Dim nm As String
    fn = fnWorkLogFileName
    nm = Str(Now) + " : " + s
    Open fn For Append As #1
    If s = "打开" Then Print #1, vbCrLf
    Print #1, nm
    Close 1
    If frmLog.Visible = True Then
        Call frmLog.ShowLog
    End If
End Sub