Need your opinion:

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 427,100 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,289 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums

Thread Tools Display Modes

Views: 188 | Replies: 2

•

Join Date: Jul 2008

Posts: 16

Reputation: army88m2 is an unknown quantity at this point

Rep Power: 1

Solved Threads: 0

army88m2

Offline

Newbie Poster

Need your opinion:

Jul 25th, 2008

O.k. this is my first scripting class and I need someone's opinion on this code. I need to write a code for a modularized program that will:

1.) read each record from the inventory database

2.) print a price tag for each item in inventory

3.) count and print the total number of tags printed

4.)sum and print the total retail value of the inventory in the store

Here's the code I came up with. Please tell me if it is correct or not.

Help with Code Tags

(Toggle Plain Text)

start
   perform housekeeping ('This will declare variables perform housekeeping )	(with read)
     while not eof
     perform mainLoop (‘This will read each record from the database)
perform calculateTotalretailvalue ( )
endwhile 
perform finishup ( )
stop

housekeeping ( )
       declare variables
           
              invRecord
                         char	invDescription
                         num	invItemnumber
                         num	invQuantity
                         num	invRetailprice
                         num	invTotalretailvalue
                         num	invTotaltags

             char mainHeading = "INVENTORY REPORT"	
             char columnHead1 =
               "ITEM	RETAIL PRICE	QUANTITY		DESCRIPTION"

             char columnHead2 =
               "TOTAL RETAIL VALUE		TOTAL TAGS	ITEM NUMBER"
             num totalRetailvalue
open files
       INVENTORY , Printer
print mainHeading
print columnHead1
print columnHead2
read invRecord
return

mainloop ( )
Read the first record
While not eof
       Print fldItemnumber , fldDescription , fldQuantityonhand , fldRetailPrice
       ItemCount = ItemCount +1
       Totalretailvalue = (fldQuantity * fldRetailprice )
endwhile
Read next record
Loop

Print “Retail price : “ & ItemCount
Print “Value of Inventory = “ & Totalretailvalue
return

calculateTotalretailvalue ( )
     Totalretailvalue = (fldQuantity * fldRetailprice )
return

printTotalretailvalue ( )
     print Totalretailvalue
return
finishup ( )
   close files
       INVENTORY , Printer
return

Last edited by Tekmaven : Jul 25th, 2008 at 1:07 pm. Reason: Code tags