Konversi Desimal ke Binary (VB 6.0)

Karena tidak ada kegiatan yang berarti pada malam minggu ini, saya akan bagikan lagi sebuah kode program VB 6.0 (Visual Basic 6.0) yang cukup berguna. Aplikasi saya bagikan untuk temen-teman yang belum/tidak tahu cara untuk mengkonversi Nilai Desimal ke dalam Nilai Binary.

Ok, langsung saja ke langkah pembuatan aplikasinya.

Berikut ini langkah pembuatannya.

1. Buat Project VB 6.0 baru.
2. Pada Form yang aktif tambahkan 2 Label, 2 Textbox, dan 1 Commandbutton.
3. Atur Properties masing-masing label dengan Caption=Desimal: dan Caption=Binary:.
4. Atur Properties Textbox pertama dengan Name=txtDes.
5. Atur Properties Textbox kedua dengan Name=txtBin dan Locked=True.
6. Atur Properties Commandbutton dengan Name=cmdK dan Caption=Konversi.
7. Buat sebuah Function seperti di bawah ini.

Function deskebin(no As Variant) As String
    Dim loopcounter As Integer
    If no >= 2 ^ 31 Then
        deskebin = "Angka terlalu besar."
        Exit Function
    End If
    Do
    If (no And 2 ^ loopcounter) = 2 ^ loopcounter Then
        deskebin = "1" & deskebin
    Else
        deskebin = "0" & deskebin
    End If
    loopcounter = loopcounter + 1
    Loop Until 2 ^ loopcounter > no
End Function

8. Klik 2x Tombol "Konversi" dan pada cmdK_Click() ketikkan kode di bawah ini.

Me.txtBin.Text = deskebin(txtDes.Text)

9. Jalankan program dan lihat hasilnya. Selesai.

Anda dapat mendownload contoh programnya disini.
Jangan lupa baca artikel selanjutnya yang berkaitan dengan judul Konversi Binary ke Desimal.