data.bas

提供给入门级别的GPRS编程人员

Dim tempdata() As Byte
ReDim tempdata(0 To 13 + UBound(senddata)) As Byte

 '3字节开始符+5字节识别码+1字节字节数+2字节命令符+数据所占字节数+2字节结束符号=13+numdata-1=12+ numdata


For i = 0 To 4 Step 1  '识别码（规定值）
pack_sigcode(i) = &H5A
Next i
packnumbytes = 24 '初始化字节数（每种命令给一个固定的数值）

'命令符（每种命令为不同的命令符作改动）
packsigoreader(0) = &H82
packsigoreader(1) = &HA2 '(01/02/10数据丢失已经解决)

init_startcode
init_sigcode pack_sigcode
init_numbytes packnumbytes
init_sigoreader packsigoreader
init_senddata senddata
init_endcode

For i = 0 To 2 '开始符
tempdata(i) = mytype.startcode(i)
Next i

For i = 0 To 4 Step 1
tempdata(i + 3) = mytype.sigcode(i) '识别码
Next i

tempdata(8) = mytype.numbytes '字节数

'命令符
tempdata(9) = mytype.sigoreader(0)
tempdata(10) = mytype.sigoreader(1)

'数据
For i = 0 To UBound(mytype.senddata) Step 1
tempdata(i + 11) = mytype.senddata(i)
Next i

'结束符
tempdata(12 + UBound(mytype.senddata)) = mytype.endcode(0)
tempdata(13 + UBound(mytype.senddata)) = mytype.endcode(1)


collect_pctodtu = tempdata
End Function

Public Function join_pctodtu(ByRef senddata() As Byte) As Byte()  '主机接通DTU负荷
Dim strdata As String '数据的字符串形式
Dim i As Long '循环变量
Dim numdata As Long '数据个数
Dim pack_sigcode(0 To 4) As Byte
Dim packnumbytes As Byte
Dim packsigoreader(0 To 1) As Byte
Dim pack_senddata() As Byte
Dim tempdata() As Byte
ReDim tempdata(0 To 13 + UBound(senddata)) As Byte

 '3字节开始符+5字节识别码+1字节字节数+2字节命令符+数据所占字节数+2字节结束符号=13+numdata-1=12+ numdata


For i = 0 To 4 Step 1  '识别码（规定值）
pack_sigcode(i) = &H5A
Next i
packnumbytes = 24 '初始化字节数（每种命令给一个固定的数值）

'命令符（每种命令为不同的命令符作改动）
packsigoreader(0) = &H82
packsigoreader(1) = &HA3 '(01/02/10数据丢失已经解决)

init_startcode
init_sigcode pack_sigcode
init_numbytes packnumbytes
init_sigoreader packsigoreader
init_senddata senddata
init_endcode

For i = 0 To 2 '开始符
tempdata(i) = mytype.startcode(i)
Next i

For i = 0 To 4 Step 1
tempdata(i + 3) = mytype.sigcode(i) '识别码
Next i

tempdata(8) = mytype.numbytes '字节数

'命令符
tempdata(9) = mytype.sigoreader(0)
tempdata(10) = mytype.sigoreader(1)

'数据
For i = 0 To UBound(mytype.senddata) Step 1
tempdata(i + 11) = mytype.senddata(i)
Next i

'结束符
tempdata(12 + UBound(mytype.senddata)) = mytype.endcode(0)
tempdata(13 + UBound(mytype.senddata)) = mytype.endcode(1)


join_pctodtu = tempdata
End Function

Public Function cut_pctodtu(ByRef senddata() As Byte) As Byte()  '主机断开终端负荷
Dim strdata As String '数据的字符串形式
Dim i As Long '循环变量
Dim numdata As Long '数据个数
Dim pack_sigcode(0 To 4) As Byte
Dim packnumbytes As Byte
Dim packsigoreader(0 To 1) As Byte
Dim pack_senddata() As Byte
Dim tempdata() As Byte
ReDim tempdata(0 To 13 + UBound(senddata)) As Byte

 '3字节开始符+5字节识别码+1字节字节数+2字节命令符+数据所占字节数+2字节结束符号=13+numdata-1=12+ numdata


For i = 0 To 4 Step 1  '识别码（规定值）
pack_sigcode(i) = &H5A
Next i
packnumbytes = 24 '初始化字节数（每种命令给一个固定的数值）

'命令符（每种命令为不同的命令符作改动）
packsigoreader(0) = &H82
packsigoreader(1) = &HA4 '(01/02/10数据丢失已经解决)

init_startcode
init_sigcode pack_sigcode
init_numbytes packnumbytes
init_sigoreader packsigoreader
init_senddata senddata
init_endcode

