Brew slag
#1
Scooby Regular
Thread Starter
iTrader: (4)
Join Date: Sep 2005
Location: The yorkshire dales - best roads in the UK
Posts: 3,311
Likes: 0
Received 0 Likes
on
0 Posts
Brew slag
Who's turn is it to get the brews in at work?
Wrote this little number as i'm bored.
Paste it into notepad and change .txt to .vbs and the names to whoever is in your team and stick it on your desk top.
Double click and up comes a random name.
Dim MyValue
Randomize
MyValue = Int((4 * Rnd) + 1)
IF MyValue <= 1 THEN MsgBox ("Brew slag is JOEY")
IF MyValue > 1 AND MyValue <= 2 THEN MsgBox ("Brew slag is STU")
IF MyValue > 2 AND MyValue <= 3 THEN MsgBox ("Brew slag is Andy")
IF MyValue > 3 AND MyValue <= 4 THEN MsgBox ("Brew slag is Mark")
Wrote this little number as i'm bored.
Paste it into notepad and change .txt to .vbs and the names to whoever is in your team and stick it on your desk top.
Double click and up comes a random name.
Dim MyValue
Randomize
MyValue = Int((4 * Rnd) + 1)
IF MyValue <= 1 THEN MsgBox ("Brew slag is JOEY")
IF MyValue > 1 AND MyValue <= 2 THEN MsgBox ("Brew slag is STU")
IF MyValue > 2 AND MyValue <= 3 THEN MsgBox ("Brew slag is Andy")
IF MyValue > 3 AND MyValue <= 4 THEN MsgBox ("Brew slag is Mark")
Thread
Thread Starter
Forum
Replies
Last Post