NOTICE توجه: این یک موضوع قدیمی است که آخرین پست ارسالی آن مربوط به 3145 روز قبل است . لطفا فقط پاسخ ها ، سوالات و درخواست های 100 درصد مرتبط را به آن ارسال کنید و برای درخواست ها و سوالات جدید موضوع جدیدی را ایجاد کنید
نمایش نتایج: از 1 به 6 از 6

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

  1. #1
    کاربر علاقه مند
    تاریخ عضویت
    Aug 2015
    نوشته ها
    85
    تشکر
    7
    تشکر شده 4 بار در 3 پست

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

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

    Sent from my D6502 using Tapatalk

  2. # ADS
    Circuit advertisement
    تاریخ عضویت
    Always
    نوشته ها
    Many
     

  3. #2
    تازه وارد
    تاریخ عضویت
    Aug 2015
    نوشته ها
    2
    تشکر
    0
    تشکر شده 0 بار در 0 پست

    پیش فرض

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



    $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

  4. #3
    کاربر علاقه مند
    تاریخ عضویت
    Aug 2015
    نوشته ها
    85
    تشکر
    7
    تشکر شده 4 بار در 3 پست

    پیش فرض

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

    Sent from my D6502 using Tapatalk

  5. #4
    کاربر علاقه مند
    تاریخ عضویت
    Aug 2015
    نوشته ها
    85
    تشکر
    7
    تشکر شده 4 بار در 3 پست

    پیش فرض

    $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

  6. #5
    کاربر علاقه مند
    تاریخ عضویت
    Aug 2015
    نوشته ها
    85
    تشکر
    7
    تشکر شده 4 بار در 3 پست

    پیش فرض

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

    Sent from my D6502 using Tapatalk

  7. #6
    کاربر علاقه مند
    تاریخ عضویت
    Aug 2015
    نوشته ها
    85
    تشکر
    7
    تشکر شده 4 بار در 3 پست

    پیش فرض

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

    Sent from my D6502 using Tapatalk

موضوعات مشابه

  1. فیوزبیت های قفل در avr
    توسط saeed930829 در انجمن AVR
    پاسخ: 3
    آخرين نوشته: 09-08-2015, 09:59
  2. تنظیم فیوزبیت ها
    توسط pesaroone در انجمن AVR
    پاسخ: 0
    آخرين نوشته: 26-07-2013, 17:35
  3. فیوزبیت lpc1768?
    توسط mansoory در انجمن LPC series (NXP)
    پاسخ: 1
    آخرين نوشته: 11-03-2013, 17:54
  4. فیوزبیت های pic
    توسط hetler در انجمن PIC
    پاسخ: 4
    آخرين نوشته: 23-12-2011, 17:33
  5. فیوزبیت ckopt
    توسط safavism در انجمن AVR
    پاسخ: 1
    آخرين نوشته: 23-08-2011, 14:19

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •