Just BASIC Files Archive

Code: Select all

'Math Tools | Area Calc
'NOTE: 3.14 = PI

pi = 3.14 'HERE IS PI. CHANGE IT TO WHATEVER.

figures$(1) = "Cylinder"
figures$(2) = "Cube"

    nomainwin

    WindowWidth = 550
    WindowHeight = 410

    menu #main, "&Menu", "&About", [about], |, "&Exit", [exit]
    groupbox #main.groupbox9, "Answer", 38, 256, 472, 100
    statictext #main.statictext1, "3-D Object Calculator", 26, 16, 168, 20
    combobox #main.combobox2, figures$(), [selectedFigure], 190, 16, 100, 100
    textbox #main.figure1, 174, 86, 100, 25
    textbox #main.figure2, 174, 121, 100, 25
    textbox #main.figure3, 174, 156, 100, 25
    button #main.button6, "CALCULATE!", [button6Click], UL, 174, 206, 104, 25
    statictext #main.answer, "", 78, 296, 500, 50
    statictext #main.stat1, "", 110, 91, 40, 20
    statictext #main.stat2, "", 110, 126, 40, 20
    statictext #main.stat3, "", 110, 161, 40, 20
    open "3-D Calc" for window as #main
    print #main, "font ms_sans_serif 0 16"
    #main.figure1, "!disable"
    #main.figure2, "!disable"
    #main.figure3, "!disable"
    #main.button6, "!disable"

[main.inputLoop]   'wait here for input event
    wait



[selectedFigure]   'Perform action for the combobox named 'combobox2'
    #main.combobox2, "selection? selected$"
    if selected$ = "Cylinder" then goto [cylinder]
    if selected$ = "Cube" then goto [cube]
    wait


[button6Click]   'Perform action for the button named 'button6'
    if selected$ = "Cylinder" then goto [cylinderCalc]
    if selected$ = "Cube" then goto [cubeCalc]
    wait

[cylinder]
#main.stat1, "Radius"
#main.stat2, "Height"
#main.button6, "!enable"
#main.figure1, "!enable"
#main.figure2, "!enable"
#main.figure3, "!disable"
wait

[cube]
#main.stat1, "Length"
#main.stat2, "Width"
#main.stat3, "Height"
#main.button6, "!enable"
#main.figure1, "!enable"
#main.figure2, "!enable"
#main.figure3, "!enable"
wait

[cylinderCalc]
prompt "Units Of Measure?";unitsOfMeasure$
#main.figure1, "!contents? radius$"
#main.figure2, "!contents? height$"
radius = val(radius$)
height = val(height$)

answer = int((((radius*radius)*pi)*height))

#main.answer, str$(answer) + " " + unitsOfMeasure$ + " cubed"

wait

[cubeCalc]
prompt "Units Of Measure?";unitsOfMeasure$
#main.figure1, "!contents? length$"
#main.figure2, "!contents? width$"
#main.figure3, "!contents? height$"
length = val(length$)
width = val(width$)
height = val(height$)

answer = int(length*width*height)

#main.answer, str$(answer) + " " + unitsOfMeasure$ + " cubed"

wait

[about]
notice "3-D Object Calc" + chr$(13) + "Copyright 2017 N-Tech" + chr$(13) + "Note: 3.14 Is Substituted For Pi." + chr$(13) + "Note: Answer Rounded To The Nearest Integer."
wait

[exit]
close #main

Code: Select all

'Math Tools | Fractional Multiplyer


    nomainwin

    WindowWidth = 550
    WindowHeight = 410

    menu #main, "&Menu", "&About", [about], | , "&Exit", [exit]
    textbox #main.numerator1, 78, 56, 100, 25
    statictext #main.statictext2, "---------------------------------------------- X ----------------------------------------------", 54, 91, 900, 20
    textbox #main.denominator1, 78, 111, 100, 25
    textbox #main.numerator2, 302, 56, 100, 25
    textbox #main.denominator2, 302, 116, 100, 25
    button #main.button8, "CALCULATE!", [button8Click], UL, 206, 266, 90, 25

    open "Fractional Multiplyer" for window as #main

    print #main, "font ms_sans_serif 0 16"


[main.inputLoop]   'wait here for input event
    wait



[button8Click]   'Perform action for the button named 'button8'
    #main.numerator1, "!contents? n1$"
    #main.denominator1, "!contents? d1$"
    #main.numerator2, "!contents? n2$"
    #main.denominator2, "!contents? d2$"

    n1 = val(n1$)
    n2 = val(n2$)
    d1 = val(d1$)
    d2 = val(d2$)

    answer1 = int((n1*n2))
    answer2 = int((d1*d2))

    notice "Fractional Calc" + chr$(13) + "Answer Is:" + chr$(13) + str$(answer1) + chr$(13) + "--------------------------------" + chr$(13) + str$(answer2)

    wait

[about]
notice "Fractional Calc" + chr$(13) + "Copyright 2017 N-Tech" + chr$(13) + "Note: Answer Rounded To The Nearest Integer."
wait

[exit]
close #main
end