forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Number Select from Combo box

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 3 Source Code
View previous topic :: View next topic  
Author Message
BD
Newbie


Joined: 07 Jun 2001
Posts: 10
Location: Canada

PostPosted: Tue Dec 09, 2003 6:23 pm    Post subject: Number Select from Combo box Reply with quote

Hi All

Not sure if anyone has a need for this or not. This Script will basically give you a couple of Combo boxes with generated numbers that you could select from. Perhaps a way to select Time - Hr / Min This is for example really doesn't do a whole lot but gets you thinking about what can be done with list.

Code:

rem *********************************************************
rem * Program Name: Number Select
rem * Authors Name: B. D.
rem * Program Requirements: VDS3 or greater
rem * Program Use: Select number values from Combo box
rem * Date created: 2003 - 12 - 01
rem * Last updated: << YYYY-MM-DD >>
rem *********************************************************

rem ** Variables section
gosub options
gosub List1
 
TITLE %%AppTitle
  DIALOG CREATE,%%AppTitle,-1,0,470,172
  DIALOG ADD,COMBO,COMBO1,36,59,74,21,Select #,Click
  DIALOG ADD,COMBO,COMBO2,35,148,76,21,Select #,Click
  List Copy,2
  List Paste,Combo1
  List Copy,1
  List Paste,Combo2
  DIALOG SHOW



:Evloop
wait event
goto @event()

:combo1Click
    goto evloop
:combo2Click
    goto evloop


rem End of script.
:Close
LIST Close,1
LIST Close,2

Exit


rem ---begin gosub---
:options
option decimalsep,"."
option scale,96
option fieldsep,"|"
%P = @path(%0)
%%min = 1
%%hr = 1
%%AppTitle = "Number Select"
%%AppVer = "1.00"
%%AppBuild = "001"
%%Copyright = "Copyright (c) 2003 "
exit

:List1
List Create,1
List Create,2
     repeat
       List Add,1,%%min
      %%min = @succ(%%min)
     until @equal(%%min,61)
     repeat
       List Add,2,%%hr
       %%hr = @succ(%%hr)
     until @equal(%%hr,13)
List Seek,1,0
List Seek,2,0
exit
rem end of gosub routines
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 3 Source Code All times are GMT
Page 1 of 1

 
Jump to:  
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




Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group