For i = 0 To 2 '开始符
tempdata(i) = mytype.startcode(i)
Next i

For i = 0 To 4 Step 1
tempdata(i + 3) = mytype.sigcode(i) '识别码
Next i

tempdata(8) = mytype.numbytes '字节数

'命令符
tempdata(9) = mytype.sigoreader(0)
tempdata(10) = mytype.sigoreader(1)

'数据
For i = 0 To UBound(mytype.senddata) Step 1
tempdata(i + 11) = mytype.senddata(i)
Next i

'结束符
tempdata(12 + UBound(mytype.senddata)) = mytype.endcode(0)
tempdata(13 + UBound(mytype.senddata)) = mytype.endcode(1)


cut_pctodtu = tempdata
End Function

Public Function call_pctodtu(ByRef senddata() As Byte) As Byte()  '主机呼叫DTU
Dim strdata As String '数据的字符串形式
Dim i As Long '循环变量
Dim numdata As Long '数据个数
Dim pack_sigcode(0 To 4) As Byte
Dim packnumbytes As Byte
Dim packsigoreader(0 To 1) As Byte
Dim pack_senddata() As Byte
Dim tempdata() As Byte
ReDim tempdata(0 To 13 + UBound(senddata)) As Byte

 '3字节开始符+5字节识别码+1字节字节数+2字节命令符+数据所占字节数+2字节结束符号=13+numdata-1=12+ numdata


For i = 0 To 4 Step 1  '识别码（规定值）
pack_sigcode(i) = &H5A
Next i
packnumbytes = 24 '初始化字节数（每种命令给一个固定的数值）

'命令符（每种命令为不同的命令符作改动）
packsigoreader(0) = &H82
packsigoreader(1) = &HA5 '(01/02/10数据丢失已经解决)

init_startcode
init_sigcode pack_sigcode
init_numbytes packnumbytes
init_sigoreader packsigoreader
init_senddata senddata
init_endcode

For i = 0 To 2 '开始符
tempdata(i) = mytype.startcode(i)
Next i

For i = 0 To 4 Step 1
tempdata(i + 3) = mytype.sigcode(i) '识别码
Next i

tempdata(8) = mytype.numbytes '字节数

'命令符
tempdata(9) = mytype.sigoreader(0)
tempdata(10) = mytype.sigoreader(1)

'数据
For i = 0 To UBound(mytype.senddata) Step 1
tempdata(i + 11) = mytype.senddata(i)
Next i

'结束符
tempdata(12 + UBound(mytype.senddata)) = mytype.endcode(0)
tempdata(13 + UBound(mytype.senddata)) = mytype.endcode(1)


call_pctodtu = tempdata
End Function

Public Function clear_pctodtu(ByRef senddata() As Byte) As Byte()  '主机清除DTU电量
Dim strdata As String '数据的字符串形式
Dim i As Long '循环变量
Dim numdata As Long '数据个数
Dim pack_sigcode(0 To 4) As Byte
Dim packnumbytes As Byte
Dim packsigoreader(0 To 1) As Byte
Dim pack_senddata() As Byte
Dim tempdata() As Byte
ReDim tempdata(0 To 13 + UBound(senddata)) As Byte

 '3字节开始符+5字节识别码+1字节字节数+2字节命令符+数据所占字节数+2字节结束符号=13+numdata-1=12+ numdata


For i = 0 To 4 Step 1  '识别码（规定值）
pack_sigcode(i) = &H5A
Next i
packnumbytes = 24 '初始化字节数（每种命令给一个固定的数值）

'命令符（每种命令为不同的命令符作改动）
packsigoreader(0) = &H82
packsigoreader(1) = &HA6 '(01/02/10数据丢失已经解决)

init_startcode
init_sigcode pack_sigcode
init_numbytes packnumbytes
init_sigoreader packsigoreader
init_senddata senddata
init_endcode

For i = 0 To 2 '开始符
tempdata(i) = mytype.startcode(i)
Next i

For i = 0 To 4 Step 1
tempdata(i + 3) = mytype.sigcode(i) '识别码
Next i

tempdata(8) = mytype.numbytes '字节数

'命令符
tempdata(9) = mytype.sigoreader(0)
tempdata(10) = mytype.sigoreader(1)

'数据
For i = 0 To UBound(mytype.senddata) Step 1
tempdata(i + 11) = mytype.senddata(i)
Next i

'结束符
tempdata(12 + UBound(mytype.senddata)) = mytype.endcode(0)
tempdata(13 + UBound(mytype.senddata)) = mytype.endcode(1)


clear_pctodtu = tempdata
End Function