Download 5.3 (2) Creating a Calculator in Visual Basic Part Two video

Download 5.3 (2) Creating a Calculator in Visual Basic Part Two video on savevid.com

Download 5.3 (2) Creating a Calculator in Visual Basic Part Two streaming video in flv, mp4, avi formats direct easily on Savevid.com.

 

5.3 (2) Creating a Calculator in Visual Basic Part Two

  • To download Youtube videos you should click "Run" when java window opens. Enable "Always trust content from the publisher" to download seamlessly in the future.
  • Download video
  • Provider: Link: http://www.youtube.com/watch?v=cOztbk6cqBs
  • Rate: Please rate this video Views: 16 Downloads: 70
  • Description: Adding the code needed to make your calculator function (continued from part one)
    Here's the code used:
    Option Explicit On
    Public Class Form1
    Dim FirstNumber As Single
    Dim SecondNumber As Single
    Dim AnswerNumber As Single
    Dim ArithmeticProcess As String
    Private Sub cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click
    txtDisplay.Text = txtDisplay.Text & 1
    End Sub
    Private Sub cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2.Click
    txtDisplay.Text = txtDisplay.Text & 2
    End Sub
    Private Sub cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd3.Click
    txtDisplay.Text = txtDisplay.Text & 3
    End Sub
    Private Sub cmd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd4.Click
    txtDisplay.Text = txtDisplay.Text & 4
    End Sub
    Private Sub cmd5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd5.Click
    txtDisplay.Text = txtDisplay.Text & 5
    End Sub
    Private Sub cmd6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd6.Click
    txtDisplay.Text = txtDisplay.Text & 6
    End Sub
    Private Sub cmd7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd7.Click
    txtDisplay.Text = txtDisplay.Text & 7
    End Sub
    Private Sub cmd8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd8.Click
    txtDisplay.Text = txtDisplay.Text & 8
    End Sub
    Private Sub cmd9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd9.Click
    txtDisplay.Text = txtDisplay.Text & 9
    End Sub
    Private Sub cmdDecimal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDecimal.Click
    txtDisplay.Text = txtDisplay.Text & "."
    End Sub
    Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
    txtDisplay.Text = "0"
    End Sub
    Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
    FirstNumber = Val(txtDisplay.Text)
    txtDisplay.Text = "0"
    ArithmeticProcess = "+"
    End Sub
    Private Sub cmdEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEquals.Click
    SecondNumber = Val(txtDisplay.Text)
    If ArithmeticProcess = "+" Then
    AnswerNumber = FirstNumber + SecondNumber
    End If
    If ArithmeticProcess = "-" Then
    AnswerNumber = FirstNumber - SecondNumber
    End If
    If ArithmeticProcess = "X" Then
    AnswerNumber = FirstNumber * SecondNumber
    End If
    If ArithmeticProcess = "/" Then
    AnswerNumber = FirstNumber / SecondNumber
    End If
    txtDisplay.Text = AnswerNumber
    End Sub
    Private Sub cmdMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMinus.Click
    FirstNumber = Val(txtDisplay.Text)
    txtDisplay.Text = "0"
    ArithmeticProcess = "-"
    End Sub
    Private Sub cmdMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMultiply.Click
    FirstNumber = Val(txtDisplay.Text)
    txtDisplay.Text = "0"
    ArithmeticProcess = "X"
    End Sub
    Private Sub cmdDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDivide.Click
    FirstNumber = Val(txtDisplay.Text)
    txtDisplay.Text = "0"
    ArithmeticProcess = "/"
    End Sub
    End Class
  • Tags: , , , , , , , , , , ,
  • Category: Flag video How-To, Celebrity Videos

Related videos

download youtube videos