کمک کنترل رله با HC-05

[2alborz]

سلام من این کدو نوشتم ولی یک قسمت کار نمی کنه این قسمت :angry:

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 "u"

End If

مابقی مشکلی ایجاد نمی کنه :rolleyes:

$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 = "S" Then
Reset Portb.1
Print "8"
End If
If A = "N" Then
Reset Portb.0
Print "9"
End If
If A = "V" Then
Reset Portd.7
Print "10"
End If
If A = "X" Then
Reset Portd.6
Print "11"
End If
If A = "R" Then
Reset Portd.5
Print "12"
End If
If A = "T" Then
Reset Portb.7
Print "13"
End If
If A = "O" Then
Reset Portb.6
Print "14"
End If
Loop
End
   
End

بعدش اگه تمام LEDروشن کنم همین جوری روشن می مونن هر چی که می فرستم کار نمی کنه انکار قفل میشه
ولی اگه تک تک روشن خاموش کنم مشکلی پیش نمباد فقط زمانی که همش با هم روشن بشه کار نمی کنه

[sejil]

پاسخ : کمک کنترل رله با HC-05

سلام برادر
اگه زبان c بود میتونستم کمکت کنم

[alirazmjoo]

پاسخ : کمک کنترل رله با HC-05

دقیقا میخوای چطور ال ای دی ها روشن خاموش شن؟

[2alborz]

پاسخ : کمک کنترل رله با HC-05

برنامه بالا قراره 7 LED روشن کنه

یک برنامه هم برای گوشی پیدا کردم که 16 دکمه داره که دکمه اول LED اول روشن می کنه دکمه بعدی همونLED خاموش میکنه به ترتیب این کار رو انجام می دم تا اینجاش مشکلی نیست

مشکل وقتیه که می خام همه LED ها رو باهم روشن و خاموش کنم که وقتی همه رو با هم روشن می کنم نمی دونم هنگ میکنه یا قفل میشه که هیچ کدوم از دکمه ها کار نمی کنند تا وقتی که برق قطع و وصل کنم :angry:

[2alborz]

پاسخ : کمک کنترل رله با HC-05

هیچ کس نمی تونه کمک کنه :cry: :sad: :angry:

[2alborz]

پاسخ : کمک کنترل رله با HC-05

مشکلم حل شد :applause: :wow: :nice:

[sadra777]

پاسخ : کمک کنترل رله با HC-05

دوست نارنین. منم تو کار با این ابزار مشکل دارم. ممنون میشم به من کمک کنی. برای من کلا چراغاش روشن نمیشه :(
پیام برات فرستادم. صندوقتو چک کن لطفا