Пишем программу, определяющую страну по штрих-коду

Пишем программу, определяющую страну по штрих-коду

Сначала немного теории. В мире существует несколько общепринятых стандартов штрих-кодов. Штрих-код — это графическая метка, в которой по определенным правилам закодирована информация, как правило, это алфавитно-цифровой код-идентификатор.

Мы будем работать с распространенным международным кодом EAH-13. Его первые две-три цифры обозначают страну, в которой был изготовлен товар.

Следующие пять обозначают предприятие, на котором был изготовлен товар, следующие пять — товар, последняя цифра — контроль. Этот код от других отличают следующие признаки: две удлиненные черты в начале и в конце, и ровно 13 цифр.

Думаю, что тема этой статьи вам понятна из названия. Программа, позволяющая определять страну-производителя товара по штрих-коду.

Можно воспользоваться терминалом сбора данных, но не будем отклоняться от темы.

В качестве средства разработки я выбрал Turbo Pascal 7.0. Выбор столь раритетной среды обусловлен тем, что я не хочу заострять внимание на интерфейсе, а с помощью Турбо Паскаля это сделать проще всего.

Безусловно, что при желании программу можно будет написать и на Си, Дельфи и т. д. Главное — понять принцип.

Начинаем работу. Запускаем Паскаль и пишем:

Program BarCode_EAH13;

Uses crt;

Var

i:integer;

s,z2,z3:string;

Мы назвали программу BarCode_EAH13, подключили crt и объявили переменные. Идем дальше:

procedure vvod;

begin

write(Enter the bar-code: );

readln(s);

end;

Расшифровка штрих- кода на продукции


Процедура vvod отвечает за интерфейс: предлагает ввести штрих-код и то, что введет пользователь, записывает в переменную.

Теперь самое главное:

procedure sravn;

begin

z2:=Copy(s,1,2);

z3:=Copy(s,1,3);

If z3=789 then

begin

writeln(Brazil);

end;

end;

В этой процедуре программа сравнивает первые две-три цифры с кодами стран. Переменная z2 записывает на себя первые две цифры, а z3 — первые три.

Затем происходит сравнение. Например, если первые три цифры — 789, то программа пишет, что страна-производитель – Бразилия, Норвегия — 70, Израиль — 729, Швеция — 73, Мексика — 750, Швейцария — 76, Аргентина – 779.

Я решил не вводить все страны, их слишком много. Если вам интересно, то вы легко сможете найти таблицу первых цифр штрих-кодов в Интернете и ввести в свою программу (вместо многоточия).

Пишем тело:

Begin

clrscr;

vvod;

sravn;

readkey;

End.

Первая строка очищает экран, вторая строка запускает процедуру vvod, третья — sravn, а последняя ждет ввода любой клавиши для завершения работы. Вот и все!

Можете добавить некоторый удобства: например, было бы хорошо, если бы программа была зациклена, то есть определяла страну постоянно. Главное при этом — не забыть ввести код выхода.

Ну, а если переведете код на визуальный язык, например, на дельфи, то получится уже качественный продукт, который не стыдно и продать.

Для считывания штрих кода используют специализированные устройства — сканеры штрих кода, а для печати этикеток со штрих кодом применяют принтеры этикеток.

Похожие статьи:

Читайте также: