1 Konuyu açan Birnefes

  • Birnefes
  • Üye
  • Offline
  • Kayıt Tarihi: 19.01.2007
  • İleti: 119

Konu: Barkod Problemi

Öncelikle Herkese Merhabalar
Ben Etiket Çıkarırken ID Automacion Code 39 Fontu Kullanıyorum ama bu fontun font boyutunu küçültünce 10-9-8 yapınca barkod okuyucuda problem yaşıyorum.Nasıl Bir Yol İzlemeliyim ?

2 Cevaplayan metin

  • metin
  • Moderatör
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,453

Re: Barkod Problemi

fontu fazla küçültmemelisin... smile

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

3 Cevaplayan Birnefes

  • Birnefes
  • Üye
  • Offline
  • Kayıt Tarihi: 19.01.2007
  • İleti: 119

Re: Barkod Problemi

Ama 9 punto yapmam lazım

4 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Re: Barkod Problemi

barkod okuyucular cizgileri saglıklı olarak okuyabilmeli cok kucuk olursa okuyamaz

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

5 Cevaplayan Birnefes

  • Birnefes
  • Üye
  • Offline
  • Kayıt Tarihi: 19.01.2007
  • İleti: 119

Re: Barkod Problemi

başka etiket programlarını inceledim boyutla ilgili bi problem yok
Fox Proda Etiket için Font kullanmadan bu işi çözebilirmiyiz yardımlarınız için şimdiden teşekkürler

6 Cevaplayan metin

  • metin
  • Moderatör
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,453

Re: Barkod Problemi

barkod yazıcı kullanırsan windows fontu kullanmada en iyi kalitede barkod basarsın. ama onda da fazla küçük yaparsan okumaz. ben birçok üründen çok küçük basılmış barkod gördüm ve bunların okunamadığını da gördüm...

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

7 Cevaplayan Birnefes

  • Birnefes
  • Üye
  • Offline
  • Kayıt Tarihi: 19.01.2007
  • İleti: 119

Re: Barkod Problemi

Arkadaşlar Elinde Ean-13 Barkod fontu Olan Var mı ?

8 Cevaplayan tarik

  • tarik
  • Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 180

Re: Barkod Problemi

bende var gönderebilirim

Yüzü dost,özü düşmandan usandım.
Dili mü'min kalbi şeytandan usandım.
Dostum, herkesin kahrı çekilir de ;
Ben DAVASIZ MÜSLÜMANDAN Usandım

9 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Re: Barkod Problemi

tarik yazdı:

bende var gönderebilirim


bana da gonderebilirsin Tarık

[email protected]

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

10 Cevaplayan aefe

  • aefe
  • Üye
  • Offline
  • Kayıt Tarihi: 19.10.2006
  • İleti: 9

Re: Barkod Problemi

Arkadaşlar,

12 haneli rakamı  ean kodlarına çeviren prg de benden..



Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

Parameters _bar

 

_bar=cevir(_bar)

Return _bar

 

 

Proc cevir

Param _gelen

Do Case

Case Substr(_gelen,1,1)="0"

    _gelen="#"+Substr(_gelen,2,11)

Case Substr(_gelen,1,1)="1"

    _gelen="$"+Substr(_gelen,2,11)

Case Substr(_gelen,1,1)="2"

    _gelen="%"+Substr(_gelen,2,11)

Case Substr(_gelen,1,1)="3"

    _gelen="&"+Substr(_gelen,2,11)

Case Substr(_gelen,1,1)="4"

    _gelen="'"+Substr(_gelen,2,11)

Case Substr(_gelen,1,1)="5"

    _gelen="("+Substr(_gelen,2,11)

Case Substr(_gelen,1,1)="6"

    _gelen=")"+Substr(_gelen,2,11)

Case Substr(_gelen,1,1)="7"

    _gelen="*"+Substr(_gelen,2,11)

Case Substr(_gelen,1,1)="8"

    _gelen="+"+Substr(_gelen,2,11)

Case Substr(_gelen,1,1)="9"

    _gelen=","+Substr(_gelen,2,11)

Endcase

 

_aa=""

For i=8 To 12

    _xx=cevir2(Substr(_gelen,i,1))

    _aa=_aa+_xx

Endfor

 

Dimension _b[7]

 

_xx=Substr(_gelen,1,1)

For i=3 To 7

    _b[i]=cevir3(_xx)

Endfor

 

_check=checkbul(_bar)

 

