How do you make a calculator

[rbb]

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]

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]

everytime someone presses a button
store that value.

[rbb]

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.

Quote:

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]

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

Quote:

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]

functions...

code:

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]

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

[CITC]

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

[santabruzer]

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