forum.vdsworld.com

[Eric]

OPTION PRIORITY,HIGH
%%PROJET = 1
Title VDS CONTROL By Eric
DIALOG CREATE,VDS CONTROL By Eric,-1,0,551,295,NOSYS
DIALOG ADD,STYLE,STYLE1,Verdana,12,BL,FOREGROUND,LTGREEN
DIALOG ADD,STATUS,STATUS1,VDS CONTROL - Project 1
DIALOG ADD,MENU,&File,&New,&Save as,&Exit
DIALOG ADD,MENU,?,Help,About

DIALOG ADD,EDIT,EDIT1,0,2,546,248,Welcome to VDSCONTROL System ! For More Help Click in the '?' Menu and Help.,STYLE1,MULTI,WRAP
DIALOG ADD,BUTTON,BUTTON1,250,483,64,24,Lancer
DIALOG SHOW

:Evloop
wait event
goto @event()


:Save AsMENU
%%SAVE = @filedlg("Source Code VDS CONTROL (*.VDS)|*.VDS",Save a SOURCE CODE,,SAVE)
%N = @NAME(%%SAVE)
if @ok()
LIST CREATE,2
LIST ADD,2,@dlgtext(EDIT1)
FILE DELETE,%%SAVE
LIST SAVEFILE,2,%%SAVE.VDS
DIALOG SET,STATUS1,VDS CONTROL - Project saved in @path(%%SAVE)
LIST CLOSE,2
goto evloop
else
goto evloop
:NewMENU
DIALOG CLEAR,EDIT1
%%PROJET = @sum(%%PROJET,1)
DIALOG SET,STATUS1,VDS CONTROL - Projet %%PROJET
goto evloop
:ExitMENU
goto close
:HelpMENU
info THIS IS THE COMMANDS : @cr()@cr()TITLE@cr()WARN@cr()EXIT@cr()STOP@cr()RUN@CR()WAIT@cr()PLAY@CR()BEEP@cr()INFO@cr()EXITWIN.
goto evloop
:AboutMENU
info VDS CONTROL@cr()@cr()Free Memory = @SYSINFO(FREEMEM) KO
goto evloop
:BUTTON1BUTTON


LIST CREATE,1
LIST ADD,1,@dlgtext(edit1)
LIST SAVEFILE,1,VBadru.tmp
LIST LOADFILE,1,VBadru.tmp
%%A = -1
%%C = 0

:vrif
repeat

%%C = @sum(%%C,1)

%%A = @sum(%%A,1)
LIST SEEK,1,%%A
%%B = @item(1)


if @equal(@substr(%%B,1,7),EXITWIN)
EXITWIN @substr(%%B,9,1000)
goto until2
else
if @equal(@substr(%%B,1,3),RUN)
RUN @substr(%%B,5,1000)
goto until2
else
if @equal(@substr(%%B,1,4),wait)
wait @substr(%%B,6,30)
goto until2
else
if @equal(@substr(%%B,1,4),beep)
beep
goto until2
else
if @equal(@substr(%%B,1,4),play)
play @substr(%%B,6,1000),wait
goto until2
else
if @equal(@substr(%%B,1,4),exit)
FILE DELETE,VCONTROL.tmp
exit
goto until2
else
if @equal(@substr(%%B,1,4),info)
info @substr(%%B,6,1000)
goto until2
else
if @equal(@substr(%%B,1,5),title)
title @substr(%%B,7,1000)
goto until2
else
if @equal(@substr(%%B,1,4),warn)
warn @substr(%%B,6,1000)
goto until2
else

if @equal(@substr(%%B,1,4),stop)
FILE DELETE,VControl.tmp
stop
goto until2
end
:until2
until @equal(@count(1),%%C)
LIST CLOSE,1
goto evloop


:Close
FILE DELETE,VCONTROL.tmp
exit