summaryrefslogtreecommitdiffhomepage
path: root/Visual Basic
diff options
context:
space:
mode:
authorAdam <adam@adambard.com>2013-08-02 09:40:22 -0700
committerAdam <adam@adambard.com>2013-08-02 09:40:22 -0700
commit18a5e58b16e6e0b172c010fd3bba07e81701222a (patch)
treee27928d18b2afb10a5bb32315f4082ffa59b5b94 /Visual Basic
parent906c7164d0975d14da0391ff47b5c384f0dd1c47 (diff)
Fixed php and removed old VB file
Diffstat (limited to 'Visual Basic')
-rw-r--r--Visual Basic248
1 files changed, 0 insertions, 248 deletions
diff --git a/Visual Basic b/Visual Basic
deleted file mode 100644
index 73430633..00000000
--- a/Visual Basic
+++ /dev/null
@@ -1,248 +0,0 @@
----
-language: Visual Basic Console Application
-contributors:
- - ["Brian Martin", "http://brianmartin.biz"]
-filename: learnvisualbasic.vb
-
-Module Module1
-
- Sub Main()
- 'A Quick Overview of Visual Basic Console Applications before we dive in to the deep end.
- 'Apostrophe starts comments.
- 'To Navigate this tutorial within the Visual Basic Complier, I've put together a navigation system.
- 'This navigation system is explained however as we go deeper into this tutorial, you'll understand what it all means.
- Console.Title = ("Learn X in Y Minutes")
- Console.WriteLine("NAVIGATION") 'Display
- Console.WriteLine("")
- Console.ForegroundColor = ConsoleColor.Green
- Console.WriteLine("1. Hello World Output")
- Console.WriteLine("2. Hello World Input")
- Console.WriteLine("3. Calculating Whole Numbers")
- Console.WriteLine("4. Calculating Decimal Numbers")
- Console.WriteLine("5. Working Calculator")
- Console.WriteLine("6. Using Do While Loops")
- Console.WriteLine("7. Using For While Loops")
- Console.WriteLine("8. Conditional Statements")
- Console.WriteLine("9. Select A Drink")
- Console.WriteLine("50. About")
- Console.WriteLine("Please Choose A Number From The Above List")
- Dim selection As String = Console.ReadLine
- Select Case selection
- Case "1" 'HelloWorld Output
- Console.Clear() 'Clears the application and opens the private sub
- HelloWorldOutput() 'Name Private Sub, Opens Private Sub
- Case "2" 'Hello Input
- Console.Clear()
- HelloWorldInput()
- Case "3" 'Calculating Whole Numbers
- Console.Clear()
- CalculatingWholeNumbers()
- Case "4" 'Calculting Decimal Numbers
- Console.Clear()
- CalculatingDecimalNumbers()
- Case "5" 'Working Calcculator
- Console.Clear()
- WorkingCalculator()
- Case "6" 'Using Do While Loops
- Console.Clear()
- UsingDoWhileLoops()
- Case "7" 'Using For While Loops
- Console.Clear()
- UsingForLoops()
- Case "8" 'Conditional Statements
- Console.Clear()
- ConditionalStatement()
- Case "9" 'If/Else Statement
- Console.Clear()
- IfElseStatement() 'Select a drink
- Case "50" 'About msg box
- Console.Clear()
- Console.Title = ("Learn X in Y Minutes :: About")
- MsgBox("Learn X in Y Minutes is a creation of Adam Bard (@adambard) This particular program tutorial is by Brian Martin (@BrianMartinn")
- Console.Clear()
- Main()
- Console.ReadLine()
-
- End Select
- End Sub
-
- 'One - I'm using numbers to help with the above navigation when I come back later to build it.
- Private Sub HelloWorldOutput() 'We use private subs to seperate different sections of the program.
- Console.Title = "Hello World Ouput | Learn X in Y Minutes" 'Title of Console Application
- 'Use Console.Write("") or Console.WriteLine("") to print outputs.
- 'Followed by Console.Read() alternatively Console.Readline()
- 'Console.ReadLine() prints the output to the console.
- Console.WriteLine("Hello World")
- Console.ReadLine()
- End Sub
- 'Two
- Private Sub HelloWorldInput() 'We use private subs to seperate different sections of the program.
- Console.Title = "Hello World YourName | Learn X in Y Minutes" 'Title of Console Application
- 'Variables
- 'Data entered by a user needs to be stored.
- 'Variables also start with a Dim and end with an As VariableType.
- Dim username As String 'In this tutorial, we want to know what your name, and make the program respond to what is said.
- 'We use string as string is a text based variable.
- Console.WriteLine("Hello, What is your name? ") 'Ask the user their name.
- username = Console.ReadLine() 'Stores the users name.
- Console.WriteLine("Hello " + username) 'Output is Hello 'Their name'
- Console.ReadLine() 'Outsputs the above.
- 'The above will ask you a question followed by printing your answer.
- 'Other variables include Integer and we use Integer for whole numbers.
- End Sub
- 'Three
- Private Sub CalculatingWholeNumbers() 'We use private subs to seperate different sections of the program.
- Console.Title = "Calculating Whole Numbers | Learn X in Y Minutes" 'Title of Console Application
- Console.Write("First number: ") 'Enter a whole number, 1, 2, 50, 104 ect
- Dim a As Integer = Console.ReadLine()
- Console.Write("Second number: ") 'Enter second whole number.
- Dim b As Integer = Console.ReadLine()
- Dim c As Integer = a + b
- Console.WriteLine(c)
- Console.ReadLine()
- 'The above is a simple calculator
- End Sub
- 'Four
- Private Sub CalculatingDecimalNumbers()
- Console.Title = "Calculating with Double | Learn X in Y Minutes" 'Title of Console Application
- 'Of course we would like to be able to add up decimals.
- 'Therefore we could change the above from Integer to Double.
- Console.Write("First number: ") 'Enter a whole number, 1.2, 2.4, 50.1, 104.9 ect
- Dim a As Double = Console.ReadLine
- Console.Write("Second number: ") 'Enter second whole number.
- Dim b As Double = Console.ReadLine
- Dim c As Double = a + b
- Console.WriteLine(c)
- Console.ReadLine()
- 'Therefore the above program can add up 1.1 - 2.2
- End Sub
- 'Five
- Private Sub WorkingCalculator()
- Console.Title = "The Working Calculator| Learn X in Y Minutes" 'Title of Console Application
- 'However if you'd like the calculator to subtract, divide, multiple and add up.
- 'Copy and paste the above again.
- Console.Write("First number: ") 'Enter a whole number, 1.2, 2.4, 50.1, 104.9 ect
- Dim a As Double = Console.ReadLine
- Console.Write("Second number: ") 'Enter second whole number.
- Dim b As Integer = Console.ReadLine
- Dim c As Integer = a + b
- Dim d As Integer = a * b
- Dim e As Integer = a - b
- Dim f As Integer = a / b
- 'By adding the below lines we are able to calculate the subtract, multply as well as divide the a and b values
- Console.Write(a.ToString() + " + " + b.ToString())
- Console.WriteLine(" = " + c.ToString.PadLeft(3)) 'We want to pad the answers to the left by 3 spaces.
- Console.Write(a.ToString() + " * " + b.ToString())
- Console.WriteLine(" = " + d.ToString.PadLeft(3)) 'We want to pad the answers to the left by 3 spaces.
- Console.Write(a.ToString() + " - " + b.ToString())
- Console.WriteLine(" = " + e.ToString.PadLeft(3)) 'We want to pad the answers to the left by 3 spaces.
- Console.Write(a.ToString() + " / " + b.ToString())
- Console.WriteLine(" = " + e.ToString.PadLeft(3)) 'We want to pad the answers to the left by 3 spaces.
- Console.ReadLine()
-
- End Sub
- 'Six
- Private Sub UsingDoWhileLoops()
- 'Just as the previous private sub
- 'This Time We Ask If The User Wishes To Continue (Yes or No?)
- 'We're using Do While Loop as we're unsure if the user wants to use the program more than once.
- Console.Title = "UsingDoWhileLoops | Learn X in Y Minutes"
- Dim answer As String 'We use the variable "String" as the answer is text
- Do 'We start the program with
- Console.Write("First number: ")
- Dim a As Double = Console.ReadLine
- Console.Write("Second number: ")
- Dim b As Integer = Console.ReadLine
- Dim c As Integer = a + b
- Dim d As Integer = a * b
- Dim e As Integer = a - b
- Dim f As Integer = a / b
-
- Console.Write(a.ToString() + " + " + b.ToString())
- Console.WriteLine(" = " + c.ToString.PadLeft(3))
- Console.Write(a.ToString() + " * " + b.ToString())
- Console.WriteLine(" = " + d.ToString.PadLeft(3))
- Console.Write(a.ToString() + " - " + b.ToString())
- Console.WriteLine(" = " + e.ToString.PadLeft(3))
- Console.Write(a.ToString() + " / " + b.ToString())
- Console.WriteLine(" = " + e.ToString.PadLeft(3))
- Console.ReadLine()
- 'Ask the question, does the user wish to continue? Unfortunately it is case sensitive.
- Console.Write("Would you like to continue? (yes / no)")
- answer = Console.ReadLine 'The program grabs the variable and prints and starts again.
- Loop While answer = "yes" 'The command for the variable to work would be in this case "yes"
-
- End Sub
- 'Seven
- Private Sub UsingForLoops()
- 'Sometimes the program only needs to run once.
- 'In this program we'll be counting down from 10.
-
- Console.Title = "Using For Loops | Learn X in Y Minutes"
- For i As Integer = 10 To 0 Step -1 'Declare Vairable and what number it should count down in Step -1, Step -2, Step -3 ect.
- Console.WriteLine(i.ToString) 'Print the value of the counter variable
- Next i 'Calculate new value
- Console.WriteLine("Start") 'Lets start the program baby!!
- Console.ReadLine() 'POW!! - Perhaps I got a little excited then :)
- End Sub
- 'Eight
- Private Sub ConditionalStatement()
- Console.Title = "Conditional Statements | Learn X in Y Minutes"
- Dim userName As String = Console.ReadLine
- Console.WriteLine("Hello, What is your name? ") 'Ask the user their name.
- userName = Console.ReadLine() 'Stores the users name.
- If userName = "Adam" Then 'Hey, if Adam uses this program, kudos where kudos is due, right?
- Console.WriteLine("Hello Adam")
- Console.WriteLine("Thanks for creating the useful tutorial site www.learnxinyminutes.com!")
- Console.ReadLine()
- Else
- Console.WriteLine("Hello " + userName) 'prints the username of the user
- Console.WriteLine("Hope all is well have you checked out www.learnxinyminutes.com") 'Prints a message to the user
- Console.ReadLine() 'Ends and prints the above statement.
- End If
- End Sub
- 'Nine
- Private Sub IfElseStatement()
- Console.Title = "If / Else Statement | Learn X in Y Minutes"
- 'Sometimes its important to consider more than two alternatives. Sometimes there are a good few others.
- 'When this is the case, more than one if statement would be required.
- 'An if statement is great for vending machines. Where the user enters a code.
- 'A1, A2, A3, ect to select an item.
- 'All choices can be combined into a single if statement.
-
- Dim selection As String = Console.ReadLine 'Value for selection
- Console.WriteLine("A1. for 7Up")
- Console.WriteLine("A2. for Fanta")
- Console.WriteLine("A3. for Dr. Pepper")
- Console.WriteLine("A4. for Diet Coke")
- Console.ReadLine()
- If selection = "A1" Then
- Console.WriteLine("7up")
- Console.ReadLine()
- ElseIf selection = "A2" Then
- Console.WriteLine("fanta")
- Console.ReadLine()
- ElseIf selection = "A3" Then
- Console.WriteLine("dr. pepper")
- Console.ReadLine()
- ElseIf selection = "A4" Then
- Console.WriteLine("diet coke")
- Console.ReadLine()
- Else
- Console.WriteLine("Please select a product")
- Console.ReadLine()
- End If
-
- End Sub
-
-End Module
-
-
-```
-## References
-
-I learnt Visual Basic in the console application. It allowed me to understand the principles of computer programming to go on to learn other programming languages easily.
-
-I created a more indepth <a href="http://www.vbbootcamp.co.uk/" Title="Visual Basic Tutorial">Visual Basic tutorial</a> for those who would like to learn more.
-
-The entire syntax is valid. Copy the and paste in to the Visual Basic complier and run (F5) the program.