برگرداندن فیوزبیت های میکرو

سلام
همانطور که میدونید گاهی بعضی از فیوزبیت های میکرو اشتباه پروگرام میشن. مثلا اگر فیوز بیت spien دستکاری شه ارتباط isp قطع میشه و به خاطر این که بیشتر پروگرامر ها از این طریق میکرو را پروگرام میکنند دیگه میکرو بدرد نخور میشه.راه حلی هست؟اگره دکتر فیوزبیت راحتونه ایا خودتون درسد کردید؟ایا جواب داده؟

Sent from my D6502 using Tapatalk

مشکل دارم درست کار نمی کند راهنمایی بفرمایید
:lol::lol:


$regfile = "m16def.dat"

$crystal = 4000000
Config Portc = Output
Config Portb = Input
Config Porta = Output

Set Portb.1
Set Portb.2
Set Portb.3
Dim A As Byte
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.0
Cls
Locate 1 , 4
Lcd "start"
Lcd "**"




Waitms 600
Do
If Portb.1 = 1 And Portb.2 = 1 And Portb.3 = 0 Then
Set Portc.1
Reset Portc.2
Reset Portc.3
Cls
Locate 1 , 4
Lcd "finder"


Elseif Portb.1 = 0 And Pinb.2 = 1 And Portb.3 = 0 Then
Set Portc.1
Reset Portc.2
Set Portc.3
Cls
Locate 1 , 4
Lcd "ran<"
Lcd "#"

Elseif Portb.1 = 1 And Pinb.2 = 1 And Portb.3 = 1 Then
Set Portc.1
Reset Portc.2
Set Portc.3
Cls
Locate 1 , 4
Lcd "ran>"
Lcd "$"


Else
Reset Portc.1
Set Portc.2
Reset Portc.3
Cls
Locate 1 , 4
Lcd "apash"
End If
Loop
End

قسمت های از برنامه ایراد داره شما نباید از AND. استفاده کنید.خوب منظورتون رو از AND بگید تا من برنامه صحیح رو براتون بنویسم. ینی بگید که منظورتون اینه:
اگر اون سه پورت یک بود بره به زیر برنامه. ایا منظورتون اینه؟

Sent from my D6502 using Tapatalk

$regfile = "m16def.dat"
$crystal = 4000000
Config Portc = Output
Config Portb = Input
Config Porta = Output
Ddrb.1 = 0: portb.1 = 1
Ddrb.2 = 0: portb.2 = 1
Ddrb.3 = 0: portb.3 = 1
Dim A As Byte
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.0
Cls
Locate 1 , 4
Lcd "start"
Lcd "**"




Waitms 600
Do
If Portb.1 = 1 then
If Portb.2 = 1 then
If Portb.3 = 0 Then
Set Portc.1
Reset Portc.2
Reset Portc.3
Cls
Locate 1 , 4
Lcd "finder"
End if
End if
End if


If Portb.1 = 0 then
If Pinb.2 = 1 then
If Portb.3 = 0 Then
Set Portc.1
Reset Portc.2
Set Portc.3
Cls
Locate 1 , 4
Lcd "ran<"
Lcd "#"
End if
End if
End if

If Portb.1 = 1 then
If Pinb.2 = 1 then
If Portb.3 = 1 Then
Set Portc.1
Reset Portc.2
Set Portc.3
Cls
Locate 1 , 4
Lcd "ran>"
Lcd "$"
Reset Portc.1
Set Portc.2
Reset Portc.3
Cls
Locate 1 , 4
Lcd "apash"
End If
End if
End if
Loop

همینو کپی کنید تست کنید اگر جواب نداد بگید تا براتون برنامه ی دیبانس رو بنپیسم.





Sent from my D6502 using Tapatalk

بعد از loop در خط پایینش اینم بنویسید
Return

Sent from my D6502 using Tapatalk

مشکلتون حل شد؟

Sent from my D6502 using Tapatalk