+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Code 128 barkod okuyucu barkodu okumuyor (/konu-code-128-barkod-okuyucu-barkodu-okumuyor.html)
Code 128 barkod okuyucu barkodu okumuyor - mengene2 - 23/06/2014
Merhaba Arkadaşlar,
Aşağıdaki modülü kullanıyorum ve Code 128 ile barkodlarım çalışıyor. Aşağıdaki atölye Id lerine göre barkodları oluşturuyorum fakat barkod okuyucu barkodları okumuyor. Bunun sebebi ne olabilir acaba,
AtölyeID
1 Kalıphane
2 Kaplama
3........
barkodu AtolyeID ye tanımlıyorum bir türlü barkod okuyucu okumuyor. Denetim kaynağını barkod için aşağdaki gibi yapıyorum olmuyor.
=Barkodu([AtolyeID])
Yardımcı olursanız sevinirim.
Option Compare Database
Option Explicit
Public Function BarKodu(Cevir)
Dim Sayac, TopKont, minSayac, Hafiza, Plaka As Boolean
BarKodu = ""
If Len(Cevir) > 0 Then
For Sayac = 1 To Len(Cevir)
Select Case Asc(Mid(Cevir, Sayac, 1))
Case 32 To 126, 203
Case Else
Sayac = 0
Exit For
End Select
Next
BarKodu = ""
Plaka = True
If Sayac > 0 Then
Sayac = 1
Do While Sayac <= Len(Cevir)
If Plaka Then
minSayac = IIf(Sayac = 1 Or Sayac + 3 = Len(Cevir), 4, 6)
GoSub testnum
If minSayac < 0 Then
If Sayac = 1 Then
BarKodu = Chr$(210)
Else
BarKodu = BarKodu & Chr$(204)
End If
Plaka = False
Else
If Sayac = 1 Then BarKodu = Chr$(209)
End If
End If
If Not Plaka Then
minSayac = 2
GoSub testnum
If minSayac < 0 Then
Hafiza = Val(Mid(Cevir, Sayac, 2))
Hafiza = IIf(Hafiza < 95, Hafiza + 32, Hafiza + 105)
BarKodu = BarKodu & Chr$(Hafiza)
Sayac = Sayac + 2
Else
BarKodu = BarKodu & Chr$(205)
Plaka = True
End If
End If
If Plaka Then
BarKodu = BarKodu & Mid(Cevir, Sayac, 1)
Sayac = Sayac + 1
End If
Loop
For Sayac = 1 To Len(BarKodu)
Hafiza = Asc(Mid(BarKodu, Sayac, 1))
Hafiza = IIf(Hafiza < 127, Hafiza - 32, Hafiza - 105)
If Sayac = 1 Then TopKont = Hafiza
TopKont = (TopKont + (Sayac - 1) * Hafiza) Mod 103
Next
TopKont = IIf(TopKont < 95, TopKont + 32, TopKont + 105)
BarKodu = BarKodu & Chr$(TopKont) & Chr$(211)
End If
End If
Exit Function
testnum:
minSayac = minSayac - 1
If Sayac + minSayac <= Len(Cevir) Then
Do While minSayac >= 0
If Asc(Mid(Cevir, Sayac + minSayac, 1)) < 48 Or Asc(Mid(Cevir, Sayac + minSayac, 1)) > 57 Then Exit Do
minSayac = minSayac - 1
Loop
End If
Return
End Function
Cvp: Code 128 barkod okuyucu barkodu okumuyor - edacan19 - 25/06/2014
Merhaba
çalışma örneğinizi eklerseniz daha anlaşılır olacak
Cvp: Code 128 barkod okuyucu barkodu okumuyor - husem - 26/06/2014
sn mengene2
başka bir barkod fontu kullanmak istersen eğer şunu dene
3 of 9 barcode
fontunu kur.
barkodu nerede oluşturacaksan
"*" & AtolyeID &"*"
bunu yaz yazı fontunu 3 of 9 barcode seç
3 hane ve üzeri 100 ve üzerini okur.
fonksiyona gerek yok.
kolay gelsin.
Cvp: Code 128 barkod okuyucu barkodu okumuyor - edacan19 - 26/06/2014
merhaba
"*" & AtolyeID &"*" nereye yazacağız
Cvp: Code 128 barkod okuyucu barkodu okumuyor - husem - 26/06/2014
senin barkodun AtolyeID
değilmi,
barkodu okuturken barkod okuyucuyu nereye tutuyorsan
barkod fontunu oraya yaz.
"*" & AtolyeID &"*"
AtolyeID otomatikmen barkod olacak.
Cvp: Code 128 barkod okuyucu barkodu okumuyor - husem - 27/06/2014
sn mengene2,
önerdiğim çözüm sorununu çözdümü?
iyi çalışmalar,