_gelen=Substr(_gelen,1,1)+"!"+Substr(_gelen,2,1)+_b[3]+_b[4]+_b[5]+_b[6]+_b[7]+"-"+_aa+_check+"!"

 

 

Return _gelen

 

 

 

Proc checkbul

Param c_bul

_x1=0

_x2=0

For i=1 To 12

    If Mod(i,2)=0

        _x1=_x1+Asc(Substr(c_bul,i,1))-48

    Else

        _x2=_x2+Asc(Substr(c_bul,i,1))-48

    Endif

Endfor

_x1=(3*_x1)+_x2

_x2=10-Mod(_x1,10)

If _x2=10

    _x2=0

Endif

_x2=_x2+48

c_bul=Chr(_x2)

c_bul=cevir2(c_bul)

Return c_bul

 

 

Proc cevir2

Param _ilkchr

Do Case

Case _ilkchr="0"

    _ilkchr="a"

Case _ilkchr="1"

    _ilkchr="b"

Case _ilkchr="2"

    _ilkchr="c"

Case _ilkchr="3"

    _ilkchr="d"

Case _ilkchr="4"

    _ilkchr="e"

Case _ilkchr="5"

    _ilkchr="f"

Case _ilkchr="6"

    _ilkchr="g"

Case _ilkchr="7"

    _ilkchr="h"

Case _ilkchr="8"

    _ilkchr="i"

Case _ilkchr="9"

    _ilkchr="j"

Endcase

Return _ilkchr

 

 

Proc cevir3

Param _ilkchr

Do Case

Case _ilkchr="#"

    _giden=Substr(_gelen,i,1)

Case _ilkchr="$"

    Do Case

    Case i=3

        _giden=Substr(_gelen,i,1)

    Case i=4

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=5

        _giden=Substr(_gelen,i,1)

    Case i=6

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=7

        _giden=cevir99(Substr(_gelen,i,1))

    Endcase

Case _ilkchr="%"

    Do Case

    Case i=3

        _giden=Substr(_gelen,i,1)

    Case i=4

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=5

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=6

        _giden=Substr(_gelen,i,1)

    Case i=7

        _giden=cevir99(Substr(_gelen,i,1))

    Endcase

Case _ilkchr="&"

    Do Case

    Case i=3

        _giden=Substr(_gelen,i,1)

    Case i=4

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=5

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=6

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=7

        _giden=Substr(_gelen,i,1)

    Endcase

Case _ilkchr="'"

    Do Case

    Case i=3

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=4

        _giden=Substr(_gelen,i,1)

    Case i=5

        _giden=Substr(_gelen,i,1)

    Case i=6

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=7

        _giden=cevir99(Substr(_gelen,i,1))

    Endcase

Case _ilkchr="("

    Do Case

    Case i=3

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=4

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=5

        _giden=Substr(_gelen,i,1)

    Case i=6

        _giden=Substr(_gelen,i,1)

    Case i=7

        _giden=cevir99(Substr(_gelen,i,1))

    Endcase

Case _ilkchr=")"

    Do Case

    Case i=3

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=4

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=5

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=6

        _giden=Substr(_gelen,i,1)

    Case i=7

        _giden=Substr(_gelen,i,1)

    Endcase

Case _ilkchr="*"

    Do Case

    Case i=3

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=4

        _giden=Substr(_gelen,i,1)

    Case i=5

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=6

        _giden=Substr(_gelen,i,1)

    Case i=7

        _giden=cevir99(Substr(_gelen,i,1))

    Endcase

Case _ilkchr="+"

    Do Case

    Case i=3

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=4

        _giden=Substr(_gelen,i,1)

    Case i=5

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=6

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=7

        _giden=Substr(_gelen,i,1)

    Endcase

Case _ilkchr=","

    Do Case

    Case i=3

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=4

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=5

        _giden=Substr(_gelen,i,1)

    Case i=6

        _giden=cevir99(Substr(_gelen,i,1))

    Case i=7

        _giden=Substr(_gelen,i,1)

    Endcase

Endcase

Return _giden

 

 

Proc cevir99

Param _gelenchr

Do Case

Case _gelenchr="0"

    _gelenchr="A"

Case _gelenchr="1"

    _gelenchr="B"

Case _gelenchr="2"

    _gelenchr="C"

Case _gelenchr="3"

    _gelenchr="D"

Case _gelenchr="4"

    _gelenchr="E"

Case _gelenchr="5"

    _gelenchr="F"

Case _gelenchr="6"

    _gelenchr="G"

Case _gelenchr="7"

    _gelenchr="H"

