Membuat Program Konversi Bilangan Desimal Ke Biner, Hexadesimal, dan Octal Dengan VB Net
05 Juli 2020
Tambah Komentar
Program konversi bilangan pada VB Net - Pada artikel tigaribu.net kali ini saya berbagi tutorial untuk membuat sebuah program di VB Net yang dapat berfungsi untuk melakukan proses konversi bilangan desimal ke bilangan biner, bilangan hexadesimal, dan bilangan octal.
Berikut tahap – tahap yang perlu anda lakukan untuk membuat program konversi bilangan desimal ke bilangan biner, hexadesimal, dan bilangan octal dengan VB Net :
1. Pastikan VB Net telah terinstal di komputer atau laptop anda
2. Buka VB Net
3. Tambahkan sebuah project baru
4. Beri nama project (Konversi Bilangan atau nama lain)
5. Desain tampilan program konversi bilangan desimal ke bilangan biner, bilangan hexadesimal, dan bilangan octal seperti gambar berikut :
Program Konversi Bilangan Pada VB Net |
Keterangan :
- Dua buah label (label desimal dan label hasil konversi)
- Dua buah textbox (textbox desimal dengan name Bilangan_Desimal dan textbox hasil konversi dengan name Hasil_Konversi)
- Lima buah button (button hexadesimal, button octal, button biner, button hapus, dan button keluar)
6. Tambahkan koding berikut ini tepat pada button Hexadesimal
Hasil_Konversi .Text = Hex (Val (Bilangan_Desimal .Text))
7. Tambahkan koding berikut ini tepat pada buttonl Octal
Hasil_Konversi .Text = Oct (Val (Bilangan_Desimal .Text))
8. Tambahkan koding berikut ini tepat pada button Binar
Dim Variabel_Hexadesimal As String = Hex(Val(Bilangan_Desimal.Text))
Dim Variabel_Biner As String
Dim Variabel_Biner2 As String
Dim Variabel_Kata As String
Dim i As Integer
Variabel_Biner2 = ""
For i = 1 To Len(Variabel_Hexadesimal)
Variabel_Biner = ""
Variabel_Kata = Mid(Variabel_Hexadesimal, i, 1)
Select Case UCase(Variabel_Kata)
Case "0"
Variabel_Biner = "0000"
Case "1"
Variabel_Biner = "0001"
Case "2"
Variabel_Biner = "0010"
Case "3"
Variabel_Biner = "0011"
Case "4"
Variabel_Biner = "0100"
Case "5"
Variabel_Biner = "0101"
Case "6"
Variabel_Biner = "0110"
Case "7"
Variabel_Biner = "0111"
Case "8"
Variabel_Biner = "1000"
Case "9"
Variabel_Biner = "1001"
Case "A"
Variabel_Biner = "1010"
Case "B"
Variabel_Biner = "1011"
Case "C"
Variabel_Biner = "1100"
Case "D"
Variabel_Biner = "1101"
Case "E"
Variabel_Biner = "1110"
Case "F"
Variabel_Biner = "1111"
Case "h", "H"
Variabel_Biner = ""
Case Else
Variabel_Biner = ""
End Select
Variabel_Biner2 = Variabel_Biner2 + Variabel_Biner
Next i
Hasil_Konversi.Text = Variabel_Biner2
9. Tambahkan koding berikut ini tepat pada button Hapus
Hasil_Konversi.Text = ""
Bilangan_Desimal.Text = ""
10. Tambahkan koding berikut ini tepat pada button Keluar
Me.Close()
Pada saat Membuat Program Konversi Bilangan Desimal Ke Biner, Hexadesimal, dan Octal Dengan VB Net hal perlu diperhatian juga adalah penulisan name pada item textbox maupun button, karena name dapat bersifat sensitif karena apabila salah akan terjadi eror. Demikian artikel tentang Program Konversi Bilangan Pada VB Net kali, semoga dapat membantu anda.
Belum ada Komentar untuk "Membuat Program Konversi Bilangan Desimal Ke Biner, Hexadesimal, dan Octal Dengan VB Net"
Posting Komentar