Cara Membuat Konversi Bilangan dengan VB Net - Kali ini saya akan membahas tentang Cara Membuat Konversi Bilangan Hexa, Binner, Oktal, Ke Desimal dengan VB Net. Program ini berfungsi untuk mengkonversi suatu bilangan menjadi bilangan saja. bilangan Hexa adalah bilangan yang terdiri dari bilangan 1-9, A, B, C, D. sedangkan bilangan oktal 0,1,2,3,4,5,6,7. sedangkan bilangan biner hanya bilangan yang terdiri dari 0 dan 1. nah tentu kita mengalami kesulita ketika kita mengkonversi bilangan tadi ke bilangan biasa. dengan tujuan membuat program ini seseorang dapat menghitung atau dapat mudah mengkonversi bilangan tadi ke bilangan biasa. nah utnuk membuat program itu langkah yang harus anda lakukan adalah.
1. Buka VB.net anda
2. Setelah buka silahkan buat project baru.
3. Jika sudah silahkan desai form baru tersebut kurang lebih seperti ini :
Keterangan :
- 2 Buah Text Box yang diberi nama (Masukkannilai, NilaiKeluar)
- 3 Buah Button yang masing-masing diberi nama (btnHex, btnOktal, btnBiner)
Setelah itu sisipkan scricpt dibawah ini :
Public Class Form1
Private Sub btnHexa_Click(sender As Object, e As EventArgs) Handles btnHexa.Click
Nilaikeluar.Text = Hex(Val(Masukannilai.Text))
End Sub
Private Sub btnOktal_Click(sender As Object, e As EventArgs) Handles btnOktal.Click
Nilaikeluar.Text = Oct(Val(Masukannilai.Text))
End Sub
Private Sub btnBiner_Click(sender As Object, e As EventArgs) Handles btnBiner.Click
Dim xhexa As String = Hex(Val(Masukannilai.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
Nilaikeluar.Text = xbin2
End Sub
End Class
4. Jika Sudah silahkan jalankan programnya maka akan seperti ini
Demikian tips dan trik yang dapat saya bagikan semoga bermanfaat bagi anda semua.