Tutorial
Komponen
|
Properties
|
Keterangan
|
Form1
|
Name
Text
|
Form1
Form1
|
Textbox1
|
Name
Text
|
Textbox1
|
Button1
|
Name
Text
|
Button1
1
|
Button2
|
Name
Text
|
Button2
2
|
Button3
|
Name
Text
|
Button3
3
|
Button4
|
Name
Text
|
Button4
4
|
Button5
|
Name
Text
|
Button5
5
|
Button6
|
Name
Text
|
Button6
6
|
Button7
|
Name
Text
|
Button7
7
|
Button8
|
Name
Text
|
Button8
8
|
Button9
|
Name
Text
|
Button9
9
|
Button10
|
Name
Text
|
Button10
.
|
Button11
|
Name
Text
|
Button11
=
|
Button12
|
Name
Text
|
Button12
Clear
|
Button13
|
Name
Text
|
Button13
+
|
Button14
|
Name
Text
|
Button14
-
|
Button15
|
Name
Text
|
Button15
X
|
Button16
|
Name
Text
|
Button16
/
|
Button17
|
Name
Text
|
Button17
0
|
Button18
|
Name
Text
|
Button18
Sin
|
Button19
|
Name
Text
|
Button19
Cos
|
Button20
|
Name
Text
|
Button20
^
|
Button21
|
Name
Text
|
Button21
Tan
|
Button22
|
Name
Text
|
Button22
√
|
Button23
|
Name
Text
|
Button23
Sin^-1
|
Button24
|
Name
Text
|
Button24
Cos^-1
|
Button25
|
Name
Text
|
Button25
Tan^-1
|
Button26
|
Name
Text
|
Button26
Log
|
Button27
|
Name
Text
|
Button27
Exp
|
Button28
|
Name
Text
|
Button28
PI
|
Button29
|
Name
Text
|
Button29
Off
|
Button30
|
Name
Text
|
Button30
On
|
Button31
|
Name
Text
|
Button31
Y^x
|
Button32
|
Name
Text
|
Button32
n!
|
Button33
|
Name
Text
|
Button33
Ln
|
Label1
|
Name
Text
|
Label1
|
Label2
|
Name
Text
|
Label2
|
Option Explicit On
Public Class Form1
Dim firstnumber As
Single
Dim secondnumber As Single
Dim answernumber As Single
Dim arithmaticproses As String
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Me.BackColor
= Color.Pink
Me.Text
= "KALKULATOR"
Label1.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
Button10.Enabled = False
Button11.Enabled = False
Button12.Enabled = False
Button13.Enabled = False
Button14.Enabled = False
Button15.Enabled = False
Button16.Enabled = False
Button17.Enabled = False
Button18.Enabled = False
Button19.Enabled = False
Button20.Enabled = False
Button21.Enabled = False
Button22.Enabled = False
Button23.Enabled = False
Button24.Enabled = False
Button25.Enabled = False
Button26.Enabled = False
Button27.Enabled = False
Button28.Enabled = False
Button31.Enabled = False
Button32.Enabled = False
Button33.Enabled = False
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
If
Label1.Text = "0" Then
Label1.Text = "1"
Else :
Label1.Text = Label1.Text & "1"
End If
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
If
Label1.Text = "0" Then
Label1.Text = "2"
Else
: Label1.Text = Label1.Text & "2"
End If
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
If
Label1.Text = "0" Then
Label1.Text = "3"
Else :
Label1.Text = Label1.Text & "3"
End If
End Sub
Private Sub
Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button6.Click
If
Label1.Text = "0" Then
Label1.Text = "6"
Else :
Label1.Text = Label1.Text & "6"
End If
End Sub
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button5.Click
If
Label1.Text = "0" Then
Label1.Text = "5"
Else :
Label1.Text = Label1.Text & "5"
End If
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button4.Click
If
Label1.Text = "0" Then
Label1.Text = "4"
Else :
Label1.Text = Label1.Text & "4"
End If
End Sub
Private Sub
Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button7.Click
If
Label1.Text = "0" Then
Label1.Text = "7"
Else :
Label1.Text = Label1.Text & "7"
End If
End Sub
Private Sub
Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button8.Click
If
Label1.Text = "0" Then
Label1.Text = "8"
Else :
Label1.Text = Label1.Text & "8"
End If
End Sub
Private Sub
Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button9.Click
If
Label1.Text = "0" Then
Label1.Text = "9"
Else :
Label1.Text = Label1.Text & "9"
End If
End Sub
Private Sub
Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button17.Click
Label1.Text = Label1.Text & "0"
End Sub
Private Sub
Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button10.Click
Label1.Text = Label1.Text & "."
End Sub
Private Sub
Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button12.Click
Label1.Text = ""
Label2.Text = ""
End Sub
Private Sub
Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button16.Click
firstnumber = Val(Label1.Text)
Label2.Text = Label1.Text & " " & ":"
Label1.Text = ""
arithmaticproses = "/"
End Sub
Private Sub
Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button13.Click
firstnumber = Val(Label1.Text)
Label2.Text = Label1.Text & " " & "+"
Label1.Text = ""
arithmaticproses = "+"
End Sub
Private Sub
Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button15.Click
firstnumber = Val(Label1.Text)
Label2.Text = Label1.Text & " " & "x"
Label1.Text = ""
arithmaticproses = "*"
End Sub
Private Sub
Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button14.Click
firstnumber = Val(Label1.Text)
Label2.Text = Label1.Text & " " & "-"
Label1.Text = ""
arithmaticproses = "-"
End Sub
Private Sub
Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button11.Click
secondnumber = Val(Label1.Text)
If
arithmaticproses = "+" Then
answernumber = firstnumber +
secondnumber
End If
If
arithmaticproses = "-" Then
answernumber = firstnumber -
secondnumber
End If
If arithmaticproses
= "*" Then
answernumber = firstnumber *
secondnumber
End If
If
arithmaticproses = "pangkat" Then
answernumber = firstnumber ^
secondnumber
End If
If
arithmaticproses = "/" Then
If
secondnumber = "0" Then
MsgBox("Tidak
Bisa di bagi dengan Nol")
Label1.Text = ""
Exit
Sub
End
If
answernumber = firstnumber /
secondnumber
End If
Label2.Text = Label2.Text & " " & Label1.Text & " " & "="
Label1.Text = answernumber
End Sub
Private Sub
Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button18.Click
firstnumber = Val(Label1.Text)
Label2.Text = "Sin"
& Label1.Text
Label1.Text = Math.Sin(firstnumber
* (Math.PI / 180))
End Sub
Private Sub
Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button19.Click
firstnumber = Val(Label1.Text)
Label2.Text = "Cos"
& Label1.Text
Label1.Text = Math.Cos(firstnumber
* (Math.PI / 180))
End Sub
Private Sub
Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button21.Click
firstnumber = Val(Label1.Text)
Label2.Text = "Tan"
& Label1.Text
Label1.Text = Math.Tan(firstnumber
* (Math.PI / 180))
End Sub
Private Sub
Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button20.Click
firstnumber = Val(Label1.Text)
Label2.Text = firstnumber & "^" & "2"
Label1.Text = firstnumber ^ 2
End Sub
Private Sub
Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button22.Click
firstnumber = Val(Label1.Text)
Label2.Text = "√"
& firstnumber
Label1.Text = firstnumber ^ 0.5
End Sub
Private Sub
Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button24.Click
firstnumber = Val(Label1.Text)
Label2.Text = "Cos^-1
" & Label1.Text
Label1.Text = (Math.Acos(firstnumber))
* 180 / Math.PI
End Sub
Private Sub
Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button23.Click
firstnumber = Val(Label1.Text)
Label2.Text = "Sin^-1
" & Label1.Text
Label1.Text = (Math.Asin(firstnumber))
* 180 / Math.PI
End Sub
Private Sub
Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button25.Click
firstnumber = Val(Label1.Text)
Label2.Text = "Tan^-1
" & Label1.Text
Label1.Text = (Math.Atan(firstnumber))
* 180 / Math.PI
End Sub
Private Sub
Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button26.Click
firstnumber = Val(Label1.Text)
Label2.Text = "Log
" & Label1.Text
Label1.Text = Math.Log10(firstnumber)
End Sub
Private Sub
Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button27.Click
firstnumber = Val(Label1.Text)
Label2.Text = "Exp
" & Label1.Text
Label1.Text = Math.Exp(firstnumber)
End Sub
Private Sub
Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button28.Click
firstnumber = Val(Label1.Text)
If
Label1.Text = "" Then
Label1.Text = 22 / 7
ElseIf
Label1.Text = "0" Then
Label1.Text = 22 / 7
Else :
Label1.Text = firstnumber * 22 / 7
End If
End Sub
Private Sub
Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button30.Click
Label1.Text = "0"
Label2.Text = ""
Label1.Enabled = True
Label2.Enabled = True
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
Button24.Enabled = True
Button25.Enabled = True
Button26.Enabled = True
Button27.Enabled = True
Button28.Enabled = True
Button31.Enabled = True
Button32.Enabled = True
Button33.Enabled = True
End Sub
Private Sub
Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button29.Click
Label1.Enabled = False
Label2.Enabled = False
Label1.Text = ""
Label2.Text = ""
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
Button10.Enabled = False
Button11.Enabled = False
Button12.Enabled = False
Button13.Enabled = False
Button14.Enabled = False
Button15.Enabled = False
Button16.Enabled = False
Button17.Enabled = False
Button18.Enabled = False
Button19.Enabled = False
Button20.Enabled = False
Button21.Enabled = False
Button22.Enabled = False
Button23.Enabled = False
Button24.Enabled = False
Button25.Enabled = False
Button26.Enabled = False
Button27.Enabled = False
Button28.Enabled = False
Button31.Enabled = False
Button32.Enabled = False
Button33.Enabled = False
End Sub
Private Sub
Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button31.Click
firstnumber = Val(Label1.Text)
Label2.Text = Label1.Text & " " & "^"
Label1.Text = ""
arithmaticproses = "pangkat"
End Sub
Private Sub
Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button32.Click
Label2.Text = Label1.Text & "!" & "
" & "="
answernumber = Label1.Text
For i =
answernumber - 1 To 1 Step
-1
answernumber = answernumber * i
Next i
Label1.Text = answernumber
End Sub
Private Sub
Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button33.Click
Label2.Text = "ln"
& Label1.Text
Label1.Text = Math.Log(Label1.Text)
End Sub
End Class
Tidak ada komentar:
Posting Komentar