4. Kalkulator sederhana (Part 2)

Info informasi 4. Kalkulator sederhana (Part 2) atau artikel tentang 4. Kalkulator sederhana (Part 2) ini semoga dapat bermanfaat, dan menambah wawasan. Selamat Membaca! Jangan lupa dishare juga! Jika merasa artikel ini bermanfaat juga untuk orang lain. 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.

Demikian artikel tentang 4. Kalkulator sederhana (Part 2) ini dapat kami sampaikan, semoga artikel atau info tentang 4. Kalkulator sederhana (Part 2) ini, dapat bermanfaat. Jangan lupa dibagikan juga ya! Terima kasih banyak atas kunjungan nya.

Bersponsor
👉 Penerbit Content Placement Indonesia
👉 Artikel Kami Terbitkan Harga Terjangkau
👉 Jasa Content Placement
👉 Pasang Backlink Blogroll Premium
👉 Content Placement 50 Jaringan Backlink
👉 Jadi Agen Hanya 100 Ribu Selamanya
👉 Laptop Gaming Terbaik