What should I program?

Off Topic > Off Topic

(1/6) > >>

WhatevaGuy:
I'm talking BASIC, obviously. I know nothing of C++.
------------------------------------------------------------------
Anyways, I have been programming here and there. I have a calculator and a conversation; I will put pictures of them up soon, along with the code to go with them.
So what should I make? Not too hard, but not too easy.

Thanks!

--- Code: (Calculator) ---Print "Please input your first number."
num1 = Input$("")
Print "Please input your second number."
num2 = Input$("")
Print "Please input your operation type.
Print "1 = *, 2 = -, 3 = +, 4 = /"
oper = Input$("")

Select oper
Case 1
answer = num1 * num2
Goto answer1
Case 2
answer = num1 - num2
Goto answer2
Case 3
answer = num1 + num2
Goto answer3
Case 4
answer= num1 / num2
Goto answer4
End Select

.answer1
Print answer
WaitKey
End

.answer2
Print answer
WaitKey
End

.answer3
Print answer
WaitKey
End

.answer4
Print answer
WaitKey
End
--- End code ---

--- Code: (Conversation) ---AppTitle "Power of the Internet" ;creates the title of the app

Print "What is you're name?" ;asks for name
name$ = Input$() ;input, for client
Print "Hi " + name$ + "." ;prints hello, and adds given name
Delay(1250) ;delays for 1.25 seconds
Input$("So, " + name$ + ", what's up? ") ;asks what's up
Print "I see." ;yes you do
Delay(1500) ;delays for one and a half seconds
age = Input$("Say, how old are you? ") ;asks for age
Print age - 1 + ", huh. That's a CRAZY age." ;subtracts one from age, silly internets
Delay(1250) ;see above like commands
Print "Oh, " + age + ", I'm sorry. Sometimes I get confused." ;yes you do, silly internets
Delay(1800) ;see above like commands
Print "Yeah, " + age + " is pretty crazy." ;it sure is, internets
Delay(2000) ;see above--you knowwhat, screw it. you should already be familiar with delays by now
If age > 25 Then ;work or school? figures out by age
workplace$ = Input$("So, where do you work? ") ;workplace question
Goto label1 ;goes to the first label
Else If age < 25 Then ;see above like command
schoolplace$ = Input$("So, where do you go to school? ") ;see question in parentheses
Goto label2 ;see above like command
EndIf ;ends the 'if' variable majigger
.label1 ;sets label one for the above goto
Print "You know, I used To work there." ;internets are being friendly!
Print "That's pretty coincidental, I worked there too!" ;orly internets?
Goto continconvo ;goes to label, you should have this figured out by now
.label2 ;any wild guesses? hint, see my statement on .label 1
Print "Oh, cool." ;you bet your bippy, internets
favsub$ = Input$("So, what's you're favorite subject? ") ;mines german. yours?
Print "Really? That's my favorite too!" ;NO IT ISNT INTERNETS! gosh.
Input$("So what have you learned so far? ") ;not much really... am i supposed to have?
Print "Interesting..." ;NO IT ISNT INTERNETS! gosh.
Goto continconvo ;I wonder...
.continconvo ;sets up label for the similar goto commands
Delay(2500) ;you should know this.
ques = Input$("Wanna know what I know? ") ;yush
Print "Whatever." ;Way to be nice.
If age < 25 Then ;figure it out using the above similar terms and commands, from here on out. cha cha!
Print "You are an " + age + " year old person named " + name$ + "."
Delay (2250)
Print "You go to " + schoolplace$ + " and your favorite"
Print "subject is " + favsub$ + "."
Goto label22
Else If age > 25 Then
Print "You are an " + age + " year old person named " + name$ + "."
Delay (2250)
Print "And you work at " + workplace$ + "."
Goto label22
EndIf
.label22
Delay(1000)
Print "Well, I gotta go. Bye " + name$ + "."
Input$()
End

--- End code ---

Bisjac:
i remember being in a VB class back in highschool. we had to make something up at end of quarter, and i made some magic 8ball program. had like 50 answers and recorded questions asked.

put it on 6 diff computers at the school lab, and by end of year i swear every guy's loveual orientation had been questioned.

Marcem:
Awesome.

Tingalz:
I have this big book on BASIC, but never got all the way through it :(

WhatevaGuy:
As do I, Tingalz.
Still working on it.
Also, convo stuff will be up to.

Navigation

 Message Index

Go to full version