Membuat Kalkulator Sederhana Virtual Basic 2010
21.57Untuk Membuat Kalkulator sederhana dapat menggunakan perintah if else dan select case, disini saya akan memberitahu bagaimana cara membuat kalkulator menggunakan if else.
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
Dim
hasil As Integer
angka2 = Val(btninput.Text)
If kode
= "-" Then
hasil = angka1 - angka2
ElseIf
kode = "+" Then
hasil = angka1 + angka2
ElseIf
kode = "X" Then
hasil = angka1 * angka2
ElseIf
kode = "/" Then
hasil = angka1 / angka2
End If
btninput.Text = Str(hasil)
End Sub
End Class
Berikut adalah Hasil Dari Skript membuat kalkulator sederhana menggunakan virtual basic 2010 diatas :
1 komentar
Lucky Club Casino Site Review | Best Casinos To Play
BalasHapusLucky Club is a new and luckyclub.live amazing online casino for UK players. The site focuses on the best slots, video poker and other games, with a range of