define_var.bas

来自「按摩椅软件开发示例,VB-PIC单片机通讯题,主要是串口通讯问题」· BAS 代码 · 共 53 行

Attribute VB_Name = "define_var"
Public TotalString1(8) As String  'define 32 byte array,32byte*8=256byteA1
Public TotalString2(8) As String  'define 32 byte array'                A2
Public TotalString3(8) As String  'define 32 byte array                 A3
Public TotalString4(8) As String 'define 32 byte array                  A4
Public TotalString5(8) As String  'define 32 byte array                 A5
Public TotalString6(8) As String  'define 32 byte array                 A6
Public TotalString7(8) As String  'define 32 byte array                 A7

Public frmB1_TotalStr(8) As String  'define 32 byte array=A1+A2+..+A8


Public convert_code(13) As Integer
Public ConvertFlag As Integer
Public ConvertFlag1 As Integer
Public Db1ConvertFlag As Integer
Public Db2ConvertFlag1 As Integer

Public chk_code As String

Public ExitFlag As Integer
Public COM_var As String



Public frm_1_totalstr(8) As String '资料库_1

Public frm_2_totalstr(8) As String '资料库_2

Public frm_3_totalstr(8) As String '资料库_3

Public frm_4_totalstr(8) As String '资料库_4

Public frm_5_totalstr(8) As String '资料库_5

Public frm_6_totalstr(8) As String '资料库_6

Public frm_7_totalstr(8) As String '资料库_7


Public frm_str  As String '"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"=32BYTE

Public ss As String     'path name