Case _gelenchr="8"

    _gelenchr="I"

Case _gelenchr="9"

    _gelenchr="J"

Endcase

Return _gelenchr

11 Cevaplayan Birnefes

  • Birnefes
  • Üye
  • Offline
  • Kayıt Tarihi: 19.01.2007
  • İleti: 119

Re: Barkod Problemi

mail adresim [email protected] buraya gönderirsen çok sevinirim

12 Cevaplayan metin

  • metin
  • Moderatör
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,453

Re: Barkod Problemi

aefe yazdı:

Arkadaşlar,

12 haneli rakamı  ean kodlarına çeviren prg de benden..
...


çok aşırı uzun ve içinde çok fazla case var. bu biraz daha kısa ve daha hızlı:

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

Lparameters barkod4

m.barkod4=Left(Alltrim(m.barkod4),12)

g1=0

g2=0

g3=0

g1=Val(Substr(m.barkod4,2,1))+Val(Substr(m.barkod4,4,1))+Val(Substr(m.barkod4,6,1));

    +Val(Substr(m.barkod4,8,1))+Val(Substr(m.barkod4,10,1))+Val(Substr(m.barkod4,12,1))

g2=Val(Left(m.barkod4,1))+Val(Substr(m.barkod4,3,1))+Val(Substr(m.barkod4,5,1));

    +Val(Substr(m.barkod4,7,1))+Val(Substr(m.barkod4,9,1))+Val(Substr(m.barkod4,11,1))

g3=10-Mod((g1*3+g2),10)

m.barkod4=m.barkod4+Right(Allt(Str(g3)),1)

m.barkod4=Substr(Allt(m.barkod4)+Space(20),1,20)

Return m.barkod4
Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

13 Cevaplayan metin

  • metin
  • Moderatör
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,453

Re: Barkod Problemi

tarik yazdı:

bende var gönderebilirim


denedin mi? çalışıyor mu? ben de ean13 kodlar buldum ama hiçbiri çalışmadı. eğer çalışan bir fontsa benim de işime yarar... [email protected]

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

14 Cevaplayan tarik

  • tarik
  • Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 180

Re: Barkod Problemi

internette buldum bende kullanıyorum bi problem yok yalnız 13.karakter olan check digit olmayacak yazdıracağınız barkodda.
yazdırırkende kullandığım kod bu,

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

lcbar1 = TRANSFORM(thisform.text2.value)

lcChaine = lcbar1

ean13 = ""

* Vérifier qu'il y a 12 caractères

IF LEN(lcChaine) = 12 THEN

    * Et que ce sont bien des chiffres

    FOR lni = 1 TO 12

        IF ASC(SUBSTR(lcChaine, lni, 1)) < 48 OR ASC(SUBSTR(lcChaine, lni, 1)) > 57 THEN

            lni = 0

            EXIT

        ENDIF

    ENDFOR

    IF lni = 13 THEN

        * Calcul de la clé de contrôle

        lnCheckSum = 0

        FOR lni = 2 TO 12 STEP 2

            lnCheckSum = lnCheckSum + VAL(SUBSTR(lcChaine, lni, 1))

        ENDFOR

        lnCheckSum = lnCheckSum * 3

        FOR lni = 1 TO 11 STEP 2

            lnCheckSum = lnCheckSum + VAL(SUBSTR(lcChaine, lni, 1))

        ENDFOR

        lnM = (VAL(SUBSTR(STR(lnCheckSum,3,0),1,2))+1)*10

        lnDigit = lnM-lnCheckSum

        lcChaine = ALLTRIM(lcChaine)+STR(lnDigit,1,0)

        * Le premier chiffre est pris tel quel.

        lcCodeBarre = SUBSTR(lcChaine, 1, 1)

        *

        lnFirst = VAL(SUBSTR(lcChaine, 1, 1))

        FOR ix_chiffre = 2 TO 7

            tableA = .F.

            DO CASE

                CASE ix_chiffre = 2

                    tableA = .T.

                CASE ix_chiffre = 3

                    IF lnFirst >=  0 AND lnFirst <= 3

                        tableA = .T.

                    ENDIF

                CASE ix_chiffre = 4

                    IF lnFirst =  0 OR lnFirst = 4 OR lnFirst =  7 OR lnFirst =  8

                        tableA = .T.

                    ENDIF

                CASE ix_chiffre = 5

                    IF lnFirst = 0 OR lnFirst =  1 OR lnFirst =  4 OR lnFirst =  5 OR lnFirst =  9

                        tableA = .T.

                    ENDIF

                CASE ix_chiffre = 6

                    IF lnFirst = 0 OR lnFirst =  2 OR lnFirst =  5 OR lnFirst =  6 OR lnFirst =  7

                        tableA  = .T.

                    ENDIF

                CASE ix_chiffre = 7

                    IF lnFirst = 0 OR lnFirst =  3 OR lnFirst =  6 OR lnFirst =  8 OR lnFirst =  9

                        tableA = .T.

                    ENDIF

            ENDCASE

            IF tableA THEN

                lcCodeBarre = lcCodeBarre+CHR(65 + VAL(SUBSTR(lcChaine, ix_chiffre, 1)))

            ELSE

                lcCodeBarre = lcCodeBarre+CHR(75 + VAL(SUBSTR(lcChaine, ix_chiffre, 1)))

            ENDIF

        ENDFOR

        *

        lcCodeBarre = lcCodeBarre+"*"   && Ajout séparateur central

        FOR lni = 8 TO 13

            lcCodeBarre = lcCodeBarre+CHR(97 + VAL(SUBSTR(lcChaine, lni, 1)))

        ENDFOR

        lcCodeBarre = lcCodeBarre+"+"   && Ajout de la marque de fin

        ean13 = lcCodeBarre

    ENDIF

