硬件

硬件可以指：

计算机和电子学

• 计算机硬件，電腦的物理部分
• 数字电路，控制数字信号的电路
• 電子元件，电子系统中用来影响电子的设备，通常是工业产品
• 網絡設備，使用计算机网络的设备
• 硬件加速，通过定制硬件而非软件中执行计算任务，以加快计算任务的速度

Imports Microsoft.VisualBasic.PowerPacks Module Nodulel

   Function g(ByVal i As Integer) As OvalShape
       g = Form1.ShapeContainer1.Shapes(i + 8)
   End Function
   Function r(ByVal i As Integer) As OvalShape
       r = Form1.ShapeContainer1.Shapes(i)
   End Function

End Module

Imports USBIO Public Class Form1

   Dim musb As New USBIO4
   Dim a, b(99), c As Integer
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       a = 1 : c = 0
   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       a = 2 : c = 0
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       a = 3
   End Sub

   Private Sub display(ByVal no)
       For i = 0 To 7
           If no Mod 2 = 1 And a = 1 Then g(i).FillColor = Color.LightGreen
           If no Mod 2 = 1 And a = 2 Then r(i).FillColor = Color.Red
           no = no \ 2
       Next i
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       b(0) = 1
       b(1) = 2
       b(2) = 4
       b(3) = 8
       b(4) = 16
       b(5) = 32
       b(6) = 64
       b(7) = 128
       Label1.Text = "Current Time" & TimeOfDay()
       For i = 0 To 7
           g(i).FillColor = Color.Transparent
           r(i).FillColor = Color.Transparent
       Next i
       If musb.OpenUsbDevice(&H1234, &H6789) Then
           For i = 0 To 7
               g(i).FillColor = Color.DarkGreen
               r(i).FillColor = Color.DarkRed
           Next i
           musb.OutDataCtrl(0, 0) : musb.OutDataCtrl(0, 16)
           If a = 1 Then musb.OutDataCtrl(b(c), 0) : display(b(c))
           If a = 2 And c <= 7 Then
               musb.OutDataCtrl(2 ^ c, 32)
               musb.OutDataCtrl(2 ^ c, 48)
               display(2 ^ c)
           End If
       End If
       If a = 3 Then musb.CloseUsbDevice() : End
       If c > 15 Then c = 15 Else c = c + 1
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub

End Class

其他

• 军事技术与装备列表
• 基础设施