4. Kalkulator sederhana (Part 2)

1. Nah untuk kalkulator Sederhana2 ini adalah pengembangan dari KalkulatorSederhana1 sehingga yang pertama anda lakukan adalah buka kembali Project KalkulatorSederhana1.

2. Perbesar ukuran Form-nya dan tambahkan sebuah GroupBox dan 5 buah RadioButton. Atur posisinya seperti di bawah ini :

3. Atur Properties nya seperti ini:

• GroupBox
Text = Pilih Operator

• RadioButton1
Name = RadioButtonTambah
Text = Tambah

• RadioButton2
Name = RadioButtonKurang
Text = Kurang

• RadioButton2
Name = RadioButtonKali
Text = Kali

• RadioButton2
Name = RadioButtonBagi
Text = Bagi

• RadioButton2
Name = RadioButtonPangkat
Text = Pangkat

4. Berikut ini tampilannya :

 5.       Dobel Klik di Tambah, Kurang, Kali, Bagi, Pangkat dan masukkan kode seperti ini:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonTambah.CheckedChanged Label3.Text = "^"


Label3.Text = "+"
NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonTambah.Checked = True Then
Jawaban = NilaiPertama + NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub



Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonKurang.CheckedChanged

Label3.Text = "-"
NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonKurang.Checked = True Then
Jawaban = NilaiPertama - NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub



Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonKali.CheckedChanged

Label3.Text = "x"
NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonKali.Checked = True Then
Jawaban = NilaiPertama * NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonBagi.CheckedChanged

Label3.Text = "/"
NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonBagi.Checked = True Then
Jawaban = NilaiPertama / NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonPangkat.CheckedChanged



NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonPangkat.Checked = True Then
Jawaban = NilaiPertama ^ NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub

6. Nah selesai sudah kodenya.

7. Sekarang dapat anda coba programnya. Silahkan masukkan angka di Nilai Pertama & Nilai Kedua setelah itu anda hanya perlu klik di pilihan operatornya untuk memulai proses perhitungan secara otomatis.