• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Demo tạo Barcode (1D) bằng thư viện Zxing (không cần internet)

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư Viện Ứng Dụng
  • [Chương trình] Demo tạo Barcode (1D) bằng thư viện Zxing (không cần internet)
• Demo tạo Barcode (1D) bằng thư viện Zxing (không cần internet)

• Demo tạo Barcode (1D) bằng thư viện Zxing (không cần internet)

  ongke0711 > 11-05-24, 11:12 PM

  Tiếp theo phần 1 là bài Tạo QR code từ thư viện Zxing (Link), tôi làm demo phần 2 là tạo Barcode (1D) cũng từ thư viện trên.
  - Thư viện Zxing này có thể tạo nhiều dạng Barcode như: EAN 13, Code 128, Code 39...
  
  
  
  - Chỉ cần cài đặt thư viện Zxing một lần trên máy tính và chạy code tạo mã, không cần kết nối internet để tạo mã từ các chương trình hỗ trợ online.
  - Cài đặt thư viện đơn giản và tự động bằng cách: 
      + Vào folder ZXing.Net.0.16.9.0
      + Chạy file [register_sysFolder.cmd] với quyền Administrator. Xong.
  
  
  
  Kết quả:
  
  
  
  
  
  
  Link demo: https://www.mediafire.com/file/0wh2uc1r3...l.zip/file
  
  

• RE: Demo tạo Barcode (1D) bằng thư viện Zxing (không cần internet)

  Noname > 13-05-24, 11:02 AM

  Mình nhớ Barcode chỉ là 1 font chữ thôi, nên bạn có thể tìm font barcode, sử dụng như font chữ bình thường là được. Hồi xưa mình đăng ký mã barcode cho sản phẩm công ty không dùng thư viện nào cả

• RE: Demo tạo Barcode (1D) bằng thư viện Zxing (không cần internet)

  ongke0711 > 13-05-24, 10:33 PM

  (13-05-24, 11:02 AM)Noname Đã viết: Mình nhớ Barcode chỉ là 1 font chữ thôi, nên bạn có thể tìm font barcode, sử dụng như font chữ bình thường là được. Hồi xưa mình đăng ký mã barcode cho sản phẩm công ty không dùng thư viện nào cả

  
  Đúng như bác nói là có nhiều loại Font barcode như: IDAutomationHC39M, Code39, Libre code 39...nhưng nếu dùng bản Free thì cũng đã có nhiều trường hợp  gặp lỗi máy quét không đọc được hoặc in ấn có vấn đề như một số bài viết trước đây đã đề cập.
  https://thuthuataccess.com/forum/thread-270.html
  https://thuthuataccess.com/forum/post-53...l#pid53059
  
  Các font barcode miễn phí sẽ giới hạn chỉ tạo ra với một kích thước cố định, khi cần loại nhỏ hơn hoặc lớn hơn thì gặp trục trặc với máy quét v.v..
  Tôi cũng đã test qua, barcode tạo bằng thư viện Zxing thì máy quét đọc nhanh và không bị lỗi so với dùng Font. Dùng thư viện thì có thể tạo ra file ảnh của barcode lưu riêng.
  Dùng Font barcode có lợi thế là không tốn code gì cho nó. Về cài đặt thì dùng thư viện cũng thao tác bằng như cài Font.

• RE: Demo tạo Barcode (1D) bằng thư viện Zxing (không cần internet)

  tranthanhan1962 > 11-09-24, 11:45 PM

  Tôi cũng nhức đầu về cái vụ barcode này. Cũng bực bội module, rồi hình ảnh này nọ nhát là cái vụ hình ảnh phải thư viện DLL, lưu ảnh v.v... Tôi có copy cái mod tạo barcode 128 của đ/c ongke0711 về sử dụng nhưng cái này tôi cũng thấy chưa đã lắm vì phải gọi lệnh tạo code.  Tôi biết được rằng Barcode 39 chẳng qua là đoạn text với cặp ký tự khóa đầu đuôi là "*". Vì thế tôi nghĩ rằng những barcode khác cũng vậy chẳng qua không biết nguyên lý của nó mà thôi. Thực ra QR code mới phức tạp chứ barcode thì sao phải làm cho nó phức tạp gây phiền phức. Qua tìm hiểu tôi biết được công thức của  Barcode 39 = "*" & barcodeText  & "*", còn  Barcode 128 = Chr(204) & barcodeText & Chr(206). Nếu tạo hình ảnh Barcode thì sẽ sắc sảo, độ nét cao hơn còn  barcode Text thì độ sắc sảo và độ nét không bằng. nhưng hiện nay máy in và máy quét mã vạch rẻ bèo nên tôi cứ  Chr(204) & barcodeText & Chr(206) không sợ lỗi. Cú pháp function đơn giản:
  code 39
  Public Function GenerateBarcode(barcodeText As String) As String
      ' Them ky tu dac biet de dinh dang cho font Code 39
      Dim formattedBarcode As String
      formattedBarcode = "*" & barcodeText & "*"
     
      ' Tra ve chuoi ma vach da dinh dang
      GenerateBarcode = formattedBarcode
  End Function
  code 128
  Public Function GenerateBarcode(barcodeText As String) As String
      ' Them ky tu dac biet de dinh dang cho font Code 128
      Dim formattedBarcode As String
      formattedBarcode = Chr(204) & barcodeText & Chr(206)
     
      ' Tra ve chuoi ma vach da dinh dang
      GenerateBarcode = formattedBarcode
  End Function
  Nếu in ra không đọc được thì kiểm tra tại thằng nào quăng thằng đó mua máy khác về xài. Thực ra thằng em làm tiệm vàng 6 năm mới thay bộ mới mà cũng trung quốc chứ có xịn xò gì đâu. sẳn demo của bác ongke0711 mượn tạm làm demo nhưng mà mấy cái mod ở trên cũng dễ làm mà. Mình cũng định tìm nguyên lý cấu tạo của mấy thằng khác nhưng thấy 2 thằng 39 với 128 dư xài nên cũng lười
  Demo
• Bài trước Bài tiếp