tutorial membuat kalkulator sederhana dengan VB.net

Pertama kita buka vb.netnya, lalu buat program baru.dengan cara KLIK - NEW-PROJECT

Maka tampilan awal akan seperti gambar dibawah ini.

Pada jendela tampilan diatas pilih Windows Form Application,dan pada Nama,ganti dengan nama project yang ingin kita buat yaitu kalkulator. pada Location pilih folder untuk menyimpan project lalu KLIK OK.maka akan tampil seperti gambar dibawah ini.

Tool yang akan kita gunakan:

·         3  Label

·         3 Textbox

·         8 Button

Label 1    ubah properties  text menjadi angka pertama

Label 2     ubah properties  text menjadi angka kedua

Textbox    text=(kosongkan)

Button1    ubah properties  text menjadi  +

Button2    ubah properties  text menjadi  -

Button3    ubah properties  text menjadi  x

Button4    ubah properties  text menjadi  :

Button5    ubah properties  text menjadi  mod

Button6    ubah properties  text menjadi  ^

Button7    ubah properties  text menjadi  hapus

Button8    ubah properties  text menjadi  keluar

Langsung saja membuat Desainya ya..,pertama klik tool label yang ada disebelah kiri lalu tempatkan pada form yang telah ada.lihat gambar.

Untuk merubah ukuran text klik pada bagian profertis pilih FONT.maka tampilan akan seperti gambar dibawah ini.ukuran font text dapat diatur sesuai keinginan kita.

Masukan tool2 yang telah disebutkan diatas (ubah nama textnya)dan buat menjadi seperti gambar dibawah.(untuk Letak dapat diatur seperti yang kita inginkan)

Selanjutnya kita mulai membuat script kodenya.

Double Klik pada button1 ( +) maka form baru akan tampil.lalu masukan kode script dibawah ini

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

        TextBox3.ForeColor = Color.Blue

End sub

(ketik hanya yang berwarna merah saja)

Kembali ke form design.

Double Klik pada button2 ( -) maka form baru akan tampil.lalu masukan kode script dibawah ini

           

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

        TextBox3.ForeColor = Color.Brown

End sub

lakukan seperti diatas pada Button3 ( X).

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click

        TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

        TextBox3.ForeColor = Color.HotPink

End sub

lakukan seperti diatas pada Button4 ( : ).

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click

        TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

        TextBox3.ForeColor = Color.Green

End sub

lakukan seperti diatas pada Button5 ( mod ).

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button5.Click

        TextBox3.Text = Val(TextBox1.Text) Mod Val(TextBox2.Text)

        TextBox3.ForeColor = Color.Red

End sub

lakukan seperti diatas pada Button6 ( ^ ).

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button6.Click

        TextBox3.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)

        TextBox3.ForeColor = Color.Yellow

lakukan seperti diatas pada Button7 ( hapus ).

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button7.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

End sub

lakukan seperti diatas pada Button8 ( keluar ).

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button8.Click

        Me.Close()

End sub

Bila semua telah selesai maka pada form1.vb akan terlihat gambar seperti dibawah ini

Setelah selesai Coba di RUN  atau tekan F5 pada keyboard anda.LIHAT HASILNYA.

Bila angka pertama dan angka kedua telah diisi klik tombol yang anda inginkan maka hasilnya dapat anda lihat.pada textbox.

Hasilnya seperti gambar dibawah ini.

Selesai....

Selamat Mencoba.... ^^