Membuat Kalkulator Sin,Cos,Bin,Hex,Dec,Oct menggunakan Virtual Basic 2010
22.15Hello sobat, kali ini saya akan berbagi intfo tentang cara membuat kalkulator sin , cos , biner , hexa , decimal , octal menggunakan virtual basic 2010.
Berikut adalah Script Yang Digunakan :
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
Case "X^Y"
hasil = angka1 ^ angka2
End Select
btninput.Text = Str(hasil)
End Sub
Private Sub sin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sin.Click
btninput.Text = Math.Sin(CSng(btninput.Text) * 3.1416 / 180)
End Sub
Private Sub cos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cos.Click
btninput.Text = Math.Cos(CSng(btninput.Text) * 3.1416 / 180)
End Sub
Private Sub pangkat2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pangkat2.Click
Dim angka As Integer
angka = Val(btninput.Text)
kode = "X^2"
hasil = angka ^ 2
btninput.Text = Str(hasil)
End Sub
Private Sub pangkatx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pangkatx.Click
kode = "X^Y"
angka1 = Val(btninput.Text)
btninput.Text = " "
End Sub
Private Sub biner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biner.Click
Dim xhexa As String = Hex(Val(btninput.Text))
Dim xbin As String
Dim xbin2 As String
Dim xkata As String
Dim i As Integer
xbin2 = ""
For i = 1 To Len(xhexa)
xbin = ""
xkata = Mid(xhexa, i, 1)
Select Case UCase(xkata)
Case "0"
xbin = "0000"
Case "1"
xbin = "0001"
Case "2"
xbin = "0010"
Case "3"
xbin = "0011"
Case "4"
xbin = "0100"
Case "5"
xbin = "0101"
Case "6"
xbin = "0110"
Case "7"
xbin = "0111"
Case "8"
xbin = "1000"
Case "9"
xbin = "1001"
Case "A"
xbin = "1010"
Case "B"
xbin = "1011"
Case "C"
xbin = "1100"
Case "D"
xbin = "1101"
Case "E"
xbin = "1110"
Case "F"
xbin = "1111"
Case "h", "H"
xbin = ""
Case Else
xbin = ""
End Select
xbin2 = xbin2 + xbin
Next i
btninput.Text = xbin2
End Sub
Private Sub hexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hexa.Click
btninput.Text = Hex(Val(btninput.Text))
End Sub
Private Sub octal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles octal.Click
btninput.Text = Oct(Val(btninput.Text))
End Sub
Private Sub deci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deci.Click
btninput.Text = CDec(Val(btninput.Text))
End Sub
End Class
Dan Ini adalah Hasil Dari Skript Yang Digunakan Di atas :
Terimakasih Sudah Berkunjung Di Blog Saya. Jangan Lupa Sertakan Sumber jika anda Copas karena itu adalah tata cara menjadi Blogger yang baik :))
0 komentar