1. Mendesain Form terlebih dahulu
Dibawah ini merupakan tampilan desain label (angka pertama, angka
kedual, dan Hasil) dan tampil botton (tambah,kurang,bagi dan kali).
2. Coding setiap button
dengan source code seperti di bawah ini
Public Class Form1
Private Sub
btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
Dim Angka1,
Angka2, Hasil As Double
Angka1 =
Val(txtAngka1.Text)
Angka2 =
Val(txtAngka2.Text)
Hasil =
Angka1 + Angka2
txtHasil.Text = Hasil
End Sub
Private Sub
btnkurang_Click(sender As Object, e As EventArgs) Handles btnkurang.Click
Dim Angka1,
Angka2, Hasil As Double
Angka1 =
Val(txtAngka1.Text)
Angka2 =
Val(txtAngka2.Text)
Hasil =
Angka1 - Angka2
txtHasil.Text = Hasil
End Sub
Private Sub
btnbagi_Click(sender As Object, e As EventArgs) Handles btnbagi.Click
Dim Angka1,
Angka2, Hasil As Double
Angka1 =
Val(txtAngka1.Text)
Angka2 =
Val(txtAngka2.Text)
Hasil =
Angka1 / Angka2
txtHasil.Text = Hasil
End Sub
Private Sub btnkali_Click(sender As Object, e As
EventArgs) Handles btnkali.Click
Dim Angka1,
Angka2, Hasil As Double
Angka1 =
Val(txtAngka1.Text)
Angka2 =
Val(txtAngka2.Text)
Hasil =
Angka1 * Angka2
txtHasil.Text = Hasil
End Sub
End Class
3.Setelah Selesai Jalankan atau Running Program
Tampilan
hasil running pada program Kalkulator Sederhana ketika sudah selesai mingisi data
dan mengklik tanda (+, - , / , x).
Tidak ada komentar:
Posting Komentar