DSP是用户可以编辑自己的界面,包括图标,窗口,对话框等,通过这些元素可以自动连接程序,PRC等,这样可以在同一界面下调用自己想运行的程序,并且运行完后自动返回,程序本身可以是隐藏的.
例如下面的程序
999:CONTIN
!
! EDTICN (NAM=GUIDE)
! EDTICN (NAM=CALIBRATION)
! EDTICN (NAM=GEAR)
! EDTICN (NAM=EXIT)
! EDIT (NAM=SCHALTER, TYP=RBT, MSK=BM$RBTTT)
! EDTDSP (NAM=ABFRAGE)
! EDTICN (NAM=HINTERGRUND)
!
! EDTICN HINTERGRUND_1
! EDTICN JA
! EDTICN NEIN
! EDIT YESNO1, RBT, , , BM$RBTTT
! EDIT YESNO2, RBT, , , BM$RBTTT
EDIT (NAM=YESNO3, TYP=RBT, MSK=BM$RBTTT)
EDTWND (NAM=WIN1)
! EDTWND WIN2
! EDTWND WIN3
! LISREA VAL$1
! EDTTXT (LMG=17,NAM=LOOP)
EDTDSP (NAM=CYCLE)
USEDSP (DSP=CYCLE)
! LISREA (NAM=REA:VAL$*)
!
100:DELCHS (NAM=~KEY1, CNF=N)
USEDSP (DSP=ABFRAGE)
! LISCHS ~KEY1
IFTHENS (ST1=~KEY1, ST2=A, TYP=EQ)
CALL (FIL=c:\calibration.WDB)
UNWIND (FRA=1, LAB=100)
ELSEIFS (ST1=~KEY1, ST2=B, TYP=EQ)
CALL (FIL=C:\gear.WDB)
UNWIND (FRA=1, LAB=100)
ELSEIFS (ST1=~KEY1, ST2=F, TYP=EQ)
CLRALL (CNF=N)
ELSEIFS (ST1=~KEY1, ST2=E, TYP=EQ)
INDPRC (NAM=CYCLE)
ENDIF
GOTO (LAB=100)
EDTPRC (NAM=CYCLE)
如需要,我这里有演示程序,可以发给大家.