global.bas

16路舵机控制程序。可以同时控制16个舵机

Attribute VB_Name = "Module1"
'公共变量



Public intPort As Integer                           '串口号
Public strSet As String                             '设置通信参数,如"9600,N,8,1"
Public intTime As Double                            '发送时间间隔



'输入数据文件，实现多步联动
Public posData(0 To 254, 0 To 15) As Integer        '16个伺服电机的位置参数
Public steps As Integer                             '“某个表情”要求要求16电机联合运动的步骤数

'从显示屏中输入，实现单步联动
Public posData2(0 To 254, 0 To 15) As Integer
Public steps2 As Integer

Public strFileName As String                        '输入文件名
Public strFileDirectary As String                   '输入文件的路径



Public Running As Boolean
Public Pause As Boolean                             '暂停？ true/false
Public PauseCopy As Boolean


Public Run As Boolean                               '主窗口加载时，程序是否继续执行


Public iniData(0 To 15) As Integer




Public SvoName(0 To 15) As String
Public SvoMin(0 To 15) As String
Public SvoMax(0 To 15) As String
Public SvoPos(0 To 15) As String