VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

barcode code128

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
aforangel



註冊時間: 2010-05-24
文章: 117


第 1 樓

發表發表於: 星期二 十一月 17, 2015 12:28 pm    文章主題: barcode code128 引言回覆

如果想用code128來代替一真用開的code 39...請問要注意什麼, 頭尾碼還要"*"嗎?
回頂端
檢視會員個人資料 發送私人訊息
aforangel



註冊時間: 2010-05-24
文章: 117


第 2 樓

發表發表於: 星期一 十一月 23, 2015 4:05 pm    文章主題: 引言回覆

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



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 3 樓

發表發表於: 星期一 十一月 23, 2015 4:33 pm    文章主題: 引言回覆

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

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

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
aforangel



註冊時間: 2010-05-24
文章: 117


第 4 樓

發表發表於: 星期一 十一月 23, 2015 4:53 pm    文章主題: 引言回覆

大大, 我試了, 但是我也不會知道start code 及end code 的, 我要在 我的DATA前後加上 start code, end code , 及驗證碼, 再匯出至word 檔列印出來, 我不知道我錯在那裡, 就總是不能所有SCANNER都讀到
回頂端
檢視會員個人資料 發送私人訊息
aforangel



註冊時間: 2010-05-24
文章: 117


第 5 樓

發表發表於: 星期一 十一月 23, 2015 4:54 pm    文章主題: 引言回覆

還是我下現在用的 code128 有差, 這個字型是有很多種的嗎?
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 6 樓

發表發表於: 星期一 十一月 23, 2015 5:13 pm    文章主題: 引言回覆

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

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

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


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

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
aforangel



註冊時間: 2010-05-24
文章: 117


第 7 樓

發表發表於: 星期二 十一月 24, 2015 12:27 pm    文章主題: 引言回覆

下載了多款barcode 128的字型試用, 沒人款能在excel內正確顯示start code及end code 的code 128條碼出來, 都是空格一個, 有人有已預載這兩個code的 barcode 128可供使用嗎, 謝謝
回頂端
檢視會員個人資料 發送私人訊息
CPS0204



註冊時間: 2014-08-24
文章: 441


第 8 樓

發表發表於: 星期日 十二月 09, 2018 9:53 am    文章主題: 引言回覆

自刪

CPS0204 在 星期六 四月 22, 2023 7:05 pm 作了第 1 次修改
回頂端
檢視會員個人資料 發送私人訊息
ezpos



註冊時間: 2011-04-20
文章: 323


第 9 樓

發表發表於: 星期六 十二月 22, 2018 8:57 am    文章主題: 引言回覆

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

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

_________________
ezPos收銀機 簡單好用低成本 http://www.ezpos.info
全新美觀的POS收銀機.POS軟硬體耗材.
軟體客制化.網站規劃....能賺錢的都可以找我

http://www.twelife.com 台灣生活網
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
CPS0204



註冊時間: 2014-08-24
文章: 441


第 10 樓

發表發表於: 星期四 一月 21, 2021 7:39 am    文章主題: 引言回覆

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

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


https://github.com/VFPX/FoxBarCodeQR
回頂端
檢視會員個人資料 發送私人訊息
CPS0204



註冊時間: 2014-08-24
文章: 441


第 11 樓

發表發表於: 星期六 四月 22, 2023 7:04 pm    文章主題: 引言回覆

快速呼叫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



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 12 樓

發表發表於: 星期六 四月 22, 2023 11:48 pm    文章主題: 引言回覆

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

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 13 樓

發表發表於: 星期日 四月 23, 2023 4:17 am    文章主題: 引言回覆

syntech 寫到:

但這個服務什麼時候停掉都不知道,


把服務架在自己家的伺服器,不就好了?
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
CPS0204



註冊時間: 2014-08-24
文章: 441


第 14 樓

發表發表於: 星期日 四月 23, 2023 11:41 am    文章主題: 引言回覆

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


兩個都收集起來用!一個若不行,還有一個備案

Very Happy Very Happy
回頂端
檢視會員個人資料 發送私人訊息
easywin3



註冊時間: 2010-10-19
文章: 13


第 15 樓

發表發表於: 星期二 八月 01, 2023 8:22 pm    文章主題: 引言回覆

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
**********************************
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作