DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Programing Final!

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Oct 2006

Posts: 20

Reputation: anandarose is an unknown quantity at this point

Solved Threads: 0

anandarose anandarose is offline

Offline

Newbie Poster

Programing Final!

Dec 8th, 2006

Those two words were meant for each other. :cheesy: Anyways, i got the final on Wednesday and it's due next Wednesday.

I have to design a program that takes information from a text document, displays that information, makes calculations based on that information, and then prints those calculations in a separate text document. The document LarryLemon.txt is the record of all cars sold at a used car lot. With each car sold the following variables were recorded in the document: VehiclePrice, LastName$, FirstName$, Phone, Address, City$, State$, ZIP, and Salesperson$.

I have written the following code so far:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
 'Ananda Bennett
'12/06/06
'Sales program
 
OPEN "c:\LarryLemon.txt" FOR INPUT AS #1
 
DO WHILE EOF(#1) <> -1
INPUT #1, VehiclePrice, LastName$, FirstName$, Phone, Address, City$, State$, ZIP, Salesperson$
 
PRINT "VehiclePrice  LastName  FirstName  Phone  Address  City  State  ZIP  Salesperson"
PRINT "................................................................................................"
PRINT VehiclePrice; "  " ;LastName$; "  " ;FirstName$; "  " ;Phone; "  " ;Address; "  " ;City$; "  " ;State$; "  " ;ZIP; "  " ;Salesperson$
PRINT "                                                                                                "
 
LOOP
 
CLOSE #1
 'Ananda Bennett
'12/06/06
'Sales program

OPEN "c:\LarryLemon.txt" FOR INPUT AS #1

DO WHILE EOF(#1) <> -1
INPUT #1, VehiclePrice, LastName$, FirstName$, Phone, Address, City$, State$, ZIP, Salesperson$

PRINT "VehiclePrice  LastName  FirstName  Phone  Address  City  State  ZIP  Salesperson"
PRINT "................................................................................................"
PRINT VehiclePrice; "  " ;LastName$; "  " ;FirstName$; "  " ;Phone; "  " ;Address; "  " ;City$; "  " ;State$; "  " ;ZIP; "  " ;Salesperson$
PRINT "                                                                                                "

LOOP

CLOSE #1

The code above only displays the information in the LL.txt file. The three calculations that I need to make are totaling how many cars each sales person sold, the total of their sales, and the average cost of a car he or she sold. Along with the sales persons name, the other two calculations need to be sent to a file for each sales person.

In order to count the total of cars sold by each sales person I was going to use the following code:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
'i will do this for each sales person 
IF Salesperson = Taylor THEN
LET count = count + 1
'i will do this for each sales person 
IF Salesperson = Taylor THEN
LET count = count + 1

The following code will print the three calculations that I mentioned above:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
LET totalcost = cost + cost
LET avgcost =(totalcost)/count
PRINT "                                                              Vehicles sold: ";count
PRINT "                                                              Total sales: ";totalcost
PRINT"                                                               Average sales: ";avgcost
LET totalcost = cost + cost
LET avgcost =(totalcost)/count
PRINT "                                                              Vehicles sold: ";count
PRINT "                                                              Total sales: ";totalcost
PRINT"                                                               Average sales: ";avgcost

Now the only thing left to do is print, along with the corresponding sales persons name, the total of their sales, and the average cost of a car he or she sold, in a text document. I pretty much have no idea how to do that. So, if anyone here could give me some insight into this it would be greatly appreciated.

Also, i have no idea if any of the code past the first snip-it works because my PC is in the shop. If someone would run them and let me know which ones work and which ones don't, that too would be greatly appreciated.

Thanks,

Ananda

Attached Files

LarryLemon.txt (15.8 KB, 2 views)

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: Programing Final!

Dec 9th, 2006

Hi,

I'am giving u the most simplest way of doing this.
Place 1 ListBox on the Form say lstSMan
Check Property, Sorted = False
Clear lstSMan.
Assuming U have Opened the File and u r in a loop.
u have populated the variable SalesPerson.
write this code inside the loop.

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
lstSMan.Clear
'Open file
'Do
lstSMan.Text = SalesPerson
If lstSMan.SelCount = 0 Then
    lstSMan.AddItem SalesPerson
    lstSMan.ItemData(lstSMan.NewIndex) = 0
    lstSMan.Selected(lstSMan.NewIndex) = True
End If
lstSMan.ItemData(lstSMan.ListIndex) =lstSMan.ItemData(lstSMan.ListIndex)  +1
 
'Write Loop Condition
'Do Any Other Coding here
 
So as per the above code, after the loop, lstSMan Consists of All the SalesPersons and their corresponding Counter is in their ItemData Property, use this code to print.
 
Dim i As Integer
For i = 0 To lstSMan.ListCount-1
    Debug.Print lstSMan.List(i) & "    " & lstSMan.ItemData(i)
Next
lstSMan.Clear
'Open file
'Do
lstSMan.Text = SalesPerson
If lstSMan.SelCount = 0 Then
    lstSMan.AddItem SalesPerson
    lstSMan.ItemData(lstSMan.NewIndex) = 0
    lstSMan.Selected(lstSMan.NewIndex) = True
End If
lstSMan.ItemData(lstSMan.ListIndex) =lstSMan.ItemData(lstSMan.ListIndex)  +1
 
'Write Loop Condition
'Do Any Other Coding here
 
So as per the above code, after the loop, lstSMan Consists of All the SalesPersons and their corresponding Counter is in their ItemData Property, use this code to print.
 
Dim i As Integer
For i = 0 To lstSMan.ListCount-1
    Debug.Print lstSMan.List(i) & "    " & lstSMan.ItemData(i)
Next

I hope it is clear. if u have problems, let me know.

Regards
Veena

Last edited by WaltP; Dec 9th, 2006 at 4:15 am. Reason: Code Tags!!!

•

Join Date: May 2006

Posts: 3,117

Reputation: WaltP has much to be proud of

Solved Threads: 282

WaltP

Offline

Posting Sensei

Re: Programing Final!

Dec 9th, 2006

QVeen72, you've been asked multiple times to use code tags. Is there a problem with understanding what they are? How to use them? Where to get the information? All this has been mentioned... Check the post at the top if the forum labled Please use BB Code and Inlinecode tags

The 3 Laws of the Procrastination Society:
1) Never do today that which can be put off until tomorrow
2) Tomorrow never comes

•

Join Date: Oct 2006

Posts: 20

Reputation: anandarose is an unknown quantity at this point

Solved Threads: 0

anandarose anandarose is offline

Offline

Newbie Poster

Re: Programing Final!

Dec 10th, 2006

•

Originally Posted by WaltP

QVeen72, you've been asked multiple times to use code tags. Is there a problem with understanding what they are? How to use them? Where to get the information? All this has been mentioned... Check the post at the top if the forum labled Please use BB Code and Inlinecode tags

Thank you for posting that. I'm new to programing so when I read QueenV's response I thought either there was something wrong with me or i just wasn't geek enough yet to understand it. :p

Thanks again,

Ananda