Konversi Binary ke Desimal (VB 6.0)

Berikut ini saya bagikan sebuah kode program yang cukup berguna, terutama bagi teman-teman yang belum/tidak bisa menghitung nilai binary menjadi angka desimal. Untuk mengetahui cara pembuatannya ikuti langkah selanjutnya.

Berikut ini langkah pembuatannya.

1. Buat sebuah project baru.
2. Pada Form yang aktif tambahkan 1 Textbox dan 1 Commandbutton.
3. Atur Properties Commandbutton dengan Caption=Konversi.
4. Masuk ke jendela kode dan ketikkan kode di bawah ini.

Public Function binkedes(ByVal binvalue As String) As Long
Dim lngvalue As Long
Dim x As Long
Dim y As Long
y = Len(binvalue)
For x = y To 1 Step -1
    If Mid$(binvalue, x, 1) = "1" Then
        If y - x > 30 Then
            lngvalue = lngvalue Or -2147483648#
        Else
            lngvalue = lngvalue + 2 ^ (y - x)
        End If
    End If
Next x
binkedes = lngvalue
End Function

5. Klik 2x Commandbutton dan pada Command1_Click().

MsgBox binkedes(Text1.Text)

6. Selesai dan jalankan programnya.

Anda dapat mendownload contoh programnya disini atau disini.