Cara konversi Desimal ke Binary VB6

Berikut ini adalah cara mengkonversi bilangan Desimal ke Binary di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 TextBox
2. Copy-kan coding berikut ke dalam editor Form Anda.

         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

          'Masukkan bilangan ke dalam Text1.
          'Lihat hasilnya di Label1...

          Private Sub Text1_Change()
            Label1.Caption = dec2bin(Text1.Text)
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module