اطلاعیه

Collapse
No announcement yet.

مشکل نویز روی lcd کاراکتری

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    #16
    پاسخ : مشکل نویز روی lcd کاراکتری

    کجای برنامه باید بنویسم؟

    دلیل: ادغام دو پست برای جلوگیری از اسپم

    الان نمیشه برنامه رو بفرستم حتما تا دو ساعت دیگه میفرستم
    تو رو خدا کمک کنید من دیگه رد دادم

    دیدگاه


      #17
      پاسخ : مشکل نویز روی lcd کاراکتری

      نوشته اصلی توسط hamed4354 نمایش پست ها
      کجای برنامه باید بنویسم؟

      دلیل: ادغام دو پست برای جلوگیری از اسپم

      الان نمیشه برنامه رو بفرستم حتما تا دو ساعت دیگه میفرستم
      تو رو خدا کمک کنید من دیگه رد دادم
      در کدویژن این دستور در صورت تنظیم کد ویزارد به صورت خودکار اضافه میشه
      هر وقت ال سی دی تون بهم ریخت از دستور lcd_clear () استفاده کنید ببینید درست میشه یا نه
      آرزوی سرافرازی برای ایران عزیز . . .


      دیدگاه


        #18
        پاسخ : مشکل نویز روی lcd کاراکتری

        تو بسکام هست برنامه ام
        $regfile = "m8def.dat"
        $crystal = 4000000
        Config Adc = Single , Prescaler = 8 , Reference = Avcc
        Config Lcdpin = Pin , Rs = Portd.7 , E = Portd.6 , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2
        Config Lcd = 16 * 2
        Cursor Off
        Config 1wire = Portb.7
        Dim Byte0 As Byte
        Dim Byte1 As Byte
        Dim Sign As String * 1
        Dim T As String * 4
        Dim T1 As Single
        Dim T2 As Single
        Dim L As Single
        Dim H As Single
        Dim Ll As String * 4 : Dim Xadcl As Word
        Dim Hh As String * 4 : Dim Xadch As Word
        Dim Adctm1 As Word : Dim Adctm2 As Word : Dim Adctmincr As Word : Dim Adctmincr2 As Word
        Dim Adcts1 As Word : Dim Adcts2 As Word : Dim Rast_chap As Byte
        '*******************************
        Config Portb.0 = Output : Config Portb.1 = Output
        Config Portb.2 = Output : Config Portb.3 = Output
        '**************
        Cls
        Lcd " BE NAME KHODA"
        Waitms 80
        Locate 2 , 1
        Lcd " HAMED"
        Wait 2
        '***********
        Cls
        Lcd " AND"
        Waitms 80
        Locate 2 , 1
        Lcd " MOSTAFA "
        Wait 2
        Cls
        Do
        Xadcl = Getadc(0) : L = Xadcl / 200 : L = L + 34.1 : Ll = Fusing(l , "#.&") 'hade aghal dama
        Xadch = Getadc(1) : H = Xadch / 200 : H = H + 35.1 : Hh = Fusing(h , "#.&") 'hade aksar dama
        Adctm1 = Getadc(2) : Adctm2 = Adctm1 / 5 : Adctm2 = Adctm2 + 3
        Adcts1 = Getadc(3) : Adcts2 = Adcts1 / 20
        Cursor Off
        1wreset
        If Err = 1 Then
        Cls
        Lcd "NO SENSOR"
        Wait 1
        Else
        1wwrite &HCC
        1wwrite &H44
        Waitms 250
        1wreset
        1wwrite &HCC
        1wwrite &HBE
        Byte0 = 1wread()
        Byte1 = 1wread()
        If Byte1 > 248 Then
        Byte0 = &HFF - Byte0
        Byte1 = &HFF - Byte1
        Sign = "-"
        Else
        Sign = "+"
        End If
        T1 = Byte0 / 16
        T2 = Byte1 * 16
        T1 = T1 + T2
        If Sign = "-" Then
        T1 = T1 + 1
        End If
        If Sign = "+" And T1 = 0 Then
        Sign = " "
        End If
        '**********
        T = Fusing(t1 , "#.&")
        '**********
        Home
        Cls
        Lcd Ll ; " " ; Sign ; T ; "C" ; " " ; Hh
        Locate 2 , 1
        Lcd Adctmincr ; "-> " ; Adctm2 ; "Min" ; " " ; Adcts2 ; "S RL"
        Waitms 500
        End If
        '***************
        'Sard _shodan
        If T1 < L Then
        Set Portb.0
        Waitms 500
        Else
        Reset Portb.0
        Waitms 500
        End If
        '***************
        'Gharm Shodan
        If T1 > H Then
        Set Portb.1
        Waitms 500
        Else
        Reset Portb.1
        Waitms 500
        End If
        '**************
        Incr Adctmincr2
        If Adctmincr2 = 60 Then
        Incr Adctmincr : Adctmincr2 = 0 : End If
        If Adctmincr > Adctm2 Then
        Incr Rast_chap
        Adctmincr = 0
        '------------------------------------------------
        If Rast_chap = 1 Then
        Set Portb.2 : Reset Portb.3 : Wait Adcts2
        Reset Portb.2 : Reset Portb.3
        End If
        '------------------------------------------------
        If Rast_chap = 2 Then
        Set Portb.3 : Reset Portb.2 : Wait Adcts2
        Reset Portb.3 : Reset Portb.2
        Rast_chap = 0
        End If


        End If
        Loop
        End
        جدیدترین ویرایش توسط hamed4354; ۲۳:۱۰ ۱۳۹۷/۰۳/۱۸.

        دیدگاه


          #19
          پاسخ : مشکل نویز روی lcd کاراکتری

          نوشته اصلی توسط hamed4354 نمایش پست ها
          تو بسکام هست برنامه ام
          اون دستور که گفتم تو زبان c هست که بدرد شما نمیخوره
          شما میتونی از دستور پاک شدن صفحه نمایش استفاده کنی فکر کنم جواب بده
          یعنی هر وقت دیدی صفحه نمایش قاطی کرده با فشردن یک کلید صفحه رو پاک کنی
          آرزوی سرافرازی برای ایران عزیز . . .


          دیدگاه


            #20
            پاسخ : مشکل نویز روی lcd کاراکتری

            این برنامه برای دستگاه جوجه کشی هست ک هر 2 ساعت یکبار موتور220 باید روشن بشه
            من نمیتونم بالا سرش وایسم و کلید و بزنم

            دیدگاه


              #21
              پاسخ : مشکل نویز روی lcd کاراکتری

              نوشته اصلی توسط hamed4354 نمایش پست ها
              این برنامه برای دستگاه جوجه کشی هست ک هر 2 ساعت یکبار موتور220 باید روشن بشه
              من نمیتونم بالا سرش وایسم و کلید و بزنم
              OK
              مشکلی نیست
              این مسئله بارها اتقاق افتاده برای دوستان و خوشبختانه با راهکار هایی که وجود داره قابل حل شدن هست
              دلیل قاطی کردن صفحه نمایش ال سی دی وجود نویز بیش از حد هست که باید به هر نحوی این نویز به شدت سرکوب بشه
              شما دقیقا سر راه تغذیه ال سی دی یه مقاومت کم در حد چند ده اهم بزارید و بعد مقاومت یه خازن 100 میکرو به موازات یه خازن 100 نانو فاراد
              سعی کنید خازن هارو تا میتونید به تغذیه نزدیک کنید .
              ضمنا تغذیه ال ای دی بک لایت رو از تغذیه خود ال سی دی حتما جدا کنید ( به دلیل اضافه کردن ترکیب مقاومت و خازن ممکنه باعث افت ولتاژ بشه )
              به جای مقاومت هم میتونید از یه سلف چند صد میکرو هانری یا همین حدود استفاده کنید
              آرزوی سرافرازی برای ایران عزیز . . .


              دیدگاه


                #22
                پاسخ : مشکل نویز روی lcd کاراکتری

                سلام
                بهترین کار گذاشتن نقشه هست
                تو یه منبع سوییچینگ های ولتاژ همین مشکل را داشتم با پیشنهاد همکارم
                پین های کنترلی LCD رو با خازن به زمین متصل کردیم میزان خازن فکر می کنم در حدود 10 الی 15 نانو بود
                دقت کنید مستقیما به زمین متصل کردیم
                اللهم صل علی محمد و ال محمد و عجل فرجهم
                پیامبر اکرم(ص):زکات علم نشر آن است.
                در کشور هاي غربي انتقال تجربيات و دانش به افراد مبتدي يک پيشرفت محسوب شده و به آن مديريت دانش مي گويند. ولي متاسفانه اين فرهنگ هنوز در کشور ايران رايج نشده است !!!

                دیدگاه


                  #23
                  پاسخ : مشکل نویز روی lcd کاراکتری

                  با سلام و احترام
                  دوست عزیز برای اینکه بهم ریختگی ال سی دیرو رفع کنی چند تا کار باید انجام بدی:
                  الف-ایزوله کردن بخش ال سی دی و میکرو از درایور رله که می تونی از اپتو کوپلر استفاده کنی، حتی ولتاژ های زمین هم مستقل باشه. یعنی داشتن DVCC و DGND و در قسمت رله AVCC و AGND . این ولتاژها رو می تونی از یه ترانس با خروجی مستقل استفاده کنی یعنی حداقل چهار سر.
                  ب- استفاده از مدار اسنابر در کنتاکت های رله ها برای کاهش نویز حاصل از کلید زنی.
                  ج-داشتن منبع تغذیه استاندارد با اعمال فیلترمناسب.
                  د-استفاده از پلیگان بسیار مناسب برای بورد مدار چاپی و قرار دادن کامپوننت ها در جایگاه مناسب و رعایت فاصله میان خطوط عبوری به طور تجری به ازای هر 75 ولت یک میلیمتر فاصله لازم هست.
                  ه-عدم استفاده از یک پلی گان سراسری و ایزولاسیون بخشهای مدار از هم در اجرای محیط پی سی بی
                  ح-اجرای دستورات بهینه و تنظیم فیوز بیت ها در نرم افزار بسکام برای جلوگیری از اعمال نویز
                  ط- اجرای فاصله هوایی بین مسیرهای ولتاژ بالا
                  با تشکر
                  جدیدترین ویرایش توسط SATURNAM; ۱۵:۳۰ ۱۳۹۷/۰۳/۳۰.

                  دیدگاه

                  لطفا صبر کنید...
                  X