Membuat perhitungan kalkulator dengan menggunakan visual basic.net 2008

Sebelumnya CupapaW secara pribadi ingin mengucapkan turut prihatin yang sangat mendalam bagi saudara-saudara muslim sekalian di GAZA, kita semua disini akan memperjuangkan kalian dalam bentuk apapun, karna kita semua adalah saudara, dan yakinlah bahwa pertolongan ALLAH swt Itu sangatlah dekat. Dan juga turut berduka bagi para korban dari tim relawan yang diberangkatkan untuk misi kemanusiaan di jalur Gaza, semoga ALLAH swt memberikan tempat yang terbaik disisi-NYA.
Amin* yaA ALLAH.


Assalamualaikum wr.wb
Kembali lagi bersama CupapaW di malam yang indah ini, semoga kebahagiaan selalu menyertai diri kita. Seperti biasa tutorial ini ditujukan untuk para pembaca yang tak pernah letih dalam mempelajari bahasa pemrograman, tutorial ini hanyalah dasar dari bahasa pemrograman, untuk selanjutnya anda dapat berkreasi lebih jauh dengan dasar yang saya berikan, semoga bermanfaat.
Langkah 1.
Pertama yang harus dilakukan membuat windows form baru yang kita beri nama “perhitungan.vb”, form ini kita menggunakan 2 groupbox, 3 label, 3 textbox, 5 button, untuk lebih jelasnya dapat dilihat sebagai berikut.
Langkah 2.
Setelah membuat dan menyusun object dari toolbox seperti gambar diatas, sekarang waktunya merubah properties dari setiap object tersebut.
• Groupbox1, Groupbox2, Label1, Label2, Label3, kita merubah pada bagian backcolor menjadi warna hitam dan forecolor menjadi biru.
• Textbox1, Textbox2, Textbox3, kita ganti backcolor menjadi warna biru muda dan pada bagian text kita kosongkan
• Button1, kita ganti name menjadi “btntambah” kemudian text kita ganti menjadi tanda plus “+” dan backcolor menjadi biru muda
• Button2, kita ganti name menjadi “btnkurang” kemudian text kita ganti menjadi tanda plus “-” dan backcolor menjadi biru muda
• Button3, kita ganti name menjadi “btnkali” kemudian text kita ganti menjadi tanda plus “*” dan backcolor menjadi biru muda
• Button4, kita ganti name menjadi “btnbagi” kemudian text kita ganti menjadi tanda plus “/” dan backcolor menjadi biru muda
• Button5, kita ganti name menjadi “btnhapus” kemudian text kita ganti menjadi tanda plus “hapus” dan backcolor menjadi biru muda
Langkah 3.
Jika langkah2 sudah dilakukan dengan benar, maka sekarang saatnya untuk pengetikkan coding untuk perhitungan, codingan sebagai berikut.
Public Class perhitungan
Dim b1, b2, h As double ‘deklarasi variabel yang ditujukan untuk umum.

Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
b1 = Val(TextBox1.Text) ‘untuk mengidentifikasikan angka yang dimasukkan pada textbox1
b2 = Val(TextBox2.Text) ‘untuk mengidentifikasikan angka yang dimasukkan pada textbox2
h = b1 + b2 ‘perhitungan antara variabel yang telah dideklarasikan
TextBox3.Text = Str(h) ‘hasil perhitungan yang akan ditampilkan pada textbox3
End Sub

Private Sub btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurang.Click
b1 = Val(TextBox1.Text)
b2 = Val(TextBox2.Text)
h = b1 – b2
TextBox3.Text = Str(h)
End Sub

Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
b1 = Val(TextBox1.Text)
b2 = Val(TextBox2.Text)
h = b1 * b2
TextBox3.Text = Str(h)
End Sub

Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click
b1 = Val(TextBox1.Text)
b2 = Val(TextBox2.Text)
h = b1 / b2
TextBox3.Text = Str(h)
End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox3.Clear()
Me.TextBox1.Focus()
End Sub

End Class
Codingan diatas sangatlah sederhana, sehingga mudah untuk dipahami, logika nya pun sangat simple, namun cukup untuk memberi kita inspirasi dalam mengembangkannya, jadi mohon maaf jika form ini masih mengandung banyak bug, karna ini ditujukan untuk perhitungan sederhana, jadi silahkan anda untuk mengembangkannya.
Alhamdulillah sekian tutorial dari saya, semoga bermanfaat bagi para pembaca. :”>
Wassalamualaikum wr.wb.

Leave a Reply