Results 1 to 2 of 2

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Jul:2002
    Location: The Bog of Eternal Stench
    Posts: 345

    âàëèäàöèÿ íà áàðêîä

    Íÿêîé èìà ëè íà ðàçïîëîæåíèå ôóíêöèè çà âàëèäàöèÿ íà áàðêîäîâå? Ïî-êîíêðåòíî íà ÅÀÍ 12, UPC A.
    Ìîæå è ñàìî êàòî àëãîðèòúì...

  2. #2
    Registered User SAGE's Avatar
    Join Date: Sep:2005
    Location: Sofia
    Posts: 171
    Quote Originally Posted by v_mihaylov
    Íÿêîé èìà ëè íà ðàçïîëîæåíèå ôóíêöèè çà âàëèäàöèÿ íà áàðêîäîâå? Ïî-êîíêðåòíî íà ÅÀÍ 12, UPC A.
    Ìîæå è ñàìî êàòî àëãîðèòúì...
    Òàêà ñå èç÷èñëÿâà êîíòðîëíàòà ñóìà (Delphi):

    Code:
    function CheckSumModulo10(const data:string):string;
    var i,fak,sum : Integer;
    begin
    	sum := 0;
    	fak := Length(data);
    	for i:=1 to Length(data) do
    	begin
    		if (fak mod 2) = 0 then
    			sum := sum + (StrToInt(data[i])*1)
    		else
    			sum := sum + (StrToInt(data[i])*3);
    		dec(fak);
    	end;
    	if (sum mod 10) = 0 then
    		result := data+'0'
    	else
    		result := data+IntToStr(10-(sum mod 10));
    end;
    À çà ïðîâåðêà ùå òðÿáâà äà ñè íàïðàâèø äðóãà ôóíêöèÿ.

    ï.ï.
    Ìîæå äà ïîãëåäíåø òóê è òóê
    Last edited by SAGE; 2nd November 2005 at 15:58.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè