15 December 2015

VB 6.0 Sendkeys("{String}")

Sendkeys digunakan untuk melakukan penekanan tombol keyboard secara kode program,  contoh penggunaannya, Sendkeys("{Tab}"), kode ini memerintahkan komputer untuk mengaktifkan key tab pada keyboard. Sendkeys("{a}"), kode ini memerintahakn komputer untuk mengaktifkan key a pada keyboard.

VB 6.0 Error Invalid procedure call or argument

Error ini terjadi ketika kita berusaha melakukan setfocus pada suatu kontrol, tetapi kontrol tersebut enablenya bernilai false

VB 6.0 Error Text property is read only

Error ini terjadi jika kita memasukan nilai teks secara langsung pada combobox yang sedang memiliki style Dropdown List, combobox yang sedang memakai syule Dropdown List sifatnya Read Only dan hanya bisa diisi dengan memilih item dari combobox tersebut. Agar combobox bisa diisi langsung dengan nilai teks, style dari combobox harus lah Dropdown Combo atau Simple Combo, combobox yang menggunakan style tersebut bisa diisi langsung dengan nilai teks ataupun dengan cara memilih item pada combobox.

17 November 2015

Pendeteksian Tangan Menggunakan Webcam Untuk Fungsi Mouse Dengan Menerapkan Algoritma Viola-Jones




"Debugging", Apa yah? :D

Sudah hampir satu tahun saya bekerja sebagai Programmer VB 6.0 di Jasamedika Saranatama, saya masih ingat dulu ketika awal masuk ke jasamedika, saya tidak tahu yang namanya "Debugging". Saya pernah melihat senior saya sedang melakukan debugging, tapi saya belum tahu apa yang dilakukannya itu ternyata adalah debugging, saya melihat senior saya mijit-mijit suatu tombol di keyboard secara berulang-ulang, setiap dia mijit tombol di keyboard, source code yang tampak di monitor diberi background warna kuning, kemudian dia pijit lagi tombol di keyboard dan gantian baris berikutnya yang diberi background warna kuning, begitu seterusnya. Awalnya saya berfikir "Dia melakukan itu(Mewarnai baris dengan background warna kuning) untuk memudahkan dia membaca kode" :D. Ternyata... setelah 2 atau 3 hari bekerja saya baru tahu bahwa yang dilakukan senior saya itu ternyata adalah debugging :D dari atasan saya yang sering membantu saya ketika sedang mentraining saya di kantor.

Debugging dilakukan ketika terjadi error pada program dan kita harus mengetahui apa penyebabnya sehingga bisa diambil langkah untuk memperbaiki program. Debugging secara teknis adalah mengeksekusi kode program baris demi baris secara manual, sehingga kita mengetahui alur dari sebuah kode yang membangun program.

Ketika pertama kali belajar debugging terasa ribet dan bingung, ada beberapa tombol yang bisa kita pakai untuk debugging di VB 6.0, F8 untuk mengeksekusi per baris, SHIFT+F8 digunakan jika kita menemui fungsi atau prosedur dan tidak ingin masuk ke dalam fungsi tersebut untuk mengeksekusi baris demi baris di dalam fungsi tersebut, CTRL+SHIFT+F8 digunakan untuk keluar dari sebuah fungsi atau prosedur tanpa harus mengeksekusi baris demi baris fungsi atau prosedur tersebut sampai selesai, CTRL+F8 , digunakan untuk mengeksekusi pada baris berikutnya(Maksud dari baris berikutnya adalah bisa saja melewati beberapa baris dan baris yang terlewati tersebut otomatis tereksekusi, CTRL+F9 digunakan untuk mengeksekusi baris dimana kursor berada, baik balik lagi ke baris sebelumnya ataupun maju ke baris atau beberapa baris selanjutnya, baris-baris yang terlewati baik ketika balik lagi ke baris sebelumnya ataupun maju ke baris-baris selanjutnya tidak otomatis dieksekusi, F9 digunakan untuk memberi breakpoint pada baris di program, ketika program dijalankan maka program akan berhenti pada baris yang diberi breakpoint tersebut. Tool-tool debugging lain yang sering saya gunakan adalah Watch window dan Local Window, ini digunakan untuk memantau value dari sebuah variabel, ini sering saya gunakan ketika menghadapai error-error tingakat dewa, dimana kadang lokasi perubahan value dari sebuah variabel sulit untuk diketahui, dan Immediate Window, ini biasanya saya gunakan untuk menggenerate isi sebuah variabel, misalnya variabel yang berisi query SQL.

15 November 2015

Fungsi-fungsi di Vb 6.0 Yang Berhubungan Dengan Tanggal dan Waktu

Menampilkan waktu sekarang
Print Time             '12:53:12 PM
Menampilkan tanggal sekarang
Print Date             '04-09-2012
Menampilkan waktu dan tanggal sekarang
Print Now              '04-09-2012  12:53:12 PM
Memformat Tanggal dan Waktu
Print FormatDateTime("2 - 3 -2012", vbLongDate)  '02 March 2012
Print FormatDateTime(Now, vbLongDate)            '04 September 2012 
Print FormatDateTime(Time, vbShortTime)          '12:01    
Print FormatDateTime(Time, vbLongTime)           '12:03:28 PM
Print Format(Now, "hh:mm")                       '12:38
Print Format(Now, "hh:mm:ss")                    '12:38:00
Print Format(Now, "hh:mm AMPM")                  '12:38 PM
Print Format(Date, "dddd mmm dd,yyyy")           'Tuesday September 04,2012
Print Format(Date, "dd mmmm")                    '04 September

Mengecek Nilai Null DataGrid

Kodingan untuk ngecek apakah value dari kolom yang ada di DataGrid bernilai Null atau tidak, kodingan dasarnya seperti ini : IsNull(DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark)) Kalau diduetkan dengan If bisa seperti ini :
if IsNull(DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark))=true then
   TextBoxt1.Text=(DataGrid1.Columns(1).Value)
else
   msgBox "Data kosong"
end if

Pengumuman