Konversi Desimal Menjadi Kode Biner Menggunakan VB 6

   Sistem bilangan biner atau sistem bilangan basis dua adalah sebuah sistem penulisan angka dengan menggunakan dua simbol yaitu 0 dan 1. Sistem bilangan biner modern ditemukan oleh Gottfried Wilhelm Leibniz pada abad ke-17. Sistem bilangan ini merupakan dasar dari semua sistem bilangan berbasis digital. Dari sistem biner, kita dapat mengkonversinya ke sistem bilangan Oktal atau Hexadesimal. Sistem ini juga dapat kita sebut dengan istilah bit, atau Binary Digit. Pengelompokan biner dalam komputer selalu berjumlah 8, dengan istilah 1 Byte/bita. Dalam istilah komputer, 1 Byte = 8 bit. Kode-kode rancang bangun komputer, seperti ASCII, American Standard Code for Information Interchange menggunakan sistem peng-kode-an 1 Byte.

   Perhitungan dalam biner mirip dengan menghitung dalam sistem bilangan lain. Dimulai dengan angka pertama, dan angka selanjutnya. Dalam sistem bilangan desimal, perhitungan mnggunakan angka 0 hingga 9, sedangkan dalam biner hanya menggunakan angka 0 dan 1.

Baca Selengkapnya Tentang Bilangan Biner >>

   Apakah tanpa rumus diatas kita tidak bisa menkorversi desimal ke biner atau semacamnya? Jawabannya "BISA". Dalam VB, kita harus membuat coding untuk bisa menkorversi bilangan tersebut. Simah contohnya.

Klik gambar untuk memperbesar

Download Full Source

Read more >>

Konversi Desimal Menjadi Heksadesimal Menggunakan VB 6

   Pada pembahasan yang kemaren kita sempat membahas tentang bagaimana cara mengkonversi dari Heksadesimal ke Desimal. Sekarang kita akan membahas lagi bagaimana cari mengkonversi dari Desimal ke Heksadesimal.

   Seperti biasa, buka aplikasi VB6 anda dan tambahkan sebuah Kontrol atau komponen TextBox dan sebuah CommandButton. Klik double CommandButton tersebut dan isikan coding dibawah ini:

Private Sub Command1_Click()
    MsgBox Hex(Text1.Text), vbInformation, "Desimal To Heksa"
End Sub

   Silahkan Klik Run untuk mencoba apakah berhasil atau tidaknya program yang anda buat.

Klik gambar untuk memperbesar

Selamat mencoba dan semoga sukses. Dan jika anda bingung dengan source code diatas. Silahkan anda download contoh yang sudah saya sediakan dibawah.

Read more >>

Menampilkan Teks yang Dipilih (Blok) Pada Rich Textbox Menggunakan VB 6

   Source code berikut ini akan membantu anda untuk menunjukkan atau menampilkan teks yang anda pilih (blok) dalam richtextbox. Teks yang anda blog tersebut akan ditampilkan melalui Msgbox sesuai dengan teks yang anda blok.

Klik gambar untuk memperbesar

Download Source Code Dibawah ini

Read more >>

Menampilkan Teks yang Sedang Ditunjukkan Pointer Mouse Pada VB 6

   Pada contoh program kali ini kita akan membuat bagaimana cara ketika pointer mouse menunjuk ke sebuah kata, maka Label akan mendeklarasikan kata tersebut.

Klik gambar untuk memperbesar

Download Source Code Dibawah

Read more >>

Cara Membuat Stopwatch Menggunakan VB 6

   Jam sukat atau jam randek (bahasa Inggris: stopwatch) adalah alat yang digunakan untuk mengukur lamanya waktu yang diperlukan dalam kegiatan, misalnya: berapa lama sebuah mobil dapat mencapai jarak 60 km, atau berapa waktu yang dibutuhkan seorang pelari yang dapat mencapai jarak 100 meter?

   Jam sukat ada dua macam yaitu jam sukat analog dan jam sukat digital/bergana. jam sukat analog memiliki batas ketelitian 0,1sekon sedangkan jam sukat digital memiliki batas ketelitian hingga 0,01.

Download Full Source di bawah ini

Read more >>

Konversi Heksadesimal Menjadi Desimal Pada VB 6

   Heksadesimal atau sistem bilangan basis 16 adalah sebuah sistem bilangan yang menggunakan 16 simbol. Berbeda dengan sistem bilangan desimal, simbol yang digunakan dari sistem ini adalah angka 0 sampai 9, ditambah dengan 6 simbol lainnya dengan menggunakan huruf A hingga F. Sistem bilangan ini digunakan untuk menampilkan nilai alamat memori dalam pemrograman komputer. Nilai desimal yang setara dengan setiap simbol tersebut diperlihatkan pada tabel berikut:

Baca selengkapnya >> Konversi Dari Heksadesimal Ke Desimal

   Kita kembali ke permasalahan kita yaitu bagaimana caranya membuat konversi tersebut menggunakan Visual Basic 6.
   Langkah pertama yaitu tambahkan sebuah komponen TextBox dan sebuah CommandButton dalam Form anda. Kemudian set property Caption pada CommandButton sesuai dengan keinginan anda, dalam contoh ini saya memberikan Caption nya yaitu dengan nama Konversi.
   Selanjutnya dobel klik CommandButton lalu ketikkan kode berikut:


Private Sub Command1_Click()
    strhexvalue = Text1.Text
    MsgBox Val("&H" + strhexvalue), vbInformation, "Heksadesimal To desimal"
End Sub

Adapun gambaran dari source ini yaitu seperti gambar dibawah ini:

Klik gambar untuk memperbesar

Selamat mencoba dan semoga sukses. Untuk lebih jelasnya silahkan anda download Full Source di bawah ini.

Read more >>