VFP 愛用者社區

[aforangel]

如果想用code128來代替一真用開的code 39...請問要注意什麼, 頭尾碼還要"*"嗎?

[aforangel]

請問有高手可以提供, code 128 B碼開始 的正確 start code 及 end code 嗎? 我已爬很多文, 網上找很多文章, 結果這兩個code 都出現很多版本, 而且, 當這些barcode印出來之後, 有時這個讀條碼機讀到, 另一款又讀不到, 有時又兩款都讀不到...........

[syntech]

用 ON-LINE 產生器比對看看.

http://www.racoindustries.com/barcodegenerator/1d/code-128.aspx
Code 128 Character Set 可以調整成 "B"

[aforangel]

大大, 我試了, 但是我也不會知道start code 及end code 的, 我要在 我的DATA前後加上 start code, end code , 及驗證碼, 再匯出至word 檔列印出來, 我不知道我錯在那裡, 就總是不能所有SCANNER都讀到

[aforangel]

還是我下現在用的 code128 有差, 這個字型是有很多種的嗎?

[syntech]

該不會你的問題與這個一樣:

https://www.dotblogs.com.tw/bbscsj/archive/2010/06/28/16225.aspx

字型檔不含起始碼及終止碼,
所以他用"造字"補齊


google 得知, epson barcode 字型,
只要填資料本身就好,起始碼,終止碼,及檢查碼會自己產生.
就去找看看

[aforangel]

下載了多款barcode 128的字型試用, 沒人款能在excel內正確顯示start code及end code 的code 128條碼出來, 都是空格一個, 有人有已預載這兩個code的 barcode 128可供使用嗎, 謝謝

[CPS0204]

自刪

[ezpos]

1.128碼要正確使用
2.字型要稍微拉大點

0.我不會用字型去印.我會買台條碼標籤機印條碼

[CPS0204]

github有現成的vfp form 可用!(不知道是否有侵權)
下載zip後
copy 至你的專案,可執行form,內有各種的條碼生成128碼也有
可以生成bmp檔,jpg檔,然後你自行可改此form變成你要的欄位及圖檔

剛試過可被你的vfp9呼叫,可用,可修改,可轉存圖檔,可印,
解決討厭的128碼問題! 印出的條碼可以被scanner正確讀碼!


https://github.com/VFPX/FoxBarCodeQR

[CPS0204]

快速呼叫web生成128條碼,然後下載至c:\temp
自動生成 GIF檔

* data="ABC-abc-1234test_BOOK"
W5=[https://barcode.tec-it.com/barcode.ashx?data=ABC-abc-1234test_BOOK&code=Code128&dpi=96&dataseparator=&download=true]
IF !DIRECTORY('C:\TEMP')
MKDIR C:\TEMP
ENDIF
TOFILE='C:\TEMp\CODE128A.GIF'
SET LIBRARY TO VFPConnection.FLL
GIF_FILE=HTTPSToStr(W5)
AA=STRTOFILE(GIF_FILE,TOFILE)
由於回傳值是先存在變數中,所以圖大小不可大於16MB
一般的條碼,應該不會那麼大

[syntech]

線上產生BARCODE 是比較漂亮精細,
但這個服務什麼時候停掉都不知道,
所以現在都寧可用自己的函式產生BARCODE,
就10樓那個

[ckp6250]

[CPS0204]

[easywin3]

128条码 https://fonts.google.com/specimen/Libre+Barcode+128

应用呼叫: Barcode128( "RV (#35002)-001" )

***************************************************************************
Function BarCode128(SourceString)
Counter=0
CheckSum=''
miniX=0
dummy=0
UseTableB=.F.
Code128_Barcode=''
Code128=''

If Len(SourceString) > 0 Then
For Counter = 1 To Len(SourceString)
nC=Asc(Substr(SourceString, Counter, 1))
IF (nC>=32 AND nC<=126) OR nC=203
ELSE
** "Invalid character"
Code128 = ''
exit
endif
Next

Code128_Barcode = ""
UseTableB = .T.
Counter = 1
Do While Counter <= Len(SourceString)
If UseTableB
miniX = IIf(Counter = 1 Or Counter + 3 = Len(SourceString), 4, 6)
testnum(SourceString)
If miniX < 0
If Counter = 1
Code128_Barcode = Chr(205)
Else
Code128_Barcode = Code128_Barcode + Chr(199)
EndIf
UseTableB = .F.
Else
If Counter = 1
Code128_Barcode = Chr(204)
EndIf
endif
EndIf
If Not UseTableB
miniX = 2
testnum(SourceString)
If miniX < 0 Then
dummyX = Val(Substr(SourceString, Counter, 2))
dummyX = IIf(dummyX < 95, dummyX + 32, dummyX + 100)
Code128_Barcode = Code128_Barcode + Chr(dummyX)
Counter = Counter + 2
Else
Code128_Barcode = Code128_Barcode + Chr(200)
UseTableB = .T.
EndIf
EndIf
If UseTableB
Code128_Barcode = Code128_Barcode + Substr(SourceString, Counter, 1)
Counter = Counter + 1
EndIf
enddo

For Counter = 1 To Len(Code128_Barcode)
dummyX = Asc(Substr(Code128_Barcode, Counter, 1))
dummyX = IIf(dummyX < 127, dummyX - 32, dummyX - 100)
If Counter = 1
CheckSumX = dummyX
endif
CheckSumX = mod( (CheckSumX + (Counter - 1) * dummyX), 103)
Next
CheckSumX = IIf(CheckSumX < 95, CheckSumX + 32, CheckSumX + 100)
Code128_Barcode = Code128_Barcode + Chr(CheckSumX) + Chr(206)
EndIf
Code128 = Code128_Barcode

return Code128


function testnum(SourceString)
miniX = miniX - 1
If Counter + miniX <= Len(SourceString)
Do While miniX >= 0
If Asc(Substr(SourceString, Counter + miniX, 1)) < 48 Or Asc(Substr(SourceString, Counter + miniX, 1)) > 57
exit
endif
miniX = miniX - 1
enddo
EndIf
return
**********************************