[VB6/VB.NET] การสร้างรหัสบาร์โค้ด EAN13 และคำนวณหาตัวเลขตรวจสอบความถูกต้องของบาร์โค้ด

thongkorn

รหัสแท่งบาร์โค้ดแบบ 1 มิติ EAN-13 (European Article Numbering international retail product code) เป็นแบบบาร์โค้ดที่ได้รับการยอมรับมากที่สุดในโลก โดยบาร์โค้ดประเภทนี้จะมีลักษณะเฉพาะของชุดตัวเลขจำนวน 13 หลัก ซึ่งมีความหมายดังนี้ ...
3 หลักแรก คือ รหัสของประเทศที่กำหนดขึ้นมาเพื่อให้ผู้ผลิตได้ทำการลงทะเบียนได้ทำการผลิตจากประเทศไหน
4 หลักถัดมา คือ รหัสโรงงานที่ผลิต
5 หลักถัดมา คือ รหัสของสินค้า
และ ตัวเลขในหลักสุดท้าย (หลักที่ 13) จะเป็นตัวเลขตรวจสอบความถูกต้องของบาร์โค้ด (Check Digit) ...

วิธีการคำนวณหาหลักที่ 13 ...
(1) นำตัวเลขในตำแหน่งคู่ (หลักที่ 2, 4, 6, 8, 10, 12) มารวมกัน แล้วคูณด้วย 3
(2) นำตัวเลขในตำแหน่งคี่ (หลักที่ 1, 3, 5, 7, 9, 11) มารวมกัน
(3) นำผลลัพท์จากข้อ (1) และ (2) มารวมกัน
(4) นำผลลัพท์ที่ได้จากข้อ (3) ทำการหารเอาเศษ (Mod) ด้วย 10 จะได้เป็นตัวเลข (Check Digit)

Tips: การนำเลขจำนวนเต็มๆใดมาหารเอาเศษ จะทำให้ได้ค่าจาก 0 ไปจนถึง ค่า Mod - 1  

โค้ดตัวอย่างนี้ จะทำการสุ่มตัวเลขจาก 0 - 9 จำนวน 12 หลัก แล้วให้คำนวณหาหลักที่ 13 เพื่อทำการตรวจสอบความถูกต้อง

มาดูโค้ดของ VB6 กันเถอะ ...

1. ' / -----------------------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand only)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / MORE: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Generate Barcode EAN13.
   
10. ' / Microsoft Visual Basic 6.0 Service Pack 6
    
11. ' /
    
12. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / -----------------------------------------------------------------------------------------------
    
15. 
    
16. Option Explicit
    
17. 
    
18. Private Sub cmdGenEAN13_Click()
    
19.     Me.lvwEAN13.ListItems.Clear
    
20.     '// สร้างรหัสบาร์โค้ด EAN13
    
21.     Call GenerateEAN13
    
22.     '//
    
23. End Sub
    
24. 
    
25. Private Sub Form_Load()
    
26.     Call SetupListView
    
27. End Sub
    
28. 
    
29. Sub GenerateEAN13()
    
30.     Randomize
    
31.     '// สูตรการสุ่มตัวเลขจำนวนเต็ม
    
32.     ' Int ((upperbound - lowerbound + 1) * Rnd + lowerbound)
    
33.     Dim Digit As Byte, Count As Byte
    
34.     Dim TwelveDigit As String
    
35.     '// ตัวอย่าง 10 รายการ
    
36.     For Count = 0 To 9
    
37.         '// สุ่มตัวเลขจำนวน 12 หลักแรก
    
38.         For Digit = 0 To 11
    
39.             TwelveDigit = TwelveDigit & CStr(Int((9) * Rnd))
    
40.         Next
    
41.         Dim LV As ListItem
    
42.         ' Index = 0
    
43.         Set LV = Me.lvwEAN13.ListItems.Add(, , TwelveDigit)
    
44.         '// นำค่า 12 หลักแรก ไปคำนวณหาหลักทดสอบความถูกต้อง (หลักที่ 13)
    
45.         LV.SubItems(1) = CheckDigitEAN13(TwelveDigit)
    
46.         TwelveDigit = ""
    
47.     Next
    
48. End Sub
    
49. 
    
50. ' / -----------------------------------------------------------------------------------------------
    
51. ' / >> หลักการคิดคำนวณหา  <<
    
52. ' / 1) นำตัวเลขในตำแหน่งคู่ (หลักที่ 2, 4, 6, 8, 10,12) มารวมกัน แล้วคูณด้วย 3
    
