Barcode merupakan teknologi enkripsi yang paling populer di kalangan industri. Biaya investasi dan kemudahan penerapan menjadi faktor utama dalam kepopuleran barcode. Barcode terdiri dari 3 jenis yaitu barcode 1 dimensi, 2 dimensi dan 3 dimensi. Saat ini kita akan belajar bagaimana mencetak barcode 1 dimensi tipe Code-39. Tipe ini merupakan tipe yang paling banyak digunakan.
Pertama, dalam mencetak barcode kita membutuhkan font barcode yang diinginkan. Kita dapat download font barcode secara gratis dari www.idautomation.com. Contoh kali ini kita download barcode tipe Code-39. Setelah didownload, kita tinggal membuat aplikasi pencetak untuk memudahkan dalam penggunaan font ini.
Buka Visual Basic 6 dan tambahkan 1 form lengkap dengan 1 Textbox, 2 CommandButton dan 1 Label. Textbox1 digunakan sebagai isian nomor barcode yang ingin diubah ke Code-39. Command1 sebagai button Ubah. Command2 sebagai button Cetak. Label1 sebagai hasil Code-39.
Doubel klik pada Command1 (Ubah) dan isikan kode program sebagai berikut:
Private Sub Command1_Click()
If Text1.Text = “” Then
MsgBox “Teks kosong, silakan diisi dahulu!”, vbCritical, “ERROR”
Else
Label1.Caption = “*” & Text1.Text & “*”
End If
End Sub
Statement IF digunakan untuk membatasi pencetakan yang kosong. Jadi ketika Textbox1 masih kosong dan pengguna menekan tombol Cetak maka akan muncul peringatan agar pengguna mengisikan nomor barcode dulu. Ini merupakan perintah untuk mengubah Label1 menjadi font Code-39. Tanda bintang “*” pada awal dan akhir teks digunakan sebagai tab start dan tab stop pembacaan barcode. Ini merupakan tanda batasan barcode scanner dalam membaca barcode.
Label1.Caption = “*” & Text1.Text & “*”
Coba isikan nomor pada Textbox1 dan klik Ubah, jika Label1 sudah menunjukkan nomor yang sama dengan Textbox1 maka kodeprogram sudah berhasil. Langkah berikutnya ubah properti font Label1 menjadi font IDAutomationHC39M. Setelah itu coba lagi, jika Label1 sudah berubah maka kita tinggal membuat form untuk mencetak hasil barcode.
Langkah terakhir, tambahkan Form baru dengan nama frmCetakBarcode lengkap dengan 1 Label. Ubah properti Form - BorderStyle menjadi 0 - None. Hal ini akan membuat form menjadi borderless tanpa batas. Ubah properti Form - BackColor menjadi warna Putih - &H00FFFFFF& dan properti Label1 menjadi font IDAutomationHC39M dengan ukuran 16pt dan BackStyle menjadi 0 - Transparent. Kembali lagi ke Form awal dan doubel klik Command2 (Cetak) dan isikan kode program berikut:
Private Sub Command2_Click()
frmCetakBarcode.Label1.Caption = Label1.Caption
frmCetakBarcode.Show 1
End Sub
Kembali lagi ke frmCetakBarcode, doubel klik Label1 dan isikan kode program berikut:
Private Sub Label1_Click()
Me.PrintForm
Unload Me
End Sub
Kode program ini akan mencetak frmCetakBarcode jika Label1 di-klik oleh pengguna dan setelah itu frmCetakBarcode akan tertutup dan kembali ke Form awal.
Selamat mencoba J.
Herindra Veriawan
http://veriawan.blog.uns.ac.id
Next article is How to Connect RFID (Radio Frequency Identification) with Visual Basic 6.
Herindra Veriawan