easy rider Valued Newbie

Joined: 10 Sep 2001 Posts: 26 Location: Netherlands
|
Posted: Fri Jan 04, 2002 6:30 pm Post subject: 3color level element |
|
|
hi all
here's a 3 color level element, you can use it in a mp3 cd player or whatever you think its usefull.
| Code: |
REM SCRIPT MADE IN VDS 4
REM MADE BY RENE JANSSEN
option decimalsep,"."
DIALOG CREATE,test,-1,0,131,219
DIALOG ADD,style,s1,,,,black,yellow
DIALOG ADD,style,s2,,,,black,red
DIALOG ADD,level,l1,10,10,30,200,,,s2
DIALOG ADD,level,l2,40,10,30,170,,,s1
DIALOG ADD,level,l3,80,10,30,130
DIALOG ADD,TEXT,TEXT1,8,56,,,Enter value
DIALOG ADD,SPIN,SP1,24,54,60,24,0|100,50,,CLICK
DIALOG SHOW
:evloop
wait event
goto @event()
:sp1click
dialog set,l1,@dlg(sp1)
rem lenght 200 / 170 = 1.176
%A = @format(@fmul(1.176,@dlg(sp1)),3.0)
dialog set,l2,%A
rem lenght 200 / 130 = 1.538
%B = @format(@fmul(1.538,@dlg(sp1)),3.0)
dialog set,l3,%B
goto evloop
:close
exit
end |
see you Rene |
|