Posts tagged ‘Visual Basic 6’

Program Absensi Karyawan Windows 7


Cara mengatasi Error Database Program Absensi

 

Berikut adalah Screen Shot dari Program Absensi Karyawan dengan Visual Basic 6.0 dan Barcode: 1. Tampilan Awal Menu Utama – Menampilkan logo identitas instansi yang menggunakan program aplikasi 2. Tampilan Form Absensi dengan barcode –  Menampilkan data absensi karyawan dengan lengkap barupa jam masuk, nama, tanggal, jabatan, dan status absensi. – Kartu pengenal yang dilengkapi dengan kode barcode dari ID discanning menggunakan barcode reader – Secara otomatis, data dari karyawan akan tampil Download Source Code Program Absensi Windows 7

Error Software Tabungan: Tidak Dapat Menampilkan Gambar


Pada bagian ini error yang terjadi adalah tidak dapat menampilkan gambar background pada Form Utama:

error load gambarPenjelasan:

Error ini adalah program tidak dapat menemukan file yang telah ditunjuk pada baris perintah yang ada.

 

Solusi:

1. Klik Debug, akan tampil seperti berikut

error load gambar line2.Klik icon End

end icon

3. Ketikan tanda petik satu (‘) pada posisi sebelum Me. Sehingga baris code menjadi berikut

'Me.Picture = LoadPicture(Lokasi)

new syntax
Berikut adalah hasil perbaikannya.

form utama

Demikian, semoga bermanfaat.

 

Penggunaan Program Absensi Karyawan: Mencari dan Menghapus Data Karyawan


Berikut adalah tutorial penggunaan program absensi karyawan.

Program dapat dilihat pada link.

Pada tutorial ini ditampilkan bagaimana cara mencari data karyawan yang telah disimpan dan langkah-langkah menghapus data yang sudah tersimpan.

Mencari Posisi Sebuah Karakter/String Dengan VB


Untuk mengetahui posisi sebuah karakter pada sebuah string, menggunakan Visual Basic 6, kita dapat menggunakan syntax:

Public Shared Function InStr(_
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As CompareMethod _
) As Integer
' -or-
Public Shared Function InStr(_
   ByVal Start As Integer, _
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As Microsoft.VisualBasic.CompareMethod _
) As Integer

Parameter:

– Start= nilai posisi awal pencarian, jika tidak diberikan maka akan dimulai dari awal string. optional

– String1= String dimana karakter yang akan dicari. harus ada.

– String2= String/karakter yang akan dicari. harus ada.

– Compare= metode yang digunakan. Binary atau Text.

Contoh:

'String tujuan pencarian.
Dim SearchString As String = "XXpXXpXXPXXP"
'karakter yang akan dicari "p".
Dim SearchChar As String = "P"

Dim TestPos As Integer
' Pencarian dengan metode Text, dimulai dari posisi 4. akan didapatkan 6
TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)

' Pencarian dengan metode binary, dimulai dari posisi 1. didapatkan 9.
TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)

' Jika opsi pencarian tidak ditentukan, akan didapatkan 9.
' Jika metode pencarian ditentukan Text, akan didapatkan 3
TestPos = InStr(SearchString, SearchChar)' Didapatkan 0
TestPos = InStr(1, SearchString, "W")

Demikian, semoga bermanfaat.

Sumber: http://msdn.microsoft.com/en-us/library/8460tsh1%28v=vs.80%29.aspx

Database Tabungan Sekolah


1. Form log in, disini dapat dipilih beberapa user sebagai pilihan
login

2. Form Utama, memberikan menu dan informasi

form utama

3. Form Nasabah, disini dapat ditambahkan, diedit, dan menghapus data nasabah

form nasabah

4. Form Transaksi, disini digunakan untuk mencatat transaksi tabungan dan pengambilan [kredit/debet]

form transaksi

5. Form Laporan, disini dapat dilihat laporan transaksi masing-masing nasabah ataupun keseluruhan nasabah

laporan

6. Form Setting, digunakan untuk mengatur besarnya biaya administrasi, bunga dan limit saldo yang dapat diambil.

