home *** CD-ROM | disk | FTP | other *** search
/ Computer Based Training: …, Windows 95 & NT Basics / a1454501.iso / msope / PE02SCPT.TXT < prev    next >
Encoding:
Text File  |  1997-03-20  |  17.1 KB  |  614 lines
  1. REM *************************************************************************************************************************
  2. REM #########################################################################################################################
  3. REM                  EXERCISE 01     TASK 01: Adding a record to a list
  4. REM #########################################################################################################################
  5. REM *************************************************************************************************************************
  6. simscrn 2 3 15
  7.  
  8. BEGIN SETUP
  9.      LOAD MENU_1
  10.      PLOTDIB SCREEN_1 0 0 640 442 "P02_001.DIB"
  11.      LOADDLG DIALOG_1000
  12.      LOADDLG DIALOG_2000
  13.      LOADDLG DIALOG_3000
  14.      SETVISIBLE DIALOG_1000 TRUE
  15. END SETUP
  16.  
  17.  
  18. BEGIN TASK 01
  19.  
  20. JUDGE
  21.    DIALOG_3000 VISIBLE TRUE
  22.    DIALOG_2000 VISIBLE FALSE
  23.    DIALOG_1000 VISIBLE FALSE
  24. END JUDGE
  25.  
  26. SHOWME
  27.    LOAD MENU_1
  28.    SETVISIBLE DIALOG_1000 TRUE
  29.    REM ************************ STEP 1
  30.    LOAD PICTURE_1 250 0 120 70 "P00_001.DIB"
  31.    TIMEDELAY 2.0
  32.    UNLOAD PICTURE_1
  33.    SHOWMENU "7_3"
  34.    SETVISIBLE DIALOG_2000 TRUE
  35.    PLOTDIB DIALOG_1000 0 0 640 53 "p02_047.DIB"
  36.    SETTEXT TEXTBOX_2001 "31/01/1997"
  37.    SETTEXT TEXTBOX_2002 "1047"
  38.    SETTEXT TEXTBOX_2003 "Wells"
  39.    SETTEXT TEXTBOX_2004 "Tracy"
  40.    SETTEXT TEXTBOX_2005 "-"
  41.    SETTEXT TEXTBOX_2006 "CCW2"
  42.    SETTEXT TEXTBOX_2007 "29.95"
  43.    SETTEXT TEXTBOX_2008 "1"
  44.    SETENABLED DIALOG_1000 FALSE
  45.    SETMENUSTATE MENU_1 FALSE
  46.    SETFOCUS TEXTBOX_2001 TRUE
  47.    REM ********************** STEP 2
  48.    TIMEDELAY 1.0
  49.    LOAD PICTURE_1 308 92 120 70 "P00_002.DIB"
  50.    TIMEDELAY 1.0
  51.    MOUSEMOVE DIALOG_2000 270 45
  52.    TIMEDELAY 0.65
  53.    SETSTATE BUTTON_2001 TRUE
  54.    TIMEDELAY 0.3
  55.    SETSTATE BUTTON_2001 FALSE
  56.    PLOTDIB DIALOG_2000 208 21 92 28 "P02_050.DIB"
  57.    PLOTDIB DIALOG_2000 2 242 175 9 "P02_051.DIB"
  58.    SETTEXT TEXTBOX_2001 ""
  59.    SETTEXT TEXTBOX_2002 ""
  60.    SETTEXT TEXTBOX_2003 ""
  61.    SETTEXT TEXTBOX_2004 ""
  62.    SETTEXT TEXTBOX_2005 ""
  63.    SETTEXT TEXTBOX_2006 ""
  64.    SETTEXT TEXTBOX_2007 ""
  65.    SETTEXT TEXTBOX_2008 ""
  66.    UNLOAD PICTURE_1
  67.    TIMEDELAY 1.0
  68.    LOAD PICTURE_1 190 92 120 70 "P00_498.DIB"
  69.    TIMEDELAY 2.0
  70.    UNLOAD PICTURE_1
  71.    SETFOCUS TEXTBOX_2002 TRUE
  72.    TIMEDELAY 1.0
  73.    LOAD PICTURE_1 190 92 120 70 "P00_004.DIB"
  74.    TIMEDELAY 1.3
  75.    SHOWTEXT TEXTBOX_2002 "1099"
  76.    TIMEDELAY 1.0
  77.    UNLOAD PICTURE_1
  78.    TIMEDELAY 1.0
  79.    LOAD PICTURE_1 190 121 120 70 "P00_498.DIB"
  80.    TIMEDELAY 2.0
  81.    UNLOAD PICTURE_1
  82.    SETFOCUS TEXTBOX_2003 TRUE
  83.    TIMEDELAY 1.0
  84.    LOAD PICTURE_1 190 121 120 70 "P00_004.DIB"
  85.    TIMEDELAY 1.0
  86.    SHOWTEXT TEXTBOX_2003 "Smith"
  87.    TIMEDELAY 1.0
  88.    UNLOAD PICTURE_1
  89.    TIMEDELAY 1.0
  90.    LOAD PICTURE_1 190 147 120 70 "P00_498.DIB"
  91.    TIMEDELAY 2.0
  92.    UNLOAD PICTURE_1
  93.    SETFOCUS TEXTBOX_2004 TRUE
  94.    TIMEDELAY 1.0
  95.    LOAD PICTURE_1 190 147 120 70 "P00_004.DIB"
  96.    TIMEDELAY 1.0
  97.    SHOWTEXT TEXTBOX_2004 "Alex"
  98.    TIMEDELAY 1.0
  99.    UNLOAD PICTURE_1
  100.    TIMEDELAY 1.0
  101.    LOAD PICTURE_1 100 277 120 70 "P00_005.DIB"
  102.    TIMEDELAY 1.0
  103.    MOUSEMOVE DIALOG_2000 250 260
  104.    TIMEDELAY 1.0
  105.    SETFOCUS BUTTON_2007 TRUE
  106.    SETSTATE BUTTON_2007 TRUE
  107.    TIMEDELAY 0.3
  108.    SETSTATE BUTTON_2007 FALSE
  109.    UNLOAD PICTURE_1
  110.    TIMEDELAY 1.0
  111.    SETVISIBLE DIALOG_3000 TRUE
  112.    TIMEDELAY 1.0
  113.    PLOTDIB DIALOG_1000 0 0 640 442 "p02_001.DIB"
  114. END SHOWME
  115.  
  116. SKIPTASK
  117.    LOAD MENU_2
  118.    SETVISIBLE DIALOG_3000 TRUE
  119. END SKIPTASK
  120.  
  121. END TASK 01
  122.  
  123.  
  124. REM *************************************************************************************************************************
  125. REM #########################################################################################################################
  126. REM                  EXERCISE 01     TASK 02: Searching for and deleteing a record in a list
  127. REM #########################################################################################################################
  128. REM *************************************************************************************************************************
  129. simscrn 2 4 15
  130.  
  131. BEGIN SETUP
  132.      LOAD MENU_1
  133.      PLOTDIB SCREEN_1 0 0 640 442 "P02_046A.DIB"
  134.      LOADDLG DIALOG_4000
  135.      LOADDLG DIALOG_7000
  136.      LOADDLG DIALOG_2000
  137.      LOADDLG DIALOG_5000
  138.      LOADDLG DIALOG_6000
  139.      SETVISIBLE DIALOG_4000 TRUE
  140.      LOAD TEXTBOX_0001 10 10 10 10 "" THREED INVISIBLE
  141.      SETTEXT TEXTBOX_0001 "0"
  142.      LOAD RADIOBUTTON_0001 10 30 10 10 "" INVISIBLE THREED
  143.      SETCHECK RADIOBUTTON_0001 FALSE
  144. END SETUP
  145.  
  146.  
  147. BEGIN TASK 02
  148.  
  149. JUDGE
  150.      DIALOG_7000 VISIBLE TRUE
  151.      DIALOG_4000 VISIBLE FALSE
  152.      DIALOG_2000 VISIBLE FALSE
  153.      DIALOG_5000 VISIBLE FALSE
  154.      DIALOG_6000 VISIBLE FALSE
  155. END JUDGE
  156.  
  157. SHOWME
  158.    SETVISIBLE DIALOG_4000 TRUE
  159.    LOAD PICTURE_1 250 0 120 70 "P00_001.DIB"
  160.    TIMEDELAY 2.0
  161.    UNLOAD PICTURE_1
  162.    SHOWMENU "7_3"
  163.    PLOTDIB DIALOG_4000 0 0 640 53 "p02_047.DIB"
  164.    SETVISIBLE DIALOG_2000 TRUE
  165.    SETTEXT TEXTBOX_2001 "31/01/1997"
  166.    SETTEXT TEXTBOX_2002 "1047"
  167.    SETTEXT TEXTBOX_2003 "Wells"
  168.    SETTEXT TEXTBOX_2004 "Tracy"
  169.    SETTEXT TEXTBOX_2005 "-"
  170.    SETTEXT TEXTBOX_2006 "CCW2"
  171.    SETTEXT TEXTBOX_2007 "29.95"
  172.    SETTEXT TEXTBOX_2008 "1"
  173.    SETMENUSTATE MENU_1 FALSE
  174.    timedelay 1.0
  175.    LOAD PICTURE_1 100 240 120 70 "P00_005.DIB"
  176.    TIMEDELAY 1.0
  177.    MOUSEMOVE DIALOG_2000 250 210
  178.    SETFOCUS BUTTON_2006 TRUE
  179.    TIMEDELAY 0.5
  180.    SETSTATE BUTTON_2006 TRUE
  181.    TIMEDELAY 0.3
  182.    SETSTATE BUTTON_2006 FALSE
  183.    TIMEDELAY 0.2
  184.    UNLOAD PICTURE_1
  185.    SETVISIBLE DIALOG_5000 TRUE
  186.    TIMEDELAY 1.0
  187.    LOAD PICTURE_1 190 120 120 70 "P00_498.DIB"
  188.    TIMEDELAY 1.5
  189.    UNLOAD PICTURE_1
  190.    SETFOCUS TEXTBOX_5003 TRUE
  191.    TIMEDELAY 1.0
  192.    LOAD PICTURE_1 190 120 120 70 "P00_004.DIB"
  193.    TIMEDELAY 1.0
  194.    SHOWTEXT TEXTBOX_5003 "Warren"
  195.    TIMEDELAY 0.3
  196.    UNLOAD PICTURE_1
  197.    TIMEDELAY 1.0
  198.    LOAD PICTURE_1 190 150 120 70 "P00_498.DIB"
  199.    TIMEDELAY 1.5
  200.    UNLOAD PICTURE_1
  201.    SETFOCUS TEXTBOX_5004 TRUE
  202.    TIMEDELAY 1.0
  203.    LOAD PICTURE_1 190 150 120 70 "P00_004.DIB"
  204.    TIMEDELAY 1.0
  205.    SHOWTEXT TEXTBOX_5004 "Henry"
  206.    TIMEDELAY 0.3
  207.    UNLOAD PICTURE_1
  208.    TIMEDELAY 1.0
  209.    LOAD PICTURE_1 100 215 120 70 "P00_005.DIB"
  210.    TIMEDELAY 1.0
  211.    MOUSEMOVE DIALOG_5000 250 170
  212.    SETFOCUS BUTTON_5005 TRUE
  213.    TIMEDELAY 0.3
  214.    SETSTATE BUTTON_5005 TRUE
  215.    TIMEDELAY 0.2
  216.    SETSTATE BUTTON_5005 FALSE
  217.    TIMEDELAY 0.2
  218.    UNLOAD PICTURE_1
  219.    SETVISIBLE DIALOG_5000 FALSE
  220.    SETTEXT TEXTBOX_2001 "04/02/1997"
  221.    SETTEXT TEXTBOX_2002 "1062"
  222.    SETTEXT TEXTBOX_2003 "Warren"
  223.    SETTEXT TEXTBOX_2004 "Henry"
  224.    SETTEXT TEXTBOX_2005 "-"
  225.    SETTEXT TEXTBOX_2006 "CCW2"
  226.    SETTEXT TEXTBOX_2007 "29.95"
  227.    SETTEXT TEXTBOX_2008 "1" 
  228.    SETFOCUS TEXTBOX_2001 TRUE
  229.    PLOTDIB DIALOG_2000 208 21 92 28 "P02_058.DIB"
  230.    PLOTDIB DIALOG_2000 2 242 175 9 "P02_051a.DIB"
  231.    TIMEDELAY 1.0
  232.    LOAD PICTURE_1 100 117 120 70 "P00_005.DIB"   
  233.    TIMEDELAY 1.0
  234.    MOUSEMOVE DIALOG_2000 260 80
  235.    SETFOCUS BUTTON_2002 TRUE
  236.    TIMEDELAY 1.0
  237.    SETSTATE BUTTON_2002 TRUE
  238.    TIMEDELAY 0.2
  239.    SETSTATE BUTTON_2002 FALSE
  240.    UNLOAD PICTURE_1
  241.    TIMEDELAY 0.3
  242.    SETVISIBLE DIALOG_6000 TRUE
  243.    TIMEDELAY 1.0
  244.    LOAD PICTURE_1 158 195 120 70 "P00_005.DIB"
  245.    TIMEDELAY 1.0
  246.    MOUSEMOVE DIALOG_6000 98 92
  247.    SETFOCUS BUTTON_6001 TRUE
  248.    TIMEDELAY 0.6
  249.    SETSTATE BUTTON_6001 TRUE
  250.    TIMEDELAY 0.3
  251.    SETSTATE BUTTON_6001 FALSE
  252.    TIMEDELAY 0.2
  253.    UNLOAD PICTURE_1
  254.    SETVISIBLE DIALOG_2000 TRUE
  255.    SETVISIBLE DIALOG_4000 FALSE
  256.    SETVISIBLE DIALOG_5000 FALSE
  257.    SETVISIBLE DIALOG_6000 FALSE
  258.    PLOTDIB DIALOG_7000 0 0 640 53 "p02_047.DIB"
  259.    SETVISIBLE DIALOG_7000 TRUE
  260.    SETENABLED DIALOG_7000 FALSE
  261.    TIMEDELAY 0.5
  262.    SETTEXT TEXTBOX_2001 "07/02/1997"
  263.    SETTEXT TEXTBOX_2002 "1063"
  264.    SETTEXT TEXTBOX_2003 "Wong"
  265.    SETTEXT TEXTBOX_2004 "Sarah"
  266.    SETTEXT TEXTBOX_2005 "SM Medical Ctr."
  267.    SETTEXT TEXTBOX_2006 "MWW3"
  268.    SETTEXT TEXTBOX_2007 "49.99"
  269.    SETTEXT TEXTBOX_2008 "6"
  270.    SETFOCUS TEXTBOX_2001 TRUE
  271.    SETENABLED DIALOG_2000 TRUE
  272.    SETENABLED DIALOG_4000 TRUE
  273.    SETCHECK RADIOBUTTON_0001 TRUE
  274.    PLOTDIB DIALOG_2000 208 21 92 28 "P02_059.DIB"
  275.    PLOTDIB DIALOG_2000 2 242 175 9 "P02_060.DIB"
  276.    LOAD PICTURE_1 100 275 120 70 "P00_005.DIB"
  277.    TIMEDELAY 1.0
  278.    MOUSEMOVE DIALOG_2000 250 265
  279.    SETFOCUS BUTTON_2007 TRUE
  280.    TIMEDELAY 0.6
  281.    SETSTATE BUTTON_2007 TRUE
  282.    TIMEDELAY 0.3
  283.    SETSTATE BUTTON_2007 FALSE
  284.    UNLOAD PICTURE_1
  285.    PLOTDIB DIALOG_7000 0 0 640 442 "p02_055.DIB"   
  286.    SETVISIBLE DIALOG_2000 FALSE
  287.    TIMEDELAY 1.0
  288. END SHOWME
  289.  
  290. SKIPTASK
  291.     LOAD MENU_1
  292.     SETVISIBLE DIALOG_7000 TRUE
  293. END SKIPTASK
  294.  
  295. END TASK 02
  296.  
  297.  
  298.  
  299. REM #########################################################################################################################
  300. REM                  EXERCISE 03     TASK 03: Sorting a list
  301. REM #########################################################################################################################
  302. REM *************************************************************************************************************************
  303. simscrn 2 8 15
  304.  
  305. BEGIN SETUP
  306.      LOAD MENU_1
  307.      PLOTDIB SCREEN_1 0 0 640 442 "P02_080.DIB"
  308.      LOADDLG DIALOG_8000
  309.      LOADDLG DIALOG_9000
  310.      LOADDLG DIALOG_10000
  311.      SETVISIBLE DIALOG_8000 TRUE
  312. END SETUP
  313.  
  314.  
  315. BEGIN TASK 03
  316.  
  317. JUDGE
  318.     DIALOG_10000 VISIBLE TRUE
  319.     DIALOG_9000 VISIBLE FALSE
  320.     DIALOG_8000 VISIBLE FALSE
  321. END JUDGE
  322.  
  323. SHOWME
  324.    TIMEDELAY 1.0
  325.    LOAD PICTURE_1 250 0 120 70 "P00_001.DIB"
  326.    TIMEDELAY 2.0
  327.    UNLOAD PICTURE_1
  328.    SHOWMENU "7_1"
  329.    SETVISIBLE PICTURE_8001 FALSE
  330.    SETVISIBLE PICTURE_8002 FALSE
  331.    SETVISIBLE PICTURE_8003 FALSE
  332.    SETVISIBLE DIALOG_9000 TRUE
  333.    SETENABLED DIALOG_8000 FALSE
  334.    SETMENUSTATE MENU_1 FALSE
  335.    SETFOCUS COMBOBOX_9001 TRUE
  336.    PLOTDIB DIALOG_8000 0 69 640 351 "P02_082.DIB"
  337.    TIMEDELAY 1.0
  338.    LOAD PICTURE_1 212 107 120 70 "P00_002.DIB"
  339.    TIMEDELAY 1.0
  340.    MOUSEMOVE DIALOG_9000 135 50
  341.    TIMEDELAY 0.3
  342.    UNLOAD PICTURE_1
  343.    TIMEDELAY 1.5
  344.    LOAD PICTURE_1 212 114 120 70 "P00_006.DIB"
  345.    TIMEDELAY 1.4
  346.    SHOWCOMBO COMBOBOX_9001 3
  347.    TIMEDELAY 0.5
  348.    UNLOAD PICTURE_1
  349.    TIMEDELAY 1.3
  350.    LOAD PICTURE_1 260 105 120 70 "P00_002.DIB"
  351.    TIMEDELAY 1.0
  352.    MOUSEMOVE DIALOG_9000 175 55
  353.    TIMEDELAY 0.6
  354.    SETSTATE RADIOBUTTON_9002 FALSE
  355.    SETSTATE RADIOBUTTON_9001 TRUE
  356.    SETFOCUS RADIOBUTTON_9001 TRUE
  357.    TIMEDELAY 0.3
  358.    UNLOAD PICTURE_1
  359.    TIMEDELAY 1.0
  360.    LOAD PICTURE_1 212 155 120 70 "P00_002.DIB"
  361.    TIMEDELAY 1.0
  362.    MOUSEMOVE DIALOG_9000 130 125
  363.    TIMEDELAY 0.3
  364.    UNLOAD PICTURE_1
  365.    TIMEDELAY 1.5
  366.    LOAD PICTURE_1 212 160 120 70 "P00_006.DIB"
  367.    TIMEDELAY 1.4
  368.    SHOWCOMBO COMBOBOX_9002 4
  369.    TIMEDELAY 0.5
  370.    UNLOAD PICTURE_1
  371.    TIMEDELAY 1.0
  372.    LOAD PICTURE_1 212 210 120 70 "P00_002.DIB"
  373.    TIMEDELAY 1.0
  374.    MOUSEMOVE DIALOG_9000 130 185
  375.    TIMEDELAY 0.3
  376.    UNLOAD PICTURE_1
  377.    TIMEDELAY 1.5
  378.    LOAD PICTURE_1 212 240 120 70 "P00_006.DIB"
  379.    TIMEDELAY 1.4
  380.    SHOWCOMBO COMBOBOX_9003 2
  381.    TIMEDELAY 0.5
  382.    UNLOAD PICTURE_1
  383.    TIMEDELAY 1.3
  384.    LOAD PICTURE_1 245 230 120 70 "P00_002.DIB"
  385.    TIMEDELAY 1.0
  386.    MOUSEMOVE DIALOG_9000 170 190
  387.    TIMEDELAY 0.6
  388.    SETSTATE RADIOBUTTON_9005 FALSE
  389.    SETSTATE RADIOBUTTON_9006 TRUE
  390.    SETFOCUS RADIOBUTTON_9006 TRUE
  391.    TIMEDELAY 0.3
  392.    UNLOAD PICTURE_1
  393.    TIMEDELAY 1.0
  394.    LOAD PICTURE_1 240 310 120 70 "P00_002.DIB"
  395.    TIMEDELAY 1.0
  396.    MOUSEMOVE DIALOG_9000 140 272
  397.    SETFOCUS BUTTON_9002 TRUE
  398.    TIMEDELAY 1.0
  399.    SETSTATE BUTTON_9002 TRUE
  400.    TIMEDELAY 0.2
  401.    SETSTATE BUTTON_9002 FALSE
  402.    TIMEDELAY 0.3
  403.    UNLOAD PICTURE_1
  404.    SETVISIBLE DIALOG_10000 TRUE
  405.    TIMEDELAY 1.0
  406. END SHOWME
  407.  
  408. SKIPTASK
  409. rem    LOAD MENU_3
  410.     SETVISIBLE DIALOG_10000 TRUE
  411. END SKIPTASK
  412.  
  413. END TASK 03
  414.  
  415. REM #########################################################################################################################
  416. REM                  EXERCISE 04     TASK 04: Filtering a list with AutoFilter
  417. REM #########################################################################################################################
  418. REM *************************************************************************************************************************
  419. simscrn 2 9 15
  420.  
  421. BEGIN SETUP
  422.      LOAD MENU_1
  423.      PLOTDIB SCREEN_1 0 0 640 442 "p02_084A.DIB"
  424.      LOADDLG DIALOG_11000
  425.      LOADDLG DIALOG_12000
  426.      LOADDLG DIALOG_14000
  427.      LOADDLG DIALOG_15000
  428.      LOADDLG DIALOG_13000
  429.      SETVISIBLE DIALOG_11000 TRUE
  430. END SETUP
  431.  
  432.  
  433. BEGIN TASK 04
  434.  
  435. JUDGE
  436.     DIALOG_15000 VISIBLE TRUE
  437.     DIALOG_12000 VISIBLE FALSE
  438.     DIALOG_14000 VISIBLE FALSE
  439.     DIALOG_13000 VISIBLE FALSE
  440.     DIALOG_11000 VISIBLE FALSE
  441. END JUDGE
  442.  
  443. SHOWME
  444.    HIGHLIGHTITEM COMBOBOX_14001 1
  445.    TIMEDELAY 1.0
  446.    LOAD PICTURE_1 250 0 120 70 "P00_001.DIB"
  447.    TIMEDELAY 2.0
  448.    UNLOAD PICTURE_1
  449.    SHOWMENU "7_2_1"
  450.    SETVISIBLE DIALOG_12000 TRUE
  451.    TIMEDELAY 1.0
  452.    LOAD PICTURE_1 375 105 120 70 "P00_005.DIB"
  453.    TIMEDELAY 2.0
  454.    MOUSEMOVE DIALOG_12000 510 87
  455.    TIMEDELAY 0.4
  456.    UNLOAD PICTURE_1
  457.    SETVISIBLE PICTURE_12004 TRUE
  458.    SETVISIBLE DIALOG_13000 TRUE
  459.    TIMEDELAY 1.0
  460.    LOAD PICTURE_1 304 145 120 70 "P00_007.DIB"
  461.    TIMEDELAY 1.0
  462.    MOUSEMOVE DIALOG_13000 10 40
  463.    TIMEDELAY 0.4
  464.    SHOWLIST LISTBOX_13001 2
  465.    SETVISIBLE PICTURE_12004 FALSE
  466.    UNLOAD PICTURE_1
  467.    SETVISIBLE DIALOG_13000 FALSE
  468.    SETVISIBLE DIALOG_14000 TRUE
  469.    TIMEDELAY 1.0
  470.    LOAD PICTURE_1 265 153 120 70 "P00_006.DIB"
  471.    TIMEDELAY 1.0
  472.    MOUSEMOVE DIALOG_14000 183 75
  473.    SETFOCUS COMBOBOX_14001 TRUE
  474.    TIMEDELAY 1.0
  475.    UNLOAD PICTURE_1
  476.    TIMEDELAY 1.0
  477.    SHOWCOMBO COMBOBOX_14001 4
  478.    TIMEDELAY 1.0
  479.    LOAD PICTURE_1 330 153 120 70 "P00_498.DIB"
  480.    TIMEDELAY 2.0
  481.    UNLOAD PICTURE_1
  482.    MOUSEMOVE DIALOG_14000 263 75
  483.    SETFOCUS TEXTBOX_14001 TRUE
  484.    TIMEDELAY 1.0
  485.    LOAD PICTURE_1 330 153 120 70 "P00_004.DIB"
  486.    TIMEDELAY 1.0
  487.    SHOWTEXT TEXTBOX_14001 "30"
  488.    TIMEDELAY 0.3
  489.    UNLOAD PICTURE_1
  490.    TIMEDELAY 1.0
  491.    LOAD PICTURE_1 272 198 120 70 "P00_006.DIB"
  492.    TIMEDELAY 1.0
  493.    MOUSEMOVE DIALOG_14000 200 130
  494.    SETFOCUS COMBOBOX_14002 TRUE
  495.    TIMEDELAY 1.0
  496.    UNLOAD PICTURE_1
  497.    TIMEDELAY 1.0      
  498.    SHOWCOMBO COMBOBOX_14002 6
  499.    TIMEDELAY 1.0
  500.    LOAD PICTURE_1 330 203 120 70 "P00_498.DIB"   
  501.    TIMEDELAY 2.0
  502.    UNLOAD PICTURE_1
  503.    MOUSEMOVE DIALOG_14000 260 130
  504.    SETFOCUS TEXTBOX_14002 TRUE
  505.    TIMEDELAY 1.0
  506.    LOAD PICTURE_1 330 203 120 70 "P00_004.DIB"
  507.    TIMEDELAY 1.0
  508.    SHOWTEXT TEXTBOX_14002 "40"
  509.    TIMEDELAY 0.3
  510.    UNLOAD PICTURE_1
  511.    TIMEDELAY 1.0
  512.    LOAD PICTURE_1 365 162 120 70 "P00_005.DIB"
  513.    TIMEDELAY 1.0
  514.    MOUSEMOVE DIALOG_14000 460 85
  515.    SETFOCUS BUTTON_14001 TRUE
  516.    TIMEDELAY 1.0
  517.    SETSTATE BUTTON_14001 TRUE
  518.    TIMEDELAY 0.3
  519.    SETSTATE BUTTON_14001 FALSE
  520.    UNLOAD PICTURE_1
  521.    SETVISIBLE DIALOG_15000 TRUE
  522.    TIMEDELAY 1.0
  523. END SHOWME
  524.  
  525. SKIPTASK
  526.     LOAD MENU_1
  527.     SETVISIBLE DIALOG_15000 TRUE
  528. END SKIPTASK
  529.  
  530. END TASK 04
  531.  
  532.  
  533. REM #########################################################################################################################
  534. REM                  EXERCISE 05     TASK 05: running a web query
  535. REM #########################################################################################################################
  536. REM *************************************************************************************************************************
  537. simscrn 2 13 15
  538.  
  539. BEGIN SETUP
  540.    LOAD MENU_1
  541.    PLOTDIB SCREEN_1 0 0 640 442 "P02_100.DIB"
  542.    LOADDLG DIALOG_16000
  543.    LOADDLG DIALOG_17000
  544.    LOADDLG DIALOG_19000
  545.    LOADDLG DIALOG_18000
  546.    LOADDLG DIALOG_20000
  547.    LOADDLG DIALOG_21000
  548.    SETVISIBLE DIALOG_16000 TRUE
  549.    LOAD RADIOBUTTON_0001 10 10 10 10 "FLAG TO CHECK IF THE ITEM SELECTED" THREED INVISIBLE
  550.    SETCHECK RADIOBUTTON_0001 FALSE
  551. END SETUP
  552.  
  553. BEGIN TASK 05
  554.  
  555. JUDGE
  556.    DIALOG_21000 VISIBLE TRUE
  557.    DIALOG_20000 VISIBLE FALSE
  558.    DIALOG_19000 VISIBLE FALSE
  559.    DIALOG_18000 VISIBLE FALSE
  560.    DIALOG_17000 VISIBLE FALSE
  561.    DIALOG_16000 VISIBLE FALSE
  562. END JUDGE
  563.  
  564. SHOWME
  565.    LOAD MENU_1
  566.    SETVISIBLE DIALOG_16000 VISIBLE TRUE
  567.    TIMEDELAY 1.5
  568.    REM ******************************** STEP 1
  569.    LOAD PICTURE_1 250 0 120 70 "P00_001.DIB"
  570.    TIMEDELAY 2.0
  571.    UNLOAD PICTURE_1
  572.    SHOWMENU "7_11_1"
  573.    SETVISIBLE DIALOG_17000 TRUE
  574.    SETENABLED DIALOG_16000 FALSE
  575.    SETMENUSTATE MENU_1 FALSE
  576.    REM ********************************* STEP 2
  577.    LOAD PICTURE_2 170 200 120 70 "P00_010.DIB"
  578.    TIMEDELAY 0.7
  579.    MOUSEMOVE DIALOG_17000 30 163
  580.    TIMEDELAY 0.2
  581.    PLOTDIB DIALOG_17000 10 56 458 154 "P02_104.DIB"
  582.    TIMEDELAY 1.0
  583.    UNLOAD PICTURE_2
  584.    SETVISIBLE DIALOG_19000 TRUE
  585.    SETVISIBLE DIALOG_18000 TRUE
  586.    SETVISIBLE DIALOG_17000 FALSE
  587.    TIMEDELAY 1.5
  588.    REM ********************************* STEP 3
  589.    LOAD PICTURE_3 268 130 120 70 "P00_005.DIB"
  590.    TIMEDELAY 0.7
  591.    MOUSEMOVE BUTTON_18001 25 15
  592.    SETFOCUS BUTTON_18001 TRUE
  593.    TIMEDELAY 0.4
  594.    SETSTATE BUTTON_18001 TRUE
  595.    TIMEDELAY 0.2
  596.    SETSTATE BUTTON_18001 FALSE
  597.    TIMEDELAY 0.4
  598.    UNLOAD PICTURE_3
  599.    SETVISIBLE DIALOG_20000 TRUE
  600.    TIMEDELAY 4.0
  601.    SETVISIBLE DIALOG_21000 TRUE
  602.    SETMENUSTATE MENU_1 TRUE
  603.    SETVISIBLE DIALOG_20000 FALSE
  604.    SETVISIBLE DIALOG_18000 FALSE
  605.    SETVISIBLE DIALOG_19000 FALSE
  606. END SHOWME
  607.  
  608. SKIPTASK
  609.     LOAD MENU_1
  610.     SETVISIBLE DIALOG_21000 TRUE
  611. END SKIPTASK
  612.  
  613. END TASK 05
  614.