8(495)909-90-01
8(964)644-46-00
pro@sio.su
Главная
Системы видеонаблюдения
Охранная сигнализация
Пожарная сигнализация
Система пожаротушения
Система контроля удаленного доступа
Оповещение и эвакуация
Контроль периметра
Система домофонии
Парковочные системы
Проектирование слаботочных сетей
Аварийный
контроль
Раздел: Документация

0 ... 27 28 29 30 31 32 33 ... 105

Мой -««яггар

Выходные , данны

Входные данные

Изменить ,а конфигураций порта

liBflscKf j FJ5 Adobe Photoshop

RS232 Port Екрепше...

Рис. 3.8. Окно управления экспериментальной платой последовательного порта

Ввод данных в регистр состояния модема dummy=Write modem status(RS232 address, status(2), status(O))

Обновление входных линий status(4)=Read modem status(RS232 address,2) status(5)=Read modem status(RS232 add ress,1) status(6)=Read modem status(RS232 add ress,3) For iq=4 to 6

If status(iq)=1 Then Shapel(iq) BackColor=&HFF& Else Shapel(iq) BackColor=black Next lq

Считывание и отображение входных данных Label3 Caption=Format$(Read receive buffer(RS232 address))

Вывод последовательных данных If status(1)=1 Then Do

dummy=Write transmit buffer(RS232 address,Val(text1 Text)) DoEvents

Loop While status(1)=1 End If End Sub


Sub Command2 MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Отображение справочной информации.

Label7.Caption="Change the status of the output line" End Sub

Sub Command3 Click()

Настройка выбранного последовательного порта.

baud rate=Val(text2(0).Text)Установка скорости.

parity=Val(text2(1).Text)Установка проверки на четность.

data bit length=Val(text2(2).Text)Установка длины блока данных.

stop bit length=Val(text2(3) Text)Установка длины стопового бита.

dummy=write data format(RS232 address, baud rate, parity, data bit length, stop bit length) Запись конфигурации в регистр формата данных. End Sub

Sub Command3 Mouse move(Button As Integer,Shift As Integer,X As Single,Y As Single)

Label7.Caption="Change the configuration of RS232 port" End Sub

Sub Command4 Click()

End End Sub

Sub Command4 Mouse move(Button As Integer,Shift As Integer,X As Single,Y As Single) Label7.Caption="Quit the program" End Sub

Sub Command5 Click() Выбор другого порта.

dummy=HsgBox(Str(RS232(0)) & "RS232 ports (COMs) are installed on your PC Their base addresses are. & Format$(RS232(1), "###") & " " & Format$(RS232(2), "###") & " " & Format$(RS232(3), "Ш") & " " & Format$(RS232(4), "###") & "Decimal", 48, "RS232 ports (COM) on your PC") Отображение информации о порте.

RS232 number=Val(InputBox$("Input 1, 2, 3 or 4 to select a RS232 port (COM) for the

Mini-Lab Data Logger/Controller", "Select COM ports"))Выбор СОМ-порта.

RS232 address=RS232(RS232 number)Получение базового адреса выбранного порта.

Label2.Caption="Selected COM port: " & Format(RS232 number)Отображение информации

о выбранном порте.

Label4.Caption="Base address of COM " & Format(RS232 address) End Sub

Sub Command5 MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label7.Caption="Change RS232 port number End Sub

Sub Form Load() For i=0 To 11

status(i)=0 Next l

dummy= MsgBox(Str(RS232(0)) & RS232 ports (COMs) are installed on your PC. Their base addresses are:" & Format$(RS232(1 ), "###) & " " & Format$(RS232(2), "Ш") & " " & Format$(RS232(3), "###) & " " & Format$(RS232(4), "###") & "Decimal", 48, "RS232 ports (COM) on your PC")

RS232 number=Val(InputBox$("Input 1, 2, 3 or 4 to select a RS232 port (COM) for the RS232 Experimental board", "Select COM ports))


RS232 address=RS232(RS232 number)

Label2 Caption= No of installed COHs & Format(RS232 number) Label4 Caption= Base address of COM & Format(RS232 address) baud rate=9600 parity-0

data bit length=8

stop bit length=1

text2(0) Text-Format$(baud rate)

text2(1) Text=Format$(panty)

text2(2) Text=Format$(data bit length)

text2(3) Text=Format$(stop bit length)

dummy=wnte data format(RS232 address baud rate parity data bit length stop bit length) End Sub

Sub Label3 MouseMove(Button As Integer Shift As Integer X As Single Y As Single) Отображение принятых данных Label7 Caption= Value of the serial input data End Sub

Sub Label6 MouseMove(index As Integer Button As Integer Shift As Integer X As Single Y As Single)

Select Case index

Case 0

Label7 Caption= Baud rate=115200 19200 9600 2400 etc Case 1

Label7 Caption= 0=No Parity 1=0dd Parity 3=Even Parity Case 2

Label7 Caption Input 5 6 7 or 8 to select the data bit length Case 3

Label7 Caption= Input 1 or 2 to select Stop bit End Select End Sub

Sub Text1 HouseHove(Button As Integer Shift As Integer X As Single Y As Single) Ввод данных для передачи

Label7 Caption Input the serial data to be sent out End Sub

Sub Text2 Change(index As Integer) Select Case index Case 0 Case 1 Case 2 Case 3 End Select End Sub

3.3. Программное обеспечение для экспериментальной платы игрового порта

В разделе представлены тексты программ управления экспериментальной платой игровою порта и необходимые пояснения к ним



0 ... 27 28 29 30 31 32 33 ... 105