Bagaimana Cara Membuat Kalkulator Di VB 2010

Bagaimana Cara membuat kalkulator di vb 2010?

Pada kesempatan kali ini, saya akan berbagi cara membuat kalkulator di vb 2010 dengan sangat sederhana.

1. Langkah pertama yang kalian lakukan, buka vb 2010.
2. 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

   

    

3. Lalu masukan komponen berikut.
   
4. 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.
5. 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.
6. 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
7. 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
8. Untuk button angka yang lainnya pun sama, kita tinggal mengganti angka nya saja sesuai button angka berapa yang akan kita kasih code.
9. 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..
10. 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
    
11. 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 .
12. Dan Silahkan coba hasil dari program anda. Sudah selesai lah teman !

Sekianlah cara membuat kalkulator sederhana, selamar mencoba dan semoga bermanfa’at. Terima Kasih !