powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сканнер штрих кода ч/з COM порт для VFP
9 сообщений из 9, страница 1 из 1
Сканнер штрих кода ч/з COM порт для VFP
    #32933786
Valerii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ, кто нибудь пробовал в VFP работать с сканнерами штрих-кода подключенными к COM портам через MSCOMM? Если да, опишите приерчиком что и как нужно делать,


**** Form.Init
---------------------------------------------
WITH Thisform
.MSComm1.CommPort = .Combo1.ListIndex
.MSComm1.Settings = "9600,N,8,1"
.MSComm1.InputLen = 0
.MSComm1.PortOpen = .T.
ENDWITH

MSConn.OnEvent
*--------------------
WITH this
Buffer = .Input
Wait window .Input
ENDWITH

**** Form.Init
---------------------------------------------


**** Form.Unload
---------------------------------
WITH This
.MSComm1.PortOpen = .F.
ENDWITH

почему-то не хочет работать....
Всем спасибо...
...
Рейтинг: 0 / 0
Сканнер штрих кода ч/з COM порт для VFP
    #32934637
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я ставил программу от третьей фирмы, которая преобразовывала автоматом данные со сканера (COM порт) в ввод с клавиатуры и возврат корретки...

А вообще - купите лучше сканер на USB - сейчас они стоят копейки и работают очень просто и надежно (ничего под них не надо специально программировать)...

Good luck!
...
Рейтинг: 0 / 0
Сканнер штрих кода ч/з COM порт для VFP
    #32934857
Александр Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sergey Ch
а копейки это сколько? и марка сканера
...
Рейтинг: 0 / 0
Сканнер штрих кода ч/з COM порт для VFP
    #32935023
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Александр ТретьяковSergey Ch
а копейки это сколько? и марка сканера
Ручной сканер штрихкодов USB (FBC-3860) - 75 USD, например - но можно взять и дешевле (поиск - покажет)

тынц
...
Рейтинг: 0 / 0
Сканнер штрих кода ч/з COM порт для VFP
    #32937234
Valerii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нет парни, у меня оборудование на com портах... так что ничего не получится из ваших советов...
понятно....
...
Рейтинг: 0 / 0
Сканнер штрих кода ч/з COM порт для VFP
    #32954869
MikeLed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Посмотрите здесь.
http://www.foxclub.ru/sol/index.php?kat=12&act=list
...
Рейтинг: 0 / 0
Сканнер штрих кода ч/з COM порт для VFP
    #32954877
MikeLed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добавление к предыдущему Решения/Система/#417
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Сканнер штрих кода ч/з COM порт для VFP
    #35125545
Alex45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
win xp sp2, vfp 9 sp2
Проверял только на чтение со сканера штрих-кодов

устанавливаем на форму Olecontrol MSComm 6.0

********* Form.Init
Thisform.Olecontrol1.CommPort = 2
*номер com порта

Thisform.Olecontrol1.RThreshold = 1
*теперь при поступлении данных запустится Thisform.Olecontrol1.OnComm()

* Thisform.Olecontrol1.Settings = '9600,n,8,1'
* настройка порта по умолчанию (если нужно - изменить)

Thisform.Olecontrol1.PortOpen = .T.
* включаем порт
*********

********* Thisform.Olecontrol1.OnComm()
local c1

c1 = This.Input
* поступившие данные попадают в Thisform.Olecontrol1.Input
* сохраняем данные в переменной c1 т.к. после чтения в Input будет пусто

wait window c1 nowait
*********

При закрытии формы или когда нужно выключить

Thisform.Olecontrol1.PortOpen = .F.
* выключаем порт
...
Рейтинг: 0 / 0
Сканнер штрих кода ч/з COM порт для VFP
    #35126028
не прошло и трёх лет :D
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сканнер штрих кода ч/з COM порт для VFP
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]