Computer Hardware Maintenance Class B – Introduction to the Bluetooth Debugging Board
01. Materials List
01.SMD LED Green
02.SMD LED Red
03.220Ω SMD Resistor
04.74273 SMD IC
05.74244 SMD IC
06.28-Pin IC Socket
07.4.7uF Electrolytic Caoacitor
08.0.1uF Ceramic Capacitor
09.20pF Ceramic Capacitor
10.220 Resistor
11.LED
12.6-Pin Female Header
13.Atmega 328P-PU IC
14.HC-05 Bluetooth Mode
15.Plastic Standoffs
16.Type-C Socket
02. Visual Basic 6.0 Program Code
Dim A, C
Dim RR(20), GG(20)
Private Sub Timer1_Timer()
RR(0) = &H1
RR(1) = &H2
RR(2) = &H4
RR(3) = &H8
RR(4) = &H10
RR(5) = &H20
RR(6) = &H40
RR(7) = &H80
GG(0) = &H1
GG(1) = &H2
GG(2) = &H4
GG(3) = &H8
GG(4) = &H10
GG(5) = &H20
GG(6) = &H40
GG(7) = &H80
Label1.Caption = "Current Time:" & Time$
If A = 3 Then
End
End If
If MSComm1.PortOpen = False Then
For i = 0 To 7
G(i).FillStyle = 1
R(i).FillStyle = 1
Next
Else
For i = 0 To 7
G(i).FillStyle = 0
R(i).FillStyle = 0
G(i).FillColor = RGB(0, 128, 0)
R(i).FillColor = RGB(128, 0, 0)
Next
If A = 1 Then
MSComm1.Output = "G" & GG(C)
End If
If A = 2 Then
MSComm1.Output = "R" & RR(C)
End If
If C > 15 Then
C = 15
Else
C = C + 1
End If
End If
End Sub
Private Sub Command1_Click()
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
Command1.Caption = "Disconnect Bluetooth"
MSComm1.Output = "R0"
Else
MSComm1.PortOpen = False
Command1.Caption = "Connect Bluetooth"
End If
End Sub
Private Sub Command2_Click(Index As Integer)
A = Index
C = 0
End Sub
Private Sub Display(No)
For i = 0 To 7
If No Mod 2 And A = 1 Then G(i).FillColor = RGB(0, 255, 0)
If No Mod 2 And A = 2 Then R(i).FillColor = RGB(255, 0, 0)
No = No \ 2
Next
End Sub
03. Exam Question Result Image
Other Circuits
01. Digital Electronics Class B – Question 1: 4-Digit Display Device
02. Digital Electronics Class B – Question 2: Keypad Input Display Device
03. Digital Electronics Class B Extend Project – Digital Clock
Writer: Roy Yan
Comments
Post a Comment