Scribd
Upload
20 views41 pages

Simple Calculator and Login Forms

The document describes the code for 6 activities that create a simple calculator application using Visual Basic.NET. Each activity contains the code for multiple forms that allow users to: 1) perform basic math operations like addition, subtraction etc. 2) login/register 3) view voting eligibility or student grades 4) calculate averages or convert between temperatures 5) simulate a basic banking application with deposits and withdrawals 6) build a more advanced calculator application. The forms within each activity communicate by opening and hiding one another to transition between interfaces like login, main menus and result displays. The code handles input validation, math calculations and conditional logic to return computed values or messages to the user.

Uploaded by

Maria Jecmar Galanido Duropan
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
20 views41 pages

Simple Calculator and Login Forms

The document describes the code for 6 activities that create a simple calculator application using Visual Basic.NET. Each activity contains the code for multiple forms that allow users to: 1) perform basic math operations like addition, subtraction etc. 2) login/register 3) view voting eligibility or student grades 4) calculate averages or convert between temperatures 5) simulate a basic banking application with deposits and withdrawals 6) build a more advanced calculator application. The forms within each activity communicate by opening and hiding one another to transition between interfaces like login, main menus and result displays. The code handles input validation, math calculations and conditional logic to return computed values or messages to the user.

Uploaded by

Maria Jecmar Galanido Duropan
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

ACTIVITY #1

FORM 1 - SIMPLE CALCULATOR

Public Class Form1


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = ""

[Link] = " "


[Link] = " "
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = Val([Link]) + Val([Link])
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]


MsgBox("Thank You :) ! ")
End
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = Val([Link]) + Val([Link])
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = Val([Link]) - Val([Link])
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = Val([Link]) * Val([Link])
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = Val([Link]) / Val([Link])

End Sub
End Class

ACTIVITY #2

FORM 1 - LOGIN FORM

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


If [Link] = "JEC" And [Link] = "12345" Then
MsgBox( Thank You !")
Else
MsgBox("Error!")
[Link] = " "
[Link] = " "
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


End
End Sub
End Class

ACTIVITY #3
FORM 1 LOGIN FORM

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


If [Link] = "Jecmar" And [Link] = "082615" Then

[Link]()
[Link]()
Else
MsgBox("Error!")
[Link] = " "
[Link] = " "
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


End
End Sub
End Class

FORM 2 - MENU

Public Class Form2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]


End
End Sub
End Class

FORM 3 - VOTE

Public Class Form3

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


If Val([Link]) >= 18 Then
[Link] = "Qualified to Vote!"
Else
[Link] = "Not Qualified to Vote"
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = " "
[Link] = " "
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub
End Class

FORM 4 - GRADE

Public Class Form4

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


If Val([Link]) <= 74 Then
[Link] = "FAILED!"
ElseIf Val([Link]) = 75 Then
[Link] = "PASSED!"
ElseIf Val([Link]) <= 79 Then
[Link] = "SATISFACTORY!"
ElseIf Val([Link]) <= 89 Then
[Link] = "VERY SATISFACTORY!"
ElseIf Val([Link]) <= 99 Then
[Link] = "EXCELLENT!"
ElseIf Val([Link]) = 100 Then
[Link] = "PERFECT!"
Else

[Link] = "NOT AVAILABLE!"


End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = " "
[Link] = " "
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()
End Sub
End Class
ACTIVITY #4
FORM 1 - MENU

Public Class Form1

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles [Link]


MsgBox("Thank you ! Have a nice day :) ")

End

End Sub
End Class

FORM 2 AVERAGE OF 3 NUMBERS

Public Class Form2


Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles [Link]
[Link] =(Val([Link]) + Val([Link]) + Val([Link]))/3
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = " "
[Link] = " "

[Link] = " "


[Link] = " "
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub
End Class

FORM 3 CONVERTING CELCIUS TO FAHRENHEIT

Public Class Form3

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = Val([Link]) * (9 / 5) + 32

End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = " "
[Link] = " "
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
[Link]()

End Sub

End Class

FORM 4 CONVERTING FAHRENHEIT TO CELCIUS

Public Class Form4


Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles [Link]
[Link] = (Val([Link]) - 32) * 5 / 9
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = " "
[Link] = " "
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
[Link]()
End Sub
End Class

ACTIVITY #5
FORM 1 USER PIN

Public Class Form1

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles [Link]


If [Link] = "082615" Then
[Link]()
[Link]()
Else
MsgBox("Wrong PIN number. Please enter again!")
[Link] = " "
End If

End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
End

End Sub
End Class

FORM 2 INITIAL DEPOSIT

Public Class Form2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

[Link]()
[Link]()
End Sub
End Class

FORM 3 MENU

Public Class Form3

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles [Link]


End

End Sub
End Class

FORM 4 BALANCE INQUIRY

Public Class Form4

Private Sub Form4_Load(sender As Object, e As EventArgs) Handles [Link]


[Link] = [Link]

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub

End Class

FORM 5 DEPOSIT

Public Class Form5

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = Val([Link]) + Val([Link])
[Link]()
[Link]()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub
End Class

FORM 6 WITHDRAWAL

Public Class Form6

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


If Val([Link]) <= Val([Link]) Then
[Link] = Val([Link]) - Val([Link])
[Link]()
[Link]()
Else
MsgBox("Insuficient Funds.")
[Link] = " "
End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]()
[Link]()

End Sub
End Class

