Rabu, 29 April 2015

Vb6 keypress enter

Kode dimana ketika menuliskan pada textbox kemudian kita tekan enter lalu perintah yang diinginkan akan di execute.

berikut list kode nya :

--------------------------------------------------------------------
Private Sub Text1_KeyPress (KeyAscii As Integer)
         If KeyAscii = 13 Then  ' The ENTER key.
            SendKeys "{tab}"    ' Set focus ke control berikutnya
            ....' Masukkan kode yang diinginkan.
            ...

         End If
      End Sub

--------------------------------------------------------------------

Semoga bermanfaat :)

vb6 timer interval 1 hour ( mengubah timer interval menjadi tiap 1 jam )

Timer adalah satu control pada visual basic yang berfungsi untuk menghitung waktu. saat program  dijalankan, kontrol timer ini tidak akan terlihat  dilayar apabila aplikasi tersebut dijalankan. 
Dalam menggunakan komponen timer berkaitan dengan waktu,timer juga dapat digunakan untuk menjadikan tampilan kita lebih dinamis,dan sangat membantu dalam program yang akan dibuat.

Dalam membuat sebuah aplikasi anda dapat memasang beberapa kontrol Timer pada sebuah Form dimana masing-masing kontrol timer tidak saling mempengaruhi anda juga dapat memasang kontrol timer sebagai pembatas waktu

Batas max interval timer adalah 65535 ms. Nah bagaimana jika ingin set menjadi 1 jam?
Ikuti langkah berikut ini,

1. Siapkan form beserta timer
2. Atur setting interval timer menjadi 60000
3. masukkan code dibawah ini :

------------------------------------------------------------------
Private Sub Timer1_timer()
Static counter As Integer

'Trigger setiap menit
counter = counter + 1

'Trigger setiap jam
If (counter = 60) Then
counter = 0
'masukkan perintah yang diinginkan
:
:
End If

------------------------------------------------------------------


Penjelasan :
counter = counter + 1
counter akan bertambah setiap menit

if (counter = 60) then
counter = 0
ketika counter mencapai angka 60 atau 60 menit (1jam) maka counter akan kembali ke 0
dan berulang lagi.

Semoga Postingan Tentang vb6 timer interval 1 hour Dapat Dijadikan Sebagai Bahan Pembelajaran.
Semoga bermanfaat :)