3. Kalkulator sederhana (Part1)

Ingat : Operator Aritmatika yang digunakan

Tambah       =     +
Kurang        =    -
Kali             =    *
Bagi            =    /
Pangkat      =    ^

1.    Buka program Visual Basic 2010, Pilih Windows Form Application, Beri nama Kalkulator Sederhana1.

2.    Atur Form seperti di bawah ini :

3.    Atur properties dari masing-masing control yang ada di Form1 seperti di bawah ini :

•    Label1
Text     = Nilai Pertama
Font size    = 16

•    Label2
Text    = Nilai Kedua
Fontsize    = 16

•    Label3
Text    = +
Fontsize    = 16

•    TextBox1
Name    = TextBox1NilaiPertama

•    TextBox2
Name    = TextBox2NilaiKedua

•    Button1
Text    = Hitung

•    Button2  
Text    = Keluar

4.    Langkah berikutnya, tambahkan lagi sebuah label ke dalam Form dan ganti Name menjadi Label4Jawaban dan Textnya menjadi : JAWABAN Sehingga secara keseluruhan Tampilan Formnya akan menjadi seperti ini:

5.    Dobel klik di tombol Hitung dan masukkan dulu Deklarasi kodenya seperti ini:

PublicClassForm1

Dim NilaiPertama AsInteger

Dim NilaiKedua AsInteger

Dim Jawaban AsInteger

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

EndSub

EndClass

6.    Langkah berikut ini baru masukkan kodenya seperti ini:

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        NilaiPertama = TextBoxNilaiPertama.Text

        NilaiKedua = TextBoxNilaiKedua.Text

        Jawaban = NilaiPertama + NilaiKedua

        LabelJawaban.Text = Jawaban

EndSub

7.    Untuk tombol keluar, kodenya hanya : Close ()
8.    Jadi Kode Kalkulatorsederhana1 secara keseluruhan seperti di bawa ini :

PublicClassForm1

Dim NilaiPertama AsInteger

Dim NilaiKedua AsInteger

Dim Jawaban AsInteger

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        NilaiPertama = TextBoxNilaiPertama.Text

        NilaiKedua = TextBoxNilaiKedua.Text

        Jawaban = NilaiPertama + NilaiKedua

        LabelJawaban.Text = Jawaban

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

EndSub

EndClass

9.    Saatnya percobaan. Pada percobaan pertama kita akan coba menjumlahkan 4 + 6 = …….

                                                         Wow…sepertinya berhasil !!!

10.    Sekarang kita coba lagi jumlahkan angka 4.8 + 6.06 = ………..

Nah ini dia masalahnya kok dapatnya bilangan bulat ??? padahal yang kita jumlahkan bilangan decimal !!?! Harusnya kan 10.86

Ok baik coba kita lihat kembali kode di atas, khususnya bagian tipe datanya (lihat kode yang paling atas pada nomor 5 dan 8).. ……………………….

Oh ternyata tadi tipe data yang kita gunakan adalah Integer makanya tidak bisa menjumlahkan bilangan decimal. Coba kita ganti Integer dengan Single.

11.    Kode yang diganti menjadi seperti ini :

Dim NilaiPertama AsSingle

Dim NilaiKedua AsSingle

Dim Jawaban AsSingle

12.    Coba ulangi lagi penjumlahan 4.8 + 6.06 = ……

Nah ini dia yang kita inginkan. Ok sampai disini pastinya anda sudah muilai mengerti sedikit tentang perbedaan tipe data Integer san Single.

13.    Ok sampai di sini sebenarnya sudah lumayan tapi belum selesai karena perlu di ingat bahwa kode yang kita gunakan untuk tombol Hitung tadi masih berupa String(Khususnya kode “Text”)sehingga perlu sedikit modifikasi untuk mencegah terjadinya kesalahan nanti. Lihat kembali kodenya :

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        NilaiPertama = TextBoxNilaiPertama.Text

        NilaiKedua = TextBoxNilaiKedua.Text

        Jawaban = NilaiPertama + NilaiKedua

        LabelJawaban.Text = Jawaban

EndSub

14.    Nah kalau sudah dilihat mana tulisan Text-nya, sekarang kita meodifikasi kodenya sehingga menjadi seperti ini :

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        NilaiPertama = Val(TextBoxNilaiPertama.Text)

        NilaiKedua = Val(TextBoxNilaiKedua.Text)

        Jawaban = NilaiPertama + NilaiKedua

        LabelJawaban.Text = Str(Jawaban)

EndSub

15.    Ok sampai disini anda sudah bisa membuat kalkulator sederhana yang pertama.

 <<<<<<<<<<<<<<<<<<<<<<<<<<<<< Selamat Mencoba >>>>>>>>>>>>>>>>>>>>>>>>>>>>