Теперь вы можете иметь надежную регистрацию данных бесплатно

ПЛК, ЧПУ, одноплатные компьютеры и т.д. / Не разобранное - ПЛК, ЧПУ, электронные блоки
Administrator
592
3-01-2018, 22:52
0

Компьютерная программа Visual Basic (VB6) Продолжить

Отображается часть программы, и мы рассмотрели протокол TCP-протокола Modbus. Пришло время начать код VB6. Давайте обсудим, как будет работать логика.

1. Пользователь выбирает «Start Logging»
2. Таймер для интервала между сообщениями останавливается.
3. IP-адрес используется для открытия соединения winsock. Если соединение выполнено, цвет фона IP-адреса станет зеленым, и мы продолжим шаг 4. Если соединение уже существует, перейдите к шагу 4. Если соединение не может быть выполнено, цвет фона будет красным, дальнейшее выполнение останавливается. Программа будет продолжена на шаге 1.
4. Выполняется следующая последовательность команд: Определите, какую команду отправить.

Прочтите ежедневный журнал производства и минутные указатели (MHR1 и MHR2)
Если MHR2 (Minute Log Pointer)> 670, то
- Запросите минутный журнал, начиная с MHR670, и продолжайте увеличивать на 10, пока не будет запрошено последнее местоположение.
- Запишите значение 670 в MHR2 (сбросьте указатель)
Если MHR1 (Ежедневный указатель журнала производства> 30, то
- Запросите ежедневный журнал производства, начиная с MHR30 и продолжайте увеличивать на 20, пока не будет запрошено последнее местоположение.
- Запишите значение 30 в MHR1 (Сбросьте указатель)
Прочтите текущую информацию о протоколе минут, начиная с MHR660
Прочтите текущую информацию о ежедневном производстве, начиная с MHR10

Как только команда отправлена, таймер установлен, чтобы определить, потеря связи.5. Если таймер для связи потерян, перейдите к шагу 3. Повторите последнюю команду.6. Выключите таймер, чтобы определить, была ли потеря связи. Прочтите информацию из инструмента winsock. Если данные необходимо сохранить, обновите базу данных. Установите таймер для интервала между сообщениями.

Вышеупомянутый - общий программный поток для программы.
Вот наши переменные:

Dim MbusQuery
Public MbusResponse As String
Dim MbusByteArray (255) As Byte
Public MbusStatus As Integer
Public ProductionPointer As Integer
Public MinutePointer As Integer

Private Sub Command1_Click()
Timer1.Enabled = False ' Stop the interval between reads to the PLC

Timer1 используется для управления количеством времени между интервалами связи с ПЛК.

Dim StartTime
If Winsock1.State <> 7 Then
If (Winsock1.State <> sckClosed) Then
Winsock1.Close
End If
Winsock1.RemoteHost = Text1.Text ' Set IP Address
Winsock1.Connect

StartTime = Timer ' Use the timer to determine if a connection cannot be made

Do While ((Timer < StartTime + 2) And (Winsock1.State <> 7))
DoEvents
Loop
If (Winsock1.State = 7) Then
Text1.BackColor = &HFF00& ' Change background colour to green
Else
Text1.BackColor = &HFF ' Change background colour to red
Exit Sub
End If
End If

Здесь приведен код для управления Winsock1. IP-адрес, введенный в Text1, используется для установки RemoteHost. Затем мы проверяем состояние Winsock1. Ниже перечислены различные состояния, которые Winsock1 может быть:

постоянная	Стоимость	Описание
sckClosed	0	По умолчанию. Закрыто
sckOpen	1	открыто
sckListening	2	прослушивание
sckConnectionPending	3	Ожидание соединения
sckResolvingHost	4	Разрешение принимающей стороны
sckHostResolved	5	Хост разрешен
sckConnecting	6	соединительный
sckConnected	7	Связанный
sckClosing	8	Peer закрывает соединение
sckError	9	ошибка

Вот информация, которую нам нужно будет прочитать и записать в регистры MHR в ПЛК Do-More.

«Прочтите информацию'0000: Идентификатор транзакции'0000: Идентификатор протокола'0006: Длина сообщения (6 байтов)'00: Идентификатор устройства '03: Код функции (чтение регистров считывания MHR)'0000: Адрес данных первого регистра'0002: количество регистров для записи
'Напишите информацию'0000: Идентификатор транзакции'0000: Идентификатор протокола'0009: Длина сообщения (6 байтов)'01: Идентификатор устройства '16: Код функции (чтение регистров хранения аналогового выхода)'0000: Адрес данных первого регистра'0001: количество регистров для записи'02: количество байтов данных'0030 Число, которое нужно ввести в регистр
Вся информация будет представлять собой байты данных. Максимальное значение в байте - 256. Если нам нужно отправить значение 600, то два байта данных будут:
600/256 = 2.34
Самый старший байт - 02
600 - (256 * 2) = 88
Наименее значимый байт - 88.
Таким образом, информация, которую нам нужно отправить через Winsock1, будет Chr (2) и Chr (88), чтобы представить значение 600.

Источник: http://automation-control-blog.blogspot.ru

Обсудить на форуме