comminute_s.bas

来自「电子皮带秤计量管理系统.完成电子皮带秤的自动计量工作,和销售管理系统配合使用更佳」· BAS 代码 · 共 55 行

Attribute VB_Name = "Modcomminute"
Option Explicit

' *****  延时子程序  *****
'入口：timecon 延时时间
Public Sub DelayTime(timecon As Single)
  Dim StartTime As Single, FinalTime As Single
  
  
  On Error Resume Next
  StartTime = Timer
  FinalTime = Timer
  Do While FinalTime < StartTime + timecon
     DoEvents
     FinalTime = Timer
     If StartTime - FinalTime >= 5 Then StartTime = Timer
  Loop
End Sub

'***** 通讯函数  *****
'入口：Comcontrol 控件，Hao  仪表站号，Delay_Time 延时时间，ComPortClose_Num 串口关闭次数
'出口：返回仪表字符串
Public Function Comminute_S(ComControl As Control, Hao As String, _
                Delay_Time As Single, ComPortClose_Num As Integer) As String
  Static ComminuteFlag As Integer

  On Error Resume Next
  'On Error GoTo ErrorFlag
  
  If ComminuteFlag = 0 Then
     ComControl.CommPort = 1
     ComControl.PortOpen = True
  ElseIf ComminuteFlag >= ComPortClose_Num Then
     ComControl.PortOpen = False
  End If
  
  If ComminuteFlag < ComPortClose_Num Then
     ComControl.Settings = "9600,n,8,1"
     ComControl.Output = Hao
     Call DelayTime(Delay_Time)
     Comminute_S = ComControl.Input
     ComminuteFlag = ComminuteFlag + 1
  Else
     ComminuteFlag = 0
  End If
  Exit Function
ErrorFlag:
  MsgBox "串口" & ComControl.CommPort & "不存在或已经打开，不能运行该程序，" & Chr(13) & Chr(13) & _
         "请设置好硬件或Windows后再试！", vbOKOnly + vbInformation, "串行口打开错误"
  End
End Function