+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html)
+--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html)
+--- Thread: Make a program that is a person if they were coded! (/thread-9092.html)
Make a program that is a person if they were coded! - KiZ - 04-05-2006
Ahahahahahahaha
hahahaha
I am laughing so much right now xD
partly because that is so nonsensically funny
and partly because I would love to see the emote DrV uses when he sees it xD
Make a program that is a person if they were coded! - axipher - 04-05-2006
:o :rotfl: :lol: :rotfl: :o
Can't be put into words
Make a program that is a person if they were coded! - DrV - 04-05-2006
:rotfl: Haha...
Quote:AhahahahahahahaI'm going to use this one :whitetiger: because nobody ever uses it, and it's nifty.
hahahaha
I am laughing so much right now xD
partly because that is so nonsensically funny
and partly because I would love to see the emote DrV uses when he sees it xD
Make a program that is a person if they were coded! - Pritchard - 04-06-2006
:barf: :na_th_an:
lmao... :red_marvin:
You guys have smileys named after you...Oh dear.... :whitetiger:
Make a program that is a person if they were coded! - red_Marvin - 04-06-2006
That's because we made them :red_marvin:
Make a program that is a person if they were coded! - Torahteen - 04-10-2006
Oooh, somebody do me. I want to know what you think of me. :wink: .
Make a program that is a person if they were coded! - KiZ - 04-10-2006
Quote:I'm going to use this one :whitetiger: because nobody ever uses it, and it's nifty.
You forgot the REAL reason!! Because whtiger made it!
Silly!
Make a program that is a person if they were coded! - Torahteen - 04-22-2006
Me! Me! Do me!
Make a program that is a person if they were coded! - Torahteen - 04-24-2006
Since nobody will do me, here is mine
Code:
'Happy Birthday Generator
Dim clr As Integer
Dim nm As ZString * 255
Dim clrList() As String
Screen 13
Randomize Timer
Print "Welcome to the HB BB-Code Generator"
Input "Please tell me the name of the person who is having a birthday today ", nm
Print "Generating..."
Sleep 3000
Redim clrList(Len(nm) + 3) As String
For i = 1 To Len(nm)
clr = INT(RND(1) * 13 + 1)
Select Case clr
Case 1: clrList(i) = "darkblue"
Case 2: clrList(i) = "green"
Case 3: clr = 42 : clrList(i) = "orange"
Case 4: clrList(i) = "darkred"
Case 5: clrList(i) = "indigo"
Case 6: clrList(i) = "brown"
Case 7: clrList(i) = "yellow" : clr = 14
Case 8: clrList(i) = "white" : clr = 15
Case 9: clrList(i) = "blue"
Case 10: clrList(i) = "olive" : clr = 115
Case 11: clrList(i) = "cyan"
Case 12: clrList(i) = "red"
Case 13: clrList(i) = "violet"
End Select
Color clr
Print MID(nm, i, 1);
Next i
For c = 1 To 3
clr = INT(RND(1) * 13 +1)
Select Case clr
Case 1: clrList(i) = "darkblue"
Case 2: clrList(i) = "green"
Case 3: clr = 42 : clrList(i) = "orange"
Case 4: clrList(i) = "darkred"
Case 5: clrList(i) = "indigo"
Case 6: clrList(i) = "brown"
Case 7: clrList(i) = "yellow" : clr = 14
Case 8: clrList(i) = "white" : clr = 15
Case 9: clrList(i) = "blue"
Case 10: clrList(i) = "olive" : clr = 115
Case 11: clrList(i) = "cyan"
Case 12: clrList(i) = "red"
Case 13: clrList(i) = "violet"
End Select
Color clr
print "!";
Next c
Open "bbcode.txt" For Output As #1
Print #1, "[size=24]"
Print #1, "HB ";
For i = 1 To Len(nm)
Print #1, "[color=" + clrList(i) + "]" + MID(nm, i, 1) + "[/color]";
Next i
For i = Len(nm) To Len(nm) + 1
Print #1, "[color=" + clrList(i) + "]![/color]";
Next i
Print #1, "[/size]"
Close #1
SleepSample Output:
Quote:
HB Torahteen!!
Make a program that is a person if they were coded! - KiZ - 04-24-2006
Of course you could have just gone:
Code:
'Bday gen.. yeah yeah whatever
input "whos birthday is it then"; bday$
print "[size=24]HB [rainbow]" + bday$ + "[/rainbow][/size]":P
No need for writing to a file either, you could just copy from the console and paste into the browser.