53. ' / 2) นำตัวเลขในตำแหน่งคี่ (หลักที่ 1, 3, 5, 7, 9, 11) มารวมกัน
    
54. ' / 3) นำผลลัพท์จากข้อ 1 และ 2 มารวมกัน
    
55. ' / 4) นำผลลัพท์ที่ได้จากข้อ 3 ทำการหารเอาเศษ (Mod) ด้วย 10 จะได้เป็นตัวเลข (Check digit )
    
56. ' / >> Tips: การนำเลขจำนวนเต็มๆใดมาหารเอาเศษ จะทำให้ได้ค่าจาก 0 ไปจนถึง ค่า Mod - 1
    
57. ' / -----------------------------------------------------------------------------------------------
    
58. Private Function CheckDigitEAN13(TwelveDigit As String) As Byte
    
59. ' / -----------------------------------------------------------------------------------------------
    
60.     ' จำนวน 12 หลัก
    
61.     Dim Digit As Byte
    
62.     ' ผลรวมหลักคี่
    
63.     Dim SumOdd As Integer
    
64.     ' ผลรวมหลักคู่
    
65.     Dim SumEven As Integer
    
66.     ' (ผลรวมหลักคู่ * 3) + ผลรวมหลักคี่
    
67.     Dim BarValue As Integer
    
68.    
    
69.     For Digit = 1 To Len(TwelveDigit)
    
70.         ' หารเอาเศษด้วย 2 หากได้คำตอบ 0 แสดงว่าเป็นหลักคู่
    
71.         If Digit Mod 2 = 0 Then
    
72.             SumEven = SumEven + Val(Mid$(TwelveDigit, Digit, 1))
    
73.         Else
    
74.             SumOdd = SumOdd + Val(Mid$(TwelveDigit, Digit, 1))
    
75.         End If
    
76.     Next
    
77.    
    
78.     BarValue = (SumEven * 3) + SumOdd
    
79.    
    
80.     If BarValue Mod 10 = 0 Then
    
81.         CheckDigitEAN13 = 0
    
82.     Else
    
83.         CheckDigitEAN13 = 10 - BarValue Mod 10
    
84.     End If
    
85. End Function
    
86. 
    
87. ' Initial ListView
    
88. Sub SetupListView()
    
89.     With Me.lvwEAN13
    
90.         ' Coding with Run Time
    
91.         .View = lvwReport
    
92.         .Arrange = lvwNone
    
93.         .LabelEdit = lvwManual
    
94.         .BorderStyle = ccFixedSingle
    
95.         .Appearance = cc3D
    
96.         
    
97.         .HideColumnHeaders = False
    
98.         .HideSelection = False
    
99.         .LabelWrap = False
    
100.         .MultiSelect = False
     
101.         .Enabled = True
     
102.         .AllowColumnReorder = True
     
103.         .Checkboxes = False
     
104.         .FlatScrollBar = False
     
105.         .FullRowSelect = True
     
106.         .GridLines = True
     
107.         .HotTracking = False
     
108.         .HoverSelection = False
     
109.         
     
110.         .Sorted = False 'True
     
111.         .SortKey = 0
     
112.         .SortOrder = lvwAscending 'lvwDescending
     
113.         
     
114.         ' Add header
     
115.         .ColumnHeaders.Add , , "12 หลักแรก", .Width \ 2
     
116.         .ColumnHeaders.Add , , "หลักทดสอบ", .Width \ 2 - 480, lvwColumnLeft
     
117.     End With
     
118.    
     
119. End Sub

คัดลอกไปที่คลิปบอร์ด

มาดูโค้ดของ VB.NET กันเถอะ ...

1. ' / -------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
8. ' / MORE: http://www.g2gnet.com/webboard
   
9. ' /
   
10. ' / Purpose: Generate Barcode EAN13.
    
11. ' / Microsoft Visual Basic .NET (2010)
    
12. ' /
    
13. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
14. ' / You can modify and/or distribute without to inform the developer.
    
15. ' / -------------------------------------------------------------------
    
16. 
    
17. Public Class frmGenerateEAN13
    
18. 
    
19.     Private Sub frmGenerateEAN13_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
20.         Me.Dispose()
    
21.         End
    
22.     End Sub
    
23. 
    
24.     Private Sub frmGenerateEAN13_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
25.         Call InitListView()
    
26.     End Sub
    
27. 
    
28.     Private Sub btnGenEAN13_Click(sender As System.Object, e As System.EventArgs) Handles btnGenEAN13.Click
    
29.         lvwEAN13.Items.Clear()
    
30.         '//
    
31.         Call GenerateEAN13()
    
32.     End Sub
    
