Hardware Repair Certification Level B Task 1 (電腦硬體裝修乙級第一站)
完整 VB.NET 電腦硬體裝修乙級第一站檢定程式碼
• a：燈號模式 (1:綠燈輪播, 2:紅燈輪播)。 • Button1 / Button2：設定模式並重置指標 (gg = 0 或 rr = 0)。 • Button3：執行 SerialPort1.Close() : End 關閉通訊並結束程式。
a
Button1 / Button2
gg = 0
rr = 0
Button3
SerialPort1.Close() : End
• 判斷 SerialPort1.IsOpen 狀態。 • 若開啟：呼叫 LedOff()、更新按鈕文字為 "Connect Bluetooth"、關閉 SerialPort。 • 若關閉：開啟 SerialPort、呼叫 LedOff()、更新文字為 "Disconnect Bluetooth"。
SerialPort1.IsOpen
LedOff()
• 抓取 ShapeContainer1.Shapes 與當前時間 TimeString。 • 通訊開啟時，先初始化 0~7 為 DarkRed、8~15 為 DarkGreen，再用空迴圈 10^7 延遲。 • 根據 a = 1 或 a = 2 傳送 16 進位字串至 SerialPort1 並呼叫 Display。
ShapeContainer1.Shapes
TimeString
10^7
a = 1
a = 2
Display
• LedOff：手打 Private Sub LedOff() ... End Sub，寫入 "R0" 與 "G0"。 • Display：手打 Private Sub Display(ByVal p, ByVal no) ... End Sub，8次迴圈剖析 no Mod 2 = 1 並進行整數除法 no = no \ 2。
LedOff
Private Sub LedOff()
End Sub
Private Sub Display(ByVal p, ByVal no)
no Mod 2 = 1
no = no \ 2
全域變數與控制按鈕 (Button 1 ~ 3)
•
a：燈號模式 (1:綠燈輪播, 2:紅燈輪播)。•
Button1 / Button2：設定模式並重置指標 (gg = 0或rr = 0)。•
Button3：執行SerialPort1.Close() : End關閉通訊並結束程式。藍芽連線切換 (Button 4)
• 判斷
SerialPort1.IsOpen狀態。• 若開啟：呼叫
LedOff()、更新按鈕文字為 "Connect Bluetooth"、關閉 SerialPort。• 若關閉：開啟 SerialPort、呼叫
LedOff()、更新文字為 "Disconnect Bluetooth"。Timer1 時鐘與燈號輪播主邏輯
• 抓取
ShapeContainer1.Shapes與當前時間TimeString。• 通訊開啟時，先初始化 0~7 為 DarkRed、8~15 為 DarkGreen，再用空迴圈
10^7延遲。• 根據
a = 1或a = 2傳送 16 進位字串至 SerialPort1 並呼叫Display。LedOff 與 Display 副程式 (須完整輸入)
•
LedOff：手打Private Sub LedOff()...End Sub，寫入 "R0" 與 "G0"。•
Display：手打Private Sub Display(ByVal p, ByVal no)...End Sub，8次迴圈剖析no Mod 2 = 1並進行整數除法no = no \ 2。