forum.vdsworld.com :: View topic

forum.vdsworld.com
Visit VDSWORLD.com

FAQ

Memberlist

Usergroups

Profile

No Label Error Fix

forum.vdsworld.com Forum Index -> Visual DialogScript 4 Source Code

View previous topic :: View next topic

Author

Message

LiquidCode
Moderator Team

Joined: 05 Dec 2000
Posts: 1751
Location: Space and Time

Posted: Sun Dec 22, 2002 1:21 am Post subject: No Label Error Fix

I (on occasion Wink

) have made a complete dialog interface and have not
created the code for each one, so, to cover for not having all the labels
this error code was created. The oroginal code was made by Mac I think,
and I adjusted it to look for error 12 and show a "Function not yet available".
message. Hope someone else will find this as usefull as I do. Smile

Code:

:DebugCode
rem -- Remove this if using "debug" at command line --
%1 = "debug"
rem == Debugging procedure =================================
:DEBUG
if @equal(%1, "debug")
   option ERRORTRAP, ERROR
end
goto DEBUG_END
:ERROR
%%ErrorType = @error(E)
%%ErrorLine = @error(N)
%%error = Error %%ErrorType at line %%ErrorLine
if @equal(%%ErrorType,12)
   Warn Function not yet available.
   goto evloop
end
if @ask(%%error@cr()@cr()Do you wish to stop?@cr()@cr()Press YES if main program window is not visible.@tab())
   list CREATE, 9
   list ADD, 9, @datetime(hh:mm:ss am/pm) %%error
   list SAVEFILE, 9, @path(%0)@name(%0)_error.log
   list close,9
   stop
end
goto EVLOOP
:DEBUG_END
rem ========================================================

_________________
Chris
Http://theblindhouse.com

Display posts from previous:

	forum.vdsworld.com Forum Index -> Visual DialogScript 4 Source Code	All times are GMT
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum

@vdsworld