5. Giáo vieđn hướng dăn : Th.S TÁ COĐNG ĐỨC
6.4.3. Thiêt kê giao dieơn và laơp trình
Thiêt kê giao dieơn
Heơ thông giao tiêp máy tính dựa tređn yeđu caău đaịt ra, nhóm thực hieơn đeă tài thiêt kê giao dieơn giao tiêp như sau :
Hình 6 - 17 : Giao dieơn đieău khieơn trong khi thiêt kê
Các thuoơc tính cơ bạn cơ bạn cụa moơt sô thành phaăn tređn Form (giao dieơn). - Form : FrmMain
.Name =FrmMain
.Caption =”Chương trình đieău khieơn và giám sát thiêt bị qua máng đieơn thối”
- Command Button (nút leơnh) : cmdDial .Name =cmdDial
.Caption =”Thực hieơn cuoơc gĩi” - Command Button : cmdCancel
.Caption =”Gác máy” - Command Button : cmdReadST .Name =cmdReadST
.Caption =”Đĩc TT hieơn tái cụa TB” - Command Button : cmdUpdatData
.Name =cmdUpdatData
.Caption =”Caơp nhaơt tráng thái TB” - Label (Nhãn) : Label1
.Name =Label1
.Caption =”Nhaơp sô đieơn thối” - Label : Label2
.Name =Label2
.Caption =”Tráng thái hieơn tái” - Label : Label3
.Name =Label3
.Caption =”TT mong muôn” - Label : Label4
.Name =Label4
.Caption =”TT mong muôn” - Label : Label5
.Name =Label5
.Caption =”TT hieơn tái” - Label : Label6
.Name =Label6 .Caption =”Teđn thiêt bị” - Label : LblStatus
.Name =LblStatus .Caption =”On Hook” - Các Label : LblSTEQ(i), với i=0..15 .Name =LblSTEQ .Caption =”chưa biêt”
.Index =i
- Textbox (ođ nhaơp dữ lieơu): TxtDialNumber .Name =TxtDialNumber
.Text =””
- Các Textbox : TxtEQName(i), với i=0..15 .Name =TxtEQName
.Text =”TxtEQName” .Index =i
- Checkbox (ođ lựa chĩn) : ChkEQ(0) .Caption =”Thiêt bị 01” .Index =0 - Checkbox : ChkEQ(1) .Caption =”Thiêt bị 02” .Index =1 . . . - Checkbox : ChkEQ(15) .Caption =”Thiêt bị 16” .Index =15
Đeơ có theơ thađm nhaơp vào heơ thông đieău khieơn, người đieău khieơn caăn nhaơp maơt mã đeơ đieău khieơn, giao dieơn nhaơp maơt mã như sau:
Hình 6 - 18 : Giao dieơn nhaơp maơt mã khi thiêt kêõ
Các thuoơc tính cớ bạn cụa các thành phaăn tređn Form FrmLogin nhu sau: - Form : FrmLogin
.Name =FrmLogin .Caption =”Login” - Command Button : CmdOK
.Name =CmdOK .Caption =”OK” - Command Button : CmdCancel .Name =CmdCancel .Caption =”Cancel” - Textbox : TxtUserName .Name =TxtuserName .Text =”” - Textbox : TxtPassword .Name =TxtPassword .Text =”” .PasswordChar=”*”
Đeơ người đieău khieơn có theơ thay đoơi teđn cụa thiêt bị cho phù hợp, ta caăn có Form nhaơp teđn thiêt bị mới như hình sau:
Hình 6 - 19 : Giao dieơn nhaơp teđn thiêt bị lúc thiêt kê
Các thuoơc tính cớ bạn cụa các thành phaăn tređn Form FrmInputEQName như sau:
- Form : FrmInputEQName
.Name =FrmInputEQName .Caption =”Nhaơp teđn thiêt bị mới” - Command Button : CmdOK
.Name =CmdOK .Caption =”OK” - Command Button : CmdCancel .Name =CmdCancel .Caption =”Cancel”
- Textbox : TxtEQName
.Name =TxtEQName
.Text =””
Phương thức laơp trình truy xuât coơng máy in (LPT)
Visual Basic khođng hoê trợ các hàm, thụ túc đeơ người laơp trình có theơ truy xuât trực tiêp đên các thanh ghi cụa coơng máy in (LPT). Moơt giại pháp được đưa ra là sử dúng các teơp (taơp tin – file) DLL (Dynamic Link Library).
Trong đoă án này chúng tođi sử 2 teơp DLL là Inpout32.DLL và Port.DLL . Các hàm và thụ túc được khai như sau :
Declare Sub DELAY Lib "PORT.DLL" (ByVal b%)
Declare Sub DELAYUS Lib "PORT.DLL" (ByVal l As Long) Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer Declare Sub Out Lib "inpout32.dll" Alias "Out32" _
(ByVal PortAddress As Integer, ByVal Value As Integer) Các thụ túc DELAY và DELAYUS trong PORT.DLL được sử dúng đeơ có theơ táo ra thời gian treê với đơn vị là ms (DELAY) và thời gian treê với đơn vị là
µs (DELAYUS). Thụ túc Out32 trong Inpout32.DLL được khai báo sử dúng với teđn là Out cho phép xuât dữ lieơu ra các thanh ghi, địa chư cụa thanh ghi được đưa vào thođng qua tham trị PortAddress và dữ lieơu caăn ghi được đưa vào qua tham trị Value. Hàm Inp32 được khai báo sử dúng với teđn là Inp cho phép đĩc dữ lieơu từ các thanh ghi, địa chư cụa thanh ghi được đưa vào thođng qua tham trị PortAddress, dữ lieơu được trạ veă thođng qua teđn hàm.
Lưu ý:
- Khi khai báo các thụ túc DELAY và DELAYUS thì teđn thụ túc phại được viêt hoa, vì các teđn này cũng được dùng beđn trong DLL, do đó ta thây dòng khai báo khođng chư rõ teđn cụa thụ túc được tham chiêu beđn trong PORT.DLL.
- Hàm Inp và thụ túc Out được tham chiêu cú theơ trong dòng khai báo (Inp
tham chiêu đên Inp32, Out tham chiêu đên Out32), do đó ta có theơ khai báo với moơt teđn khác nêu muôn.
Chương trình giao dieơn đieău khieơn được viêt trong mođi trường phát trieơn ứng dúng Visual Basic (VB). Trong chương trình, chúng tođi sử dúng các hàm và thụ túc có sẵn cụa VB đeơ xử lý dữ lieơu, và sử dúng các hàm/thụ túc trong các DLL được khai báo ở tređn đeơ nhaơp xuât thođng qua các thanh ghi cụa coơng máy in. Trong lúc thiêt kê chương trình giao dieơn trong moơi trường VB, đeơ có
theơ cháy thử chương trình, các teơp DLL (PORT.DLL và InpOut32) phại được chép vào thư múc heơ thông cụa heơ đieău hành (ví dú: C\Windows\ , hoaịc
C\Windows\System\).