-----------------------------------

rbb

Mon May 12, 2003 8:56 am


How do you make a calculator

-----------------------------------

I was wondering I just got into GUI's and I really don't underastand my assignment of making a calculator how do you do this.


-----------------------------------

Tony

Mon May 12, 2003 11:59 am



-----------------------------------

same way windows calculator works... you input a number in the textfield... you press a button for operation, you input second number and then you find the result...

:? Though I might not have understood your question correctly, please specify


-----------------------------------

Office of the Registar

Mon May 12, 2003 2:16 pm



-----------------------------------

everytime someone presses a button
store that value.


-----------------------------------

rbb

Wed May 14, 2003 9:35 am


Here is my program so far could I get some help?

-----------------------------------

Sorry about making a new topic yestersya, my eyes mistake. But anyways I was wondering if ssomeone could help me with the math equations for my calculator, if someone could just show me how to to one function (*,/,+ or -) it would be very appreciated.


import GUI in "%oot/lib/GUI"
View.Set ("graphics:290;230")

drawfill (100, 100, grey, grey)
colorback (grey)
color (black)

procedure b1
    cls
    put "1"
end b1

procedure b2
    cls
    put "2"
end b2

procedure b3
    cls
    put "3"
end b3

procedure b4
    cls
    put "4"
end b4

procedure b5
    cls
    put "5"
end b5

procedure b6
    cls
    put "6"
end b6

procedure b7
    cls
    put "7"
end b7

procedure b8
    cls
    put "8"
end b8

procedure b9
    cls
    put "9"
end b9

procedure b10
    cls
    put "/"
end b10

procedure b11
    cls
    put "X"
end b11

procedure b12
    cls
    put "+"
end b12

procedure b13
    cls
    put "-"
end b13

procedure b14
    cls
    put "0"
end b14

procedure b15
    cls
    put "="
end b15

procedure b16
    cls
    put "+/-"
end b16


loop

    var button1 : int := GUI.CreateButton (10, 100, 60, "1", b1)
    var button2 : int := GUI.CreateButton (80, 100, 60, "2", b2)
    var button3 : int := GUI.CreateButton (150, 100, 60, "3", b3)
    var button4 : int := GUI.CreateButton (10, 70, 60, "4", b4)
    var button5 : int := GUI.CreateButton (80, 70, 60, "5", b5)
    var button6 : int := GUI.CreateButton (150, 70, 60, "6", b6)
    var button7 : int := GUI.CreateButton (10, 40, 60, "7", b7)
    var button8 : int := GUI.CreateButton (80, 40, 60, "8", b8)
    var button9 : int := GUI.CreateButton (150, 40, 60, "9", b9)
    var button10 : int := GUI.CreateButton (220, 100, 60, "/", b10)
    var button11 : int := GUI.CreateButton (220, 70, 60, "X", b11)
    var button12 : int := GUI.CreateButton (220, 40, 60, "-", b12)
    var button13 : int := GUI.CreateButton (220, 10, 60, "+", b13)
    var button14 : int := GUI.CreateButton (80, 10, 60, "0", b14)
    var button15 : int := GUI.CreateButton (150, 10, 60, "=", b15)
    var button16 : int := GUI.CreateButton (10, 10, 60, "+/-", b16)
    exit when GUI.ProcessEvent
end loop




-----------------------------------

danu

Sun Jan 11, 2004 1:10 pm


i need your help

-----------------------------------

Hi, did you make te full program!! if you did please e-mail it to damminda@hotmail.com. i really need it.


import GUI in "%oot/lib/GUI"
View.Set ("graphics:290;230")

drawfill (100, 100, grey, grey)
colorback (grey)
color (black)

procedure b1
    cls
    put "1"
end b1

procedure b2
    cls
    put "2"
end b2

procedure b3
    cls
    put "3"
end b3

procedure b4
    cls
    put "4"
end b4

procedure b5
    cls
    put "5"
end b5

procedure b6
    cls
    put "6"
end b6

procedure b7
    cls
    put "7"
end b7

procedure b8
    cls
    put "8"
end b8

procedure b9
    cls
    put "9"
end b9

procedure b10
    cls
    put "/"
end b10

procedure b11
    cls
    put "X"
end b11

procedure b12
    cls
    put "+"
end b12

procedure b13
    cls
    put "-"
end b13

procedure b14
    cls
    put "0"
end b14

procedure b15
    cls
    put "="
end b15

procedure b16
    cls
    put "+/-"
end b16


loop

    var button1 : int := GUI.CreateButton (10, 100, 60, "1", b1)
    var button2 : int := GUI.CreateButton (80, 100, 60, "2", b2)
    var button3 : int := GUI.CreateButton (150, 100, 60, "3", b3)
    var button4 : int := GUI.CreateButton (10, 70, 60, "4", b4)
    var button5 : int := GUI.CreateButton (80, 70, 60, "5", b5)
    var button6 : int := GUI.CreateButton (150, 70, 60, "6", b6)
    var button7 : int := GUI.CreateButton (10, 40, 60, "7", b7)
    var button8 : int := GUI.CreateButton (80, 40, 60, "8", b8)
    var button9 : int := GUI.CreateButton (150, 40, 60, "9", b9)
    var button10 : int := GUI.CreateButton (220, 100, 60, "/", b10)
    var button11 : int := GUI.CreateButton (220, 70, 60, "X", b11)
    var button12 : int := GUI.CreateButton (220, 40, 60, "-", b12)
    var button13 : int := GUI.CreateButton (220, 10, 60, "+", b13)
    var button14 : int := GUI.CreateButton (80, 10, 60, "0", b14)
    var button15 : int := GUI.CreateButton (150, 10, 60, "=", b15)
    var button16 : int := GUI.CreateButton (10, 10, 60, "+/-", b16)
    exit when GUI.ProcessEvent
end loop

[/quote]


-----------------------------------

CITC

Sun Jan 11, 2004 7:21 pm



-----------------------------------

functions...

function add (n1, n2 : real) : real
    result n1 + n2
end add

var num1 : real
var num2 : real
get num1
get num2
put add (n1, n2)

theres the basic code for your function of adding.


-----------------------------------

santabruzer

Sun Jan 11, 2004 8:45 pm



-----------------------------------

i remember i made one in VB.. very simple.. it was very simple..


-----------------------------------

CITC

Sun Jan 11, 2004 8:51 pm



-----------------------------------

VB would be really easy for something like that...  therefore no challenge therefore no fun :)


-----------------------------------

santabruzer

Sun Jan 11, 2004 9:00 pm



-----------------------------------

you can have one universal procedure.... you know