Tutorial Membuat Kalkulator Sederhana Menggunakan VB.NET (Visual Studio 2010)
Adapun Listing yang Digunakan dalam Pembuatan Program ini adalah sebagai berikut :
Public Class Form1
Dim aksi As String
Dim nilai As Double
Dim hasil As Double
Dim simpan As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label2.Text = Label2.Text & “1”
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label2.Text = Label2.Text & “2”
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label2.Text = Label2.Text & “3”
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label2.Text = Label2.Text & “4”
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label2.Text = Label2.Text & “5”
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Label2.Text = Label2.Text & “6”
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Label2.Text = Label2.Text & “7”
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Label2.Text = Label2.Text & “8”
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Label2.Text = Label2.Text & “9”
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Label2.Text = Label2.Text & “0”
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “+”
Label2.Text = “”
aksi = “+”
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “-”
Label2.Text = “”
aksi = “-”
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “*”
Label2.Text = “”
aksi = “*”
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “/”
Label2.Text = “”
aksi = “/”
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
If aksi = “+” Then
Label2.Text = nilai + Label2.Text
ElseIf aksi = “-” Then
Label2.Text = nilai – Label2.Text
ElseIf aksi = “*” Then
Label2.Text = nilai * Label2.Text
ElseIf aksi = “/” Then
Label2.Text = nilai / Label2.Text
ElseIf aksi = “^” Then
Label2.Text = nilai ^ Label2.Text
ElseIf aksi = “MOD” Then
Label2.Text = nilai Mod Label2.Text
ElseIf aksi = “Log” Then
Label2.Text = Math.Log(CDbl(Label1.Text), Label2.Text)
End If
Label1.Text = “”
simpan = “0”
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Label2.Text = Label2.Text & “.”
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
Label1.Text = String.Empty
Label2.Text = String.Empty
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
Label2.Text = Math.PI
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Label2.Text = Math.Sqrt(Label2.Text)
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
Label2.Text = Math.Round(CSng(Label2.Text), 2)
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “^”
Label2.Text = “”
aksi = “^”
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “MOD”
Label2.Text = “”
aksi = “MOD”
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
Label2.Text = Label2.Text / 100 & “%”
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text
Label2.Text = “”
aksi = “Log”
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Label2.Text = Label2.Text * -1
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
If Label1.Text.Length 0 Then
Label1.Text = Label1.Text.Remove(Label1.Text.Length – 1, 1)
End If
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
Label2.Text = Math.Sin((Label2.Text) * (3.14 / 180))
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
Label2.Text = Math.Cos((Label2.Text) * (3.14 / 180))
End Sub
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
Label2.Text = Math.Tan((Label2.Text) * (3.14 / 180))
End Sub
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
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
Button30.Enabled = True
Button31.Enabled = True
End Sub
Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
Close()
End Sub
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
Form2.Show()
End Sub
End Class
adapun komponen – komponen yang digunakan dapat melihat dari hasil validasi program ini yang dibandingkan dengan program calculator bawaan microsoft :
antara lain komponennya adalah :
1. Label
2. Button
3. Panel
banyak nya komponen yang digunakan dapat menyesuaikan dengan screenshot yang telah disediakan …
FLOWCHART dari kalkulator tersebut adalah :
ini validasi yang telah dilakukan oleh kelompok kami :
flowchart kalkulator sangar
Pada penggunaan kalkulator buatan kami setelah dicocokan dengan kalkulator bawaan Microsoft maka ditemukan hasil yang sama
berikut adalah flowchart yang lebih jelas :
analisis yang dilakukan oleh kami adalah sebagai berikut :
sekian dari kami ..
apabila terjadi kesalahan atau kekurangan, mohon dimaklumi ..
NB : ketika program telah di build, maka terdapat beberapa kekurangan antara lain yaitu perhitungan angka tidak dapat dilakukan secara terus menerus ..
semisal 1+2 maka harus di klik equals lalu baru bisa melakukan perhitungan lebih lanjut ..
terimakasih …
Kelompok 39 TI 2011 