Mengetahui Tanggal Awal Dalam Minggu

Mengetahui Tanggal Awal Dalam Minggu

By Astawan News   5/25/2017 10:22:00 am   No comments:

Kalau sekarang adalah hari Kamis, 22 Januari 2009 maka tanggal berapakah hari minggu kemaren?. Gampang!!! secara manual tinggal hitung aja selisihnya harinya lalu dikurangkan, 22 – 5 hari = 18 Januari 2009. nah bagaimana kalau dalam program???, tentunya program tidak bisa hitung-hitung begituan kecuali dibuat rumus-rumusnya. Kalau rumus dari cara diatas dituangkan kedalam program mungkin akan kepanjangan alias kelamaan….


Untuk VB 6 ada cara gampang untuk solusi diatas


Ada tanggal awal pastinya ada tanggal akhir, untuk cari tanggal akhir ane belon tau cara praktisnya, tapi kalau tanggal awal dah dapat tinggal tambahin aja tuh tanggal awal dengan jumlah hari dalam seminggu (7).
jadi kode diatas bisa ditambahin dengan…

Jika menggunakan VB.Net, caranya sama tapi butuh sedikit modifikasi.

Read More

Sleep Pada VB6

Sleep Pada VB6

By Astawan News   5/25/2017 07:18:00 am   No comments:

Sintak Sleep akan memerintahkan program untuk berhenti (pause) selama periode waktu tertentu dalam satuan millisecond (1/1000 detik). Sleep sering digunakan untuk memberikan kesempatan proses pihak ketiga (bukan aplikasi itu sendiri) untuk menyelesaikan prosesnya sebelum eksekusi selanjutnya dilakukan. 

Cara penggunaan Sleep pada VB6:
Letakkan sintak berikut pada modul.
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Penggunaan dalam coding:
Sleep 1000 '--> untuk 1 detik
Sleep 3000 '--> untuk 3 detik
Sleep 10000 ' --> untuk 10 detik

Read More

Save dan Load Layout Pada TrueDBGrid 7

Save dan Load Layout Pada TrueDBGrid 7

By Astawan News   5/24/2017 10:39:00 am   No comments:

Pernahkan memperhatikan aplikasi yang layoutnya tersimpan otomatis pada saat kita menutup aplikasi tersebut? sehingga saat kita membuka kembali, layout yang ditampilkan sama dengan layout sebelum kita tutup. User biasanya suka jika aplikasi yang digunakannya mampu melakukan hal tersebut.
Khusus pada form yang menampilkan data dalam bentuk tabel (baris dan kolom), salah satu komponen favorit yang digunaka adalah TrueDBGrid 7. Komponen tersebut menawarkan fasilitas yang sangat bagus. Selain itu layout terakhir yang disetting user pun dapat disimpan.
Berikut penggalan program yang digunakan untuk menyimpan dan memanggil layout:

Read More

Mengatasi Masalah SendKeys Pada VB6 di Windows 8

Mengatasi Masalah SendKeys Pada VB6 di Windows 8

By Astawan News   5/24/2017 10:37:00 am   No comments:

Sendkeys() adalah suatu perintah yang digunakan program untuk memerintahkan keyboard menekan suatu tombol seperti Tab atau Home atau End atau yang lainnya. Perintah ini biasanya sering digunakan oleh programmer VB agar program yang dibuat lebih atraktif. Namun fungsi ini bermasalah jika source code dijalankan di Windows 8 atau yang lebih baru. Permasalahan tidak akan muncul jika yang dijalankan adalah file exe hasil compilasi.


Jika code dijalankan maka akan muncul error: Run-time error 70: Permision Denied seperti gambar dibawah ini.

Untuk mengatasi hal tersebut ganti perintah Sendkeys dengan CreateObject("WScript.Shell").SendKeys "{tab}".
Contoh:
Sendkeys "{tab}"
diganti dengan
CreateObject("WScript.Shell").SendKeys "{tab}"

Read More

Fungsi IsNumeric Pada VB6

Fungsi IsNumeric Pada VB6

By Astawan News   5/24/2017 10:36:00 am   No comments:

Fungsi IsNumeric() adalah fungsi yang digunakan untuk mengecek suatu data number atau bukan. Fungsi ini biasanya digunakan saat melakukan validasi data sebelum data tersebut diproses. Fungsi ini mengembalikan data bertipe boolean (True/False). Penggunaan fungsi ini sangat mudah,




Contoh penggunaan fungsi IsNumeric():

Read More

Fungsi Split Pada VB6

Fungsi Split Pada VB6

By Astawan News   5/24/2017 10:34:00 am   No comments:

Fungsi Split() adalah fungsi yang digunakan untuk mencacah data yang memiliki delimiter (pemisah) terntentu. Contoh sebuah data 01-10-0000014, data tersebut terdiri dari 3 group data dipisah oleh tanda (-). Masing-masing group tersebut dapat kita pisahkan dengan menggunakan fungsi Split().



Fungsi Split() bekerja dengan cara memisahkan data dengan pemisah tertentu, kemudian mengembalikan hasil pencacahan dalam bentuk array.



Contoh penggunaan fungsi Split():






Hasil dari code diatas adalah:

x0 --> 01
x1 --> 10
x2 --> 0000014

Read More