%Josh
%October 23rd-October 26th APROX. 4 hours to create
import GUI
var window : int
window := Window.Open ("graphics:800;550,nobuttonbar")
%----------------------VARIABLES-------------------------------
const gst := 0.07
const pst := 0.08
var n : int %How many parts; how many loops.
var total : int := 0 %Variable for the total cost
var reply : string (1) %variable to use with getch command
var name, tel, dat, make, year, mile, license, col, serial, inspect, tobe, need : string %All the variables needed for the questions
var file, view, help : int % The drop down menu's at the top.
var item : array 1 .. 5 of int % The drop down menu items.
var namei : array 1 .. 5 of string (20) :=
init ("Exit", "Start", "Credits", "Manual", "Version") %Names for items in the drop down menu's, the first name "Exit" is the first items name, and so on..
%--------------------------------------------------------------
forward proc disable %puts it at the top
forward proc hide
procedure start
disable %Disables specified GUI items
hide %Hides specified GUI items
cls
%----------------------Program info/intro----------------------------
put ""
var fontID1 : int := Font.New ("Impact:32:bold")
Font.Draw ("GDHS", 345, 450, fontID1, black)
var fontID2 : int := Font.New ("Georgia:24:bold")
Font.Draw ("TRANSPORTATION", 230, 425, fontID2, black)
var fontID3 : int := Font.New ("Georgia:24:bold")
Font.Draw ("DEPARTMENT", 258, 400, fontID3, black)
var fontID4 : int := Font.New ("Times New Roman:20:bold")
Font.Draw ("::Receipt Creater:.", 238, 325, fontID4, black)
drawline (0, 451, 800, 451, black)
drawline (0, 450, 800, 450, black)
locate (18, 20)
put "You will be promt with many questions. Please answer all of them."
locate (20, 40)
put "WHEN READY; PRESS ANY KEY" .. %Waiting for users input of any key
getch (reply)
cls
%--------------------------------------------------------------
%------------Values for each Variable (input)------------------
put "Please fill in all the blanks."
put "If you don't know the answer, simply skip the question."
put "", skip
put "Customers Name: " ..
get name : *
put "Telephone #: " ..
get tel : *
put "Current Date (m/d/y): " ..
get dat : *
put "Vehicle Make: " ..
get make : *
put "Year: " ..
get year : *
put "Mileage: " ..
get mile : *
put "License #: " ..
get license : *
put "Colour: " ..
get col : *
put "Serial #: " ..
get serial : *
put "Inspected by: " ..
get inspect : *
put "", skip
put "Work to be done: " ..
get tobe : *
put ""
put "Work needed: " ..
get need : *
put "", skip
put "Press any key to continue to the next set of questions." .. %Waiting for users input of any key
getch (reply)
cls
%--------------------------------------------------------------
%-----------------The second input-----------------------------
put "Please fill in all the blanks."
put "If you don't know the answer, type 'UNKNOWN'."
put "", skip
put "How many different parts were purchased? " .. %Depending on the value inputted by the user, the for loop below will loop that many times.
get n
%--Vars for counter or within the counter----
var part, pname : array 1 .. n of string
var quantity, price, netprice : array 1 .. n of int
for counter : 1 .. n %Loops for each part.
put "", skip
put "PART", counter
put "What is the part number? " ..
get part (counter)
put "How many of this part were purchased? " ..
get quantity (counter)
put "What is the parts name? " ..
get pname (counter) : *
put "What is the Net price of this part? " ..
get netprice (counter)
put "What is the Unit price for this part? " ..
get price (counter)
end for
put "", skip
put "Press any key to continue." .. %Waiting for users input of any key
getch (reply)
cls
%--------------------------------------------------------------
%-------------------------OUTPUT.......------------------------
var stallion : int := Pic.FileNew ("stang.bmp")
Pic.Draw (stallion, 0, 480, 0)
var fontID : int := Font.New ("Arial:14:bold")
locate (4, 35)
put "GDHS TRANSPORTATION DEPARTMENT" %Title, heading
put ""
%Below is the output for all of the inputted data
locate (6, 25)
put "Customers Name: ", name
locate (6, 60)
put "Telephone #: ", tel
locate (7, 25)
put "Date: ", dat
locate (7, 60)
put "Vehical Make: ", make
locate (8, 25)
put "Year: ", year
locate (8, 60)
put "Mileage: ", mile
locate (9, 25)
put "License #: ", license
locate (9, 60)
put "Colour: ", col
locate (10, 25)
put "Serial #: ", serial
locate (10, 60)
put "Inspected by: ", inspect
put ""
put "Work to be done: ", tobe
put ""
put ""
drawline (0, 346, 800, 346, black) %For over top of work needed.
drawline (0, 345, 800, 345, black) %Same
put "Work needed: ", need
put "", skip
drawline (0, 290, 650, 290, black)
%Headings for output table
locate (18, 1)
put "Quantity"
locate (18, 18)
put "Part#"
locate (18, 34)
put "Name"
locate (18, 50)
put "Unit Price"
locate (18, 66)
put "Net Price"
%%%
for counter : 1 .. n
put quantity (counter), "\t\t", part (counter), " \t\t", pname (counter), "\t\t", price (counter), "\t\t", netprice (counter) %Outputs the inputted data
total += price (counter) * quantity (counter) %Gives a value to total
end for
put "", skip
locate (21 + n, 66)
put "Sub Total: $", total %Shows the sub total
locate (22 + n, 66)
put "GST: $", gst * total %Shows the GST
locate (23 + n, 66)
put "PST: $", pst * total %Shows the PST
locate (24 + n, 66)
put "Total: $", total * (gst + pst) + total %price (counter) * quantity (counter) * tax
put ""
put "", skip
put "" : 5, "Paid:__________" : 35, "Customer Signature :____________________"
%--------------------------------------------------------------
end start
procedure credit
disable
hide
cls
Pic.ScreenLoad ("bstang.bmp", 0, 0, picMerge) % Corner image
var fontID1 : int := Font.New ("Impact:32:bold")
Font.Draw ("GDHS", 345, 450, fontID1, black)
var fontID2 : int := Font.New ("Georgia:24:bold")
Font.Draw ("TRANSPORTATION", 230, 425, fontID2, black)
var fontID3 : int := Font.New ("Georgia:24:bold")
Font.Draw ("DEPARTMENT", 258, 400, fontID3, black)
var fontID4 : int := Font.New ("Times New Roman:20:bold")
Font.Draw ("::Credits:.", 238, 325, fontID4, black)
drawline (0, 451, 800, 451, black)
drawline (0, 450, 800, 450, black)
locate (16, 40)
put "PROGRAMMER TEAM"
locate (17, 40)
put "Lead Programmer- Josh English"
locate (18, 40)
put "Co-Programmer- Matt Watts"
locate (20, 40)
put "OTHER"
locate (21, 40)
put "Manual- Matt Watts"
locate (22, 40)
put "FlowChart- Matt Watts"
locate (24, 40)
put "OTHER RESOURCES"
locate (25, 40)
put "Turing 4.0.5"
locate (26, 40)
put "Turing Reference"
locate (27, 40)
put "Images-
www.google.com"
locate (28, 40)
put "Teacher- Mr. Bhathal"
end credit
procedure manual
%disable
% hide
cls
Pic.ScreenLoad ("bstang.bmp", 0, 0, picMerge) % Corner image
var fontID1 : int := Font.New ("Impact:32:bold")
Font.Draw ("GDHS", 345, 450, fontID1, black)
var fontID2 : int := Font.New ("Georgia:24:bold")
Font.Draw ("TRANSPORTATION", 230, 425, fontID2, black)
var fontID3 : int := Font.New ("Georgia:24:bold")
Font.Draw ("DEPARTMENT", 258, 400, fontID3, black)
var fontID4 : int := Font.New ("Times New Roman:20:bold")
Font.Draw ("::Manual:.", 238, 325, fontID4, black)
drawline (0, 451, 800, 451, black)
drawline (0, 450, 800, 450, black)
locate (17, 40)
put "This is the manual"
locate (18, 40)
put "First you will blah blah...!..."
locate (19, 40)
put "Watts is writting the rest of this :)!"
end manual
procedure done
disable
hide
cls
Music.PlayFileStop
var fontID1 : int := Font.New ("Impact:32:bold")
Font.Draw ("Thank You For Using This Program!", 75, 275, fontID1, black) %Quit Message
Text.Locate (4, 48)
put "Receipt Program"
Text.Locate (5, 50)
put "VERSION 0.5"
delay (1000)
Window.Close (window)
end done
procedure version
%disable
%hide
cls
Text.Locate (4, 38)
put "Receipt Program"
Text.Locate (5, 40)
put "VERSION 1.0"
Text.Locate (10, 30)
put "Source code is open for users to improve"
Text.Locate (15, 28)
put "CREATED USING THE TURING PROGRAMMING LANGUAGE"
end version
%------------------MAIN MENU------------------------------------
Pic.ScreenLoad ("mustang.bmp", 0, 0, picMerge) % Background image
var fontID1 : int := Font.New ("Impact:32:bold")
Font.Draw ("GDHS", 345, 450, fontID1, black)
var fontID2 : int := Font.New ("Georgia:24:bold")
Font.Draw ("TRANSPORTATION", 230, 425, fontID2, black)
var fontID3 : int := Font.New ("Georgia:24:bold")
Font.Draw ("DEPARTMENT", 258, 400, fontID3, black)
drawline (0, 451, 800, 451, black)
drawline (0, 450, 800, 450, black)
var fontID4 : int := Font.New ("Times New Roman:20:bold")
Font.Draw ("::Menu:.", 238, 325, fontID4, 0)
Music.PlayFileLoop ("bgmusic.mp3") %Music is only temperary until I find something else, darn annoying street and car sounds
%-----------------Buttons & vars- Main Menu----------------------
locate (17, 48)
put "-Create a receipt" .. %Start info
var startb : int := GUI.CreateButton (300, 275, 70, "Start", start)
locate (19, 48)
put "-See who made this program" .. %Credit info
var creditb : int := GUI.CreateButton (300, 242, 70, "Credits", credit)
locate (21, 48)
put "-Instructions on how to use this program" .. %Manual info
var manualb : int := GUI.CreateButton (300, 210, 70, "Manual", manual)
locate (23, 48)
put "-Quit the program" .. %Quit info
var doneb : int := GUI.CreateButton (300, 178, 70, "Quit", done)
%----------------------------------------------------------------
file := GUI.CreateMenu ("File")
item (1) := GUI.CreateMenuItem (namei (1), done)
view := GUI.CreateMenu ("View")
item (2) := GUI.CreateMenuItem (namei (2), start)
item (3) := GUI.CreateMenuItem (namei (3), credit)
help := GUI.CreateMenu ("Help")
item (4) := GUI.CreateMenuItem (namei (4), manual)
item (5) := GUI.CreateMenuItem (namei (5), version)
body proc disable
GUI.Disable (startb)
GUI.Disable (creditb)
GUI.Disable (manualb)
GUI.Disable (doneb)
GUI.Disable (file)
GUI.Disable (view)
GUI.Disable (help)
end disable
body proc hide
GUI.Hide (file)
GUI.Hide (view)
GUI.Hide (help)
GUI.Hide (startb)
GUI.Hide (creditb)
GUI.Hide (manualb)
GUI.Hide (doneb)
end hide
loop
exit when GUI.ProcessEvent
end loop
cls
Music.PlayFileStop
var fontID : int := Font.New ("Impact:32:bold")
Font.Draw ("Thank You For Using This Program!", 75, 275, fontID1, black) %Quit Message
Text.Locate (4, 48)
put "Receipt Program"
Text.Locate (5, 50)
put "VERSION 1.0"
delay (1000)
Window.Close (window)
%END OF PROGRAM :)
Register
Wiki
Blog
Search
Turing
Chat Room
Members
Thank you!
