VPF::Пример по пересылке 32 bit числа - Форум программистов

PashaSem

Дата 9.12.2006, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 5.3.2006

Репутация: нет
Всего: нет

Всем привет пересылаю данный в девайс работаю на c# но пример вместе с девайсом на VB прошу Вашей помощи разобраться!

Код


Private Sub btn_Write32BitInteger_Click()

    Dim lReturnCode As Long                         'Return code
    Dim buffer32BitInteger  As udt32BitInteger      'User-defined type for '32bit Integer' data
    Dim bufferInteger As udtInteger                 'User-defined type for writing to the PLC
    
    'Error Handler
    On Error GoTo CatchError
    
    'Copy the TextBox data to the user-defined type for '32bit Integer'.
    buffer32BitInteger.l32BitInteger = CLng(txt_Write32BitInteger.Text)
    
    'Copy the 'buffer32BitInteger' to the user-defined type for writing to the PLC.
    LSet bufferInteger = buffer32BitInteger
    
    'The WriteDeviceBlock2 method is executed.(to D10-D11)
    lReturnCode = ActEasyIF1.WriteDeviceBlock2("D231", _
                                                ELEMENT_SIZE_32BITINTEGER, _
                                                bufferInteger.iarrInteger(0))
    
    'When ActEasyIF returns error code, display error message.
    If lReturnCode <> 0 Then
        DisplayErrorMessage (lReturnCode)
        Exit Sub
    End If

    Exit Sub

CatchError:  'Exception processing
    
    szErrMsg = Error$(Err)
    MsgBox szErrMsg, vbCritical
    End

End Sub

по клику кнопки текс  переводяться в  данные в int 32 и пересылаються с помощью метода  ActEasyIF1.WriteDeviceBlock2
Что значит данные команды

  LSet bufferInteger = buffer32BitInteger
  bufferInteger.iarrInteger(0)

Спасибо!

Akina

Дата 9.12.2006, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(PashaSem @ 9.12.2006, 21:09

)

LSet bufferInteger = buffer32BitInteger

Это присвоение строки с выравниванием по левой границе.
Пример:

Код


Dim A As String * 10, B As Strind
A = "1234567890"
B = "abcd"
Lset A = B
Print A ' Выводится abcd567890

Цитата(PashaSem @ 9.12.2006, 21:09

)

bufferInteger.iarrInteger(0)

Имеется массив bufferInteger, элементы коего - типа, определенного пользователем, с именем udtInteger. В составе этого типа есть компонент с именем iarrInteger. Так вот этому компоненту нового элемента массива что-то там присваивается.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »