Раздел: Документация
0 ... 27 28 29 30 31 32 33 ... 105 Мой -««яггар Выходные , данны Входные данные Изменить ,а конфигураций порта
Рис. 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
|