Cara membuat kalkulator keren dengan vb 2010

https://vbphotoshop.blogspot.com

Cara membuat kalkulator keren dengan vb 2010. Aplikasi yang akan kita buat saat ini adalah apikasi sederhana dengan menggunakan vb 2010 atau vb.net. Setelah sekian lama saya tidak update artikel di blog kita ini, kali ini saya akan memberikan tutotial vb 2010 yang sangat mudah dan sangat dasar tapi hasilnya keren. Sebenarnya tutorial ini tidak hanya bisa dibuat dengan vb 2010, tapi bisa juga dibuat dengan vb6. Oke sobat, silahlan diikuti tutorialnya. Mudah ko, asalkan kita beneran pengen bisa..

1. Pertama tentunya buka dulu program vb 2010 nya.. Belum punya? Masa sih!! Kalo belum punya download dulu aja Disini. Kalo yang ga punya vb 2010, pake vb6 juga bisa ko. Coba aja!!.

2. Udah tau cara bukanya kan??? Kalo belum tau!! Masa sihh..

3. Buat objectnya seperti pada gambar berikut.

atur object kalkulator vb 2010

Gambarnya jelas kan?? Kalo kurang jelas, klik aja untuk memperbesar. Gak perlu sama ya sob!! Yang penting lengkap..

4. Udah?? Saya anggap udah yah.. Berikutnya Sesuaikan propertynya seperti pada tabel berikut.

Object	Property	Value
TextBox1	Name Text	TxtIsi (Kosongkan)
Button1	Text	1
Button2	Text	2
Button3	Text	3
Button4	Text	4
Button5	Text	5
Button6	Text	6
Button7	Text	7
Button8	Text	8
Button9	Text	9
Button10	Text	0
Button11	Text	+
Button12	Text	-
Button13	Text	x
Button14	Text	/
Button15	Text	=
Button16	Text	C
Button17	Text	Keluar

5. Kemudian masuk view code atau klik dua kali pada form kemudian masukan syntax berikut.

    Dim op As String
    Dim num1 As Integer
    Dim num2 As Integer

masukan syntax tadi tepat dibawah Public Class Form1.

Syntax diatas untuk mendeclarasikan variable yang nanti akan kita gunakan di langkah berikutnya.

6. Sudahkah?? Sudah yahh!! Oke, sekarang kembali ke designer.

7. Klik dua kali pada button1 / yang textnya berisi angka 1. Kemdian masukan syntax berikut.

    TxtIsi.Text = TxtIsi.Text & 1

8. Kembali ke designer, kemudian klik dua kali lagi pada button2 atau yang txtnya berisi angka 2. Kemudian masukan syntax yang sama seperti pada diatas, hanya saja ganti angka 1 dengan angka 2. Sehingga syntaxnya menjadi seperti berikut.

    TxtIsi.Text = TxtIsi.Text & 2

9. Mudah kan?? Mudah lah..!! Lakukan hal yang sama pada button yang txtnya berisi angka 3, 4, 5 ,6, 7, 8, 9 dan 0.

10. Udah? Cepet banget.. :) Ialah.. Kan mudah... Oke,, sekarang klik dua kali pada button yang textnya berisi "+". Kemudian masukan syntax berikut.

    num1 = TxtIsi.Text
    TxtIsi.Text = ""
    op = "+"

11. Lakukan hal yang sama pada button yang textnya berisi "/","-","x". Sehingga syntaxnya menjadi seperti berikut.

Untuk button yang textnya berisi "x"

    num1 = TxtIsi.Text
    TxtIsi.Text = ""
    op = "*"

Untuk button yang textnya berisi "-"

    num1 = TxtIsi.Text
    TxtIsi.Text = ""
    op = "-"

Untuk button yang textnya berisi "/"

    num1 = TxtIsi.Text
    TxtIsi.Text = ""
    op = "/"

Hampir selesai sob.. Ayo semangat!!!..

12. Sekarang klik dua kali pada button yang textnya berisi "=", kemudian masukan syntax berikut.

        num2 = TxtIsi.Text
        If op = "*" Then
            TxtIsi.Text = num1 * num2
        ElseIf op = "+" Then
            TxtIsi.Text = num1 + num2
        ElseIf op = "-" Then
            TxtIsi.Text = num1 - num2
        ElseIf op = "/" Then
            TxtIsi.Text = num1 / num2
        Else
            TxtIsi.Text = "Tidak dikenal"
        End If

13. Klik dua kali pada button yang textnya berisi "C", kemudian masukan syntax berikut.

    TxtIsi.Text = ""

14. Langkah terakhir nih sob,, klik dua kali pada button yang textnya berisi "Keluar", kemdian masukan syntax berikut

        Dim pesan As String
        pesan = MsgBox("Yakin mau keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If

Udah deh.. Tinggal coba jalankan...

Kalo mau source code yang udah jadi, bloleh ko. Download aja Disini.

Itu dia sob tutorial cara membuat kalkulator keren dengan vb 2010. Semoga tutorialnya bermanfaat untuk kita semua. Amiinn.. Oke sob, terimakasih....