module1.bas

与仪源安检仪通讯实例

Attribute VB_Name = "Module1"
Option Explicit
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Public Const Err1 = "系统错误："
Public Const err2 = "系统错误"
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Type ParaFormat     '104Byte
    para01 As String * 1
    para02 As String * 1
    para11 As String * 1
    para12 As String * 4
    para13 As String * 5
    para14 As String * 4
    para15 As String * 3
    para21 As String * 1
    para22 As String * 4
    para23 As String * 5
    para24 As String * 4
    para25 As String * 3
    para31 As String * 1
    para32 As String * 4
    para33 As String * 5
    para34 As String * 4
    para35 As String * 3
    para41 As String * 1
    para42 As String * 4
    para43 As String * 5
    para44 As String * 4
    para45 As String * 3
    para51 As String * 1
    para52 As String * 4
    para53 As String * 5
    para54 As String * 4
    para55 As String * 3
    para61 As String * 1
    para62 As String * 4
    para63 As String * 5
    para64 As String * 4
    para65 As String * 3
End Type
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'读取设置信息的缓冲变量
Public Setpara As ParaFormat
'系统设置变量
Public flgFirst As String * 1
Public msType As String
Public comPort As Integer
Public comBaud As String
Public TestType As String
Public StartNo As String
Public Tester As String
Public InstrNo As String
Public Savepath As String
'参数设置变量
Public Group As Integer
Public Frequ As Integer
Public Keepon As Integer
Public Setinfo(1 To 6, 1 To 5) As String
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'自动保存打印变量
Public AutoSaveFlag(5) As String * 1
Public AutoINC As Boolean
Public AutoSave As Boolean
Public AutoSavefile As String
Public AutoStr1 As String, AutoStr2 As String, AutoStr3 As String, AutoStr0 As String
Public AutoLng As Long, AutoNo As Integer, AutoFormat As String
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'文件变量
Public Mainpath As String
Public Filename As String
Public flgAbout As Integer
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'暂存变量
Public i As Integer, j As Integer
Public tmpstr As String, tmpint As Integer, tmpsin As Single
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Sub Readsetsys()
Filename = Mainpath + "setsys.ms"
Open Filename For Input As #1
Line Input #1, flgFirst
Line Input #1, msType
Line Input #1, tmpstr
comPort = tmpstr
Line Input #1, comBaud
Line Input #1, TestType
Line Input #1, StartNo
Line Input #1, Tester
Line Input #1, InstrNo
Line Input #1, Savepath
Line Input #1, tmpstr
Group = tmpstr
Close #1
End Sub

Sub Writesetsys()
Filename = Mainpath + "setsys.ms"
Open Filename For Output As #1
Print #1, flgFirst
Print #1, msType
tmpstr = comPort
Print #1, tmpstr
Print #1, comBaud
Print #1, TestType
Print #1, StartNo
Print #1, Tester
Print #1, InstrNo
Print #1, Savepath
tmpstr = Group
Print #1, tmpstr
Close #1
End Sub

Sub Readsetpara()
Filename = Mainpath + "setpara.ms"
Open Filename For Random As #2 Len = 104
Get #2, Group, Setpara
Close #2
Frequ = Setpara.para01
Keepon = Setpara.para02
Setinfo(1, 1) = Setpara.para11
Setinfo(1, 2) = Setpara.para12
Setinfo(1, 3) = Setpara.para13
Setinfo(1, 4) = Setpara.para14
Setinfo(1, 5) = Setpara.para15
Setinfo(2, 1) = Setpara.para21
Setinfo(2, 2) = Setpara.para22
Setinfo(2, 3) = Setpara.para23
Setinfo(2, 4) = Setpara.para24
Setinfo(2, 5) = Setpara.para25
Setinfo(3, 1) = Setpara.para31
Setinfo(3, 2) = Setpara.para32
Setinfo(3, 3) = Setpara.para33
Setinfo(3, 4) = Setpara.para34
Setinfo(3, 5) = Setpara.para35
Setinfo(4, 1) = Setpara.para41
Setinfo(4, 2) = Setpara.para42
Setinfo(4, 3) = Setpara.para43
Setinfo(4, 4) = Setpara.para44
Setinfo(4, 5) = Setpara.para45
Setinfo(5, 1) = Setpara.para51
Setinfo(5, 2) = Setpara.para52
Setinfo(5, 3) = Setpara.para53
Setinfo(5, 4) = Setpara.para54
Setinfo(5, 5) = Setpara.para55
Setinfo(6, 1) = Setpara.para61
Setinfo(6, 2) = Setpara.para62
Setinfo(6, 3) = Setpara.para63
Setinfo(6, 4) = Setpara.para64
Setinfo(6, 5) = Setpara.para65
End Sub

Sub Writesetpara()
Setpara.para01 = Frequ
Setpara.para02 = Keepon
Setpara.para11 = Setinfo(1, 1)
Setpara.para12 = Setinfo(1, 2)
Setpara.para13 = Setinfo(1, 3)
Setpara.para14 = Setinfo(1, 4)
Setpara.para15 = Setinfo(1, 5)
Setpara.para21 = Setinfo(2, 1)
Setpara.para22 = Setinfo(2, 2)
Setpara.para23 = Setinfo(2, 3)
Setpara.para24 = Setinfo(2, 4)
Setpara.para25 = Setinfo(2, 5)
Setpara.para31 = Setinfo(3, 1)
Setpara.para32 = Setinfo(3, 2)
Setpara.para33 = Setinfo(3, 3)
Setpara.para34 = Setinfo(3, 4)
Setpara.para35 = Setinfo(3, 5)
Setpara.para41 = Setinfo(4, 1)
Setpara.para42 = Setinfo(4, 2)
Setpara.para43 = Setinfo(4, 3)
Setpara.para44 = Setinfo(4, 4)
Setpara.para45 = Setinfo(4, 5)
Setpara.para51 = Setinfo(5, 1)
Setpara.para52 = Setinfo(5, 2)
Setpara.para53 = Setinfo(5, 3)
Setpara.para54 = Setinfo(5, 4)
Setpara.para55 = Setinfo(5, 5)
Setpara.para61 = Setinfo(6, 1)
Setpara.para62 = Setinfo(6, 2)
Setpara.para63 = Setinfo(6, 3)
Setpara.para64 = Setinfo(6, 4)
Setpara.para65 = Setinfo(6, 5)
Filename = Mainpath + "setpara.ms"
Open Filename For Random As #2 Len = 104
Put #2, Group, Setpara
Close #2
End Sub