filip Valued Contributor
Joined: 07 Aug 2004 Posts: 340
|
Posted: Sun Oct 16, 2005 5:47 pm Post subject: VDS 5 Sampler |
|
|
Update 2a (Added save mode)
I have put this script together for help on some advanced stuff in VDS
Some tips and tricks...
Code: | #Begin Program Name
if @WINEXISTS(#Program Name)
WINDOW ACTIVATE,@WINEXISTS(#Program Name)
exit
end
OPTION DECIMALSEP,"."
OPTION ERRORTRAP,Error name
OPTION SCALE,96
%W = @WINDIR(W)
%S = @WINDIR(S)
Title Program Name
DIALOG CREATE, Program Name,-1,0,440,440,SAVEPOS,Color White,CLASS Program Name
DIALOG ADD,MENU,&Menu options,Save list,MS Paint|F5,-,Child dialog,ASCII decoder,-,&Exit|ALT+X
DIALOG ADD,PROGRESS,PROGRESS1,380,20,180,20,20,,
DIALOG ADD,STYLE,STYLE1,Tahoma,8,U,,black
DIALOG ADD,GRADIENT,GRADIENT1,0,0,350,30,white,$00C16100,,righttoleft
DIALOG ADD,BITMAP,BITMAP1,85,20,48,48,%W\Blue Lace 16.bmp,This is bitmap with click.,CLICK
DIALOG ADD,BITMAP,BITMAP2,95,180,32,32,%S\url.dll,Popup event,CLICK,HAND
DIALOG ADD,GROUP,GROUP1,150,20,180,40,GROUP name
DIALOG ADD,PROGRESS,PROGRESS2,380,20,180,20,40,,
DIALOG ADD,LINE,LINE1,70,20,400,1
DIALOG ADD,SHAPE,SHAPE1,85,99,49,49,RED,$00C16100,This is SHAPE element with click.@CR()You can use it with RECTANGLE"," SQUARE"," ROUNDRECT","@CR()ROUNDSQUARE and ELLIPSE.,ELLIPSE,CLICK
DIALOG ADD,TEXT,TEXT1,43,20,,,Text line"," with click,Tooltip test and you can click on it.,CLICK,HAND,TRANSPARENT,STYLE1
DIALOG ADD,TEXT,T2,165,28,,,List drop text,,,,TRANSPARENT
DIALOG ADD,TIME,TIME1,3,343,90,24,This is clock and you can click on it.,CLICK
DIALOG ADD,BUTTON,BUTTON1,85,250,160,48,Close && Exit
DIALOG ADD,PROGRESS,PROGRESS3,380,20,180,20,60,,
DIALOG ADD,BUTTON,Run,3,195,58,24,
DIALOG ADD,LIST,LIST1,200,20,180,90,,,CLICK
DIALOG ADD,EDIT,EDIT1,5,6,180,19,
DIALOG ADD,PROGRESS,PROGRESS4,380,20,180,20,80,,
DIALOG ADD,COMBO,COMBO1,45,135,95,21,Combo Item1,Chose your shutdown option...,LIST,CLICK
gosub fillcombo1
DIALOG ADD,SPIN,SPIN1,45,250,45,24,0|99,0,,CLICK
DIALOG ADD,TAB,TAB1,150,210,220,140,Lisa|Bart|Homer
DIALOG ADD,TABLE,TABLE1,293,210,220,124,Bart[80]|Lisa[80]|Homer[80],Table 1 Tooltip,COLUMNSORT
DIALOG ADD,RADIO,RADIO1,300,20,80,72,Radio station,Radio HIT|Val 202|Zeleni val,Radio HIT,,CLICK
DIALOG ADD,CHECK,CHECK1,310,110,80,19,95","6 MHz,,,CLICK
DIALOG ADD,CHECK,CHECK2,330,110,80,19,96","90 MHz,,,CLICK
DIALOG ADD,CHECK,CHECK3,350,110,80,19,97","0 MHz,,,CLICK
DIALOG ADD,STATUS,STATUSname,VDS 5 sampler@TAB()@TAB()Free mem: @format(@fdiv(@SYSINFO(FREEMEM),1024),0.2) MB
LIST loadtext,list1
"Putting the text in second line
"Isolating Characters
"Special Characters
"Desktop resolution
"System power-up
"Wasabi?
rem LIST loadtext,TABLE1
rem "Bart
rem "Lisa
rem "Homer
DIALOG SHOW
LIST ADD,LIST1,Save LIST1 to txt file
list add,table1,hello@tab()hi@tab()hey
list add,table1,hi@tab()hey@tab()hello
list add,table1,hey@tab()hello@tab()hi
Info Welcome to VDS 5 Sampler with practical use of commands.@CR()@CR()This include:@CR()@CR()TAB system@CR()Child dialog system@CR()Adding "&" on button@CR()Coma problem in text@CR()ASCII code creator@CR()Converting KB to MB and GB@CR()Saving information from LIST to text file@CR()and more...
DIALOG ADD,PROGRESS,PROGRESS5,380,20,180,20,100,,
if @not(%1)
%1 = Lisa
gosub %1OPEN
end
DIALOG HIDE,PROGRESS1
DIALOG HIDE,PROGRESS2
DIALOG HIDE,PROGRESS3
DIALOG HIDE,PROGRESS4
DIALOG HIDE,PROGRESS5
:loop
wait event,0.1
parse "%E;%D",@event(D)
goto %E
:LisaCLICK
:BartCLICK
:HomerCLICK
%2 = @substr(%E,1,-5)
gosub %1CLOSE
shift
gosub %1OPEN
goto loop
:LisaOPEN
DIALOG ADD,GROUP,GROUP2,180,220,160,100,Lisa
exit
:BartOPEN
DIALOG ADD,GROUP,GROUP3,180,220,160,100,Bart
exit
:HomerOPEN
DIALOG ADD,GROUP,GROUP4,180,220,160,100,Homer
exit
:LisaCLOSE
Dialog remove,GROUP2
exit
:BartCLOSE
Dialog remove,GROUP3
exit
:HomerCLOSE
Dialog remove,GROUP4
exit
:Timer
goto loop
:fillcombo1
%%Comboitem = @dlgtext(Combo1)
list loadtext,combo1,
"Combo Item 1
"Combo Item 2
"Combo Item 3
"Combo Item 4
"Combo Item 5
"Combo Item 6
LIST SEEK, COMBO1, 0
exit
:Combo1CLICK
%%Comboitem = @item(COMBO1)
if @equal(%%Comboitem,Combo Item 1)
info Combo Item = 1
end
if @equal(%%Comboitem,Combo Item 2)
info Combo Item = 2
end
if @equal(%%Comboitem,Combo Item 3)
info Combo Item = 3
end
if @equal(%%Comboitem,Combo Item 4)
info Combo Item = 4
end
if @equal(%%Comboitem,Combo Item 5)
info Combo Item = 5
end
if @equal(%%Comboitem,Combo Item 6)
warn Combo Item = 6
end
goto loop
:SPIN1CLICK
%h = @dlgtext(spin1)
info Spin value = %h
goto loop
:LIST1CLICK
%I = @ITEM(LIST1)
goto %I
goto loop
:Desktop resolution
%X = @SYSINFO(SCREENWIDTH) x @SYSINFO(SCREENHEIGHT) at @SYSINFO(PIXPERIN) DPI
parse T2,%X
goto loop
:System power-up
%X = System power-up @SYSINFO(WINBOOT)
parse T2,%X
goto loop
:Special Characters
%X = Use from menu ASCII decoder
parse T2,%X
goto loop
:Putting the text in second line
%X = Do with this "@CR()"
parse T2,%X
goto loop
:Isolating Characters
%X = Shift + 2 add this like this @CHR(34)","@CHR(34) @CHR(34)"@"@CHR(34)
parse T2,%X
goto loop
:Wasabi?
%X = Wasabi is Japanese horseradish.
parse T2,%X
goto loop
:Save LIST1 to txt file
:Save LISTMENU
%%UN = @regread(HCU,Software\Microsoft\Windows\CurrentVersion\Explorer,Logon User Name)
%f = @filedlg("Text File (*.txt)|*.txt",Save as,%%UN,Save)
if @null(%f)
goto loop
else
goto Save1
end
:Save1
%F = @path(%F)@name(%F).txt
if @file(%f)
goto save2
else
LIST SAVEFILE,list1,%f
wait
end
goto loop
:Save2
%F = @path(%F)@name(%F).TXT
if @file(%f)
%R = @MSGBOX(@PATH(%f)@NAME(%f)"."txt already exists.@CR()Do you want to replace it?,Sava As,$031)
if @equal(%R,1)
LIST SAVEFILE,list1,%f
wait 1
else
goto loop
end
end
goto loop
:BUTTON1BUTTON
goto close
:BITMAP1CLICK
goto text1click
:BITMAP2CLICK
DIALOG POPUP,Popup Event|-|Hide popup|-|Beep|-|CD eject|CD shut
goto loop
:RADIO1CLICK
info This is Radio Hit event
dialog set,Check1,1
goto evloop
:RADIO2CLICK
info This is Val 202 event
dialog set,Check2,1
goto evloop
:RADIO3CLICK
info This is Zeleni val event
dialog set,Check3,1
goto evloop
:CHECK1CLICK
info This is Check 1 event
goto loop
:CHECK2CLICK
info This is Check 2 event
goto loop
:CHECK3CLICK
info This is Check 3 event
goto loop
rem ----------------------Begin Child dialog program
:Child DialogMENU
title Secondary program
DIALOG CREATE,Secondary program ,-1,0,300,240,NOMIN
DIALOG ADD,BUTTON,BUTTONok,186,214,64,24,OK
DIALOG ADD,SHAPE,SHAPE1,10,10,130,40,$00EFDFFF,silver,,,ROUNDRECT
DIALOG ADD,TIME,TIME2,18,30,90,24,This is clock and you can click on it.,CLICK
DIALOG ADD,TEXT,TEXT3,104,30,,,Life is Like a Box of Chocolates...,,,,TRANSPARENT
DIALOG ADD,TRACKBAR,TB1,130,30,180,50,120,,,VERTICAL,CLICK
DIALOG ADD,TRACKBAR,TB2,55,10,180,50,120,,,LEFT,CLICK
DIALOG ADD,TRACKBAR,TB3,130,80,180,50,120,,,RIGHT,CLICK
DIALOG ADD,TRACKBAR,TB4,180,10,180,50,120,,,BOTH,CLICK
DIALOG ADD,TRACKBAR,TB5,17,145,150,50,100,,,,CLICK
DIALOG ADD,PIECHART,PIECHART1,70,210,50,50,0,This is Piechart,CLICK,HAND
DIALOG ADD,STATUS,SB2
Gosub hddfree
dialog set,piechart1,%R
DIALOG SHOW
:evloop
goto loop
:BUTTONokBUTTON
goto close
:hddfree
parse "%A;%B",@volinfo(C,FS)
%R = @format(@fmul(@fdiv(%A,%B),100),2.0)
exit
:PIECHART1CLICK
info Hard disk C have %R "%" of free space@CR()@CR()Other information about main hard disk:@CR()@CR()@format(@fdiv(@volinfo(c,s),1048576),0.1) GB full size / @format(@fdiv(@volinfo(c,f),1048576),0.2) GB free size@CR()It's @volinfo(C,T)@CR()It has @volinfo(C,Y) file system @CR()It has name @volinfo(C,N)@CR()It has serial number: @volinfo(C,Z)@CR()It's loaded with Windows @Sysinfo(Winver,b)@CR()It's updated with @Sysinfo(WININFO)
goto evloop
:TB1CLICK
%%TB1 = @dlgtext(TB1)
goto TB1
:TB1
info %%TB1
dialog set,sb2,Trackbar 1 value = %%TB1
goto evloop
:TB2CLICK
%%TB2 = @dlgtext(TB2)
goto TB2
:TB2
info %%TB2
dialog set,sb2,Trackbar 2 value = %%TB2
goto evloop
:TB3CLICK
%%TB3 = @dlgtext(TB3)
goto TB3
:TB3
info %%TB3
dialog set,sb2,Trackbar 3 value = %%TB3
goto evloop
:TB4CLICK
%%TB4 = @dlgtext(TB4)
goto TB4
:TB4
info %%TB4
dialog set,sb2,Trackbar 4 value = %%TB4
goto evloop
:TB5CLICK
%%TB5 = @dlgtext(TB5)
goto TB5
:TB5
rem info %%TB5
dialog set,sb2,Trackbar 5 value = %%TB5
goto evloop
rem -----------------------End Begin Child dialog program
:ASCII decoderMENU
title ASCII decoder
%A = @input(Create ASCII code to use with "@CHR" code@CR()@CR()@CR()Example: Enter letter @chr(64))
if @zero(%A)
warn You did not enter a letter...
goto loop
elsif
goto ASCII decoder
end
:ASCII decoder
%A = @asc(%A)
title ASCII decoder
info You enter @chr(%A) = "@CHR("%A")"
goto loop
:CD EjectMENU
%L = @mci(set cdaudio door open)
goto loop
:CD shutMENU
%L = @mci(set cdaudio door closed)
goto loop
:Popup EventMENU
info You used the Popup element
goto loop
:Hide popupMENU
goto loop
:BeepMENU
beep
beep
beep
beep
beep
beep
play Dummy.wav
info dummy.wav is simulating Windows default sound. If Windows system sounds are disabled the PC Speaker will be heard...@CR()beep command work's only with Windows9x or ME.
goto loop
:TEXT1CLICK
title Program Name
info This is info event...
warn This is warn event...
run Noname.exe
shell open, http://www.vdsworld.com
goto loop
:MS PAINTmenu
run %S\mspaint.exe
goto loop
:ExitMENU
info Thanks for using VDS 5 sampler
goto close
:Close && ExitBUTTON
goto close
:Time1CLICK
:Time2CLICK
run control.exe timedate.cpl
goto loop
rem :Error name
Title Exiting...
%R = Window @MSGBOX(Unknown error !!!,,ERROR,$010)
stop
:SHAPE1CLICK
info You Click the SHAPE MODEL...simulating ERROR !!!
%R = Window @MSGBOX(Simulation error"," Exiting..,ERROR,$010)
stop
:RunBUTTON
%U = @dlgtext(edit1)
if @zero(%U)
Title Title name or nothing not even a title line
warn Please enter a file name"," exe or whatever...to be started from system using shell open command !!!
else
shell open,%U
end
goto loop
:CLOSE
if @greater(%d, 0)
DIALOG CLOSE
%e = @event()
goto LOOP
else
end
EXIT
#End Program name |
Ignore amp; this add VDSFroum server...
The download script is not infected with amp;
Description: |
VDS 5 Sampler
*Update 2a* |
|
Download |
Filename: |
VDS 5 sampler.dsc |
Filesize: |
10.87 KB |
Downloaded: |
2080 Time(s) |
Last edited by filip on Tue Dec 27, 2005 5:24 pm; edited 14 times in total |
|