₦airaland Forum

HI NAIRALANDER,
pls kindly assit me to write a basic programe using ARRAY,i was given as my assignment to summit dis wknd.
The question is,write a baic programe to prepare an invoice with the following details
a)customer names and date as string variable, (b)list of item as array of string value (c)list of their prices as an array of fixed point value (d)list of quantites as an array of integer value (e)print customer name and date,date print serial number,item unit price and quantity.
you can contact me on(08082716493) thanks in advance.

Well if it is not too late on Monday i can give it a try but you will just accept it if it is too simple

OK

here is it test it on your interpreter to confirm its accuracy, but am sure its OK

But it may need some final touches from you if you want to

' This is a Q-basic Invoice program
' Written by: Your name here
'Date: 16-07-2011
'Time: 11:30PM


CLS

DIM item(1 TO 20) AS STRING

REM Lets collect user data

INPUT "Enter Customer Names: "; names$ REM is declared implicitely here
INPUT "Enter Transaction date: "; transdate$ REM transdate$ is declared implicitely here
INPUT "Please Enter Number of Item Purchase: "; c
PRINT

REM now lets use array to get other info, using FOR loop
total = 0
FOR i = 1 TO c
PRINT "Enter Details for Item"; i
PRINT
INPUT "Enter Item Name "; item(i)
INPUT "Enter the Unit Price of Item: "; unitPrice(i)
INPUT "Enter the Quantity of Item Bought: "; qty(i)

totalPrice(i) = unitPrice(i) * qty(i) REM Calculating for Item qty price
total = total + totalPrice(i) REM suming up the overall total price
PRINT
NEXT i

REM Printing Summary
CLS
PRINT "SOLA AND CO Business"
PRINT "======================================================="
PRINT " Customer Names: "; UCASE$(names$) REM UCASE is used to convert to Upper Case
PRINT " Transaction Date: "; transdate, , "Date Printed"; DATE$ REM DATE$ print the current date
PRINT " S/N: "
PRINT "======================================================="
PRINT "|   |"; "ITEMS", "UNIT", "QTY", "AMOUNT"
PRINT "======================================================="

FOR i = 1 TO c
PRINT "|"; i; "| "; UCASE$(item(i)), "|"; unitPrice(i), "|"; qty(i), "|"; totalPrice(i), "|"
NEXT i
PRINT "======================================================="
PRINT "GRAND TOTAL: "; total
END

Regards

Thats it so test it am Make the Correction on on it

' This is a Q-basic Invoice program
' Written by: Your name here
'Date: 16-07-2011
'Time: 11:30PM


CLS

DIM item(1 TO 20) AS STRING

REM Lets collect user data

INPUT "Enter Customer Names: "; names$ REM is declared implicitely here
INPUT "Enter Transaction date: "; transdate$ REM transdate$ is declared implicitely here
INPUT "Please Enter Number of Item Purchase: "; c
PRINT

REM now lets use array to get other info, using FOR loop
total = 0
FOR i = 1 TO c
PRINT "Enter Details for Item"; i
PRINT
INPUT "Enter Item Name "; item(i)
INPUT "Enter the Unit Price of Item: "; unitPrice(i)
INPUT "Enter the Quantity of Item Bought: "; qty(i)

totalPrice(i) = unitPrice(i) * qty(i) REM Calculating for Item qty price
total = total + totalPrice(i) REM suming up the overall total price
PRINT
NEXT i

REM Printing Summary
CLS
PRINT "SOLA AND CO Business"
PRINT "======================================================="
PRINT " Customer Names: "; UCASE$(names$) REM UCASE is used to convert to Upper Case
PRINT " Transaction Date: "; transdate, , "Date Printed"; DATE$ REM DATE$ print the current date
PRINT " S/N: "
PRINT "======================================================="
PRINT "|   |"; "ITEMS", "UNIT", "QTY", "AMOUNT"
PRINT "======================================================="

FOR i = 1 TO c
PRINT "|"; i; "| "; UCASE$(item(i)), "|"; unitPrice(i), "|"; qty(i), "|"; totalPrice(i), "|"
NEXT i
PRINT "======================================================="
PRINT "GRAND TOTAL: "; total
END

Wow!! so people can still write Qbasice code. its been a long time, VB.NET/C# all the way. una dey try sha

QBasic