Код для формирования штрих-кода EAN-13

@Vologd · Регистрация: 03.11.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Может у кого есть?! Поделитесь, пожалуйста кодом для формирования штрих-кода ean-13 или вычислением контрольной цифры по 12

п.с. а может кто захочет поломать голову, а то я никак не соображу. Математический принцип такой, берется 12-значное число, каждая четная цифра умножается на три, каждая нечетная на один и суммируется общий результат. Далее от ближайшего целого числа делящегося на 10, отнимается данная сумма. Полученный результат и есть искомая цифра.

Добавлено через 7 минут
я вот такое накидал... но уже не соображаю так или нет) плюс интежер не берет 12 значное число((

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
begin
     S:=edit1.Text;
     id:=strtoint(s);
     x:=0;
 
    while id<>0 do begin
                t:=id mod 10;
                showmessage('t-' + IntToStr(t));
                x:=x+1;
                if x mod 2=1 then
                N:=n+t
                else
                N:=n+3*t;
                showmessage('n-' + IntToStr(n));
       id:=id div 10;
    end;

@Vologd · 08.09.2015, 08:39 **[ТС]**

Поторопился. не подцепил файлик, дублирую

raxper · 08.09.2015, 08:40

Зачем мне ваш экселовский файл? Вы не можете понять, что формирование EAN-13 внутренним макросом со своим сопоставлением символов коду не имеет отношения к собственно реальному кодированию EAN-13? Тяжелый случай.

И причем тут раздел Delphi? Определитесь тогда, либо вы тут, либо вы в разделе 1C. В двух темах обсуждения не будет.

@Vologd · 08.09.2015, 08:51 **[ТС]**

Буду разбираться еще тогда... но фастрепорт, тоже понимает буквенное кодирование... зачем тогда нужен шрифт ean13, если им нельзя пользоваться... Мне, кажется есть вариант представленния... буду копать, но наверно в силу своей никчемности придется сдаться.. Спасибо за разжевывание, прошу не горячиться)

Добавлено через 6 минут
Я не считаю, что тема дублирована, это была создана как просьба с библиотекой\кодом на делфи. А в 1С, Вы сами говрите отдельная импитация этого кода, то есть Вы сами говрите, что это разные вещи. В той теме я и хотел выянит ькаким образом, она связана, с кодировкой буквами.. Вы говрите в делфи это не катит... И удалили ту, логика тоже не совсем ясна... Где мне тогда выяснит ьпро буквенную интерпритацию?! Вы говрите, что в делфи ее нет, я Вам показал, как это выглядит в экселе и сделал тему в 1С. И вы мне отвечаете ,ч тоя дублирую темы...
Понимаю конечно все, но не совсем с Вами согласен(( Признаю Вашу правоту и усмиряюсь, буду копать...

raxper · 08.09.2015, 10:51

Буквенная интерпретация в документации на соответствующий модуль-дополнение в 1C или макрос Excel http://www.tec-it.com/ru/softw... fault.aspx. Отношение к EAN-13 такое же как у сковороды к кастрюле, и то и другое для готовки вроде бы, а основа разная.

Вообще есть готовые шрифты TTF с кодировками, просто набор cоответствующих графических символов сопоставленных буквам латиницы/кириллицы.

но фастрепорт, тоже понимает буквенное кодирование.

я тоже могу сделать библиотеку в которой будет сопоставление:
бред1 = ноль в EAN13
бред2 = один в EAN13
бред3 = два в EAN13
бред4 = три в EAN13
...

аналогия понятна?

@Alexander 88 · 10.10.2015, 16:59

Добрый день
Как-то делал формулу для печати штрих-кодов в Excel с помощью шрифта "ean13.ttf"
О кодировке смотрел тут

@ste1n88 · 04.09.2019, 17:18

Написал такую простую процедуру для генерации Баркода (скажу честно - переписал на Delphi c Visual Basic) по стандарту EAN13 для организации (собственный баркод для товара) :

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure barcodeGenerator(memo:TMemo; iFirst:integer);
    var
      SPrefix, sBuffer, sBarcode:string;
      i: integer;
      begin
        sPrefix:= '2000'; // префикс баркода и свободные числа
        sBuffer := IntToStr(i + iFirst - 1);
        begin
             sBarcode := sPrefix;
    //заполняем Баркод нулями для длины
             while (sbarcode.Length + sBuffer.Length < 12) do
              begin
                 sBarcode := sBarcode + '0';
              end;
        sBarcode := sBarcode + sBuffer;
       end;
      memo.Lines.Add(sBarcode);
 
    end;

Новые блоги и статьи Все статьи Все блоги /
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .
Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))

raxper 10237 / 6615 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	08.09.2015, 08:40
	Зачем мне ваш экселовский файл? Вы не можете понять, что формирование EAN-13 внутренним макросом со своим сопоставлением символов коду не имеет отношения к собственно реальному кодированию EAN-13? Тяжелый случай. И причем тут раздел Delphi? Определитесь тогда, либо вы тут, либо вы в разделе 1C. В двух темах обсуждения не будет. 0

@Vologd 21 / 19 / 12 Регистрация: 03.11.2013 Сообщений: 870
	08.09.2015, 08:51 [ТС]
	Буду разбираться еще тогда... но фастрепорт, тоже понимает буквенное кодирование... зачем тогда нужен шрифт ean13, если им нельзя пользоваться... Мне, кажется есть вариант представленния... буду копать, но наверно в силу своей никчемности придется сдаться.. Спасибо за разжевывание, прошу не горячиться) Добавлено через 6 минут Я не считаю, что тема дублирована, это была создана как просьба с библиотекой\кодом на делфи. А в 1С, Вы сами говрите отдельная импитация этого кода, то есть Вы сами говрите, что это разные вещи. В той теме я и хотел выянит ькаким образом, она связана, с кодировкой буквами.. Вы говрите в делфи это не катит... И удалили ту, логика тоже не совсем ясна... Где мне тогда выяснит ьпро буквенную интерпритацию?! Вы говрите, что в делфи ее нет, я Вам показал, как это выглядит в экселе и сделал тему в 1С. И вы мне отвечаете ,ч тоя дублирую темы... Понимаю конечно все, но не совсем с Вами согласен(( Признаю Вашу правоту и усмиряюсь, буду копать... 0