module1.bas

一个用VB编写的串口通信程序

Attribute VB_Name = "Module1"
Public Const datalength = 65535
Public Const scalelength = 32767
'收发数据
Public indata(0 To datalength, 1 To 2) As Single
Public outdata(0 To datalength, 1 To 2) As Single

'收发数据指针
Public datapointer_out As Integer
Public datapointer_in As Integer

Public tempdata(1) As Variant
Public seriauto As Boolean
Public prevalidata As Integer
Public pretime As Integer
Public pretime_in As Integer


Public realtime As Long
Public zerovalue As Integer
Public bufferclear As Integer

Public laterpoint As Integer
Public formerpoint As Integer

Public sigam As Integer
Public sigfrequency As Integer
Public sighalfperiod As Integer
Public sigphase As Integer
Public signaltype As Integer
Public viewerstate As Integer
Public starttime As Single

Sub initialvariable()
    viewerstate = 1
    datapointer_in = 0
    datapointer_out = 0
    If Viewer.receiveonly.Value <> 1 Then
        SignalSource.Timer1.Enabled = True
    End If
    pretime_in = 0
End Sub

Sub stopvariable()
    viewerstate = 2
    SignalSource.Timer1.Enabled = False
    controllor.send.Enabled = False
    Viewer.Timer1.Enabled = False
        
    sericomm.MSComm1.InBufferCount = 0
    sericomm.MSComm1.OutBufferCount = 0
End Sub