Barcode 39 Generator ActiveX

Terinspirasi teman saya Pak Jejen Awaludin, Guru TI di SMK Ma'arif 1 Sumedang dan SMK Informatika untuk membuat aplikasi Absensi siswa dengan menggunakan system Barcode, sehingga diperlukan Barcode generator. Untuk ini saya sengaja membuat Active X nya, maksudnya suapaya hasil kerja saya ini bisa dimanfaatkan oleh orang lain tanpa harus repot-repot mengetahui bahasa codenya. Tinggal tempel dan pakai, nggak usah pusing-pusing lagi. Yang akan saya jelaskan disini hanyalah cara menggunakan ActiveX barcode tersebut Barcode yang saya gunakan adalah type Barcode 39.Bila saudara-saudara memerlukan active X Barcode silahkan Download DISINI (Dan Alangkah lebih baik kalau meminta ijin bila akan menggunakan ActiveX ini) Namanya Barcode.ocx dengan ukuran file sekitar 40 KB. Pada Aplikasi ini kita sama sekali tidak memerlukan font khusus barcode, sebab seperti kita ketahui, font barcode tersebut tidaklah gratis

Copykan filetersebut ke kemudian instal menggunakan fasilitas Run dengan perintah sperti gambar dibawah ini

[caption id="attachment_110122" align="aligncenter" width="349" caption="Klik OK"][/caption] [caption id="attachment_110125" align="aligncenter" width="400" caption="Bila berhasil akan muncul kotak pesan seperti ini"][/caption] sekarang kita buka VB6 dan kita periksa kumpulan ActiveX yang terinstal [caption id="attachment_110128" align="aligncenter" width="461" caption="ActiveX Barcode sudah terdaftar di VB6"][/caption] [caption id="attachment_110129" align="aligncenter" width="109" caption="Icon ActiveX Barcode seperti ditunjukan oleh anak panah"][/caption]

Untuk memahami cara kerja ActiveX Barcode ini, tempelkan Sebuah Barcode, sebuah Picture, dan dua buah Command , Caption Command1 ganti dengan Generate, sedang Caption Command2 ganti dengan Copy ke ClipBoard susunan ke-4 kontrol kira-kira seperti berikut

tuliskan Kode pada Command1 dan Command 2 seperti Berikut

Private Sub Command1_Click() Picture1.Picture = BC1.Hasil End Sub

Private Sub Command2_Click() Clipboard.Clear Clipboard.SetData Picture1.Image End Sub

kitu Runing, dan ketikan no induk siswa pada kotak BC1, kemudian klik tombol  Generate

Klik Tombol Copy Ke Clipboard, kemudian buka pict kartu pelajar dengan Adobe Photo Shop

[caption id="attachment_110143" align="aligncenter" width="467" caption="http://images.google.co.id/imglanding?q=kartu%20pelajar&imgurl=http://nommensenschool.files.wordpress.com/2009/03/card-siswa-leo-rahmat.jpg&imgrefurl=http://nommensenschool.wordpress.com/2009/03/08/kartu-pelajar-yang-baru-sma-nommensen-jambi/&usg=__xuOi4g-btkdvf-NzFuQLp3Swyys=&h=433&w=748&sz=299&hl=id&itbs=1&tbnid=p5dZDlLmbhfDaM:&tbnh=82&tbnw=141&prev=/images%3Fq%3Dkartu%2Bpelajar%26hl%3Did%26gbv%3D2%26tbs%3Disch:1&gbv=2&tbs=isch:1&start=0#tbnid=gEpRXDVMQO-ltM&start=3"][/caption]

Klik Menu Edit kemudian  klik Paste, hasilnya seperti berikut

Selain ke Photo Shop bisa juga di Paste Ke MS Word atau Excell contoh

ada dua pengaturan ActiveX Barcode ini

Yaitu Label dan optimalisasi

bila label diberi nilai 1 artinya angka atau tulisan akan muncul dibawah barcode, sedangkan bila diberi nilai 0 anga atau tulisan tidak akan muncul. untuk optimalisasi perbedaannya sebagai berikut

[caption id="attachment_110150" align="aligncenter" width="299" caption="Optimalisasi = 1"][/caption] [caption id="attachment_110151" align="aligncenter" width="227" caption="Optimalisasi = 0"][/caption]

SEMOGA BERMANFAAT