VB6程式設計(104.10.13)

　

1.電路及程式功能要求：

 (1).VB程式畫面大小寫要與試題本一模一樣，時間則取用電腦時間。

 (2).USB連線移除時，電路板LED全滅，VB程式的LED變透明。

 (3).USB連線時，電路板LED亮燈不管，VBVB程式的LED變暗紅及暗綠。

 (4).VB程式點選 Green LED 時，電路板按照試題亮燈，VB程式的LED同步亮燈。

 (5).VB程式點選 Red LED 時，電路板按照試題亮燈，VB程式的LED同步亮燈。

　

2.啟動VB表單設計後，新增6個元件，其元件按代號次序建立。

　

 

工具列

元件類別

改名／Index

功 能

1

文字

方塊

T1

顯示時間

2

按鈕

Command1(0)

啟動綠色

LED程式

3

按鈕

Command1(1)

啟動紅色

LED程式

4

按鈕

Command1(2)

離開程式

5

計時器

Timer1

讓LED顯示

6

繪圖

R(0)~R(7)

VB上的LED

7

繪圖

G(0)~G(7)

VB上的LED

　

Timer1計時器，其Interlevel設為1000，這樣時間間隔約為1秒。

　

　

舊式寫法：程式的宣告部分

　

新式寫法：載入萬能工商開發的動態連結檔 wnvs.dll

Win10若無法執行WNVS.DLL，請至Win10使用VB6參考

　

　

1.進入VB6後，功能表/專案/設定引用項目/OLE Automation/瀏覽/搜尋位置/WNVS.dll/開啟

    

　

2.程式中宣告 Dim U as new 即可下選單，選USB_HID

　

程式的宣告部分

　

　

表單載入時的程式：Form_Load()

　

　

 Green LED、Red LED、EXIT按鈕的程式：

Command1_Click(Index As Integer)

　

　

計時器的程式：Timer1_Timer()  

   

　

的程式

　

全部程式