Program Konversi Desimal ke Biner

Gambar 312.HG Program Konversi Desimal ke Biner

Langkah langkah membuat Program Konversi Bilangan Desimal ke Biner :

1. Buatlah Userform seperti di bawah ini 

2. Dengan ketentuan sebagai berikut :

• Userform Name : BK165
• Userform Caption : Binary and Decimal
• Frame Name : Frame1
• Frame Caption : Decimal To Binary
• TextBox1 untuk menampilkan angka desimal yang akan dikonversi
• TextBox2 untuk menampilkan angka biner hasil konversi
• TextBox3 s.d. TextBox14 untuk menampilkan nilai sementara biner
• CommandButton Name : DecToBin
• CommandButton Caption : Change berisi Program

3. Program pada CommandButton Change adalah sebagai berikut :

4. Program diatas dibatasi sampai 12 bit atau Desimal = 4095

Jika Input lebih dari 4095, maka Sub Program Pesan1 yang bekerja.

Pesan1 menampilkan Kotak Pesan : "Angka terlalu besar"

Jika Input 4095 atau kurang, maka Sub Program Hitung1 yang bekerja

 5. Sub Program Hitung1 dimulai dengan mendefinisikan dua buah Array, yaitu :

• Dim Bit(17), DecBin(14)
• Dim Bit(17), berarti Array Bit(1), Bit(2),... , Bit(17)
• DecBit(14), berarti Array DecBin(1), DecBin(2),...., DecBin(14)
• Array dibuat agar dapat menggunakan fasilitas Teknik Perulangan

6. Array DecBin digunakan untuk mendefinisikan TextBox pada UserForm 

• DecBin(1) = BK165.TextBox9
• DecBin(2) = BK165.TextBox10 dan seterusnya sehingga :
• DecBin(14)=BK165.TextBox22