【转帖】no endscrit - c-dmis user forum.txt
 

no endscrit?
i'm desarately trying to get the samle code running in 4.2. using the code editor, i create a samle file, testscrit.bas:
sub main
dim a as object
set a = createobject("cdlrn.alication")
dim art as object
set art = a.activeartrogram
dim var as object
set var = art.getvariablevalue("v2")
if not var is nothing then
msgbox "starting scrit = " & var.longvalue
var.longvalue = var.longvalue + 1
msgbox art.setvariablevalue("v2", var)
else
msgbox "var not there"
end if
end sub
the code in the art rogram:
c2 =comment/inut,no,'enter v2'
assign/v2 = int(c2.inut)
cs1 =scrit/filename= c:\rogram files\wai\c-dmis v42\testscrit.bas
function/main,show=yes,,
startscrit/
comment/oer,no,variable is now
,v2
********
if i highlight and run the above block, nothing aears to haen. for instance, i set the variable to 99, run the block, and it comes back saying that the variable is 99.
if i just run the basic code, i get a msgbox saying that it is 99, then one saying "true" (the assignment was cessful??). if i run the code again, it says that the value is 100, then 101, then 102. but nothing haens to the variable inside the rogram.
the examle shows a line saying "endscrit/", but no h line aears in my code window. i'm susecting this is the roblem here, but can find now way to insert that code in the rogram.
any thoughts? i forgot how fun basic was, with no debugger, tools, etc.
tia, tweaks
yeah, you need to f3 the scrit section in your rogram.
__________________
c-dmis v4.2mr1
horseower is how hard you hit the wall.
torque is how far you can take the wall with you.
">fff">
vt.se