serial.bas

来自「用于工厂的时间同步系统,是VB界面,在工厂能够用一台电脑串口同时接30个终端同步」· BAS 代码 · 共 69 行

Attribute VB_Name = "Module1"
Option Explicit

Public ComOCX As MSComm

Public Sub OpenSerial(ByVal COMPORT As Integer, ByVal sSetting As String)
    With ComOCX
        .Settings = sSetting
        .CommPort = COMPORT
        .PortOpen = True
    End With
End Sub

Public Sub CloseSerial()
    ComOCX.PortOpen = False
End Sub

Public Sub SendData(ByVal hr As Integer, ByVal mt As Integer, ByVal sec As Integer)
Dim Data(0 To 7) As Byte

Dim hrh As String
 Dim hrl As String
 
 Dim mth As String
 Dim mtl As String
 
 Dim sech As String
 Dim secl As String
 
 
    If (hr < 0) Or (hr > 100) Then
        Stop
        Exit Sub
    End If
    
    If (mt < 0) Or (mt > 59) Then
        Stop
        Exit Sub
    End If
     If (sec < 0) Or (sec > 59) Then
        Stop
        Exit Sub
    End If
    
  hrh = Int(hr / 10)
  hrl = hr - 10 * hrh
    
   mth = Int(mt / 10)
  mtl = mt - 10 * mth
  
  sech = Int(sec / 10)
  secl = sec - 10 * sech
  
    Data(0) = &H23
    Data(1) = Asc(hrh)
    Data(2) = Asc(hrl)
    Data(3) = Asc(mth)
    Data(4) = Asc(mtl)
    Data(5) = Asc(sech)
    Data(6) = Asc(secl)
   
   'Data(4) = 3
    'Data(5) = 2
    'Data(6) = 1
    Data(7) = &HD
    ComOCX.Output = Data
    
End Sub