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.
Melalui jaringan backlink yang kami miliki merupakan penyedia jasa backlink menerima berbagai backlink Indonesia dengan layanan jasa backlink murah yang kami kelola secara manual dan profesional. Kami menawarkan jasa backlink terbaik. Bagaimana cara membeli backlink dari kami?. Silahkan 👉 Hubungi Kami! harga sangat terjangkau!

Berikut adalah daftar 50 situs Jaringan Backlink kami!
Kami jaringan backlink sebagai media backlink bisa juga menerima content placement yakni jasa backlink termurah kami di dalam artikel. Pesan segera jasa backlink termurah ini. Karena kami adalah raja backlink yang sebenarnya!
