Program konversi bilangan ini awalnya saya buat karena berkenaan dengan mata kuliah numerik. Ya, dengan adanya conversion tool ini akan memudahkan kita untuk melakukan konversi kedalam bilangan desimal, octal, hexa, dan binner.
Sebelum masuk lebih dalam mengenai konversi bilangan, setidaknya kita sudah mengetahui apa itu bilangan desimal, octal, hexa, binner, dan terdiri dari angka berapa sajakah bilangan-bilangan tsb?
Bilangan desimal adalah bilangan yang mempunyai sepuluh simbol angka yaitu 0,1,2,3,4,5,6,7,8,9.
Bilangan octal adalah bilangan yang mempunyai delapan simbol angka yaitu 0,1,2,3,4,5,6,7.
Bilangan hexa adalah bilangan yang mempunyai enam belas simbol angka yaitu 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F.
Dan Bilangan Biner adalah bilangan yang mempunyai dua simbol 0 dan 1.
Sekarang kita masuk ke inti dari judul postingan ini. Untuk membuat program konversi bilangan ini seperti biasa kamu buat dulu project baru di VB.net kemudian tambahkan beberapa atribut kedalam form di antaranya:
- 3 buah Label
- 2 buah TextBox
- 1 buah ComboBox
- 2 buah Button
Setelah itu, design tata letaknya di form sesuai selera kamu, dan untuk program yang saya buat contohnya seperti gambar berikut!
Untuk TextBox nya beri nama "BilInput" dan "BilOutput".
Untuk ComboBox beri nama "Rubah".
Untuk kedua Button beri nama "BtnHapus" dan "BtnKeluar".
Dan berikut Coding programnya!
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Rubah.Items.Add("Hexa")
Rubah.Items.Add("Binner")
Rubah.Items.Add("Octal")
End Sub
Private Sub Rubah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rubah.SelectedIndexChanged
If Rubah.Text = "Hexa" Then
BilOutput.Text = Hex(Val(BilInput.Text))
ElseIf Rubah.Text = "Binner" Then
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
ElseIf Rubah.Text = "Octal" Then
BilOutput.Text = Oct(Val(BilInput.Text))
End If
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
BilInput.Text = ""
Rubah.Text = "Pilih Bilangan"
BilOutput.Text = ""
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
Me.Close()
End Sub
End Class
Dan jika kamu memerlukannya dalam bentuk program jadi atau software, kamu bisa mendownload software konversi bilangannya dibawah ini.
Download Conversion Tool
13 komentar
Click here for komentarnice info gan,, tapi ane tetep bingung masalah vb ???
Replydi tunggu kunbal nya gan di blog baru saya http://goo.gl/Z2ovdx
thanks apresiasinya, tunggu kunjungan balik dari kami.
ReplyGitu ya gan caranya, izin menggunakan scriptnya ya
Replysilahkan gan smoga bermanfaat..
ReplyWew ane suka banget nih VB.NET (y) haha.. lumayan pengalaman waktu ikut LKS tk Prov
Replyohh gt ya sob.. thanks apresiasinya!
Replyhaha
Replythanks apresiasinya!
wah kebetulan saya ingin coba-coba membuat aplikasi dengan vb, agak susah sih tapi kalo terus-menerus dicoba mungkin pasti bisa buatnya. keep sharing bro!
Replyjangan lupa mampir di blog sederhana milik saya, bangeky.blogspot.com
thanks apresiasinya.. tunggu kunjungan balik dari kami!
ReplyPakek bahasa pemrograman VB.net ya??
ReplyWah .. keren . Thx :) Izin Coba (y)
Replygk bisa praktekin nih gan, soalnya ane gk punya aplikasi VB.NET :(
Replyhaha kalo butuh programnya download conversion toolnya gaperlu praktek..
ReplyMau Blogwalking?
Silahkan Berkomentar yang relevan, dan tunggu kunjungan balik dari kami. ^_^
ConversionConversion EmoticonEmoticon