Tampilan seperti diatas merupakann tampilan sederhana pada program Pengkonversian Bilangan yang dapat merubah bilangan sperti: dari Hexa ke Binner,dari Octal ke Binner, dari Octal ke Hexa dan sebaliknya.
Untuk membuat Program sederhana diatas,kita harus membuat Listing programnya Seperti berikut:
Public Class FORM1
Private Sub Label2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Label2.Click
End Sub
Private Sub btnoctal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnoctal.Click
biloutput.Text =
Oct(Val(bilinput.Text))
End Sub
Private Sub btnbiner_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbiner.Click
Dim
xHexa As String
= Hex(Val(bilinput.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
biloutput.Text = xbin2
End Sub
Private Sub btnhexa_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhexa.Click
biloutput.Text =
Hex(Val(bilinput.Text))
End Sub
End Class
Untuk mengetahui Hasilnya:
silahkan lihat gambar dibawah ini?
silahkan lihat gambar dibawah ini?
gambar diatas merupakan konversi pada bilangan Desimal dirubah ke Binner.
Sumber :Chandra Purnama
0 komentar:
Posting Komentar