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.
Belum berminat? tak apa, bantu kami dengan membagikan link ini ke teman, siapa tahu, justru mereka sedang mencari ini!