module1.bas

该系统为空车计量系统.完成对空车的自动计量.附串口处理程序.

   Attribute VB_Name = "Module1"
'CODE Manger By BcodeXRose
Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public LoginSucceeded As Boolean
Public jl_qym, jl_hth, jl_hwm, jl_qyr, jl_shdw, jl_ch, jl_fhr, jl_shr, jl_sby, jl_jby, jl_zg, jl_sj, jl_dhdd As String
Public jl_bz As Variant
Public jl_mz, jl_pz, jl_pz1, jl_jz, jl_htl, jl_yfsl, jl_wfsl As Long
Public jl_dj, jl_je As Long
Public jl_lsh As Double
Public pr_p, jl_ye, mou As Boolean
Public Const NOTSRCCOPY = &H330008
Public Const NOTSRCERASE = &H1100A6
Public Const SRCAND = &H8800C6
Public Const SRCCOPY = &HCC0020
Public Const SRCERASE = &H440328
Public Const SRCINVERT = &H660046
Public Const SRCPAINT = &HEE0086
'Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
'Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Option Explicit

'##################################################################
'## 过程名称：teb
'## 参数：fh 为String型
'## 参数：cs 为Integer型
'## 参数：i 为Integer型
'##################################################################
Sub teb(fh As String, cs As Integer, i As Integer)
    For i = 0 To cs
        Printer.Print fh;
    Next
End Sub