Visual Basic Indonesia» Input dan Output

Bagaimana Mengambil Nilai Desimal di Visual Basic 6

Masino Sinaga — Mon, 06 Jun 2011 06:29:46 +0000

Apakah Anda pernah mengalami kesulitan ketika ingin mendapatkan hanya nilai desimal dari suatu angka yang diketahui di Visual Basic 6? Katakanlah dari angka “10,12345″, Anda ingin mengambil hanya nilai desimalnya saja, yaitu: “0,12345″. Beberapa menit yang lalu salah seorang member di komunitas ini mengirim pesan pribadi kepada saya menanyakan tentang hal ini; bagaimana cara mendapatkan hanya nilai desimal dari suatu bilangan yang tidak bulat. Akhirnya setelah bereksperimen beberapa menit (sambil mengasah kembali kemampuan programming saya yang sudah agak lama “cuti”, hehehe…), akhirnya jadilah kode Visual Basic 6 berikut ini sebagai solusinya. Anda bisa menggunakan salah satu dari dua cara.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Memahami Focus di Visual Basic 6

Masino Sinaga — Tue, 09 Feb 2010 13:20:28 +0000

Focus adalah kemampuan untuk menerima masukan pengguna melalui perangkat tetikus (mouse) atau papan kunci (keyboard). Ketika sebuah object memiliki focus, dia dapat menerima masukan dari seorang pengguna. Di antarmuka Microsoft Windows, beberapa aplikasi dapat berjalan kapanpun, tapi hanya aplikasi yang mendapat focus yang akan memiliki sebuah title bar yang aktif dan dapat menerima masukan dari pengguna. Pada sebuah form Visual Basic yang memiliki beberapa control TextBox, hanya TextBox yang mendapat focus-lah yang akan menampilkan text yang dimasukkan melalui papan kunci.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Mengirim Hasil Penekanan Tombol dari Aplikasi VB6 ke Notepad di Visual Basic 6

Masino Sinaga — Thu, 07 Jan 2010 15:32:56 +0000

Pernahkah Anda mengalami kesulitan ketika ingin mengirimkan hasil penekanan tombol dari dalam aplikasi VB6 yang Anda buat ke dalam Notepad? Mungkin Anda ingin mengirimkan data tertentu, atau seolah-olah data yang ingin Anda kirimkan tadi merupakan hasil penekanan tombol keyboard yang Anda tentukan secara khusus dari dalam aplikasi Anda. Jadi, data tersebut akan diterima di aplikasi Notepad secara otomatis, dan user sama sekali tidak melakukan penekanan tombol apapun di keyboard, termasuk saat menampilkan Notepad pertama sekali, dan ketika menyimpan data dalam file text! Kode Visual Basic 6 berikut ini menggunakan function SendKeys, sebagai solusi untuk mengatasi permasalahan Anda.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Membulatkan Bilangan Desimal Ke Kelipatan Setengah Berikutnya di Visual Basic 6

Masino Sinaga — Thu, 07 Jan 2010 14:27:09 +0000

Masih ingat dua artikel saya mengenai pembulatan bilangan dengan menggunakan fungsi buatan? Setelah dua artikel tersebut mengenai pembulatan bilangan pecahan ke kelipatan bilangan bulat di atasnya, serta pembulatan bilangan ke dalam angka kelipatan seratus berikutnya, lalu ada yang bertanya kepada saya: Bagaimana cara membulatkan bilangan desimal ke dalam kelipatan setengah berikutnya? Contoh: Angka 0,1 (Nol koma satu) dibulatkan menjadi 0,5 (Nol koma lima), angka 1,6 (Satu koma enam) dibulatkan menjadi 2, angka 1 tetap menjadi 1, dan seterusnya. Simak solusi selengkapnya pada kode Visual Basic berikut ini!

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Membulatkan Setiap Angka Pecahan ke Bilangan Bulat Berikutnya di Visual Basic 6

Masino Sinaga — Thu, 07 Jan 2010 14:03:12 +0000

Function Round() di Visual Basic 6 akan membulatkan angka desimal secara proporsional sesuai dengan parameter jumlah digit desimal yang ditentukan pada parameter kedua. Jika Anda ingin membulatkan setiap angka pecahan menjadi bilangan bulat ke atas berikutnya tanpa memperdulikan apakah nilai desimal lebih besar dari 5 atau bukan (Contoh: Anda menginginkan agar angka 6,01 (Enam koma nol satu) maupun 6,99 (Enam koma sembilan sembilan) sama-sama akan dibulatkan menjadi angka 7), maka kode Visual Basic 6 berikut ini adalah solusinya buat Anda!

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Membulatkan Angka Ke Dalam Kelipatan Seratus Berikutnya di Visual Basic 6

Masino Sinaga — Thu, 07 Jan 2010 13:46:32 +0000

Jika Anda pernah mengalami kesulitan ketika ingin membulatkan sebuah angka ke dalam kelipatan seratus ke atas berikutnya dengan menggunakan kode Visual Basic 6, maka kode berikut solusinya. Contoh: Anda memiliki angka 729, dan Anda ingin membulatkan angka tersebut ke kelipatan seratus ke atas sehingga menjadi 800. Sedangkan jika angkanya tepat kelipatan seratus, proses pembulatan akan diabaikan. Untuk mengatasi hal ini, Anda bisa menggunakan fungsi buatan berikut. Fungsi ini bahkan bisa juga Anda gunakan melalui fitur Macro di Microsoft Excel. Berikut ini kode selengkapnya.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Mengetahui Kode ASCII Tombol Keyboard yang Ditekan di Visual Basic 6

Masino Sinaga — Thu, 07 Jan 2010 13:41:02 +0000

Tips berikut pasti akan dianggap sebagai hal yang sangat sepele bagi mereka yang sudah hafal kode ASCII dari setiap tombol keyboard. Tapi bagi mereka yang masih pemula di Visual Basic 6 atau bagi mereka yang tidak hafal sama sekali dan ingin mendapatkan kode ASCII dari setiap tombol di keyboard, tips berikut ini layak Anda jadikan sebagai acuan.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Mengkonversi Detik ke Format Durasi Hari, Jam:Menit:Detik di Visual Basic 6

Masino Sinaga — Thu, 07 Jan 2010 13:24:02 +0000

Pernahkah Anda mengalami kesulitan ketika ingin mengkonversi nilai total detik ke dalam bentuk penulisan durasi dengan urutan: hari, jam, menit, dan detik? Contoh: Nilai 90.061 (Sembilan puluh ribu enam puluh satu) detik itu kalau dikonversi ke durasi hari, jam, menit dan detik; maka hasilnya adalah: 1 hari 1 jam 1 menit 1 detik atau kalau lebih disingkat menjadi: “1 hari 01:01:01″. Berikut ini solusinya.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Mendeteksi Kursor Mouse di Atas Label di Visual Basic 6

Masino Sinaga — Thu, 07 Jan 2010 12:51:35 +0000

Pernahkah Anda kesulitan ingin mendeteksi apakah mouse sedang melewati sebuah control tertentu? Katakanlah Anda ingin mengubah warna control Label yang ada di atas form ketika kursor mouse melewati control Label tersebut dan mengembalikan ke warna semula ketika kursor sudah tidak berada di atasnya. Berikut ini solusinya.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Mengetes Printer (Print Test) di Visual Basic 6

Masino Sinaga — Sun, 03 Jan 2010 00:54:08 +0000

Contoh berikut menunjukkan bagaimana cara mengetes printer dengan melakukan uji coba cetak halaman (print test page) dengan menggunakan kode Visual Basic 6.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.