www.InTouch.su

Код: Выделить всё

#Agt3494A8.FindInstrumentAddresses( "COM2::BAUD=9600,PARITY=NONE,SIZE=8,HANDSHAKE=DTR_DSR");
#Agt3494A8.Connect( "COM2::BAUD=9600,PARITY=NONE,SIZE=8,HANDSHAKE=DTR_DSR");
#Agt3494A8.Output("system:remote");
#Agt3494A8.Output("Configure:FRESistance Min,Min");
#Agt3494A8.Output("MEASure:FRESistance?");

Enter Method
Syntax
Agt3494A.Enter result As Variant, Format As String
Enter can read data from the instrument as a string or as a number. For most applications, no Format specifier is needed. The following are common usages.

Return a string like this:

Dim reply As String

Agt3494A1.Enter reply

Return a number like this:

Dim reading As Double

Agt3494A1.Enter reading

The parameters for the Enter method are described below.

Result
This parameter returns the data from the instrument. The declaration of the variable and the Format specifier determine how the data is returned.

Format
This argument determines the format of the returned data. The Format argument is optional in Visual Basic. If you do not specify a Format string, the result is the same as specifying a Format string of "K".

InTouch не поддерживает следующие типы ActiveX:
ï Объекты, не имеющие окна.
ï Простые фреймовые объекты (групповые боксы).
ï Контейнеры.
ï Средства манипулирования данными.
ï Обработчики сообщений.
ï Массивы, BLOB-объекты, Variant-типы.

werg писал(а):Кроме того, не получается считать эти данные

Код: Выделить всё

пересылаю 1 строку
читаю 1 строку

werg писал(а):Какая может быть причина?

Код: Выделить всё

1) команда
2) чтение

werg писал(а):Это в принципе реализуемо?

По команде взвести флаг и запомнить секунды-миллисекунды

Скрипт по флагу, если секунды*1000+миллисекунды > запомненных, то чтение из прибора и обнуление флага.

werg писал(а):можно пример скрипта?

werg писал(а):не совсем понятно