|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
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 文章: 4225 來自: Taipei,Taiwan
第 3 樓
|
|
回頂端 |
|
|
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 文章: 4225 來自: 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. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
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 文章: 451
第 8 樓
|
發表於: 星期日 十二月 09, 2018 9:53 am 文章主題: |
|
|
自刪
CPS0204 在 星期六 四月 22, 2023 7:05 pm 作了第 1 次修改 |
|
回頂端 |
|
|
ezpos
註冊時間: 2011-04-20 文章: 323
第 9 樓
|
|
回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24 文章: 451
第 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 文章: 451
第 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 文章: 4225 來自: Taipei,Taiwan
第 12 樓
|
發表於: 星期六 四月 22, 2023 11:48 pm 文章主題: |
|
|
線上產生BARCODE 是比較漂亮精細,
但這個服務什麼時候停掉都不知道,
所以現在都寧可用自己的函式產生BARCODE,
就10樓那個 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 13 樓
|
發表於: 星期日 四月 23, 2023 4:17 am 文章主題: |
|
|
syntech 寫到: |
但這個服務什麼時候停掉都不知道,
|
把服務架在自己家的伺服器,不就好了? |
|
回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24 文章: 451
第 14 樓
|
發表於: 星期日 四月 23, 2023 11:41 am 文章主題: |
|
|
syntech 寫到: | 線上產生BARCODE 是比較漂亮精細,
但這個服務什麼時候停掉都不知道,
所以現在都寧可用自己的函式產生BARCODE,
就10樓那個 |
兩個都收集起來用!一個若不行,還有一個備案
|
|
回頂端 |
|
|
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
********************************** |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|