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
EmoticonEmoticon