Раздел: Документация

0 ... 24 25 26 27 28 29 30 ... 105

т

►•ой компьютер

Centronic Poll Errperimenta Board

Изменение состоян порта дани

Информационная панель

Data port
f	ClT
•	0-1
•	0-1
f	jp-f
	6-i
•	0-1
•	0-1
•	0-1

Select Centionic Port

No of installed LPTs: 2 Base address of LPT: 632

Сменить I

>нить LPT-порт ;рд Из программы

ontftti pod
• JSti

Status pott

: м

Ф GetitI

[.change status от the cr

;i pol output г4 oiipijts]

Получить содержимое регистра состояния

Изменение состояни регистра управления

п*с* I В Ad°be Photoshop

, Centronic Port Expert..

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

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

Label3 Caption= Get the status of the Status port inputs (4 inputs) End Sub

Sub Command2 click (index As Integer)

Изменение состояния выходов регистра данных и управления status(index)=1-status(index)Изменение

If status(index) =1 Then Shapel(index) BackColor=&HFF& Else Shapel(index) BackColor=black

Вывод состояния на виртуальные светодиоды

Вывод байта в регистр данных Output byte=0 For i=0 To 7

0utput byte=0utput byte+status(i)*Bit weight(i+1) Формирование байта для передачи Next 1

dummy=Write data port(P address 0utput byte) Запись байта в регистр данных

Вывод байта в регистр управления Output byte=0 For 1=8 To 11

0utput byte=0utput byte+status(i)*Bit weight(i-7) Формирование байта для передачи Next 1

dummy=Write control port(P address 0utput byte) Запись байта в регистр управления

---

Чтение данных регистра состояния. input byte=Read status port(P add ress) For i=12 To 15

Определение состояния каждого бита. status(i)=(input byteAnd Bit weight(i-11))/Bit weight(i-11) Вывод состояния на виртуальные светодиоды.

If status(i)=1 Then Shape1(i).BackColor=&HFF& Else Shape1(i).BackColor=black Next i End Sub

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

Отображение подсказки при движении указателя мыши над кнопкой. If index<=7 Then

Label3.Caption="Change status of Data port outputs (8 outputs)" Else

Label3 Caption="Change status of Control port outputs (4 outputs)" End If End Sub

Sub Command3 Click() Выбор другого порта,

dummy=MsgBox(Str(Centromc(0))-1 & "Centronic ports (LPTs) are installed on your PC, Their base addresses are: " & Format$(Centronic(1), "###") & " " & Format$(Centronic(2), "###") & " " & Format$(Centronic(3), "Ш") 4 " " & Format$(Centronic(4), "###") & "Descimal",48,"Centronic ports (LPT) on your PC")Отображение информации

о копичестве установпенных LPT-портов. lpt number=Val(InputBox$("Input 1, 2, 3 or 4to select a Centronic port (LPT) for the Mjni-Lab Data Logger/Controller", "Select LPT ports")) Выбор параппепьного порта. P address=Centronic(lpt number)Нахождение базового адреса

выбранного порта.

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

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

Label4.Caption="Base address of LPT:" & Format(P address) Отображение информации

об адресе выбранного порта.

End Sub

Sub Command4 Click()

Выход из программы.

End End Sub

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

Label3.Caption="Quit the program" End Sub

Sub Form Load()

Инициализация состояния. For i=0 to 11

status(i)=0 Next l

Отображение информации о параллельном порте, выбор LPT-порта. dummy=MsgBox(Str(Centronic(0))-1 & "Centronic ports (LPTs) are installed on your PC. Their base addresses are: " & Format$(Centronic(1),"###") & " " &

---

Format$(Centronic(2), ###") & " " & Format$(Centronic(3), "###) & & Format$(Centromc(4), "###") & "Descimal",48,"Centronic ports (LPTs) on your PC")

lpt number=Val(InputBox$( Input 1, 2, 3 or 4 to select Centronic port (LPT) for the Centronic experimental board", Select LPT ports))

P address=Centromc(lpt number)

Label2.Caption="No of installed LPTs: " & Format(lpt number) Label4 Caption="Base address of LPT: " & Format(P address) dummy=Wnte data port(P address, 0) dumrny=Wnte control port(P address,0) End Sub

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

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

3.2.1. Описание программы RS232EXP.PAS

Программа выполняет следующие функции:

О сообщает о количестве установленных на компьютере последовательных портов;

О позволяет выбрать последовательный порт (СОМ);

О настраивает формат последовательных данных;

О вводит байт и передает последовательные данные;

О изменяет состояние линий управления модемом (DTR и RTS);

О считывает последовательные данные;

О считывает состояние линий DSR, DCD и CTS.

После запуска программы на экран выводится следующая информация:

Number of COM installed. 4

Addresses for C0M1 to COM4. 1016 760 1000 744

Select a COM to be used (1,2,3 or 4).

Первая строка показывает количество установленных СОМ-портов, вторая -отображает их базовые адреса. Третья строка дает возможность выбрать последовательный порт для его дальнейшего использования. После того как вы укажете номер порта, на экране появится виртуальная панель управления (рис. 3.5).

Здесь изображены семь виртуальных светодиодов в соответствии с их количеством на экспериментальной плате: три из них соотносятся с тремя выходами, четыре - с четырьмя входами. Внизу размещается панель помощи, где показаны клавиши управления программой с кратким описанием их функций:

О [ARROW] (клавиши управления курсором) - выбор выхода;

О [Т] или [t] - ввод данных с клавиатуры и их передача;

О [SPASE] (пробел) - изменение состояния выбранной выходной линии;

О [С] или [с] - настройка формата последовательных данных;

О [OJ или [q] - выход из программы.

0 ... 24 25 26 27 28 29 30 ... 105

Заказать газосварочное оборудование с доставкой по всей России