setting

7. Form About, berisi informasi seputar software

aboutDemikian, semoga bermanfaat.

— Rohmadi —

Source code

Menampilkan Webcam Pada Visual Basic 6.0


webcamWebcam merupakan salah satu fitur multimedia yang sangat mudah ditemui pada sebuah komputer khususnya sebuah laptop. Selain termasuk device bawaan dari sebuah laptop, webcam juga dapat dijual secara terpisah. Jika sebuah komputer dipasang sebuah webcam, maka sebuah komputer juga dapat menampilkan video dari webcam.

Sebagai salah satu device pendukung aplikasi web, biasanya webcam cenderung memiliki resolusi lebih rendah dibandingkan device camera yang tidak diperuntukkan untuk aplikasi web. Hal ini menjadi salah satu pertimbangan untuk mendapatkan layanan camera berbasis web yang tidak mengurangi kecepatan dan membutuhkan bandwidth yang besar.

Pada tulisan ini akan diberikan sebuah contoh program menggunakan Visual Basic 6 untuk menampilkan webcam pada program. Pertama kali untuk dapat menampilkan webcam pada VB, Anda harus menginstall software driver dari device webcam yang akan digunakan. Setelah proses installasi sukses, maka baru dapat digunakan untuk menampilkan webcam pada VB.

Anda dapat menggunakan template VB yang sudah kami sertakan disini.

tampilan form webcam

Langkah untuk membuat program Menampilkan Webcam pada VB adalah sebagai berikut, dengan menggunakan template di atas.

1. Mendeklarasikan variabel pada awal program


'DEKLARASI WEBCAM
 '========================================================================
 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Private mCapHwnd As Long

Private Const HUBUNG As Long = 1034
 Private Const PUTUS As Long = 1035
 Private Const AMBIL_FRAME As Long = 1084
 Private Const COPY As Long = 1054

2. Membuat fungsi untuk menghubungkan VB dengan driver webcam

Sub Kamera_Mulai()
 mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0)
 DoEvents
 SendMessage mCapHwnd, HUBUNG, 0, 0
 End Sub

3. Membuat fungsi untuk memutus koneksi VB dengan driver webcam

Sub Kamera_Berhenti()
 DoEvents: SendMessage mCapHwnd, PUTUS, 0, 0</p>
End Sub

4. Memulai menampilkan video webcam pada program

Private Sub Timer1_Timer()
 SendMessage mCapHwnd, AMBIL_FRAME, 0, 0
 SendMessage mCapHwnd, COPY, 0, 0
 Picture1.Picture = Clipboard.GetData
 Clipboard.Clear
 End Sub
Private Sub btnMulai_Click()
 Kamera_Mulai
Label3.Visible = False
 End Sub

5. Memutus video

Private Sub cmdStop_Click()
 Kamera_Berhenti
Label3.Visible = True
 End Sub

6. Menutup Aplikasi

Private Sub cmdClose_Click()
 Unload Me
 End Sub

untuk mendapatkan contoh lengkap silakan unduh disini.

Demikian semoga bermanfaat.

— Rohmadi —

Membuat Database Absensi Karyawan


Inti dari sebuah aplikasi Absensi Karyawan adalah bagaimana menyimpan data kehadiran/absensi semua karyawan secara lengkap. Masing-masing karyawan tentunya memiliki sebuah identitas unique/berbeda dari yang lain misalnya NIP atau yang lain. Semua data terkait kehadiran baik itu, jam masuk, jam keluar, hari masuk, durasi waktu kerja, jumlah kehadiran dan yang lain merupakan data-data yang mengacu pada masing-masing karyawan. Disinilah peran utama database, sehingga setiap karyawan dapat diketahui masing-masing datanya.

Untuk membuat sebuah database kita harus membuat pengelompokan data-data menjadi beberapa tabel yang memiliki kesamaan. Misalnya:

[baca selengkapnya disini]

Membuat Billing Dengan Visual Basic 6


