[P3t3r]

Hi, I can't figure out what wrong is with this code... Anyone experienced with Quickbasic know what's wrong with it?

***********Start of code*************

DIM userid AS STRING 'Ask user for userid
DIM password AS INTEGER 'Ask user for password


CLS
COLOR 2

PRINT "Welcome to Peter's Secure Network Login System"
PRINT "Version 1.0"
SLEEP 2
PRINT "Please enter your User ID to continue."
INPUT "Userid"; userid
IF userid = Peter THEN
PRINT "Please enter your password to continue."
ELSEIF userid = Peteriscool THEN
PRINT "Please enter your password to continue."
ELSE
PRINT "Invaild Userid, you have 1 more chance to enter it again."
END IF

**********End of Code ***********
The program give me the type mismatch error on userid =Peter and userid= Peteris cool. When I add a $ to them, the program runs but not the way I want to. There is only 1 response instead of the 3 it suppose to have.

Thanks.

[horndude]

you have to add a "$", thats how basic does strings

you elseif statements I think are wrong syntax maybe, been about 25yrs since I wrote anything in basic

google for quick basic and see if you can find an online manual and check the "if then" procedures/syntax

[macdude425]

I think I found your problem.

IF userid = Peter THEN
PRINT "Please enter your password to continue."
ELSEIF userid = Peteriscool THEN

This needs to be:

IF userid = "Peter" THEN
PRINT "Please enter your password to continue."
ELSEIF userid = "Peteriscool" THEN

Since you defined userid as a string, all possible values have to be in quotes.

Hope that helps some.

[horndude]

doesnt his input function need to be INPUT$ or not? Its been awhile LOL

[macdude425]

Shouldn't have to be. I never use INPUT$, and all my programs work fine.

[JoeTheOdd]

DIM userid AS STRING
DIM password AS STRING 'Text isn't an integer. You need to use a string.

CLS
COLOR 2

PRINT "Welcome to Peter's Secure Network Login System"
PRINT "Version 1.0"
SLEEP 2
PRINT "Please enter your User ID to continue."
USERIDINPUT: 'This is a place identifier, so we can call a GOTO later.
CALL INPUT("Userid", userid) 'Comma, not semicolon
IF userid = "Peter" OR userid = "Peteriscool" THEN 'More effecient to include the OR statment and test for either password
PRINT "Please enter your password to continue."
ELSE
PRINT "Invaild Userid. Please try again."
GOTO USERIDINPUT
END IF