Lets Build a Program

[Jacob Roman]

Im bored and have a creative idea for this thread. Lets build a program in VB one line at a time until we create a monstrosity assuming this ends up a super thread like post race.

Here are the rules:

1. It can only be one line at a time.
2. It must be in VB.Net
3. It must contain line numbers.
4. If a line needs deleted, say Delete (your line number here).
5. Troll posts and full sub routines/functions are not allowed and will be disregarded.
6. If there is a syntax error, say Syntax Error (your line number here)

I will start

000 Option Explicit On

[namrekka]

Im bored and have........

Lol....just married and already bored?

[dclamp]

002 Me.Close

[TysonLPrice]

Im bored and have a creative idea for this thread. Lets build a program in VB one line at a time until we create a monstrosity assuming this ends up a super thread like post race.

Here are the rules:

1. It can only be one line at a time.
2. It must be in VB.Net
3. It must contain line numbers.
4. If a line needs deleted, say Delete (your line number here).
5. Troll posts and full sub routines/functions are not allowed and will be disregarded.
6. If there is a syntax error, say Syntax Error (your line number here)

I will start

000 Option Explicit On

That's very similar to some of the requirements I get here at work. The old "just start coding and I'll get you the requirements tomorrow".

[homer13j]

That's very similar to some of the requirements I get here at work. The old "just start coding and I'll get you the requirements tomorrow".

It's either that or "here's some buggy, unstable code written twelve years ago. Make it work."

[techgnome]

that's easy...

001 On Error Resume Next 'Gotta sneak this in before the close.

that should take care of any errors.


-tg

[NeedSomeAnswers]

000 Option Explicit On
001 On Error Resume Next 'Gotta sneak this in before the close.
002 GC.Collect < Your missing this vital line !!!!
003 Me.Close

[Jacob Roman]

Delete 003

[dday9]

I'd like to see where this goes.

002 Option Strict On

[Jacob Roman]

003 Public Structure Vector

[dday9]

004 Private _x As Int32

[dclamp]

005 Dim Enchilada As Boolean

[Jacob Roman]

006 Public X As Integer

[TysonLPrice]

It was a dark and stormy night....

[dclamp]

007 'I am not sure where this is going, but it looks great.

[Jacob Roman]

008 Public Y As Integer

I feel like were a bunch of monkeys trying to get an automobile running lol

[ident]

000 Option Explicit On
001 On Error Resume Next 'Gotta sneak this in before the close.
002 GC.Collect < Your missing this vital line !!!!
003 Me.Close

Have you tried declaring any of these at form scope?

[boops boops]

It was a dark and stormy night....

Dim Lights As EnergySavingMeasure

BB

[Jacob Roman]

009 End Structure

[dday9]

010 Public Structure Vector3

[Jacob Roman]

011 Public X As Integer

[dday9]

012 Public Y As Integer

FYI It's bad practice to use Public variables over Public properties.

[TysonLPrice]

0013 Label01:

Guess where I plan to GoTo with that line of code...

[Gruff]

Private HellFreezesOver as boolean = False

[IanRyder]

I normally don’t play with these threads but this did make me laugh so according to the rules:-

014 Dim myRandom As New Random

[IanRyder]

015 MessageBox.Show(String.Join(" ", Enumerable.Range(0, myRandom.Next({"you", "are", "all", "going", "Bonkers", "when", "marriage", "should", "be", "the", "most", "memorable", "Time", "in", "your", "life", "however", "fun", "things", "can", "happen", "when", "you", "least", "expect", "them", "to"}.Length - 1) + 1).Select(Function(x) {"you", "are", "all", "going", "Bonkers", "when", "marriage", "should", "be", "the", "most", "memorable", "Time", "in", "your", "life", "however", "fun", "things", "can", "happen", "when", "you", "least", "expect", "them", "to"}(myRandom.Next(0, {"you", "are", "all", "going", "Bonkers", "when", "marriage", "should", "be", "the", "most", "memorable", "Time", "in", "your", "life", "however", "fun", "things", "can", "happen", "when", "you", "least", "expect", "them", "to"}.Length))).ToArray), "Warning! Bonkers Going On Here!", MessageBoxButtons.OK, MessageBoxIcon.Warning)

[Jacob Roman]

Error 015

You cant have a messagebox in a structure

Delete 015

[dday9]

015 Public Z As Integer

[Jacob Roman]

016 End Structure

[dday9]

017 Public Module VectorConversions

[techgnome]

020 REM This is a prime example of why our projects miss deadlines and go over budget

-tg

[Jacob Roman]

021 Public Vec As Vector3

[NeedSomeAnswers]

022 Vec.X = 1

[Jacob Roman]

Error 022
Can't put values in variables in the general declarations. Only for initialization
Delete 022

[dday9]

022 Public Function ConvertToVector2(ByVal value As Vector3) As Vector2

[Jacob Roman]

023 Dim Result As Vector2

[_God_]

024 Result.X = value.X

[TysonLPrice]

025 Goto Label01

[TysonLPrice]

026 MsgBox "April Fools!"

[_God_]

025 Goto Label01

Error 025
Label01 does not exist
Delete 025

Delete 026