Visual Basic Code Of Simple Calculator

This is a simple calculator created using VB .Net

1. Visual Basic Tip Calculator
2. Visual Basic Simple Calculator Code
3. Visual Basic Code Of Simple Calculator Tutorial
4. Create Calculator In Visual Basic

Output: Write First Program in Visual basic. How to Concat two string in Visual basic. + or the & operator is used to Concat two or more string in Visual basic. Below is the code to Concat two string in visual basic. Which contains 3 strings str1, str2,str3. This is the snippet Simple Calculator on FreeVBCode. The FreeVBCode site provides free Visual Basic code, examples, snippets, and articles on a variety of other topics as well. I wrote simple calculator with visual basic but when I debug my code, it has problem and dose not run correctly. My code Public Sub general Dim num1 As Long, num2 As Long Dim result As Singl. https://haecacadio.tistory.com/7. Simple Calculator With Visual Basic Code Using Dll Codes and Scripts Downloads Free. Creating a Server Component with Visual Basic is an ASP tutorial through which users can gather. Gtapecalc is a simple calculator with an output window that acts like the paper tape on a desktop calculator. https://haecacadio.tistory.com/5.

This are the Codes :
Public Class frmcalculator
Dim Operand1 As Double
Dim Operand2 As Double
Dim [Operator] As String
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click, Button2.Click
txtsource.Text = txtsource.Text & sender.text
End Sub
Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
txtsource.Text = '
End Sub
Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
Operand1 = Val(txtsource.Text)
txtsource.Text = '
txtsource.Focus()
[Operator] = '+'
End Sub
Private Sub btndecimal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If InStr(txtsource.Text, '.') > 0 Then
Exit Sub
Else
txtsource.Text = txtsource.Text & '.'
End If
End Sub
Private Sub btnequals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim Result As Double
Operand2 = Val(txtsource.Text)
'If [Operator] = '+' Then
' Result = Operand1 + Operand2
'ElseIf [Operator] = '-' Then
' Result = Operand1 - Operand2
'ElseIf [Operator] = '/' Then
' Result = Operand1 / Operand2
'ElseIf [Operator] = '*' Then
' Result = Operand1 * Operand2
'End If
Select Case [Operator]
Case '+'
Result = Operand1 + Operand2
MsgBox(Result.ToString('#,###.00'), MsgBoxStyle.Information, 'Result')
txtsource.Text = Result.ToString('#,###.00')
Case '-'
Result = Operand1 - Operand2
MsgBox(Result.ToString('#,###.00'), MsgBoxStyle.Information, 'Result')
txtsource.Text = Result.ToString('#,###.00')
Case '/'
Result = Operand1 / Operand2
MsgBox(Result.ToString('#,###.00'), MsgBoxStyle.Information, 'Result')
txtsource.Text = Result.ToString('#,###.00')
Case '*'
Result = Operand1 * Operand2
MsgBox(Result.ToString('#,###.00'), MsgBoxStyle.Information, 'Result')
txtsource.Text = Result.ToString('#,###.00')
End Select
txtsource.Text = Result.ToString('#,###.00')
End Sub
Private Sub btnminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnminus.Click
Operand1 = Val(txtsource.Text)
txtsource.Text = '
txtsource.Focus()
[Operator] = '-'
End Sub
Private Sub btnmultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmultiply.Click
Operand1 = Val(txtsource.Text)
txtsource.Text = '
txtsource.Focus()
[Operator] = '*'
End Sub
Private Sub btndivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndivide.Click
Operand1 = Val(txtsource.Text)
txtsource.Text = '
txtsource.Focus()
[Operator] = '/'
End Sub
Private Sub btnaddminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
txtsource.Text = -1 * txtsource.Text
End Sub
Private Sub btnx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnx.Click
Dim convert As Single
If txtsource.Text <> 0 Then
convert = 1 / Val(txtsource.Text)
txtsource.Text = convert
End If
End Sub
Private Sub frmcalculator_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Enter Then
Call btnequals_Click(sender, e)

Visual Basic Tip Calculator

Visual Basic Simple Calculator Code

End If
End Sub
Private Sub frmcalculator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Visual Basic Code Of Simple Calculator Tutorial

End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
End Class

Create Calculator In Visual Basic