روشن کردن 4 led با HC-05

[mahdiPOU]

سلام و درود

دوستان میخوام 4 led رو با ماژول hc05 روشن کنم با pair شدن به اندروید و برنامشو گیر نیاوردم خودمم نتونستم بنویسمش اگه میشه
یه عزیزی زحمتشو بکشه واسم ممنون

[2alborz]

پاسخ : روشن کردن 4 led با HC-05

$regfile = "M8def.dat"
$crystal = 8000000
$baud = 9600
Dim A As String * 2
Enable Interrupts
Enable Urxc
Enable Utxc
Config Portd = Output
Config Portb = Output

Do
A = Inkey()
If A = "A" Then
Set Portb.1
Print "1"
End If
If A = "B" Then
Set Portb.0
Print "2"
End If
If A = "C" Then
Set Portd.7
Print "3"
End If
If A = "D" Then
Set Portd.6
Print "4"
End If
If A = "E" Then
Set Portd.5
Print "5"
End If
If A = "F" Then
Set Portb.7
Print "6"
End If
If A = "M" Then
Set Portb.6
Print "7"
End If
If A = "G" Then
Set Portb.1
Set Portb.0
Set Portd.7
Set Portd.6
Set Portd.5
Set Portb.7
Set Portb.6
Print "n"
End If
If A = "H" Then
Reset Portb.1
Reset Portb.0
Reset Portd.7
Reset Portd.6
Reset Portd.5
Reset Portb.7
Reset Portb.6
Print "f"
End If
Loop

End