Billing secara sederhana adalah, alat bantu untuk menghitung jumlah tagihan. Billing biasanya digunakan pada warung internet, warung telepon, fax, rental komputer atau rental PS bisa juga digunakan untuk persewaan lain yang perhitungan tagihannya berdasarkan waktu yang digunakan.

Dengan menggunakan visual basic kita bisa membuat sebuah billing secara sederhana dan akurat. Komponen yang digunakan adalah Timer, Label dan Button. Ketiga komponen tersebut memiliki peran dan digunakan untuk membuat sebuah billing.

Timer digunakan sebagai counter waktu dan tagihan. Button digunakan untuk menerima perintah start, stop dan tutup program. Label digunakan untuk menampilkan informasi kepada user.

 

 

 

Bagaimanakah Prinsip Sebuah Billing?

Sebuah tagihan biasanya dibuat berdasarkan satuan jam, bisa satu jam atau setengah jam, atau mungkin kelipatannya. Dari sini, nilai tagihan dibagi menjadi pecahan terkecil yang memiliki KPK dengan satuan waktu. Jadi pertambahan tagihan ekuivalen dengan pertambahan waktu yang dijadikan acuan.

Misalnya, harga sewa selama satu jam adalah Rp. 3.000,- sementara waktu dalam satu jam adalah 60menit atau 3600detik, sehingga didapatkan harga persatuan waktu adalah Rp. 50,-/menit atau Rp. 5,-/ enam detik.

Dari sini kita bisa membuat counter up misalnya pertambahan tagihan adalah Rp 5 setiap 6 detik. Untuk mengatur counter tagihan setiap 6 detik, maka kita menggunakan timer dengan diatur intervalnya 6000. Pada setial 6 detik sekali, tagihan dijumlahkan antara tagihan awal dengan Rp. 5,-

Sementara untuk mengetahui durasi yang telah berlalu, kita gunakan perhitungan selang waktu. Selang waktu/durasi dapat dihitung dengan mengurangi waktu sekarang dengan waktu mulai.

Untuk lebih memahaminya, silakan mempelajari source code.

Semoga bermanfaat.

Billing Rental Komputer dengan Visual Basic 6


Mungkin diantara kita dulu, sewaktu kuliah ataupun masih sekolah sering ke warung internet (Warnet). Sewaktu kuliah, saya inget betul, bagaimana tahun pertama untuk mengakses internet harus rela menempuh jarak kurang lebih 10 km naik angkot. Maklum, kampus saya termasuk daerah pinggiran dan belum ada saluran telepon dari Telkom. Untuk ke warnet aja butuh perjuangan ekstra, naik angkot dua kali, belum lagi kalau apes sampai warnet kadang belum buka karena OP nya masih belum bangun.

Tahun kedua agak lumayan, walau jalur telepon belum bisa masuk kawasan sekitar kampus, tapi sudah ada warnet yang dibuka. Jadi perjuangan lebih mudah. Dan baru tahun ketiga, di setiap fakultas ada satu laboratorium internet untuk umum.

Dari pengalaman itu, satu hal yang mengusik pikiran saya, yaitu bagaimana sih ngakalin yang namanya billing rental internet?

Maklum, kan sewaktu tahun pertama saya dapat kuliah pemrograman jadi kadang ada program yang aneh jadi penasaran. Akhirnya, suatu ketika saat mengobrak-abrik isi harddisk PC salah satu warnet, saya menemukan master billing client yang dipakai. Nah, dari sini saya inisiatif mengcopy master tersebut untuk di install di rental komputer saya. Maksud hati, pingin punya billing rental komputer gratis, eh malah kena musibah. Saat master billing tersebut di install, dan berhasil, kemudian saya coba jalankan billing, ya namanya juga asal copy dan gak paham bagaimana installasi yang benar, ternyata saat mau di non aktifkan program tersebut minta username dan passowrd. Inilah kesalahannya, tidak tahu username dan password tapi berani install. Akhirnya, program ngelock alias PC tidak bisa diapa-apain. Terpaksa deh, direstart dan masuk DOS, kemudian dihapus directory program billing tersebut dan Alhamdulillah berhasil. Syukur, masih selamat gak perlu install windows.

