BD Newbie
Joined: 07 Jun 2001 Posts: 10 Location: Canada
|
Posted: Tue Dec 09, 2003 6:23 pm Post subject: Number Select from Combo box |
|
|
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
|
|
|