Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сканнер штрих кода ч/з COM порт для VFP / 9 сообщений из 9, страница 1 из 1
25.02.2005, 15:15
    #32933786
Valerii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сканнер штрих кода ч/з COM порт для VFP
Народ, кто нибудь пробовал в 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
25.02.2005, 23:08
    #32934637
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сканнер штрих кода ч/з COM порт для VFP
Я ставил программу от третьей фирмы, которая преобразовывала автоматом данные со сканера (COM порт) в ввод с клавиатуры и возврат корретки...

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

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

тынц
...
Рейтинг: 0 / 0
28.02.2005, 18:41
    #32937234
Valerii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сканнер штрих кода ч/з COM порт для VFP
Нет парни, у меня оборудование на com портах... так что ничего не получится из ваших советов...
понятно....
...
Рейтинг: 0 / 0
11.03.2005, 10:18
    #32954869
MikeLed
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сканнер штрих кода ч/з COM порт для VFP
Посмотрите здесь.
http://www.foxclub.ru/sol/index.php?kat=12&act=list
...
Рейтинг: 0 / 0
11.03.2005, 10:19
    #32954877
MikeLed
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сканнер штрих кода ч/з COM порт для VFP
Добавление к предыдущему Решения/Система/#417
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
12.02.2008, 02:06
    #35125545
Alex45
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сканнер штрих кода ч/з COM порт для VFP
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
12.02.2008, 10:46
    #35126028
Сканнер штрих кода ч/з COM порт для VFP
не прошло и трёх лет :D
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сканнер штрих кода ч/з COM порт для VFP / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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