module1.bas

LED显示屏

Attribute VB_Name = "Module1"
Public StrText As String, intTimer1K As Integer, strMid1() As String, strMid2() As String
Public intFlag1 As Integer, strFlagZ As String, strFilename As String
Public byteS() As Byte, bytNum(1 To 32) As Byte, strChange As String, intI As Integer
Public intTh As Integer, bytAsc() As Byte, intJ As Integer
Public intH As Integer, strH(1 To 2048) As String, bytHex(1 To 4096, 1 To 32) As Byte
Public strText1 As String, intPing As Long, bytRec() As Byte
Public bytHexChange() As Byte, tFlag1 As Boolean, blnFlagm As Boolean
'Public bytHexChange(1 To 1024 * 31) As Byte