DOBON.NETプログラミング道掲示板

No34243 の記事


■34243 / )  Code128でバーコードが読み取れない
□投稿者/ ぴょん 一般人(8回)-(2019/04/30(Tue) 12:59:08)
  • アイコン環境/言語:[VB.NET] 
    分類:[.NET] 

    2019/04/30(Tue) 14:07:30 編集(投稿者)
    2019/04/30(Tue) 14:06:30 編集(投稿者)
    2019/04/30(Tue) 14:05:47 編集(投稿者)
    2019/04/30(Tue) 14:05:30 編集(投稿者)
    
    Zxing.NetのCode128でバーコードを作成し、
    ハンディターミナルで読み取りをしています。
    4桁や15桁のバーコードはすぐに値を検知するのですが、
    40桁のバーコードはなかなか検知してくれません。
    以下、ソースを書きました。
    何か問題点があれば、ご教示願います。
    
    
    --------------------------------------------------------------------------
    Dim img As New Bitmap(2200, 1000, Imaging.PixelFormat.Format24bppRgb)
    
    Using g = Graphics.FromImage(img)
    
      Dim writer As New ZXing.BarcodeWriter
    
      'バーコードの種類
      writer.Format = ZXing.BarcodeFormat.CODE_128
    
      'マージン
      writer.Options.Margin = 1
    
      '文字コード
      writer.Options.Hints(ZXing.EncodeHintType.CHARACTER_SET) = "Shift_JIS"
        
      writer.Options.PureBarcode = blnPureBarcode
    
      'エラー訂正レベル
      writer.Options.Hints(ZXing.EncodeHintType.ERROR_CORRECTION) =
                                  ZXing.QrCode.Internal.ErrorCorrectionLevel.L
    
      '作成
      dim btmp as Bitmap = 
                  writer.Write("1234567890ABCDEFGHIJ1234567890ABCDEFGHIJ")
    
      g.DrawImage(btmp, 1080, 560, 310, 110)
    End Using
    --------------------------------------------------------------------------
    
    
    又、作成したバーコードも添付します。
    幅を広げれば少しは読み取れるようになるのですが、
    幅は変えずにバーコードの太さを変える方法等あれば。
    

415×59 => 250×35
イメージ
1556596748.png
/3KB
違反を報告
返信 削除キー/


Mode/  Pass/


- Child Tree -