33. 
    
34.     Sub GenerateEAN13()
    
35.         Dim LV As ListViewItem
    
36.         Randomize()
    
37.         '// สูตรการสุ่มตัวเลขจำนวนเต็ม
    
38.         ' Int ((upperbound - lowerbound + 1) * Rnd + lowerbound)
    
39.         Dim Digit As Byte, Count As Byte
    
40.         Dim TwelveDigit As String = String.Empty
    
41.         '// ตัวอย่าง 10 รายการ
    
42.         For Count = 0 To 9
    
43.             '// สุ่มตัวเลขจำนวน 12 หลักแรก
    
44.             For Digit = 0 To 11
    
45.                 TwelveDigit = TwelveDigit & CStr(Int((9) * Rnd()))
    
46.             Next
    
47.             ' Index = 0
    
48.             LV = lvwEAN13.Items.Add(String.Format("{0}", TwelveDigit))  ' Primary Node
    
49.             '// นำค่า 12 หลักแรก ไปคำนวณหาหลักทดสอบความถูกต้อง (หลักที่ 13)
    
50.             LV.SubItems.Add(CheckDigitEAN13(TwelveDigit))
    
51.             TwelveDigit = ""
    
52.         Next
    
53.     End Sub
    
54. 
    
55.     ' / -----------------------------------------------------------------------------------------------
    
56.     ' / >> หลักการคิดคำนวณหา  <<
    
57.     ' / 1) นำตัวเลขในตำแหน่งคู่ (หลักที่ 2, 4, 6, 8, 10,12) มารวมกัน แล้วคูณด้วย 3
    
58.     ' / 2) นำตัวเลขในตำแหน่งคี่ (หลักที่ 1, 3, 5, 7, 9, 11) มารวมกัน
    
59.     ' / 3) นำผลลัพท์จากข้อ 1 และ 2 มารวมกัน
    
60.     ' / 4) นำผลลัพท์ที่ได้จากข้อ 3 ทำการหารเอาเศษ (Mod) ด้วย 10 จะได้เป็นตัวเลข (Check digit )
    
61.     ' / >> Tips: การนำเลขจำนวนเต็มๆใดมาหารเอาเศษ จะทำให้ได้ค่าจาก 0 ไปจนถึง ค่า Mod - 1
    
62.     ' / -----------------------------------------------------------------------------------------------
    
63.     Private Function CheckDigitEAN13(TwelveDigit As String) As Byte
    
64.         ' / -----------------------------------------------------------------------------------------------
    
65.         ' จำนวน 12 หลัก
    
66.         Dim Digit As Byte
    
67.         ' ผลรวมหลักคี่
    
68.         Dim SumOdd As Integer
    
69.         ' ผลรวมหลักคู่
    
70.         Dim SumEven As Integer
    
71.         ' (ผลรวมหลักคู่ * 3) + ผลรวมหลักคี่
    
72.         Dim BarValue As Integer
    
73. 
    
74.         For Digit = 1 To Len(TwelveDigit)
    
75.             ' หารเอาเศษด้วย 2 หากได้คำตอบ 0 แสดงว่าเป็นหลักคู่
    
76.             If Digit Mod 2 = 0 Then
    
77.                 SumEven = SumEven + Val(Mid$(TwelveDigit, Digit, 1))
    
78.             Else
    
79.                 SumOdd = SumOdd + Val(Mid$(TwelveDigit, Digit, 1))
    
80.             End If
    
81.         Next
    
82. 
    
83.         BarValue = (SumEven * 3) + SumOdd
    
84. 
    
85.         If BarValue Mod 10 = 0 Then
    
86.             CheckDigitEAN13 = 0
    
87.         Else
    
88.             CheckDigitEAN13 = 10 - BarValue Mod 10
    
89.         End If
    
90.     End Function
    
91. 
    
92.     ' / Initailize ListView Control
    
93.     Sub InitListView()
    
94.         With lvwEAN13
    
95.             .Clear()
    
96.             .View = View.Details
    
97.             .GridLines = True
    
98.             .FullRowSelect = True
    
99.             .HideSelection = False
    
100.             .MultiSelect = False
     
101.             ' 1st Column Index = 0
     
102.             .Columns.Add("12 หลักแรก", lvwEAN13.Width \ 2)
     
103.             .Columns.Add("หลักทดสอบ", lvwEAN13.Width \ 2 - 20)
     
104.         End With
     
105.     End Sub
     
106. 
     
107. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับทั้ง VB6 และ VB.NET (2010) ได้ที่นี่ ...

prawpun

ขอบคุณคะ