GLOBAL SUB HMI_INIT()
GLOBAL gv_CurParamNum '當前配方號
gv_CurParamNum=0
GLOBAL gv_PageNum '頁碼
gv_PageNum=0
GLOBAL CONST gv_SysMaxAxis=3 '最大軸數
GLOBAL STRUCTURE AxisParam
'''軸參數
DIM No '軸號
DIM AxisAtype '軸類型
DIM AxisDpos '軸的當前位置
DIM OnePulses '軸電機一圈脈沖數
DIM AxisPitch '軸螺距
DIM AxisSpeed '軸的運動速度
DIM AxisAccel '軸的加速度
DIM AxisDecel '軸的減速度
DIM AxisSramp '軸的S曲線時間
DIM AxisLspeed '軸的起始速度
DIM FsLimit '軸正限位
DIM RsLimit '軸負限位
'''回零參數
DIM DatumMode '軸回零模式
DIM BackZeroSpeed '軸的回零速度
DIM AxisCreep '軸的回零第2段速度
DIM DatumIn '軸原點信號
DIM FwdIn '軸正限位信號
DIM RevIn '軸負限位信號
END STRUCTURE
GLOBAL STRUCTURE SysParam
DIM SysAxis(gv_SysMaxAxis) AS AxisParam '系統軸數
DIM FileName(50) '參數文件名
END STRUCTURE
GLOBAL gs_SysParam(50) AS SysParam '定義系統結構體變量
LOCAL lv_i
FOR lv_i=0 to gv_SysMaxAxis-1
'初始化軸參數變量
gs_SysParam(0).SysAxis(lv_i).No=lv_i
gs_SysParam(0).SysAxis(lv_i).AxisAtype=0 '軸類型
gs_SysParam(0).SysAxis(lv_i).OnePulses=8388608 '軸電機一圈脈沖數
gs_SysParam(0).SysAxis(lv_i).AxisPitch=20 '軸螺距
gs_SysParam(0).SysAxis(lv_i).AxisSpeed=100 '軸的運動速度
gs_SysParam(0).SysAxis(lv_i).AxisAccel=1000 '軸的加速度
gs_SysParam(0).SysAxis(lv_i).AxisDecel=1000 '軸的減速度
gs_SysParam(0).SysAxis(lv_i).AxisSramp=0 '軸的S曲線時間
gs_SysParam(0).SysAxis(lv_i).AxisLspeed=0 '軸的起始速度
'初始化回零參數變量
gs_SysParam(0).SysAxis(lv_i).DatumMode=104 '軸的回零模式
gs_SysParam(0).SysAxis(lv_i).BackZeroSpeed=50 '軸的回零速度
gs_SysParam(0).SysAxis(lv_i).AxisCreep=2 '軸的回零第2段速度
gs_SysParam(0).SysAxis(lv_i).DatumIn=-1 '軸的回零信號
gs_SysParam(0).SysAxis(lv_i).FwdIn=-1 '軸的正向硬限位信號
gs_SysParam(0).SysAxis(lv_i).RevIn=-1 '軸的負向硬限位信號
gs_SysParam(0).SysAxis(lv_i).FsLimit=1000 '軸正限位
gs_SysParam(0).SysAxis(lv_i).RsLimit=-1000 '軸負限位
'初始化參數文件
gs_SysParam(0).FileName="NONE" '初始化參數文件名
NEXT
FOR lv_i=0 to 49
gs_SysParam(lv_i)=gs_SysParam(0) '初始化其他配方參數
NEXT
ENDSUB
2.保存配置文件
GLOBAL SUB SaveCurParam()
LOCAL iflsflag
iflsflag=70214733
FLASH_WRITEDBL gv_CurParamNum,iflsflag,gs_SysParam(gv_CurParamNum)
?"下載成功"
ENDSUB
3.讀取配置文件
GLOBAL SUB LoadCurParam()
LOCAL iflsflag,lv_i,addnum
FOR lv_i=0 TO 49
iflsflag=0
FLASH_READDBL lv_i,iflsflag
IF iflsflag=70214733 THEN
FLASH_READ2DBL lv_i,1,gs_SysParam(lv_i)
addnum=addnum+1
ENDIF
NEXT
?"上傳完成,上傳配置文件數:"addnum
ENDSUB
4.刪除配置文件
GLOBAL SUB DeleCurParam()
LOCAL lv_i
FOR lv_i=0 to gv_SysMaxAxis-1
'初始化軸參數變量
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).No=lv_i
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).AxisAtype=0 '軸類型
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).OnePulses=8388608 '軸電機一圈脈沖數
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).AxisPitch=20 '軸螺距
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).AxisSpeed=100 '軸的運動速度
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).AxisAccel=1000 '軸的加速度
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).AxisDecel=1000 '軸的減速度
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).AxisSramp=0 '軸的S曲線時間
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).AxisLspeed=0 '軸的起始速度
'初始化回零參數變量
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).DatumMode=104 '軸的回零模式
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).BackZeroSpeed=50 '軸的回零速度
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).AxisCreep=2 '軸的回零第2段速度
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).DatumIn=-1 '軸的回零信號
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).FwdIn=-1 '軸的正向硬限位信號
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).RevIn=-1 '軸的負向硬限位信號
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).FsLimit=1000 '軸正限位
gs_SysParam(gv_CurParamNum).SysAxis(lv_i).RsLimit=-1000 '軸負限位
'初始化參數文件
gs_SysParam(gv_CurParamNum).FileName="NONE" '初始化參數文件名
NEXT
LOCAL iflsflag
iflsflag=0
FLASH_WRITEDBL gv_CurParamNum,iflsflag,gs_SysParam(gv_CurParamNum)
?"刪除成功"
ENDSUB