Beranda » p.VB » Cara membuat kalkulator dari visual basic 2008

Cara membuat kalkulator dari visual basic 2008

ASSALAMUALAIKUM WR.WB

Selamat pagi para pembaca setia kami ANAK LAUT, apa kabar kailan pada pagi yang cerah ini?..

Admin harap sehat wal afiat saja :D.

Pada kesempatan ini admin ingin berbagi kasus dan koding sederhana yang mungkin bisa untuk mengisi waktu luang teman-teman, baiklah ini dia kasus kita kali ini KALKULATOR.

Nah bagaimana ada yang kefikiran untuk membuat program susah tersebut?...

Ha ha ha :D tenang sahabat ANAK LAUT kalkulator yang akan kita buat kali ini bukan kalkulator ilmiah yang membutuhkan script yang banyak dan rumit, bukan tak ingin mengajarkan yang lebih bagus tetapi admin ingin berbagi secara bertahap agar mudah diingat dan dimengerti serta bermaanfaat di masa depan bukan sekedar bermaanfaat sesaat.

Ok ini dia yang perlu dipersiapkan oleh teman-teman

Nama Komponen Asal	Nama Komponen Baru	Properties	Value
Form1	form1	Text	Kalkulator
Texbox1	textbox1	Text
Button1	btn1	Text	1
Button2	btn2	Text	2
Button3	btn3	Text	3
Button4	btn4	Text	4
Button5	btn5	Text	5
Button6	btn6	Text	6
Button7	btn7	Text	7
Button8	btn8	Text	8
Button9	btn9	Text	9
Button10	btn0	Text	0
Button11	btnttk	Text	.
Button12	btnhasil	Text	=
Button13	btntmbh	Text	+
Button14	btnkrng	Text	-
Button15	btnkali	Text	*
Button16	btnbagi	Text	/
Button17	btnPi	Text	Pi
Button18	btndel	Text	C

Itu tabel tidak mesti dihafal kali masih bisa kok dilihat lagi saat pembuatan nanti :D.

Pertama siapkan Project baru, kemudian atur Button dan Textbox sesuai selera teman-teman dan jangan lupa mengisi value-value dari setiap Button

Kedua masukkan script berikut pada codenya

Public Class Form1

Inherits System.Windows.Forms.Form

'deklarasi konstanta

Const Pi As Single = 3.14

'deklarasi variable global

Public hasil As Single

Public operator1 As Byte

Private Sub btnPi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPi.Click

TextBox1.Text = TextBox1.Text * Pi

End Sub

Private Sub btndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel.Click

TextBox1.Text = ""

hasil = 0

TextBox1.Focus()

End Sub

Private Sub btntmbh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntmbh.Click

operator1 = "1"

hasil = Single.Parse(TextBox1.Text)

TextBox1.Text = ""

TextBox1.Focus()

End Sub

Private Sub btnkrng_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkrng.Click

operator1 = "2"

hasil = Single.Parse(TextBox1.Text)

TextBox1.Text = ""

TextBox1.Focus()

End Sub

Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click

operator1 = "3"

hasil = Single.Parse(TextBox1.Text)

TextBox1.Text = ""

TextBox1.Focus()

End Sub

Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click

operator1 = "4"

hasil = Single.Parse(TextBox1.Text)

TextBox1.Text = ""

TextBox1.Focus()

End Sub

Private Sub btnhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhasil.Click

If operator1 = 1 Then

hasil = hasil + Single.Parse(TextBox1.Text)

TextBox1.Text = hasil

ElseIf operator1 = 2 Then

hasil = hasil - Single.Parse(TextBox1.Text)

TextBox1.Text = hasil

ElseIf operator1 = 3 Then

hasil = hasil * Single.Parse(TextBox1.Text)

TextBox1.Text = hasil

ElseIf operator1 = 4 Then

hasil = hasil / Single.Parse(TextBox1.Text)

TextBox1.Text = hasil

End If

End Sub

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

TextBox1.Text = TextBox1.Text & "1"

End Sub

Private Sub btnttk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnttk.Click

TextBox1.Text = TextBox1.Text + "."

TextBox1.Focus()

End Sub

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click

TextBox1.Text = TextBox1.Text & "2"

End Sub

Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click

TextBox1.Text = TextBox1.Text & "3"

End Sub

Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click

TextBox1.Text = TextBox1.Text & "4"

End Sub

Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click

TextBox1.Text = TextBox1.Text & "5"

End Sub

Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click

TextBox1.Text = TextBox1.Text & "6"

End Sub

Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click

TextBox1.Text = TextBox1.Text & "7"

End Sub

Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click

TextBox1.Text = TextBox1.Text & "8"

End Sub

Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click

TextBox1.Text = TextBox1.Text & "9"

End Sub

Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click

TextBox1.Text = TextBox1.Text & "0"

End Sub

End Class

Nah jika sudah siap coba jalankan aplikasi yang sudah kita buat tadi, jika sahabat ANAK LAUT mengikuti step by step insyaallah tidak ada salah, maka aplikasi pasti berjalan seperti ini