ACTIVITY #6
FORM 1 LOGIN

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


If [Link] = "Jecmar" And [Link] = "082615" Then
[Link]()
[Link]()
Else
MsgBox("Invalid!")
[Link] = " "
[Link] = " "
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


End

End Sub
End Class

FORM 2 CALCULATOR

Public Class Form2


Dim fnum, snum As Integer
Dim result As Integer

Dim op As Char
Dim memoryvalue As Integer
'1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "0" Then
[Link] = "1"
Else
[Link] = [Link] + "1"
End If
End Sub
'2
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "0" Then
[Link] = "2"
Else
[Link] = [Link] + "2"
End If
End Sub
'3
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "0" Then
[Link] = "3"
Else
[Link] = [Link] + "3"
End If

End Sub
'4
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "0" Then
[Link] = "4"
Else
[Link] = [Link] + "4"
End If
End Sub
'5
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "0" Then
[Link] = "5"
Else
[Link] = [Link] + "5"
End If
End Sub
'6
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "0" Then
[Link] = "6"
Else
[Link] = [Link] + "6"
End If
End Sub

'7
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "0" Then
[Link] = "7"
Else
[Link] = [Link] + "7"
End If
End Sub
'8
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "0" Then
[Link] = "8"
Else
[Link] = [Link] + "8"
End If
End Sub
'9
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "0" Then
[Link] = "9"
Else
[Link] = [Link] + "9"
End If
End Sub
'0

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles [Link]


If [Link] = "0" Then
[Link] = "0"
Else
[Link] = [Link] + "0"
End If
End Sub
'/
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles [Link]
fnum = [Link]
op = [Link]
[Link] = " "
End Sub
'*
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles [Link]
fnum = [Link]
op = [Link]
[Link] = " "
End Sub
'Private Sub Button12_Click(sender As Object, e As EventArgs) Handles [Link]
fnum = [Link]
op = [Link]
[Link] = " "
End Sub

'+
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles [Link]
fnum = [Link]
op = [Link]
[Link] = " "
End Sub
'=
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles [Link]
snum = [Link]
If op = "+" Then
[Link] = fnum + snum
ElseIf op = "*" Then
[Link] = fnum * snum
ElseIf op = "-" Then
[Link] = fnum - snum
ElseIf op = "/" Then
[Link] = fnum / snum
End If
End Sub
'C
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles [Link]
fnum = 0
snum = 0
[Link] = "0"
End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles [Link]

End Sub
End Class
ACTIVITY #7

Public Class Form1

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
[Link] = "JECMAR"
[Link] = [Link]
Else
[Link] = " "
End If
End Sub

Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
[Link] = "JECMAR"
[Link] = [Link]
Else
[Link] = " "
End If
End Sub

Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
[Link] = "JECMAR"
[Link] = [Link]
Else
[Link] = " "
End If
End Sub

Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
[Link] = "JECMAR"
[Link] = [Link]
Else

[Link] = " "


End If
End Sub

Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
[Link] = "JECMAR"
[Link] = [Link]
Else
[Link] = " "

End If
End Sub

Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
[Link] = "JECMAR"
[Link] = [Link]
Else
[Link] = " "
End If
End Sub

Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]

If [Link] = True Then


[Link] = "JECMAR"
[Link] = [Link]
Else
[Link] = " "

End If
End Sub
End Class

ACTIVITY #8

Public Class Form1

Dim sum As Integer


Dim JUICE As Integer
Dim COKE As Integer
Dim SPRITE As Integer
Dim ROYAL As Integer
Dim PEPSI As Integer
Dim MDEW As Integer
Dim SUP As Integer
Dim BURGER As Integer
Dim HOTDOG As Integer
Dim SPAG As Integer
Dim SANDW As Integer
Dim TEMP As Integer
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles
[Link]
If [Link] = True Then
JUICE = 5 * Val([Link])
sum += JUICE
[Link] = [Link]
End If

End Sub

Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then

COKE = 15 * Val([Link])
sum += COKE
[Link] = [Link]
End If
End Sub

Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
SPRITE = 15 * Val([Link])
sum += SPRITE
[Link] = [Link]
End If

End Sub

Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
ROYAL = 15 * Val([Link])
sum += ROYAL
[Link] = [Link]
End If
End Sub

Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]

If [Link] = True Then


PEPSI = 15 * Val([Link])
sum += PEPSI
[Link] = [Link]
End If
End Sub

Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
MDEW = 15 * Val([Link])
sum += MDEW
[Link] = [Link]
End If
End Sub

Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
SUP = 15 * Val([Link])
sum += SUP
[Link] = [Link]
End If
End Sub

Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]

If [Link] = True Then


BURGER = 30 * Val([Link])
sum += BURGER
[Link] = [Link]
End If
End Sub

Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
HOTDOG = 25 * Val([Link])
sum += HOTDOG
[Link] = [Link]
End If
End Sub

Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
SPAG = 20 * Val([Link])
sum += SPAG
[Link] = [Link]
End If
End Sub

Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]

If [Link] = True Then


SANDW = 15 * Val([Link])
sum += SANDW
[Link] = [Link]
End If
End Sub

Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = True Then
TEMP = 15 * Val([Link])
sum += TEMP
[Link] = [Link]
End If
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


If Val([Link]) < Val([Link]) Then
MsgBox("Insuficient")
Else
[Link] = Val([Link]) - Val([Link])
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = False
[Link] = False

[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "

End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
End

End Sub
End Class

You might also like