main.bas

异步电机控制 异步电机控制 异步电机控制 异步电机控制

Attribute VB_Name = "Module1"
Public intport As Integer
Public strset As String

Public strparapath As String
Public strwhole As String
Public nametxt  As String
Public stralltxtpath As String
Public strneedtxtpath As String
Public strjpegpath As String

Public blnreceiveflag As Boolean

Public need(0 To 1000) As Long
Public all(0 To 100000) As String
Public bulenth As Long
Public bunumber As Long
Public x As Long
Public y As Long
Public dtcolour As Variant
Public i As Integer
Public j As Integer
Public c As Integer
Public m As Integer
Public n As Integer