This Visual Basic tutorial is for beginners and starters of the language.
All right, here we will learn how to build a simple and small Visual Basic Calculator. We're learning about a few new things today like converting a string to a double and how to use +, -, x and :.
If you like my video's, please comment rate and subscribe!
---SCRIPT SPOILER---
Private Sub cmdDevide_Click()
Dim Number1S As String
Dim Number1 As Double
Number1S = txtNumber1.Text
Number1 = Val(Number1S)
Dim Number2S As String
Dim Number2 As Double
Number2S = txtNumber2.Text
Number2 = Val(Number2S)
Dim Answer As Double
Dim AnswerS As String
Answer = Number1 / Number2
AnswerS = Str(Answer)
txtAnswer.Text = CDbl(Answer)
txtAnswer.Text = AnswerS
End Sub
Private Sub cmdMinus_Click()
Dim Number1S As String
Dim Number1 As Double
Number1S = txtNumber1.Text
Number1 = Val(Number1S)
Dim Number2S As String
Dim Number2 As Double
Number2S = txtNumber2.Text
Number2 = Val(Number2S)
Dim Answer As Double
Dim AnswerS As String
Answer = Number1 - Number2
AnswerS = Str(Answer)
txtAnswer.Text = CDbl(Answer)
txtAnswer.Text = AnswerS
End Sub
Private Sub cmdMultiply_Click()
Dim Number1S As String
Dim Number1 As Double
Number1S = txtNumber1.Text
Number1 = Val(Number1S)
Dim Number2S As String
Dim Number2 As Double
Number2S = txtNumber2.Text
Number2 = Val(Number2S)
Dim Answer As Double
Dim AnswerS As String
Answer = Number1 * Number2
AnswerS = Str(Answer)
txtAnswer.Text = CDbl(Answer)
txtAnswer.Text = AnswerS
End Sub
Private Sub cmdPlus_Click()
Dim Number1S As String
Dim Number1 As Double
Number1S = txtNumber1.Text
Number1 = Val(Number1S)
Dim Number2S As String
Dim Number2 As Double
Number2S = txtNumber2.Text
Number2 = Val(Number2S)
Dim Answer As Double
Dim AnswerS As String
Answer = Number1 + Number2
AnswerS = Str(Answer)
txtAnswer.Text = CDbl(Answer)
txtAnswer.Text = AnswerS
End Sub
I don't understand why you use strings and Cdbl function for such an easy example? Could you explain the reasoning? Thanks, good video
AndyBCankaya 1 year ago
@AndyBCankaya Because new users have to know what these functions do, ofcourse these codes I am writing can be very short and simple, but new users have to know what is happening and what functions there are in VB. That's why I chose to use these functions and make it longer than is needed!
And thanks!
TeachMeUp 1 year ago