Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получение цифр и букв с штрих кода, как реализовать 
:(
    Опции темы
344092
Дата 29.7.2006, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.6.2006

Репутация: нет
Всего: нет



Есть сканер штрих-кода (COM и USB)
Есть разные данные в штрих коде, например   AT34*GFR54*8563452345 это всё идет одним штрих-кодом.
Как считать данные сканером штрих-кода (не конвертировать) как есть.Т.е есть если в штрих-коде на этикетке AT34*GFR54*8563452345 то так и нужно считать например в TextBox...

C чего начать не могу понять?
 
PM MAIL   Вверх
cardinal
Дата 30.7.2006, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Цитата(344092 @  29.7.2006,  18:29 Найти цитируемый пост)
Как считать данные сканером штрих-кода (не конвертировать) как есть.

Ничего не понял... Что тебе сканер посылать через COM/USB? Может ли что-то посылать по запросу? 


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
344092
Дата 30.7.2006, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.6.2006

Репутация: нет
Всего: нет



Пример: У меня есть 100 сетевых карт и у каждой есть номер 001, 002 ,003...и тд. Я печатаю с помощью сторонних программ этикетку (bar code)  001. 002 ,003 ...и т.д  Наклееваю на карту №1 номер (bar code) 001 на карту №2 номер (bar code)002 и т.д Беру карту в руки, подношу сканер штрих кода к карте (не зная какой номер) сканер пикает и в программе на VB (которую я пытаюсь сделать) в TextBox или в ListBox номер 002 или 001 который считался с бар кода. 
PM MAIL   Вверх
cardinal
Дата 30.7.2006, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Это ясно, а что твой сканер умеет? Есть ли у него какой вшитый протокол общения с портом? Что за модель? Где документация? 


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
mihanik
Дата 31.7.2006, 07:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Та-а-а-ак.
Короче так!
Юзал я несколько сканеров штрихкода.
Сканер считывает штрихкод и передаёт всё это дело (обычно в виде текстовой строки, или дискретной последовательности символов) в компьютер.
Нужно только всё это поймать с того порта, по которому идёт передача.
Сканер передаёт информацию в том виде, в котором считает...

Если у тебя сканер подключен через сом-порт, то юзаешь сом-порт.
Умеешь через него данными обмениваться? smile

Когда я выбирал сканер для своеё проги, то не захотел изворачиваться и купил сканер, подключаемый "в разрыв клавиатуры".

 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
344092
Дата 1.8.2006, 08:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.6.2006

Репутация: нет
Всего: нет



mihanik, Огромное спасибо за ясность. А можно исходник программы? (Или пример)? Я так понял что в разрыв клавиатуры сканер  просто эмулирует нажатые на клавиатуре символы и цифры? И нужно просто ловить данные с клавиатуры???
PM MAIL   Вверх
mihanik
Дата 1.8.2006, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



При использовании сканера "в разрыв клавиатуры", то подключение происходит так:
Клаву втыкаешь в сканер, сканер втыкаешь в системный блок.

Сканер  просто эмулирует нажатые на клавиатуре символы и цифры. Так, как будто бы ты сам вручную набивал всё это дело с клавиатуры.
Получаю данные при помощи, допустим, InputBox

Пример ниже.

Пример выдернул из живой программы, поэтому он немного великоват и местами непонятен...

Код

'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
' Считываем информацию с метки короба
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Public Sub ScanBoxLabel()
Dim blnErr As Boolean
Dim strStr As String

    Do
        blnErr = False
        strStr = InputBox("Отсканируйте этикетку с короба...", "Сканирование...", "", 0, 0)
        Select Case Len(strStr)
            Case 0
                blnCancelScaning = (vbYes = MsgBox("Прервать сканирование?", vbYesNo, "Внимание!"))
                If blnCancelScaning Then Exit Sub Else blnErr = True
            Case 16
                blnErr = Not CheckBoxBarCode(strStr)
            Case Else
                Beep
                blnErr = True
        End Select
    Loop Until Not blnErr

    strBoxBarcode = strStr
End Sub


Когда покупал сканер, то для прикола сделал так:
открыл "блокнот", отсканирорвал штрихкод.
В результате штрихкод написался в "блокноте".
Причём точно теми цифрами, что и на этикетке...  smile 


Это сообщение отредактировал(а) mihanik - 1.8.2006, 09:09


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0459 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.