okey i need help returining to the main menu wher the deposit withdraw and etc are after i click one of them take a look
| Turing: |
%Import GUI
import GUI
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Set graphics to max:max
setscreen ("graphics:max:max")
%globel variable
var balance : real
var font1 : int
var font2 : int
var font3 : int
var pinnum : int
var accnum : int
balance := 1000
font1 := Font.New ("Lucida Console:48:Bold")
font2 := Font.New ("Lucida Console:14")
font3 := Font.New ("sprint :25")
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%start of procedure
procedure Deposit
colourback (gray)
cls
drawfillbox (50, 50, 950, 600, black)
%declaring all variables
var deposit : real
var ch : string (1)
%Title of the procedure
Font.Draw ("DEPOSITS", 300, 400, font1, brightgreen)
colourback (black)
colour (white)
locate (25, 37)
%Asking for user input
put "Enter amount of deposit: $" ..
get deposit
%adding deposit to the balance
balance := balance + deposit
%outputing the new balance
put "Current balance: ", balance : 0 : 2
getch (ch )
%end of procedure
end Deposit
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%start of the procedure
procedure Withdrawal
colourback (5)
cls
drawfillbox (50, 50, 950, 600, black)
%declare all variables
var withdrawal : real
%Title of the procedure
Font.Draw ("WITHDRAWALS", 300, 400, font1, brightgreen)
colourback (black)
colour (white)
locate (25, 37)
%asking for user input
put "Enter amount of withdrawal: $" ..
%user input
get withdrawal
%start of the outer if statement-only condition
if withdrawal <= balance then
%start of the innter if statement-first condition
if withdrawal rem 10 = 0 then
%takes amount of money out of the withdrawal
balance := balance - withdrawal
%for the error message
else
locate (26, 37)
put "Invaild amount(must be a multiple of 10)"
end if
%if the balance is less than withdrawal
else
locate (26, 37)
put "Insufficient Funds"
%end of the if statements
end if
%displays balance after withdrawa
put "Current balance: $", balance : 0 : 2
delay (3000)
%end of procedure
end Withdrawal
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Start of procedure called FastCash
procedure FastCash
var choice : int
loop
colourback (gray)
cls
drawfillbox (50, 50, 750, 550, black)
Font.Draw ("FAST CASH", 300, 400, font1, brightgreen)
%Title of the procedure
colourback (black)
colour (white)
locate (25, 37)
%Prompt the user to choose an choiceion
put "Choose a choice"..
locate (27, 37)
put "1.) $10"..
locate (28, 37)
put "2.) $20"..
locate (29, 37)
put "3.) $40"..
locate (30, 37)
put "4.) $80"..
locate (31, 37)
put "5.) $100"..
locate (32, 37)
put "6.) Cancel"..
locate (34, 37)
put "Your choice: " ..
get choice
if choice = 1 then
if balance < 10 then
locate (33, 33)
put "Insufficient Funds"
delay (2000)
else
balance := balance - 10
exit when choice = 1
end if
elsif choice = 2 then
if balance < 20 then
locate (33, 33)
put "Insufficient Funds"
delay (2000)
else
balance := balance - 20
exit when choice = 2
end if
elsif choice = 3 then
if balance < 40 then
locate (33, 33)
put "Insufficient Funds"
delay (2000)
else
balance := balance - 40
exit when choice = 3
end if
elsif choice = 4 then
if balance < 80 then
locate (33, 33)
put "Insufficient Funds"
delay (2000)
else
balance := balance - 80
exit when choice = 4
end if
elsif choice = 5 then
if balance < 100 then
locate (33, 33)
put "Insufficient Funds"
delay (2000)
else
balance := balance - 100
exit when choice = 5
end if
elsif choice > 6 then
locate (33, 34)
put "Invaild Option"
delay (2000)
cls
else
locate (33, 34)
put "Cancelled"
exit when choice = 6
end if
end loop
put "Current Balance: ", balance : 0 : 2
delay (3000)
end FastCash
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Make procedure called balance
procedure Balance
%Display the current balance
put "Your Current Balance: $", balance
delay (3000)
%end of procedure
end Balance
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Make procedure called exit1
procedure exit1
%quits the program if user clicks exit
quit
%end of procedure
end exit1
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setscreen ("graphics:max;max")
%MAIN
%Clour the backgorund blue
colourback (blue)
cls
%Make title
Font.Draw ("Hello and welcome the Bank of Montreal's ATM Machine", 100, 600, font3, yellow)
locate (10, 1)
color (41)
%Ask user for input
put "Please enter your account number: " ..
%get input
get accnum
put ""
color (41)
%Ask user for input
put "enter your pin: " ..
%get input
get pinnum
cls
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
colourback (grey)
cls
drawfillbox (50, 50, 950, 600, black)
%Make titles for main
Font.Draw ("Bank Of Montreal", 100, 500, font1, blue)
Font.Draw ("MAIN MENU", 300, 400, font1, brightgreen)
Font.Draw ("How may I help you?", 350, 350, font2, white)
%Get picture from JPEG
Pic.ScreenLoad ("BMO logo.JPG", 700, 350, picCopy)
%Create buttons for mouse input
var button1 : int := GUI.CreateButton (400, 300, 0, "Deposit",Deposit )
var button2 : int := GUI.CreateButton (400, 250, 0, "Withdraw", Withdrawal )
var button3 : int := GUI.CreateButton (400, 200, 0, "FastCash", FastCash )
var button4 : int := GUI.CreateButton (400, 150, 0, "Balance", Balance )
var button5 : int := GUI.CreateButton (400, 100, 0, "exit", exit1 )
%begin loop for event
loop
exit when GUI.ProcessEvent
%end loop
end loop
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|