.exe?

[slim_jim_1987]

Hey.
Our computer teacher is a stupid d**khead and i got in trouble for standing up to stretch, so i want to get him back.
All i am wondering is how to make an .exe file.
I can do the rest from there.
Thanks for the help.

[Hexadecimal Disaster]

You're using QB45, right?

Options / Full menus should be enabled.
Click on Run / Make EXE file... Write a name for the EXE (8 characters, remember that we're playing in DOS), select Produce Stand Alone EXE file. Click on Make EXE.

Just that. :-?

But if what you want is to compile the code at the command line, well, that's another story.

[slim_jim_1987]

ok, thanks a lot.
what i am doing, is;
i'm making a program which enables a password lock and if you get it wrong, then it insults whoever is using, and then goes back to the password asking.
except i can't work out how to go back to the password question.
here's what i got so far
(note it's VERY basic considering i'm a newbie)

Code:

1:
INPUT "guess the password", passlock$
IF passlock$ = "hello" THEN
PRINT "that is correct"
END IF

ELSE
PRINT "i'm insulting you"
CLS
GOTO 1

i have no idea what i'm doing, lol, and i'd appreciate it if someone would help me out on it.
thanks.

oh by the way, when it's all done and that, i'm making it an .exe file then into an .autoexe file, so it happens when the compy boots up (muahahahahaha)
revenge is sweet.

[na_th_an]

You can use WHILE and such kind of modern and structured programming ... They work cool in this case:

Code:

DO
      INPUT "Guess the passlock";passlock$
      IF passlock$<>"hello" THEN PRINT "Insult!"
   LOOP WHILE passlock$<>"hello"
   PRINT "ok! You're allowed to pass!"

[slim_jim_1987]

Thanks for the help.
But i have a few more questions as well.
How do i make it so the insult repeats, say, 10 times? i thought this may work but it didn't

Code:

CLS
DO
INPUT "Guess the password and you may pass: ", passlock$
IF passlock$ <> "hello" THEN
FOR i = 1 to 10
PRINT "You are wrong you fool!"
NEXT i
LOOP WHILE passlock$ <> "hello"
PRINT "ok, you may pass"
END

And just some other questions, what exactly does MID mean/do?
And what does LEN do/mean?
Thanks for the help once again.

[na_th_an]

Do you mean... giving the user 10 oportunities?

Code:

timesLeft%=10
   DO
      INPUT "Guess the passlock";passlock$
      IF passlock$<>"hello" THEN PRINT "Insult!"
      timesLeft% = timesLeft% -1
      IF timesLeft% = 0 THEN "Heh - You're out MAN!": SYSTEM
   LOOP WHILE passlock$<>"hello"
   PRINT "ok! You're allowed to pass!"

[slim_jim_1987]

No, i meant it insults you 10 times.
like,
you fool
you fool
you fool
you fool

i think you get the picture.

[oracle]

For help on MID$ and LEN, check the QBasic help, or goto the QBOHO, see the link above.

And all the regulars helping - how could you miss the END IF lines that slim jim ain't putting in, and the ones he is putting in when he shouldn't? Here is the first program slim jim submitted with the correctments needed:

Code:

1:
INPUT "guess the password", passlock$
IF passlock$ = "hello" THEN
PRINT "that is correct"
ELSE                         ' Removed the END IF
PRINT "i'm insulting you"
CLS
GOTO 1
END IF      ' Add it here

Here is the second program with its fix in bold again:

Code:

CLS
DO
INPUT "Guess the password and you may pass: ", passlock$
IF passlock$ <> "hello" THEN
FOR i = 1 to 10
PRINT "You are wrong you fool!"
NEXT i
END IF   ' Add an END IF here
LOOP WHILE passlock$ <> "hello"
PRINT "ok, you may pass"
END

Once again... BAD regulars :evil:

[slim_jim_1987]

But in the second program it says that i'm doing something wrong and it wont work.

[slim_jim_1987]

Whoops, i misread, nevermind previous statement :oops: