Mitsubishi - контроллер Альфа-2. Руководство по средствам связи
Подождите немного. Документ загружается.
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 41
7.6.9 Команда считывания дисплея (вер. 3.00 или выше)
Буфер дисплея ALPHA2 можно считывать с помощью команды 30H
специализированного протокола.
Для вывода на дисплей могут использоваться символы кириллицы
1 ) Описание команды
Структура данных соответствует формату В.
*1.Содержимое буфера дисплея заполняется последовательными данными,
начиная от левой верхней позиции.
Считывание экрана дисплея
y2x1
(*1)
y1x12
(*1)
y2x12
(*1)
y1x1
(*1)
y1x2
(*1)
03H
30H
y2x2
(*1)
y3x2
(*1)
y3x1
(*1)
y4x12
(*1)
y4x2
(*1)
E
T
X
y4x1
(*1)
y3x12
(*1)
33H
S
T
X
E
T
X
03H 0H3
Компьютер
Контроллер a2
Кол-во байт
связи
Номер
формата
Номер
станции
Команда
Контрольная
сумма (LB)
Контрольная
сумма (HB)
или
N
A
K
S
T
X
04H
Кол-во байт
связи
Номер
формата
Номер
станции
Код
ошибки
S
T
X
Кол-во байт
связи
Номер
формата
Номер
станции
Флаг
завершения
S
T
X
Кол-во байт
связи
Номер
формата
Номер
станции
Команда
Контрольная
сумма (LB)
Контрольная
сумма (HB)
X1
Y1
Экран дисплея
X12
Y4
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 42
2 ) Пример
Пример содержимого дисплея
Пример команды
A l p h a X L
T h e S i m p l e
A p p l i a t i o n
C o n t r o l l e r
c
S
T
X
S
T
X
03H
S
T
X
E
T
X
03H 30H
33H 30H
02H 41H 00H 03H 71H 00H
02H 40H 00H 21H 02H 41H 00H
Y1X3
Y1X4
Y1X5
Y1X6
Y1X7
Y1X8
Y1X9
Y1X10
Y1X11
Y1X12
Y1X1
20H 41H 6CH 70H 68H 61H 20H 58H 4CH 20H 20H
Y1X2
20H
Y2X3
Y2X4
Y2X5
Y2X6
Y2X7
Y2X8
Y2X9
Y2X10
Y2X11
Y2X12
Y2X1
54H 65H 20H 53H 69H 6DH 70H 6CH 65H 20H 20H
Y2X2
68H
Y3X3
Y3X4
Y3X5
Y3X6
Y3X7
Y3X8
Y3X9
Y3X10
Y3X11
Y3X12
Y3X1
41H 70H 6CH 69H 63H 61H 74H 69H 6FH 6EH 20H
Y3X2
70H
Y4X3
Y4X4
Y4X5
Y4X6
Y4X7
Y4X8
Y4X9
Y4X10
Y4X11
Y4X12
Y4X1
43H 6EH 74H 72H 6FH 6CH 6CH 65H 72H 20H 20H
Y4X2
6FH
E
T
X
c
03H 10H7EH
Кол-во байт
связи
Номер
формата
Номер
станции
Команда
Контрольная
сумма (LB)
Контрольная
сумма (HB)
Компьютер
Контроллер a2
Кол-во байт
связи
Номер
формата
Номер
станции
Флаг
завершения
Кол-во байт
связи
Номер
формата
Номер
станции
Команда
Контрольная
сумма (LB)
Контрольная
сумма (HB)
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 43
Для вывода на дисплей используются символы кириллицы
1 ) Описание команды
Структура данных соответствует формату В.
*1.Содержимое буфера дисплея заполняется последовательными данными,
начиная от левой верхней позиции.
Считывание экрана дисплея
03H
30H
E
T
X
33H
S
T
X
E
T
X
03H 0H3
Компьютер
Контроллер a2
Кол-во байт
связи
Номер
формата
Номер
станции
Команда
Контрольная
сумма (LB)
Контрольная
сумма (HB)
или
N
A
K
S
T
X
04H
Кол-во байт
связи
Номер
формата
Номер
станции
Код
ошибки
S
T
X
Кол-во байт
связи
Номер
формата
Номер
станции
Флаг
завершения
S
T
X
Кол-во байт
связи
Номер
формата
Номер
станции
Команда
Контрольная
сумма (LB)
Контрольная
сумма (HB)
Y1X1(LB)
(*1)
Y2X12(HB)
(*1)
Y1X2(LB)
(*1)
Y1X1(HB)
(*1)
Y2X12(LB)
(*1)
Y4X12(HB)
(*1)
Y4X12(LB)
(*1)
Y3X12(LB)
(*1)
Y3X12(HB)
(*1)
X1
Y1
Экран дисплея
X12
Y4
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 44
2 ) Пример
Пример содержимого дисплея
Пример команды
A
л ъ
ф
a X L
П
p
o
с
т
o
й
P e
ш
н
и
e
К
o
н т
p
o
л
л
e
p
e
S
T
X
S
T
X
03H
S
T
X
E
T
X
03H 30H
63H 30H
02H 41H 00H 03H 71H 00H
02H 40H 00H 21H 02H 41H 00H
Y1X2(LB)
Y1X2(HB)
Y1X3(LB)
Y1X3(HB)
Y1X4(LB)
Y1X4(HB)
Y1X5(LB)
Y1X5(HB)
Y1X6(LB)
Y1X6(HB)
Y1X1(LB)
20H 20H 00H 10H 04H 3BH 04H 4AH 04H 44H 04H
Y1X1(HB)
00H
Y1X8(LB)
Y1X8(HB)
Y1X9(LB)
Y1X9(HB)
Y1X10(LB)
Y1X10(HB)
Y1X11(LB)
Y1X11(HB)
Y1X12(LB)
Y1X12(HB)
Y1X7(LB)
30H 20H 00H 58H 00H 4CH 00H 20H 00H 20H 00H
Y1X7(HB)
04H
Y2X2(LB)
Y2X2(HB)
Y2X3(LB)
Y2X3(HB)
Y2X4(LB)
Y2X4(HB)
Y2X5(LB)
Y2X5(HB)
Y2X6(LB)
Y2X6(HB)
Y2X1(LB)
20H 20H 00H 1FH 04H 40H 04H 3EH 04H 41H 04H
Y2X1(HB)
00H
Y2X8(LB)
Y2X8(HB)
Y2X9(LB)
Y2X9(HB)
Y2X10(LB)
Y2X10(HB)
Y2X11(LB)
Y2X11(HB)
Y2X12(LB)
Y2X12(HB)
Y2X7(LB)
42H 3EH 04H 39H 04H 20H 00H 20H 00H 20H 00H
Y2X7(HB)
04H
Y3X2(LB)
Y3X2(HB)
Y3X3(LB)
Y3X3(HB)
Y3X4(LB)
Y3X4(HB)
Y3X5(LB)
Y3X5(HB)
Y3X6(LB)
Y3X6(HB)
Y3X1(LB)
20H 20H 00H 20H 04H 35H 04H 48H 04H 35H 04H
Y3X1(HB)
00H
Продолжение см. на следующей странице
Компьютер
Контроллер a2
Кол-во байт
связи
Номер
формата
Номер
станции
Команда
Контрольная
сумма (LB)
Контрольная
сумма (HB)
Кол-во байт
связи
Номер
формата
Номер
станции
Флаг
завершения
Кол-во байт
связи
Номер
формата
Номер
станции
Команда
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 45
Таблица символов буфера дисплея
В следующей таблице приведены символы, которые могут использоваться командой
буфера дисплея ALPHA2.
E
T
X
Y3X8(LB)
Y3X8(HB)
Y3X9(LB)
Y3X9(HB)
Y3X10(LB)
Y3X10(HB)
Y3X11(LB)
Y3X11(HB)
Y3X12(LB)
Y3X12(HB)
Y3X7(LB)
3DH 38H 04H 35H 04H 20H 00H 20H 00H 20H 00H
Y3X7(HB)
04H
Y4X2(LB)
Y4X2(HB)
Y4X3(LB)
Y4X3(HB)
Y4X4(LB)
Y4X4(HB)
Y4X5(LB)
Y4X5(HB)
Y4X6(LB)
Y4X6(HB)
Y4X1(LB)
20H 1AH 04H 3EH 04H 3DH 04H 42H 04H 40H 04H
Y4X1(HB)
00H
Y4X8(LB)
Y4X8(HB)
Y4X9(LB)
Y4X9(HB)
Y4X10(LB)
Y4X10(HB)
Y4X11(LB)
Y4X11(HB)
Y4X12(LB)
Y4X12(HB)
Y4X7(LB)
3EH 3BH 04H 3BH 04H 35H 04H 40H 04H 20H 00H
Y4X7(HB)
04H
Начало на предыдущей странице
03H 0AH05H
Контрольная
сумма (LB)
Контрольная
сумма (HB)
$
%
&
'
(
)
[
䃼㻌
䃽㻌
䃾㻌
䃿㻌
䄀㻌
䄁㻌
䄂㻌
䄃㻌
䄄㻌
䄅㻌
䄆㻌
䄇㻌
䄈㻌
䄉㻌
䄊㻌
䄋㻌
[
䄌㻌
䄍㻌
䄎㻌
䄏㻌
䄐㻌
䄑㻌
䄒㻌
䄓㻌
䄔㻌
䄕㻌
䄖㻌
䄗㻌
䄘㻌
䄙㻌
䄚㻌
䄛㻌
[
䄜㻌
䄝㻌
䄞㻌
䄟㻌
䄠㻌
䄡㻌
䄢㻌
䄣㻌
䄤㻌
䄥㻌
䄦㻌
䄧㻌
䄨㻌
䄩㻌
䄪㻌
䄫㻌
[
䄬㻌
䄭㻌
䄮㻌
䄯㻌
䄰㻌
䄱㻌
䄲㻌
䄳㻌
䄴㻌
䄵㻌
䄶㻌
䄷㻌
䄸㻌
䄹㻌
䄺㻌
䄻㻌
㻌 $ % & ' ( )
[ 㻿㻼㻌㻍㻌㻎㻌㻏㻌㻐㻌㻑㻌㻒㻌㻓㻌㻔㻌㻕㻌㻖㻌㻗㻌㻘㻌㻙㻌㻚㻌㻛㻌
[ 㻜㻌 㻝㻌 㻞㻌 㻟㻌 㻠㻌 㻡㻌 㻢㻌 㻣㻌 㻤㻌 㻥㻌 㻦㻌 㻧㻌 㻨㻌 㻩㻌 㻪㻌 㻫㻌
[ 㻬㻌 㻭㻌 㻮㻌 㻯㻌 㻰㻌 㻱㻌 㻲㻌 㻳㻌 㻴㻌 㻵㻌 㻶㻌 㻷㻌 㻸㻌 㻹㻌 㻺㻌 㻻㻌
[ 㻼㻌 㻽㻌 㻾㻌 㻿㻌 㼀㻌 㼁㻌 㼂㻌 㼃㻌 㼄㻌 㼅㻌 㼆㻌 㼇㻌 㼈㻌 㼉㻌 㼊㻌 㼋㻌
[ 㼌㻌 㼍㻌 㼎㻌 㼏㻌 㼐㻌 㼑㻌 㼒㻌 㼓㻌 㼔㻌 㼕㻌 㼖㻌 㼗㻌 㼘㻌 㼙㻌 㼚㻌 㼛㻌
[ 㼜㻌 㼝㻌 㼞㻌 㼟㻌 㼠㻌 㼡㻌 㼢㻌 㼣㻌 㼤㻌 㼥㻌 㼦㻌 㼧㻌 㼨㻌 㼩㻌 㼪㻌 㻌
Таблица 7.25: Базовый латинский набор символов
$ % & ' ( )
$[ 㻌
¡
㻌㻌㻌㻌㻌㻌㻌㻌㻌㻌㻌㻌㻌㻌㻌
%[ 㼻㻌㻌㻌㻌㻌㻌㻌㻌㻌㻌㻌
»
㻌㻌 㻌 㻌
¿
㻌
&[
À
㻌
Á
㻌
Â
㻌
Ã
㻌
Ä
㻌
Å
㻌
Æ
㻌
Ç
㻌
È
㻌
É
㻌
Ê
㻌
Ë
㻌
Ì
㻌
Í
㻌
Î
㻌
Ï
㻌
'[ 㻌
Ñ
㻌
Ò
㻌
Ó
㻌
Ô
㻌
Õ
㻌
Ö
㻌㻌 㻌
Ù
㻌
Ú
㻌
Û
㻌
Ü
㻌㻌 㻌
ß
㻌
([
à
㻌
á
㻌
â
㻌
ã
㻌
ä
㻌
å
㻌
æ
㻌
ç
㻌
è
㻌
é
㻌
ê
㻌
ë
㻌
ì
㻌
í
㻌
î
㻌
ï
㻌
)[ 㻌
ñ
㻌
ò
㻌
ó
㻌
ô
㻌
õ
㻌
ö
㻌㻌 㻌
ù
㻌
ú
㻌
û
㻌
ü
㻌㻌 㻌 㻌
Таблица 7.26: Дополнение Latin-1
Таблица 7.27: Базовый набор символов кириллицы
\
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 46
7.7 Пример программы на языке Visual Basic
Примечание:
Программа на языке Visual Basic предоставлена в качестве примера интерфейса
пользователя при использовании специализированного протокола с контроллером
ALPHA2. Для правильной работы программы, параметры MSCOM RTS и DTR должны
быть включены.
Пример приложения VB для связи с контроллером ALPHA2 по
специализированному протоколу
1. Начните новый проект VB, выберите вид проекта "Стандартный EXE".
2. Создайте графический интерфейс пользователя, как показано на рисунке 1.
Элементы, обозначенные A...L должны иметь свойства, указанные в следующей
таблице.
Рисунок 1
Элемент GUI Свойства Значение
A OptionButton
(Название) optCmd
Index 0
TabIndex 0
В TextBox (Название) txtTxText
C TextBox (Название) txtRxText
D OptionButton
(Название) optCmd
Index 1
E OptionButton
(Название) optCmd
Index 2
F OptionButton
(Название) optCmd
Index 3
G OptionButton
(Название) optCmd
Index 4
H OptionButton
(Название) optCmd
Index 5
I Timer (Название) Timer1
J MSComm (Название) MSComm1
K CommandButton (Название) cmdTransmit
L CommandButton (Название) cmdReset
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 47
3. Откройте окно кода в VB и вставьте следующие строки кода.
Option Explicit
Private timecnt As Integer
Private optidx As Integer
Private cmdstr() As Byte
Private cmdlen As Integer
Private resplen As Integer
Private Sub Form_Load()
txtTxText.Text = ""
txtRxText.Text = ""
Call StopTimer
Timer1.Interval = 100
End Sub
Private Sub optCmd_Click(Index As Integer)
optidx = Index
Call SetCommand
Call ShowTxData
End Sub
Private Sub cmdTransmit_Click()
Dim lenrxdata As Integer
Dim rxdata() As Byte
cmdTransmit.Enabled = False
If PortOpen = True Then
Call SendCmnd
lenrxdata = resplen
Call RecResponse(rxdata, lenrxdata)
Call ShowRxData(rxdata, lenrxdata)
End If
cmdTransmit.Enabled = True
End Sub
Private Sub cmdReset_Click() 'Нажата кнопка "Reset".
Call ShowTxData
txtRxText.Text = ""
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
cmdTransmit.Enabled = True
End Sub
Private Sub SetCommand()
Select Case optidx
Case 0 '"Проверка линии связи".
cmdstr = ChrB(&H2) + ChrB(&H3) + ChrB(&H40) _
+ ChrB(&H0) + ChrB(&H5)
cmdlen = 5
resplen = 5
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 48
Case 1 '"Считывание значения".
cmdstr = ChrB(&H2) + ChrB(&H7) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H0) + ChrB(&H1) + ChrB(&H42) _
+ ChrB(&H1) + ChrB(&H0) + ChrB(&H3) + ChrB(&H85) _
+ ChrB(&H0)
cmdlen = 12
resplen = 15
Case 2 '"Записываемое значение: установить OUT1"
cmdstr = ChrB(&H2) + ChrB(&H8) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H1) + ChrB(&H1) + ChrB(&H42) _
+ ChrB(&H1) + ChrB(&H0) + ChrB(&H1) + ChrB(&H3) _
+ ChrB(&H87) + ChrB(&H0)
cmdlen = 12
resplen = 10
Case 3 '"Записываемое значение: сброс OUT1"
cmdstr = ChrB(&H2) + ChrB(&H8) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H1) + ChrB(&H1) + ChrB(&H42) _
+ ChrB(&H1) + ChrB(&H0) + ChrB(&H0) + ChrB(&H3) _
+ ChrB(&H86) + ChrB(&H0)
cmdlen = 12
resplen = 10
Case 4 '"Запрос на ЗАПУСК"
cmdstr = ChrB(&H2) + ChrB(&H4) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H10) + ChrB(&H1) + ChrB(&H3) _
+ ChrB(&H52) + ChrB(&H0)
cmdlen = 9
resplen = 6
Case 5 '"Запрос на ОСТАНОВ"
cmdstr = ChrB(&H2) + ChrB(&H4) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H10) + ChrB(&H0) + ChrB(&H3) _
+ ChrB(&H51) + ChrB(&H0)
cmdlen = 9
resplen = 6
End Select
End Sub
Private Sub ShowTxData()
Dim TxDataStr As String
Dim ByteData As Byte
Dim j As Integer
txtTxText.Text = ""
txtRxText.Text = ""
For j = 1 To cmdlen
ByteData = AscB(MidB(cmdstr, j, 1))
TxDataStr = TxDataStr + Right$("00" + Hex$(ByteData), 2) & " "
Next
txtTxText.Text = TxDataStr
End Sub
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 49
Private Sub ShowRxData(rxdata As Variant, rxdatalen As Integer)
Dim DataStr As String
Dim j As Integer
Dim Re As String
If rxdatalen > 0 Then
For j = 0 To rxdatalen – 1
Re = rxdata(j)
DataStr = DataStr + Right$("00" + Hex$(Re), 2) & " "
Next
ElseIf rxdatalen = 0 Then
DataStr = "Нет принятых данных"
Else
DataStr = "Сброс связи"
End If
txtRxText.Text = DataStr
End Sub
Private Function PortOpen() As Boolean
Dim message As Variant
On Error GoTo ErrorHandler
If MSComm1.PortOpen = True Then
PortOpen = False
Else
With MSComm1
.InputLen = 0
.InputMode = comInputModeBinary
.PortOpen = True
End With
Call StartTimer
Do
DoEvents
Loop Until timecnt > 1
Call StopTimer
PortOpen = True
End If
Exit Function
ErrorHandler:
txtRxText.Текст = "Ошибка! Неправильные настройки порта или порт используется."
PortOpen = False
End Function
Private Sub PortClose()
MSComm1.PortOpen = False
End Sub
Private Sub SendCmnd()
MSComm1.Output = cmdstr
End Sub
Private Sub RecResponse(ByRef rxdata As Variant, ByRef lenrxdata As Integer)
Call StartTimer
α
2
Простые
прикладные
контроллеры
Командная
строка
7
7 - 50
'Ждать, пока не будет принято количество байтов 'LenRxData' или не будет
превышен временной лимит.
Do
DoEvents
Loop Until (MSComm1.InBufferCount >= lenrxdata) Or (timecnt >= 10)
Call StopTimer
If MSComm1.PortOpen = True Then
lenrxdata = MSComm1.InBufferCount
rxdata = MSComm1.Input
Call PortClose
Else
lenrxdata = -1
End If
End Sub
Private Sub Timer1_Timer()
timecnt = timecnt + 1
End Sub
Private Sub StartTimer()
timecnt = 0
Timer1.Enabled = True
End Sub
Private Sub StopTimer()
Timer1.Enabled = False
End Sub
4. Компиляция проекта и запуск приложения
Если в код программы не было внесено никаких изменений и настройка по
умолчанию MSComm1 не была изменена, демонстрационное приложение начнет
устанавливать связь с ALPHA2 (номер станции 0) через последовательный порт 1
(параметры связи: скорость 9600 бит/с, 8 бит данных, без четности, 1 стоповый бит).