Download Konversi Bilangan Menggunakan VB.2008
Public Class Form1
Private Sub hexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hexa.Click
hasilnilai.Text = Hex(Val(inputnilai.Text))
End Sub
Private Sub oktal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oktal.Click
hasilnilai.Text = Oct(Val(inputnilai.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(inputnilai.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)
hasilnilai.Text = xbin2
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
hasilnilai.Enabled = False
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
inputnilai.Text = ""
hasilnilai.Text = ""
End Sub
End Class
for : lailan wkwkwkw
jika lagi malas silahkan download aja ya hehehe:
klik link dibawah ini :
Download Konversi Bilangan Menggunakan VB.2008
ConversionConversion EmoticonEmoticon