Dari kejadian ini, keinginan memiliki billing buat rental saya masih kuat. Dan akhirnya terfikir, setiap ke warnet, saya perhatikan bagaimana billing yang ‘asli’ bekerja. Dan saya putuskan untuk membuat sendiri dengan rasa alakadarnya. Ditambah lagi, sewaktu punya rental, kita selalu dipusingkan dengan perhitungan berapa lama user memakai komputer, karena kita kadang tidak mencatat jam mulai dan user sendiri juga tidak ingat. Nah, gimana coba? Pusing kan?

Dan saat ini, karena saya sudah tidak memiliki rental komputer, saya terfikir, kenapa tidak saya pajang aja disini. Siapa tahu ada yang butuh, atau pingin belajar? Ya, namanya siapa tahu, boleh dipakai boleh tidak.

Nah, bagaimana sih billing yang akan saya buat ini bekerja, dan apa aja fiturnya?

Pada dasarnya,yang nama billing adalah menghitung waktu kemudian mengalikan dengan harga, sehingga didapat biaya sewa. Misalnya, kita menyewa komputer selama 1,5 jam, sementara harga sewa Rp 1.000/jam, maka kita harus membayar Rp 1.500.

Dengan logika yang sederhana ini, kita bisa membuat sendiri billing untuk rental komputer. Dan kemudian ditambah sedikit database, kita bisa mengetahui dalam sehari, berapa rupaih hasil sewa komputer dan dalam sebulan berapa rupiah hasil sewanya. Jika kita ingin tahu saldo untuk dari sewa jasa komputer, kita bisa menambahkan menu lain, yaitu menu pengeluaran dan pemasukan lain. Dan pada menu yang lain kita bisa membuat kalkulasi saldo dalam satu bulan berapa keuntungan jasa rental komputer kita.

Pada program yang saya desain ini, menyediakan fitur yang saya rasa saya perlukan selama mengelola rental komputer. Jadi, nanti jika ada yang ingin menambahkan atau mengurangi sesuai kebutuhan, ya monggo dimodif sendiri ya….

Perhitungan Waktu

Dalam membuat billing, kita akan membuat perhitungan lama penggunaan rental komputer. Pada VB 6, kita bisa memanfaatkan fasilitas jam system pada komputer. Yaitu dengan algoritma, setiap selang waktu yang ditentukan kita membaca waktu sekarang dan mengurangi dengan waktu mulai. Dari ini akan didapatkan selisih waktu. Dalam code VB untuk membuat algoritma ini bisa digunakan code sebagai berikut:

jam = Hour(dEnd - dStart)

menit = Minute(dEnd – dStart)

detik= Second(dEnd – dStart)

dari code di atas, kita bisa mengetahui selisih antara dua waktu yang berbeda. Kemudian, dari selisih waktu yang didapat, kita kalikan dengan harga sewa.

Misalnya: waktu mulai sewa jam 12:00:00, kemudian waktu selesai jam 14:15:00, dan harga sewa perjam Rp. 1.000. Maka,

Jam = 14 – 12 = 2

Menit = 15 – 00 = 15

Detik = 00 – 00 = 00

Sehingga selisihnya adalah 2:15:00, atau 2,25 jam. Kemudian lama waktu/selisih waktu dikalikan dengan harga sewa, didapatkan:

2,25 x Rp 1.000 = Rp 2.250

Database

Jika kita ingin mencatat hasil sewa selama satu hari, satu pekan, satu bulan dan seterusnya, maka kita perlu membuat sebuah database. Database ini adalah untuk mencatat semua transaksi yang terjadi, sehingga nanti pada akhir bulan atau akhir tahun, bisa dijumlah dan diketahui untung dari jasa rental komputer.

Kita bisa membuat database yang sederhana, yaitu dengan basis MsAcces.

Form Utama


