Membuat Kalkulator sederhana menggunakan perintah Select Case VB 2010
22.04
Untuk Membuat Kalkulator sederhana dapat menggunakan perintah if else dan select case, disini saya akan memberitahu bagaimana cara membuat kalkulator menggunakan Select Case.
Berikut adalah Skript Yang digunakan Untuk membuat Kalkulator Sederhana :
Public Class Form1
Dim kode As String
Dim angka1 As Integer
Dim angka2 As Integer
Dim hasil As Integer
Private Sub btn1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn1.Click
btninput.Text = btninput.Text + "1"
End Sub
Private Sub btn2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn2.Click
btninput.Text = btninput.Text + "2"
End Sub
Private Sub btn3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn3.Click
btninput.Text = btninput.Text + "3"
End Sub
Private Sub btn4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn4.Click
btninput.Text = btninput.Text + "4"
End Sub
Private Sub btn5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn5.Click
btninput.Text = btninput.Text + "5"
End Sub
Private Sub btn6_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn6.Click
btninput.Text = btninput.Text + "6"
End Sub
Private Sub btn7_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn7.Click
btninput.Text = btninput.Text + "7"
End Sub
Private Sub btn8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn8.Click
btninput.Text = btninput.Text + "8"
End Sub
Private Sub btn9_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn9.Click
btninput.Text = btninput.Text + "9"
End Sub
Private Sub btn0_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn0.Click
btninput.Text = btninput.Text + "0"
End Sub
Private Sub btnkurang_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btnkurang.Click
kode = "-"
angka1 = Val(btninput.Text)
btninput.Text = " "
End Sub
Private Sub btntambah_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btntambah.Click
kode = "+"
angka1 = Val(btninput.Text)
btninput.Text = " "
End Sub
Private Sub btnkali_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btnkali.Click
kode = "X"
angka1 = Val(btninput.Text)
btninput.Text = " "
End Sub
Private Sub btnbagi_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btnbagi.Click
kode = "/"
angka1 = Val(btninput.Text)
btninput.Text = " "
End Sub
Private Sub clear_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
clear.Click
btninput.Text = " "
End Sub
Private Sub btnhasil_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btnhasil.Click
angka2 = Val(btninput.Text)
Select Case kode
Case
"-"
hasil = angka1 - angka2
Case
"+"
hasil = angka1 + angka2
Case
"X"
hasil = angka1 * angka2
Case
"/"
hasil = angka1 / angka2
End Select
btninput.Text = Str(hasil)
End Sub
End Class
Berikut adalah Hasil dari skript Kalkulator Sederhana Menggunakan perintah Select Case :
0 komentar