HIT COUNTER FORM VISUAL BASIC

Yang artinya menghitung  berapa kali form kita diakses atau dibuka atau dijalankan atau dirun atau dieksekusi , beuhh.. parade bahasa ini sih, yah.. modelnya seperti yang ada di blog ini tuh sebelah kanan, Cuma sekarang kita membahasnya bagaimana cara membuatnya di Visual Basic.

Dari teman di group Visual Basic Opensource facebook saya mendapat ilmu baru yaitu menyimpan data hitungan form yang diakses atau hit counter di registry, untuk aplikasi yang sederhana sangat cocok karena tidak membutuhkan database, tetapi untuk aplikasi yang didalamna ada database tidak ada salahnya menambahkan satu tabel untuk hit counter. Yang hanya ingin berlatih atau sekedar referensi kita akan mencoba membuat hit counter menggunakan database, sebenarnya ini juga logikanya sama dengan kita membuat hitungan otomatis, karena akan bertambah. Logika yang akan kita gunakan seperti ini, ketika form dibuka pada even load kita memanggil database dan mengecek berapa jumlah yang ada di tabel tersebut, katakanlah x, lalu buat satu variable lagi yaitu “total”, lalu masih pada even load kita berikan operator matematika “total = X+1”, contohnya X=12 maka total =13, setelah didapat nilai total maka data jumlah yang ada ditabel kita update menjadi “total” dalam contoh ini 13 di mana sebelumnya adalah 12, nilai Total atau 13 tadi lalu ditampilkan di Label yang ada pada form, kita langsung bikin desainnya di VB, buatlah seperti gambar di bawah ini:

Tambahkan referensi  Microoft ActiveX data Liberary saya pake yang versi 2.7, dengan cara klik menu project  lalu references, centang Microsoft ActiveX data  object library.

Buat modul untuk mendefinisikan koneksi database, dengan cara klik menu Project lalu Add Module, di dalam model ketikan sintak seperti ini:

Global HubungKan As New ADODB.Connection

Public Sub HubungkanData()

Set HubungKan = New ADODB.Connection

HubungKan.Open "provider=microsoft.jet.oledb.4.0; persist security info=false; data source= " & App.Path & "\data.mdb"

HubungKan.CursorLocation = adUseClient

End Sub

Selesai kita membuat modul koneksi lalu klik form View Code, ketikan sintak di bawah ini:

Dim RsJumlah As ADODB.Recordset

Private Sub Command1_Click()

HubungKan.Execute "UPDATE TBcounter set hit='" & "1" & "'"

Label1.Caption = "Form ini sudah diakses sebanyak 0 Kali"

End Sub

Private Sub Form_Load()

Dim jumlah, totaL As Integer

HubungkanData

Set RsJumlah = New ADODB.Recordset

RsJumlah.LockType = adLockOptimistic

RsJumlah.Open "select * from Tbcounter", HubungKan

jumlah = RsJumlah!hit

totaL = jumlah + 1

HubungKan.Execute "UPDATE TBcounter set hit='" & totaL & "'"

Label1.Caption = "Form ini sudah diakses sebanyak " & RsJumlah!hit & " Kali"

End Sub

Selesai sudah untuk pembuatan form di VB, dicontoh saya buat satu form lagi untuk memanggil dan menutup form tadi, jadi akan terlihat perhitungannya tanpa terminate. Untuk database saya menggunakan Ms. Access, nama database Data.mdb, tabel : TbCounter, Field : Hit. Tidak ada tabel atau field lain dalam contoh ini, setelah membuat database atau form VB simpan dalam satu folder lalu jalankan, hasilnya seperti ini:

Bagi yang males ngikutin tutorial jangan sedih dulu, karena saya saya menyediakan projectnya yang bisa didownload disini. Selesai sudah aplikasi Hit Counter dengan Visual Basic. Semoga dapat membantu bagi yang sedang membutuhkan. Sampai ketemu lagi di posting yang akan datang dengan thema schedule task dengan visual basic. Tetap di semesta-abu.co.nr.