Membuat Aplikasi Konversi Bilangan dg Visual Basic 2008

BELAJAR MEMBUAT SOFTWARE SENDIRI

Aplikasi ini bias kita gunakan untuk mempermudah kita dalam konversi bilangan, yang mana kebanyakan orang mengira bahwa konversi itu susah, bahka rumit, tetapi selain memnggunakan aplikasi ini kita bias juga manfaatkan kalkulator computer, sebagai alat penghitungnya.

Baik, saya coba kenalkan dengan system bilangan yaitu:

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.

Langsung saja kita awali denga mengisntal software visual basic, adapun versinya tererah anda tinggal menyesuaikan, selanjutnya tambahkan beberapa atribut kedalam form antara lain :

·                     3 buah Label

·                     2 buah TextBox

·                     1 buah ComboBox

·                     2 buah Button

Kemudian sesuaikan  tata letaknya di form sesuai selera anda, dan untuk program yang saya coba contohkan seperti gambar berikut!

Adapun Scripnya Sebagai Berikut :

Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Konversi.Items.Add("Hexa")         Konversi.Items.Add("Binner")         Konversi.Items.Add("Octal")     End Sub     Private Sub Konversi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Konversi.SelectedIndexChanged         If Konversi.Text = "Hexa" Then             BilanganOutput.Text = Hex(Val(BilanganInput.Text))         ElseIf Konversi.Text = "Binner" Then             Dim xHexa As String = Hex(Val(BilanganInput.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             BilanganOutput.Text = xBin2         ElseIf Konversi.Text = "Octal" Then             BilanganOutput.Text = Oct(Val(BilanganInput.Text))         End If     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         BilanganInput.Text = ""         BilanganOutput.Text = ""     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Me.Close()     End Sub End Class

Keterangan:

Untuk TextBox nya beri nama "BilanganInput" dan "BilanganOutput".

Untuk ComboBox beri nama "Konversi".

Untuk kedua Button beri nama "BtnHapus" dan "BtnKeluar".

Lihat Juga Videonya

Jika Ingin Mencoba, Anda Bisa langsung install programnya, silahkan download