Pada form ini, user akan menghadapi sebuah tampilan fullscreen, sehingga user harus memilih kategori untuk login dan menggunakan komputer. Login dibagi menjadi 3 jenis: Member, Personal, dan Admin. Member: jika user memilih kategori ini, maka perhitungan waktu sewa akan berbeda, user akan mendapatkan sejumlah potongan harga sewa sebagai imbalan telah menjadi member. Untuk memilih kategori ini, user harus mendaftarkan diri dulu.

Jika kategori yang dipilih adalah kategori Personal, maka user akan mendapatkan harga sewa normal dengan tanpa potongan harga. Kategori ini, tidak memerlukan username dan password untuk login. Sementara kategori Admin, adalah kategori yang hanya bisa digunakan oleh pemilik rental, untuk melakukan pengaturan, misalnya harga, mengelola database dan mendaftarkan member baru.

Form Billing

Pada form ini, ditampilkan durasi waktu sewa, biaya sewa yang telah digunakan, informasi waktu mulai, dan sisa account bagi pemakai member.

Jika pemakai adalah member, maka informasi lainnya adalah, biaya sewa yang telah dipotong diskon, sisa account yang masih dimiliki, ataupun kelebihan account jika telah melewati.

Setelah user selesai menyewa komputer, maka akan muncul tampilan berikut.

Dari sini, pemilik maupun user mengetahui berapa lama masa sewa yang dipakai dan berapa biaya yang harus dibayar user. Dengan ini pemilik dan user sama-sama diuntungkan dan tidak ada yang dirugikan.

Form Database

Untuk membuat sistem administrasi yang teratur dan memudahkan monitoring keuangan, maka kita buat database sederhana. Database yang dibuat adalah untuk mencatat member dengan data password, username, account, pemasukan dan pengeluaran, serta pengaturan penetapan harga.

Tampilan di atas adalah database member yang tercatat.

Bagian di atas mencatat pengaturan harga per item yang ada, dan data usaha rental komputer yang dimiliki.

Tampilan di atas, menunjukkan transaksi yang dilakukan. Kita bisa mencatat bagi user yang melakukan lebih dari satu macam item transaksi. Kemudian total dari biaya yang harus dibayar akan diketahui, jika user membayar dengan uang lebih, maka akan langsung diketahui kembalian yang harus diterima.

Bagian ini untuk mencatat member yang akan dibuat. Isian-isian apa saja yang harus dimasukkan. Bisa juga untuk mengedit data yang telah ada.

Form Kalkulator


Selain fitur hitung transaksi lengkap, juga ada fitur kalkulator untuk menghitung transaksi yang hanya diikuti dengan transaksi cetak.

Dan satu fitur yang tidak kalah penting adalah, jika tiba-tiba komputer mati dan billing belum dimatikan, maka ketika komputer sudah normal, maka kita masih bisa mendapatkan data log yang tersimpan. Hal ini sangat penting, agar ketika hal ini terjadi, tidak terjadi kebingungan dalam perhitungan.

Untuk mempelajari lebih lengkap tentang billing rental komputer ini, silakan mempelajari source berikut.

Demikian, semoga berguna.

Download Source Billing Rental Komputer VB 6

Program Absensi Karyawan Dengan Visual Basic 6.0 dan Barcode


Cara mengatasi Error Database Program Absensi

Berikut adalah Screen Shot dari Program Absensi Karyawan dengan Visual Basic 6.0 dan Barcode:

1. Tampilan Awal Menu Utama

  • Menampilkan logo identitas instansi yang menggunakan program aplikasi

2. Tampilan Form Absensi dengan barcode

–  Menampilkan data absensi karyawan dengan lengkap barupa jam masuk, nama, tanggal, jabatan, dan status absensi.

  • Kartu pengenal yang dilengkapi dengan kode barcode dari ID discanning menggunakan barcode reader

  • Secara otomatis, data dari karyawan akan tampil

[baca selengkapnya di sini]

http://produk-inovatif.com/blog/2013/03/03/program-absensi-karyawan-dengan-visual-basic-6-0-dan-barcode/

Download Source Code Program Absensi Windows 7

Tutorial Video Penggunaan Program

%d blogger menyukai ini: