tianyi.bas

This is a test ModBus comm s pragam in "STB-311".

Attribute VB_Name = "tianyi"
Public Dy_DlQ(0 To 255) As Integer


Function Send_tyDz_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String
S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(&H53)
SSS = S
Send_tyDz_Command = SSS
End Function
Function Send_TyCl_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String
S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(&H4D)
SSS = S
Send_TyCl_Command = SSS
End Function

'eb 90 eb 90 02 01 48
Function Send_TyYx_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String
S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(&H48)
SSS = S
Send_TyYx_Command = SSS
End Function
Function Send_TyFz_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String

'EB 90 EB 90 02 01 55 04 33 00 8C 00 03
S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(&H55) + ChrB(&H4) + ChrB(&H33) + ChrB(&H0) + ChrB(&H8C) + ChrB(&H0) + ChrB(&H3)
SSS = S
Send_TyFz_Command = SSS
End Function
Function Send_TyHz_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String

'EB 90 EB 90 02 01 55 04 33 00 8C 00 03
S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(&H55) + ChrB(&H4) + ChrB(&HCC) + ChrB(&H0) + ChrB(&H25) + ChrB(&H1) + ChrB(&H3)
SSS = S
Send_TyHz_Command = SSS
End Function
Function Send_TyAck_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String


S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(&H6)
SSS = S
Send_TyAck_Command = SSS
End Function
'EB 90 EB 90 02 01 06
'EB 90 EB 90 02 01 4f 复归

Function Send_TyReset_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String


S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(&H4F)
SSS = S
Send_TyReset_Command = SSS
End Function
'EB 90 EB 90 02 01 40 03 14 57 00 03
Function Send_TyQsj_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String


S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(&H40) + ChrB(&H3) + ChrB(&H14) + ChrB(&H57) + ChrB(&H0) + ChrB(&H3)
SSS = S
Send_TyQsj_Command = SSS
End Function
Function Send_TySjfg_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String


S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(&H6)
SSS = S
Send_TySjfg_Command = SSS
End Function


Function Send_TyDs_Command(address As Integer) As String
Dim S() As Byte
Dim SSS As String
Dim S1 As String
Dim sum As Integer

Dim YearH As Byte '年高
Dim YearL As Byte '年低

Dim Mon1 As Byte '月
Dim Date1 As Byte '日
Dim Hour1 As Byte '
Dim Mini1 As Byte '
Dim Second1 As Byte
Dim Msl As Byte
Dim Msh As Byte

YearL = Year(Now) \ 100
YearH = Year(Now) Mod 100
Mon1 = Month(Now)
Date1 = Day(Now)
Hour1 = Hour(Now)
Mini1 = Minute(Now)
Second1 = Second(Now)


S() = ChrB(&HEB) + ChrB(&H90) + ChrB(&HEB) + ChrB(&H90) + ChrB(2) + ChrB(address) + ChrB(4) + ChrB(&HB) + ChrB(YearL) + ChrB(YearH) + ChrB(Mon1) + ChrB(Date1) + ChrB(Hour1) + ChrB(Mini1) + ChrB(Second1) + ChrB(Msl) + ChrB(Msh) + ChrB(0) + ChrB(0) + ChrB(3)
S1 = S
sum = 0
For i = 7 To (LenB(S1) - 3)
 sum = sum + AscB(MidB(S1, i, 1))
Next i

MidB(S1, 18, 1) = ChrB(sum Mod 256)
MidB(S1, 19, 1) = ChrB(sum \ 256)

SSS = S1
Send_TyDs_Command = SSS
End Function