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

Real Estate Program

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

Real Estate Program

Nov 14th, 2006

The following code is supposed to use the data in the attatched file to generate a list of relavent houses available based on the specifacations that you enter. After I enter my prefered search method I can't get it to stop asking me how many bed/bathrooms or what price i want to search for. Could you guys help me out?

 

Here is the code:

 

'Ananda Bennett

'11/06/2006

'HHSS

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

PRINT"************************************"

PRINT"* 1 - Search by number of bedrooms *"

PRINT"* 2 - Search by number of bathrooms*"

PRINT"* 3 - Search by price *"

PRINT"************************************"

INPUT "What would you like to search for homes by?: "; schoice

CLS

DO WHILE EOF(#1) <> -1

INPUT #1, address$, city$, state$, proptype$, bedrooms, bathroom, price

SELECT CASE schoice

CASE 1

INPUT "How many bedrooms would you like to search by?; "; bedquant

IF bedquant = bedroom THEN

PRINT "Address: "; address$

PRINT "City: "; city$

PRINT "State: "; state$

PRINT "Prop. Type: "; proptype$

PRINT "Bedrooms: "; bedrooms; "Bathrooms: "; bathrooms; "Price: "; price;

PRINT "-----------------------------------------------------------------"

END IF

CASE 2

INPUT "How many bathrooms would you like to search by?; "; bathquant

IF bathquant = bedroom THEN

PRINT "Address: "; address$

PRINT "City: "; city$

PRINT "State: "; state$

PRINT "Prop. Type: "; proptype$

PRINT "Bedrooms: "; bedrooms; "Bathrooms: "; bathrooms; "Price: "; price;

PRINT "-----------------------------------------------------------------"

END IF

CASE 3

INPUT "What price would you like to search by?; "; prices

IF prices = price THEN

PRINT "Address: "; address$

PRINT "City: "; city$

PRINT "State: "; state$

PRINT "Prop. Type: "; proptype$

PRINT "Bedrooms: "; bedrooms; "Bathrooms: "; bathrooms; "Price: "; price;

PRINT "-----------------------------------------------------------------"

END IF

END SELECT

LOOP

 

Ananda