EatOut = 0
Order = 0
Cook = 0
Hungry = 0

Do
Choice = InputBox(“Enter 1 – Eat Out; 2 – Order Delivery; 3 – Cook”,”Do not press cancel until last vote is made”)

If (Choice vbNull) and (Choice “”) Then
Select Case Choice
Case 1
Wscript.Echo “Eat Out”
EatOut = EatOut + 1
Case 2
Wscript.Echo “Order Delivery”
Order = Order + 1
Case 3
Wscript.Echo “Cook”
Cook = Cook + 1
Case Else
Wscript.Echo “Don’t Eat”
Hungry = Hungry + 1
End Select
End If

Loop Until Choice = “”

Wscript.Echo “Eat out: ” & EatOut
Wscript.Echo “Order: ” & Order
Wscript.Echo “Cook: ” & Cook
Wscript.Echo “Don’t Eat: ” & Hungry

and save as .vbs and you get a dinner tally

but you need to change the ” to make it work if you are pasting it. notepad reads them wrong.

First, paste this into notepad:

Dim message, sapi
do
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
loop until message = “”

(you need to go back and manually change the ” signs because notepad reads them wrong.)

then you save the file with any name followed by .vbs (e.g Speak this.vbs)

you will also need to save it under all files.

then you close notepad and find the file. open the file if you receive an error message make sure that you have changed the ” signs to your own. if a box pops up and asks you to type something in type anything you like! the computer will say what you type!

good-luck!

@echo off
echo welcome to the "techie-buzz.com" questionaire.
echo:
echo we would like you to complete the following questionaire.
echo:
echo when prompted, press 1 for yes, 2 for no, or press 5 to quit.
pause
cls
echo …………………………………………………..
echo did you find the resources on our website useful/helpful?
echo …………………………………………………..
set /p q=type your answer now and press ENTER when you are done:
if %q%==1 goto 1
if %q%==2 goto 2
if %q%==5 goto 5
:1
cls
echo you have answered yes.
echo:
echo we apreciate your feed back.
echo thank you for your time.
pause
exit

Matrix Effect

Here is the code.Just copy it.

@echo off

color 0a

:start

echo %random% %random% %random% %random% %random% %random% %random% %random% %radom% %random

goto start