Bagaimana Cara membuat kalkulator di vb 2010?
Pada kesempatan kali ini, saya akan berbagi cara membuat kalkulator di vb 2010 dengan sangat sederhana.
- Langkah pertama yang kalian lakukan, buka vb 2010.
- Setelah itu, klik menu file kemudian new project. atau kalian bisa langsung pilih new project untuk memulai lembar kerja yang baru. Tampilannya seperti gambar dibawah
Sumber Gambar : https://kelompok15ti2011.wordpress.com/2011/11/24/tutorial-membuat-kalkulator-sederhana-menggunakan-vb-2010/ - Lalu masukan komponen berikut.
- Setelah kalian menambahkan komponen seperti gambar di atas, maka hasilnya akan seperti ini, atau sesuai desain kalian yah. untuk tombol sin,cos,tan,clear,log,sqrt,sqr kita lewat dulu yah, karna kita akan buat kalkulator yang sangat sederhana.
- Sesudah kita desain, saatnya kita main koding nih teman..
Untuk memasukan koding, kalian tinggal double klik pada tombol tersebut.
keterangan : Untuk yang di Bold itu adalah code yang kita masukan. Sedangkan yang tidak di bold itu adalah code yang sudah tersedia di aplikasinya saat kita double klik. - Double klik di form tersebut kemudian masukan code ini :Public Class kalkulator
Friend hasil As Single = 0
Dim operasi As String = “”
Dim operashit As Boolean = FalsePrivate Sub kalkulator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
operashit = False
operasi = “”
hasil = 0
txLayar.Text = “0”
End Sub - Kemudian, kita double klik lagi di button 1,2,3,dan seterusnya untuk memasukan koding. Tapi satu persatu yah.
misal ini code untuk button nol :Private Sub btNol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btNol.Click
If operashit = True Or txLayar.Text = “0” Then
txLayar.Text = “0”
operashit = False
Else
txLayar.Text = txLayar.Text + “0”
End If
End Subcode untuk button 1,2,dan seterusnya :Private Sub btSatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSatu.Click
If operashit = True Or txLayar.Text = “0” Then
txLayar.Text = “1”
operashit = False
Else
txLayar.Text = txLayar.Text + “1”
End If
End SubPrivate Sub btDua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDua.Click
If operashit = True Or txLayar.Text = “0” Then
txLayar.Text = “2”
operashit = False
Else
txLayar.Text = txLayar.Text + “2”
End If
End Sub - Untuk button angka yang lainnya pun sama, kita tinggal mengganti angka nya saja sesuai button angka berapa yang akan kita kasih code.
- Kemudian, kita akan mengisi code di button “+“, “–“, “/“, “*” .
Masukan code berikut untuk tombol “+“Private Sub btTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTambah.Click
operasi = “tambah”
hasil = Val(txLayar.Text)
operashit = True
End Subseperti yang sudah tadi kami bilang, kita tinggal mengganti nama nya saja, sesuai button yang akan isi code nya. Jika button bagi , kita ganti operasi = “bagi”, dst.. - Untuk langkah mengisi code yang terakhir yaitu kita akan mengisi code untuk sama dengan. Masukan code berikut ini :Private Sub btSamaDengan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSamaDengan.Click
Select Case operasi
Case “tambah”
hasil = hasil + (Val(txLayar.Text))
Case “kurang”
hasil = hasil – (Val(txLayar.Text))
Case “bagi”
hasil = hasil / (Val(txLayar.Text))
Case “kali”
hasil = hasil * (Val(txLayar.Text))
Case “pangkat”
hasil = Math.Pow(hasil, Val(txLayar.Text))
End Select
txLayar.Text = hasil
operashit = True
End Sub
- Untuk mengetahui program yang kita buat, apakah berjalan atau tidak. Kita klik tombol segitiga warna hijau (start debugging) yang ada di menu bar atau bisa kita pilih debug>start debugging, bisa juga menggunakan keyboard dengan tekan F5Â .
- Dan Silahkan coba hasil dari program anda. Sudah selesai lah teman !
Sekianlah cara membuat kalkulator sederhana, selamar mencoba dan semoga bermanfa’at. Terima Kasih !