Comm1.CommPort = 1
* 9600 baud, no parity, 8 data, and 1 stop bit.
Comm1.Settings = "9600,N,8,1"
* Tell the control to read entire buffer when
Comm1.InputLen = 0
* Open the port.
Comm1.PortOpen = .T.
* Send the attention command to the modem.
Comm1.Output = "AT" + CHR(13)
* Wait for data to come back to the serial port.
DO WHILE Comm1.InBufferCount <= 2
* Read the "OK" response data in the serial port.
InString = Comm1.Input
IF InString == "OK"
EXIT
ENDIF
ENDDO
* Close the serial port.
Comm1.PortOpen = .F.
* операции связи через последовательный порт:
Новое на сайте
-
Обновлен портфель программиста
Добавлены: Установка HTML Help (Создание справочной системы), Imagedit.zip - Графический редактор ( ico и bmp), Библиотека локализации HTML Help (Русский) -
Новые примеры программ
Установка библиотек, Игровая программа "Охота на лис", Установка библиотек "Охота на лис", plastic -"Платежки", Библиотеки (на FPD26), platan -"Платежки" (на Clipper 5.2) -
Обновленна справка
Подсказки, технология программирования и использование Visual FoxPro. Команды, функции, операторы, объекты, свойства, события и методы.