乙級電腦硬體裝修第一站詳解(VB6)藍芽版程式

程式碼

Dim A, B(99), c As Integer

Private Sub Command1_Click(Index As Integer)

A = Index

c = 0

End Sub

Private Sub display(no)

For i = 0 To 7

   If no Mod 2 = 1 And A = 1 Then G(i).FillColor = RGB(0, 255, 0)

   If no Mod 2 = 1 And A = 2 Then R(i).FillColor = RGB(255, 0, 0)

   no = no \ 2

Next i

End Sub

Private Sub Command2_Click()

If MSComm1.PortOpen Then

   MSComm1.Output = "R0"  'LED全部熄滅

   MSComm1.Output = "G0"

   MSComm1.PortOpen = False

   Command2.Caption = "Connect Bluetooth"

Else

   MSComm1.PortOpen = True

   Command2.Caption = "Disconnect Bluetooth"

   MSComm1.Output = "R0" 'LED全部熄滅

   MSComm1.Output = "G0"

End If

End Sub

Private Sub Timer1_Timer()

B(0) = 1

B(1) = 2

B(2) = 4

B(3) = 8

B(4) = &H10

B(5) = &H20

B(6) = &H40

B(7) = &H80

Label1.Caption = "Current Time:" & Time$

For i = 0 To 7

    G(i).FillColor = vbWhite

    R(i).FillColor = vbWhite

Next i

If MSComm1.PortOpen Then

   For i = 0 To 7

       G(i).FillColor = RGB(0, 128, 0)

       R(i).FillColor = RGB(128, 0, 0)

   Next i

   If A = 1 Then MSComm1.Output = "G" & B(c): display (B(c))

   If A = 2 And c <= 8 Then MSComm1.Output = "R" & 2 ^ c: display (2 ^ c)

End If

If A = 3 Then End

If c > 15 Then c = 15 Else c = c + 1

End Sub