Rasgele barkot kodu üretme

[akineton]

S.A arkadaşlar yapmış olduğum bir projede kullanıcı butona tıklayınca bir edit veya memo bileşeni içerisinde rasgele 14 haneden oluşan EAN13 formatında barkot numarası üretmesini istiyorum acaba nasıl yapılır ..??

[unicorn64]

ean13 standardı için bkz

http://www.soylenasil.com/bilim/barkod3.htm
http://www.barcodeisland.com/ean13.phtml
http://en.wikipedia.org/wiki/European_Article_Number
http://www.morovia.com/education/symbology/ean-13.asp
http://www.ehow.com/how_5332722_calcula ... codes.html
http://www.3sindustries.com/barcodes/ean-13.php

[akineton]

verdiğiniz bilgiler için tşk ederim ama benim sorumun cevabı bu değil. Ayrıca bunları ben daha önce araştırmıştım ve verddiğiniz siteleirn çoğu ingilizce.

[varyemez]

Daha açıklayıcı yazarsan ne istediğini... Yani barkodu neye göre üreteceksin , nerede kullanacaksın , 14 karakterli random bir string üretmek zor birşey değil.

[akineton]

tamam hocam halletik sağolsun başka bir forumda bir arkadaş yardımcı oldu çözdük olayı kod şu bizden başka lazım olursa eğer ;

Function BarkodOlustur1(Bar12Hane:String ):String;
Var
tek_toplam,
cift_toplam,
tum_toplam,
i : Integer;
begin
tek_toplam := 0;
cift_toplam := 0;
tum_toplam := 0;
For i := 1 to Length(Bar12Hane) do begin
If i mod 2 <> 0
then tek_toplam := tek_toplam + (StrToInt(Bar12Hane)*1)
else cift_toplam := cift_toplam + (StrToInt(Bar12Hane)*3);
end;
tum_toplam := 10 - ((tek_toplam+cift_toplam) mod 10);
If tum_toplam = 10 then tum_toplam := 0;
Result := Format('%d', [tum_toplam]);
end;


function BarkodOlustur2():String;
var
s : string;
i : integer;
begin
s:='';
for i:=1 to 12 do
begin
s:=s+inttostr(random(10));
end;
Result := S + BarkodOlustur1(s);
end;


procedure TForm1.BitBtn7Click(Sender: TObject);
begin
Memo1.Text:=BarkodOlustur2;
end;
end.


Not :
EAN13 Barkodu 13 karakterden oluşur. İlk 12 hane barkodOlustur1fonksiyonunda gördüğün gibi matematiksel bazı işlemlerden geçer ve 13. karakteri verir.