Kamis, 17 Agustus 2017

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



Tidak ada komentar:

Posting Komentar

Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.