Вот, рано я радовался... Ситуация очень простая - работает,работает и... виснет наглухо! Вкратце сделано так: на форме кнопка "Взвесить" Вот код:

IF thisform.olecontrol1.portopen=.f.
thisform.olecontrol1.commPort=4

thisform.olecontrol1.rthreshold=1
thisform.olecontrol1.settings="9600,n,8,1"

thisform.olecontrol1.portOpen=.t.
ENDIF

Далее, объект olecontrol1, событие OnComm:

*** ActiveX Control Event ***
public c1


c1=this.input

StrToFile(c1, 'c:\weight\com.dat', .t.)
*
public gnFileHandle,nSize,cString
gnFileHandle = FOPEN('c:\weight\com.dat')
if gnFileHandle < 0
? 'Файл не открылся'
else
do while !feof(gnFileHandle)
cString = fgets(gnFileHandle)

enddo
endif
= FCLOSE(gnFileHandle)

А еще есть таймер, который и обновляет данные в форме (в Text1 показывается вес, полученый через порт):

IF thisform.olecontrol1.portopen=.t.
m.str = cstring


thisform.text1 .value=Val(Chrtran(m.str, Chrtran(m.str, '0123456789', ''), ''))
IF thisform.text1 .value=0
thisform.text1.ForeColor=RGB(255,0,0)
ELSE
thisform.text1.ForeColor=RGB(0,255,0)
ENDIF
IF thisform.text1.Value<>0
thisform.text3.Value=INT((thisform.text1.value/1000)*thisform.text9.value)
ELSE
thisform.text3.Value=0.00
ENDIF
endif

Вся эта система работает до поры до времени, а потом напрочь виснет. Понимаю, код кривоват, может кто подскажет решение красивее? Чего оно зависает? Подозреваю, что это связано с записью-чтением в файл .dat А может, вообще от него отказаться и сразу читать данные в text1? Но так там вообще все мельтешит, какие-то цифры прыгают с дикой скоростью и у оператора крыша едет...
Спасибо!

Спасибо! А зачем

ThisForm.cData = thisform.cData+c1
Разве нельзя
ThisForm.cData = c1

А вот что получается - запускаю эмулятор весов, передаю одно значение 2050 (это типа вес). Режим передачи - постоянный (не после стабилизации весов). Получается такая картинка (см. файл). Это не хорошо, надо чтобы было одно значение. Таймер прикручивать? А он может повлиять на стабильность работы приложения? Что-то мне таймеры не очень нравятся...

Спасибо, я изначально так и пробовал...

thisform.text1.value=Val(Chrtran(c1, Chrtran(c1, '0123456789', ''), ''))

Но данные отображаются со страшной скоростью, потому что стоит режим постоянной передачи данных. А вот интересно, в самом MSCOMM можно как то задать интервал приема данных, например, чтобы получал, скажем через 1 сек.?

Ага, вот это, наверное, прокатит. Проверю в понедельник - весы 10 км от офиса, не наездишся каждый раз проверять :((. А вот с эмулятором вроде получается.
Вдогонку тупой вопрос - как курсор (указатель мыши) поставить за данными в поле ввода? Открывается форма, там в поле ввода уже есть кое-что, а курсор стоит в самом начале поля. Оператор хочет сразу продолжить ввод в это поле, не гоняя мышь, т.е поставить курсор ЗА буквами...
Спасибо!

А с последними изменениями тоже иногда выдает типа 20502050205. Хрен его знает, как тут быть... Попробую на весах поставить передачу данных после стабилизации веса... Посмотрим, что получится.

Огромное спасибо! Походу то, что надо:) В понедельник проверю... (Нет там интернета - лес,тайга, паромная переправа ч/з Енисей:))