Conversi desimal ke binary di vb

FUngsi ini untuk mengkonversi bilangan desimal ke bentuk binary, bentuk binary adalah bentuk bilangan yang terdiri atas bilangan 0 dan 1

untuk lebih jelasnya buat sebuah project baru,

1. masukkan sebuah label dan text pada form, berinama text1 dan label1
2. pada general ketik code fungsi berikut
Public Function dec2bin(mynum As Variant) As String
Dim loopcounter As Integer
If mynum >= 2 ^ 31 Then
dec2bin = "Bilangan terlalu besar!"
Exit Function
End If
Do
If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
dec2bin = "1" & dec2bin
Else
dec2bin = "0" & dec2bin
End If
loopcounter = loopcounter + 1
Loop Until 2 ^ loopcounter > mynum
End Function

3. pada text1 change ketik kode berikut :
'Masukkan bilangan ke dalam Text1.
'Lihat hasilnya di Label1...
Private Sub Text1_Change()
Label1.Caption = dec2bin(Text1.Text)
End Sub

4. klik run,,,, masukkan bilangan pada text1 dan hasilnya dapat dilihat di label 1

--semoga bermanfaat--