ENDIF

w_ean13 = ean13

 

lcbar = ean13

LABEL FORM "c:\etiket\barkod2" TO PRINTER PROMPT preview
Yüzü dost,özü düşmandan usandım.
Dili mü'min kalbi şeytandan usandım.
Dostum, herkesin kahrı çekilir de ;
Ben DAVASIZ MÜSLÜMANDAN Usandım

15 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Re: Barkod Problemi

bu font code39 olarak ekrana goruntu verdi direkt olarak word yada excel de denedim ,

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

16 Cevaplayan tarik

  • tarik
  • Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 180

Re: Barkod Problemi

excel deki kullanımı daha farklıydı ,bunu bulduğum sitede vardı ama siteyi hatırlamıyorum,
yukarıdaki kodu kullanrak foxta yazdırmayı dene istersen, ben 7-8 aydır kullanıyorum ne yazmada problem var nede barkod okuyucunun okumasında

Yüzü dost,özü düşmandan usandım.
Dili mü'min kalbi şeytandan usandım.
Dostum, herkesin kahrı çekilir de ;
Ben DAVASIZ MÜSLÜMANDAN Usandım

17 Cevaplayan aefe

  • aefe
  • Üye
  • Offline
  • Kayıt Tarihi: 19.10.2006
  • İleti: 9

Re: Barkod Problemi

bende barcod fonları ver isteyene gönderebilirim..

18 Cevaplayan aefe

  • aefe
  • Üye
  • Offline
  • Kayıt Tarihi: 19.10.2006
  • İleti: 9

Re: Barkod Problemi

orginal 123456789101 çevrilmiş hali $!23E5GH-ijbabj!  fontu çevrilmiş haline uygulamazsanız basılan barcodu  okuyucu okumaz..görüntüsüde ean13 e benzemez..

19 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Re: Barkod Problemi

aefe yazdı:

bende barcod fonları ver isteyene gönderebilirim..


ozellikle ean13 ise gonderirsen sevinirim...

[email protected]

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

20 Cevaplayan metin

  • metin
  • Moderatör
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,453

Re: Barkod Problemi

aefe yazdı:

orginal 123456789101 çevrilmiş hali $!23E5GH-ijbabj!  fontu çevrilmiş haline uygulamazsanız basılan barcodu  okuyucu okumaz..görüntüsüde ean13 e benzemez..


o zaman bendeki ean13 font ta o yüzden yazmıyor demek ki. ben barkod yazıcısı kullanıyorum aynen ean kodunu alıyor onlar. bu fonta özel bir durum demek ki...

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

21 Cevaplayan Birnefes

  • Birnefes
  • Üye
  • Offline
  • Kayıt Tarihi: 19.01.2007
  • İleti: 119

Re: Barkod Problemi

Elinde  ean128'i kodlara çeviren prg olan var mı?

22 Cevaplayan metin

  • metin
  • Moderatör
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,453

Re: Barkod Problemi

laser yazıcıyla ean13 basmam gerekiyor. Yukarıdaki ean13 kodlarını denedim tuhaf tuhaf karakterler basıyor. Tarık'ın gönderdiği fontu da denedim Aefe'nin kodlarını da denedim. Bana font + kod ne lazımza birşeyler gerekiyor!!!

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website