EAN-8 Formatında barkod numaraları oluşturma...

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
SAHAN33
Üye
Mesajlar: 36
Kayıt: 24 Eki 2006 04:34

EAN-8 Formatında barkod numaraları oluşturma...

Mesaj gönderen SAHAN33 »

Herkese kolay gelsin.. Aşağıdaki kod ile başı 27 ile başlayan ve döngü sayısı kadar olan EAN-8 formatında barkod oluşturur. Örneğin;

27000007
27000014
27000021
27000038
27000045
27000052
27000069
27000076
27000083
27000090

gibi. Burada 7. hane döngü sayısı. Son karakter de Check Digit. Standartlarına uygun EAN-8 barkodlar oluşturabilirsiniz...

function Tamamla(a: integer; b: integer): string;
begin
result := stringofchar('0',b-length(inttostr(a))) + inttostr(a);
end;

function Check_Digit(b: String): string;
Var Tek,Cift,Sonuc:Integer;
begin
Cift:=StrToInt(Copy(b,2,1))+StrToInt(Copy(b,4,1))+StrToInt(Copy(b,6,1));
Tek:=StrToInt(Copy(b,1,1))+StrToInt(Copy(b,3,1))+StrToInt(Copy(b,5,1))+StrToInt(Copy(b,7,1));
Sonuc:=10-((Tek*3+Cift) Mod 10);
If Sonuc=10 Then result := '0' Else Result:=IntToStr(Sonuc);
end;


Procedure TForm1.BarkodNo_Olustur;
Var A,C,Uzunluk,YeniStokId,IdUz,TamUz:Integer;
Begin
For C := 0 To 9 do
Begin
IdUz:=Length(IntToStr(C));
TamUz:=5;
Memo1.Items.Add('27'+Tamamla(C,TamUz)+Check_Digit('27'+Tamamla(C,TamUz)));
End;
Cevapla