Program Pembuat Simbol Barcode Dengan Visual Basic 6.0 Menggunakan Metode CODE 39

Program Pembuat Simbol Barcode Dengan Visual Basic 6.0 Menggunakan Metode CODE 39 | Gho Blog's - Barcode adalah sejenis kode yang mewakili data atau informasi tertentu. Kode berbentuk batangan balok dan berwarna hitam putih ini mengandung satu kumpulan kombinasi batang yang berlainan ukuran dan disusun sedemikian rupa.

Berikut ini beberapa manfaat yang dapat diambil dari penggunaan barcode, antara lain :

1. Akurasi
2. Kemudahan pemakaian
3. Keseregaman pengumpulan data
4. Feedback yang tepat waktu
5. Keamanan
6. Meningkatkan produktivitas
7. Meningkatkan profit

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Metode CODE 39

Code 39 merupakan salah satu simbologi 1 (satu) dimensi yang dapat mengkodekan karakter alphanumerik, yaitu angka desimal dan huruf kapital serta tambahan beberapa karakter tertentu seperti -, ., *, $, /, %, +. Satu karakter dalam Code 39 terdiri dari 9 elemen, yaitu 5 bar garis hitam dan 4 bar garis putih yang disusn bergantian antara bar dan spasi. Tiga dari sembilan elemen tersebut lebih tebal dari yang lain. Oleh karen itu kode ini biasa disebut juga Code 3 Of 9. Tiga elemen yang lebih tebal tersebut terdiri dari 2 bar dan 1 spasi. Elemen yang lebih lebar mewakili digit biner 1 dan elemen yang sempit mewakili digit biner 0.

Berikut ini salah satu contoh dari simbol barcode yang dibuat dengan metode Code 39 :

Pada posting ini, saya tidak membahas secara detail tentang teori dari pengkodean barcode dengan metode Code 39, sobat bisa mencari dan mempelajarinya sendiri dari sumber lain, karena saya hanya akan membahas tentang pemrogramannya menggunakan Visual Basic 6.0. Sebagai contoh, kita akan membuat program barcode untuk data barang, untuk itu silakan sobat ikuti langkah-langkah berikut ini :

• Buat disain form seperti gambar berikut :

• Isi sattingan Filter CommonDialog1 pada kotak properties dengan text berikut : Jpeg(*.jpg) | *.jpg

• Setelah itu buka bagian Coding dari form dan masukkan script berikut ini :

