Fungsi konversi dari angka menjadi biner visual basic 6
Private Function NumToBin(Angka As Integer) As String Dim Temp As Variant Temp = 1 Do Until Temp > Angka Temp = Temp * 2 Loop Do Until Temp < 1 If Angka >= Temp Then NumToBin = NumToBin + "1" Angka = Angka - Temp Else NumToBin = NumToBin + "0" End If Temp = Temp / 2 Loop NumToBin = CStr(Val( NumToBin )) End Function