乙級硬裝vb程式期末考題參考 =====>加油!!!

< VB 介面控制程式前置步驟 >

1.     下載USBIO4到C槽

2.     把CMD打開 輸入           èDos 指令視窗

3.  cd c:\                      è 移置c槽根目錄

4.  ______________________    è註冊usb驅動程式到Windows系統

模組內容

module1.bas  

Imports   __________________

Module Module1   

   Function G(ByVal i As Integer) As OvalShape

       ________________________________

    End Function

    Function R(ByVal i As Integer) As OvalShape

     ________________________________

    End Function

End Module

================================================================

表單主程式

Imports USBIO

Public Class Form1

    Dim________________           è宣告

   Dim ________________

<<<<表單三個按鈕 紅綠LED燈按鈕 和 跳出(EXIT) 按鈕 程式內容省略>>>>

  Private Sub display(ByVal no)      è螢幕顯示

     

                                提示  for 迴圈

    End Sub

=è假設綠燈亮登順序如下:

 

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

   ________________________________________________         è綠燈燈號設定陣列

               

___________________________________________________  è標籤時間設定

                                 

__________________________________________________ è螢幕  介面卡燈號控制

                                                                                                      (包括紅燈 綠燈 及 跳出)

                               

       

  End Sub