Option Explicit: Dim no As Double Private Sub DrawBarcode(ByVal bc_string As String, obj As Object) Dim n As Long, C As Long, i As Long Dim bc_pattern As String Dim xpos!, y1!, y2!, dw%, Th!, tw, new_string$ Dim bc(90) As String bc(1) = "1 1221" bc(2) = "1 1221" bc(48) = "11 221" bc(49) = "21 112" bc(50) = "12 112" bc(51) = "22 111" bc(52) = "11 212" bc(53) = "21 211" bc(54) = "12 211" bc(55) = "11 122" bc(56) = "21 121" bc(57) = "12 121" bc(65) = "211 12" bc(66) = "121 12" bc(67) = "221 11" bc(68) = "112 12" bc(69) = "212 11" bc(70) = "122 11" bc(71) = "111 22" bc(72) = "211 21" bc(73) = "121 21" bc(74) = "112 21" bc(75) = "2111 2" bc(76) = "1211 2" bc(77) = "2211 1" bc(78) = "1121 2" bc(79) = "2121 1" bc(80) = "1221 1" bc(81) = "1112 2" bc(82) = "2112 1" bc(83) = "1212 1" bc(84) = "1122 1" bc(85) = "2 1112" bc(86) = "1 2112" bc(87) = "2 2111" bc(88) = "1 1212" bc(89) = "2 1211" bc(90) = "1 2211" bc(32) = "1 2121" bc(35) = "" bc(36) = "1 1 1 11" bc(37) = "11 1 1 1" bc(43) = "1 11 1 1" bc(45) = "1 1122" bc(47) = "1 1 11 1" bc(46) = "2 1121" bc(64) = "" bc(42) = "1 1221" bc_string = UCase(bc_string) obj.ScaleMode = 3 obj.Cls obj.Picture = Nothing dw = CInt(obj.ScaleHeight / 40) If dw < 1 Then dw = 1 Debug.Print dw Th = obj.TextHeight(bc_string) tw = obj.TextWidth(bc_string) new_string = Chr$(1) & bc_string & Chr$(2) y1 = obj.ScaleTop y2 = obj.ScaleTop + obj.ScaleHeight - 1.5 * Th obj.Width = 1.1 * Len(new_string) * (15 * dw) * obj.Width / obj.ScaleWidth xpos = obj.ScaleLeft For n = 1 To Len(new_string) C = Asc(Mid$(new_string, n, 1)) If C > 90 Then C = 0 bc_pattern$ = bc(C) For i = 1 To Len(bc_pattern$) Select Case Mid$(bc_pattern$, i, 1) Case " " obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF xpos = xpos + dw Case "1" obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF xpos = xpos + dw obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &H0&, BF xpos = xpos + dw Case "2" obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF xpos = xpos + dw obj.Line (xpos, y1)-(xpos + 2 * dw, y2), &H0&, BF xpos = xpos + 2 * dw End Select Next Next obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF xpos = xpos + dw obj.Width = (xpos + dw) * obj.Width / obj.ScaleWidth xpos = obj.ScaleLeft For n = 1 To Len(new_string) C = Asc(Mid$(new_string, n, 1)) If C > 90 Then C = 0 bc_pattern$ = bc(C) For i = 1 To Len(bc_pattern$) Select Case Mid$(bc_pattern$, i, 1) Case " " obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF xpos = xpos + dw Case "1" obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF xpos = xpos + dw obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &H0&, BF xpos = xpos + dw Case "2" obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF xpos = xpos + dw obj.Line (xpos, y1)-(xpos + 2 * dw, y2), &H0&, BF xpos = xpos + 2 * dw End Select Next Next obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF xpos = xpos + dw obj.Width = (xpos + dw) * obj.Width / obj.ScaleWidth obj.CurrentX = (obj.ScaleWidth - tw) / 2 obj.CurrentY = y2 + 0.25 * Th obj.Print bc_string End Sub

• Kemudian double klik pada tombol "Buat" dan masukkan script berikut tepat diantara Private Sub Command1_Click() dengan End Sub :

If Text1.Text = "" Then MsgBox "Kode Barang Belum Dimasukkan", vbInformation, "Info" Else Picture1.AutoSize = True Picture1.AutoRedraw = True Picture1.ScaleMode = 3 DrawBarcode Text1.Text, Picture1 End If

• Setelah itu double klik pada tombol "Simpan" dan masukkan script berikut tepat diantara Private Sub Command2_Click() dengan End Sub :

Picture1.AutoSize = True CommonDialog1.ShowSave If Not CommonDialog1.CancelError And CommonDialog1.FileName <> "" Then SavePicture Picture1.Image, CommonDialog1.FileName

• Terakhir double klik pada tombol "Batal" dan masukkan script berikut tepat diantara Private Sub Command3_Click() dengan End Sub :

Text1.Text = "" Picture1.AutoSize = False Picture1.Cls

Bagaimana, tidak terlalu ribet bukan...?

Disini, sobat bisa mengembangkan program tersebut dengan membuat sebuah file barang dan program entri barang, kemudian ganti Text1 yang berada di form ini menggunakan ComboBox dan memanggil data (kode_barang) ke ComboBox tersebut. Setelah itu ganti semua script yang menggunakan Text1.Text dengan Combo1.Text dengan cara :

1. Tekan tombol CTRL+F pada keybord kemudian pilih Replace
2. Ketikkan pada kotak Find What : Text1.Text dan kotak Replace With : Combo1.Text
3. Kemudian klik tombol Replace All

Untuk lebih jelasnya, sobat bisa download contoh programnya disini :

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Atau :

Sekian dulu tutorian Visual Basic 6.0 yang berjudul Program Pembuat Simbol Barcode Dengan Visual Basic 6.0 Menggunakan Metode CODE 39. Semoga bermanfaat dan selamat mencoba.