As you will notice, I am a newbie at Turing. I started using it last week in my grade 10 computer tech class. Anyway, we have written many basic programs in the past week.
Now, we have our first assignment, it is to make a program for the grade 9 automotive department. The program is to replace their old pen and paper recepts with an easy to use program.
I have the whole program pretty much finish, I'm just stuck at one part.
Heres the code, this simply loops for the amount of parts purchased.
| code: |
put "How many parts were purchased? " .. get n for counter : 1 .. n put "What is the part number? " .. get part put "How many of this part was purchased? " .. get quantity put "Give a short description for this part: " .. get description put "What is the Net price of this part? " .. get netprice put "What is the Unit price for this part? " .. get price put "", skip put "Press any key to continue." .. getch (reply) cls end for |
Then, I want it to output a chart/table that will list each part. Heres the code for it:
| code: |
put "Quantity\tPart#\t\tPart Description\tUnit Price\tNet Price" for counter : 1 .. n put "", quantity, "\t\t", part, " \t\t", description, "\t\t\t", price, "\t\t", netprice end for |
See, it loops the same part over and over, no matter what you input as the second, third, or whatever part. See what I mean?
Well, just in case if you guys don't understand, heres the full program:
| code: |
import GUI in "%oot/support/lib/GUI" %Needed to use buttons. setscreen ("graphics:800;550") %Size of screen and title %----------------------VARIABLES------------------------------- const gst := 0.07 const pst := 0.08 const tax := 1.15 var n : int %How many parts; how many loops. var quantity, price, netprice, sub, total : real var reply : string (1) %variable to use with getch command var name, tel, dat, make, year, mile, license, col, serial, inspect, tobe, need, part, description : string %-------------------------------------------------------------- %----------------------Program info/intro---------------------------- put "" : 35, "GDHS TRANSPORTATION DEPARTMENT" put "", skip put "This program was made for the automotive department to create a simple recept for the customer(s)." put "*DO NOT PUT ANY SPACES, AS IT CAN MESS UP THE PROGRAM!" put "You will be promt with many questions. Please answer all of them." locatexy (200, 200) put "WHEN READY; PRESS ANY KEY" .. getch (reply) cls %-------------------------------------------------------------- %--------------Values for each Variable------------------------ put "Please fill in all the blanks." put "If you don't know the answer, type 'UNKNOWN'." 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." .. getch (reply) cls put "Please fill in all the blanks." put "If you don't know the answer, type 'UNKNOWN'." put "", skip put "How many parts were purchased? " .. get n for counter : 1 .. n put "What is the part number? " .. get part put "How many of this part was purchased? " .. get quantity put "Give a short description for this part: " .. get description put "What is the Net price of this part? " .. get netprice put "What is the Unit price for this part? " .. get price put "", skip put "Press any key to continue." .. getch (reply) cls end for %-------------------------------------------------------------- %-------------------OUTPUT.......-------------------- put "" put "" : 25, "GDHS TRANSPORTATION DEPARTMENT" put "", skip put "\t", "Customers Name: ", name, "\t\t\t", "Telephone #: ", tel put "\t", "Date: ", dat, "\t\t\t", "Vehical Make: ", make put "\t", "Year: ", year, "\t\t\t", "Mileage: ", mile put "\t", "License #: ", license, "\t\t\t", "Colour: ", col put "\t", "Serial #: ", serial, "\t\t\t", "Inspected by: ", inspect put "" put "Work to be done: ", tobe put "" drawline (0, 0, 0, 0, 0) %For over top of work needed. put "Work needed: ", need put "", skip put "Quantity\tPart#\t\tPart Description\tUnit Price\tNet Price" for counter : 1 .. n put "", quantity, "\t\t", part, " \t\t", description, "\t\t\t", price, "\t\t", netprice end for put "", skip put "Sub Total $: ", price * quantity put "GST $: ", gst * price * quantity put "PST $: ", pst * price * quantity put "Total $: ", price * quantity * tax put "", skip put "", skip put "" : 5, "Paid: " : 35, "Customer Signature : " drawline (0, 0, 0, 0, 0) %For under paid and customer signature. %-------------------------------------------------------------- %---------------------The QUIT button-------------------------- procedure QuitPressed GUI.Quit end QuitPressed var quitButton := GUI.CreateButton (500, 10, 100, "Quit", QuitPressed) %VARIABLE loop exit when GUI.ProcessEvent end loop var quitMessage := GUI.CreateLabelFull (0, 0, "Thank You For Using This Program!", maxx, maxy - 135, GUI.CENTER + GUI.MIDDLE, 0) %quit message %-------------------------------------------------------------- |
I would be extremely greatfull to anyone that would be kind enough to help me. Also, if possible, I was thinking of inplementing a restart button at the bottom beside the quit button. And when the user clicked the restart button, the entire program would restart. If someone knows how I would go about doing that. It would help me a lot!
Thank you all in advance.
