Membuat Kalkulator Sederhana dengan VB 2012

Pertama-tama buatlah 3 buat label, 3 buah text box dan 4 buah button. Pada label ganti menjadi :
Label1 = Kalkulator
Label2 = Bilangan 1
Label3 = Bilangan 2
Untuk text box ganti name-nya menjadi :
Textbox1 = txtbil1
Textbox2 = txtbil2
Textbox3 = txthasil
Lalu untuk masing-masing button ubah text menjadi "+","-","*","/" dan name menjadi:
Button1 = btntambah
Button2 = btnkurang
Button3 = btnkali
Button4 = btnbagi
Setelah itu susun menjadi bentuk seperti dibawah ini :

Untuk script tambah, klik double pada button tambah, lalu masukan script berikut ini :
 Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        txthasil.Text = Val(txtbil1.Text) + Val(txtbil2.Text)
    End Sub

Untuk script kurang, klik double pada button kurang, lalu masukan script berikut ini :
 Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        txthasil.Text = Val(txtbil1.Text) - Val(txtbil2.Text)
    End Sub

Untuk script kali, klik double pada button kali, lalu masukan script berikut ini :
 Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)
    End Sub

Dan, untuk script bagi, klik double pada button bagi, lalu masukan script berikut ini :
 Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        txthasil.Text = Val(txtbil1.Text) / Val(txtbil2.Text)
    End Sub

Posting Komentar