اطلاعیه

Collapse
No announcement yet.

تحلیل برنامه

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

    تحلیل برنامه

    سلام
    من یک پروژه دارم که دقیقا نمی تونم کار کل برنامه رو توضیح بدم

    از اساتید خواهش می کنم که برای قسمتهای مختلف برنامه توضیح مختصری بنویسند

    http://www.uplooder.net/cgi-bin/dl.c...3b44ff2148946c



    #2
    پاسخ : تحلیل برنامه

    به جای اینکه برنامه رو توی یه فایل آفیس بذارید و توی یه سرور مزخرف پلود کنید برنامه تون رو بین تگ کدها قرار بدین و اینجا بذارین. الان من آفیس ندارم که برنامه تون رو ببینم.
    برنامه تون با بسکام هستش، درسته؟

    دیدگاه


      #3
      پاسخ : تحلیل برنامه

      برنامه شما یک آش شعله قلم کار است :mrgreen:
      مثل خوراک پختن منه :mrgreen: :redface:
      هرچی دم دسته برنامه نویس رسیده ریخته تو برنامه
      ساعت ، دماسنج،ولتمتر،آمپرمتر
      دلا خو کن به تنهایی که از تنها بلا خیزد

      دیدگاه


        #4
        پاسخ : تحلیل برنامه

        شما خودت با بسکام کار کردی؟تا چه حد آشنایی داری با برنامه نویسی در بسکام؟توضیح خط به خط میخوای یا کلی؟

        دیدگاه


          #5
          پاسخ : تحلیل برنامه

          سلام

          خواهش می کنم برای قسمت های مختلف این برنامه توضیحاتی بنویسید این برنامه پروژه ساختمه

          http://up.toca.ir/images/cydngx1coykgoul1zxk.rar

          دیدگاه


            #6
            پاسخ : تحلیل برنامه

            برنامه ت اینه؟:

            کد:
            $regfile = "m8def.dat"
            Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.5 , Rs = Portd.6
            Config Lcd = 16 * 2
            Config Portc.2 = Output
            Config Portc.3 = Output
            Config Portc.4 = Output
            Config Portc.5 = Output
            Mcusr = &H80
            Mcusr = &H80
            Cursor Off
            Config Adc = Single , Prescaler = Auto , Reference = Avcc  'config adc
            Start Adc
            Enable Adc
            Config Clock = Soft
            Time$ = "00:00:00"
            Config Timer2 = Timer , Prescale = 128 , Async = On
            Enable Interrupts
            Enable Timer2
            Start Timer2
            
            Dim A As Word , B As Single , C As Byte , G As Single , S As Word , M As Single , I As Single
             Config Single = Scientific , Digits = 2
             Cls
            
            Ddrb.1 = 0 : Portb.1 = 1
            Ddrb.2 = 0 : Portb.2 = 1
            Ddrb.3 = 0 : Portb.3 = 1
            Portc.3 = 0
            Main:
            Waitms 20
            If Pinb.1 = 0 Then
            Incr _min
            Waitms 50
            If _min = 60 Then
            _min = 0
            End If
            End If
            
            If Pinb.2 = 0 Then
            Incr _hour
            Waitms 50
            If _hour = 24 Then
            _hour = 0
            End If
            End If
            
            If Pinb.3 = 0 Then
            Waitms 5
             Cls
             Goto Amper
              End If
            Set Portc.2
            Set Portc.4
            Set Portc.5
            Reset Portc.3
            '----------set min time------------
            Home
            Lcd Time$
            
            S = Getadc(0)
             A = Getadc(1)
            
            A = A / 2
            
            Locate 1 , 11
            Lcd "tmp:" ; A
            
            M = S
            M = M / 10.23
            
            Home L
            Lcd "v out :" ; M
            
            Goto Main
            End
            
            
            Amper:
            Set Portc.3
            Reset Portc.2
            Reset Portc.4
            Reset Portc.5
            
            S = Getadc(0)
            M = S
            M = M / 10.23
            G = M
            G = G / 0.5
            Home
            Lcd "ampermeter"
            Locate 2 , 1
            Lcd "amp:" ; G
            If Pinb.3 = 0 Then
            Waitms 20
            Cls
            Goto Main
            Else
            Goto Amper
            End If
            من متاسفانه بسکام کار نمی کنم. به سوال بچه ها پاسخ بدید. امیدوارم به نتیجه مطلوب برسید.

            دیدگاه


              #7
              پاسخ : تحلیل برنامه

              سلام
              مدار شبیه سازی با پروتئوس رو درست کردم برات میزارم من فقط با توجه به برنامه جای کلید ها و lcd با نوع اتصالات رو فهمیدم
              همچنین سنسور دمای lm35 گذاشتی
              ولی باقی ورودی و خروجی ها که برای ولتمتر و امپر متر گذاشتی رو نمی تونم سخت افزارش رو بدست بیارم
              http://uplod.ir/0kb385cfifqt/S1.rar.htm

              بعد هم نگفتی چقدر بسکام میدونی؟ کسی ریز به ریز برات توضیح نمیده و اگه خواستی کتاب یا جزوه های اینترنتی یا help خود برنامه مفیده
              تو پست بعدی یه تحلیل مختصر برات می زارم
              دعا کنید برای من

              چی شد پس لطفا همین حالا!

              دیدگاه


                #8
                پاسخ : تحلیل برنامه

                کد:
                $regfile = "m8def.dat"
                Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.5 , Rs = Portd.6
                Config Lcd = 16 * 2
                Config Portc.2 = Output
                Config Portc.3 = Output
                Config Portc.4 = Output
                Config Portc.5 = Output
                ابتدا معرفی میکرو که atmega 8 هست
                بعد یه lcd نوع 2*16 معرفی کردی که به چه پایه های میکرو وصل است
                و پین های c.2 تا c.5 رو گفتی به عنوان ورودی باشه

                کد:
                Cursor Off
                Config Adc = Single , Prescaler = Auto , Reference = Avcc  'config adc
                Start Adc
                Enable Adc
                Config Clock = Soft
                Time$ = "00:00:00"
                Config Timer2 = Timer , Prescale = 128 , Async = On
                Enable Interrupts
                Enable Timer2
                Start Timer2
                کرسر یا چشمک زن صفحه نمایش خاموش
                پیکربندی تبدیل انالوگ به دیجیتال که ولتاژ مرجع همون ولتاژ پایه avcc باشه
                شروع و فعال کردن(وقفه) تبدیل انالوگ به دیجیتال
                با تایمر دو که یه کریستال با مقدار 32768 بهش وصل است می خوای یه ساعت درست کنی و چون نوشتی soft در نتیجه یه متغییر به نام $time ایجاد می شه که ساعت،دقیقه،ثانیه به طور خودکار درست میشه و درونش قرار میگیره

                کد:
                Dim A As Word , B As Single , C As Byte , G As Single , S As Word , M As Single , I As Single
                 Config Single = Scientific , Digits = 2
                 Cls
                
                Ddrb.1 = 0 : Portb.1 = 1
                Ddrb.2 = 0 : Portb.2 = 1
                Ddrb.3 = 0 : Portb.3 = 1
                Portc.3 = 0
                یه مشت متغیر درست کردی و متغیر ممیز دار گفتی تا دو رقم بیشتر ممیز نداشته باشه
                بعد هم چند تا پین رو ورودی کردی و پول اپ داخلی رو فعال کردی(یعنی با یه مقاوت از داخل به vcc وصل هست)

                کد:
                Main:
                Waitms 20
                If Pinb.1 = 0 Then
                Incr _min
                Waitms 50
                If _min = 60 Then
                _min = 0
                End If
                End If
                
                If Pinb.2 = 0 Then
                Incr _hour
                Waitms 50
                If _hour = 24 Then
                _hour = 0
                End If
                End If
                دو تا کلید می تونه مقدار دقیقه و ساعت رو یه دونه یه دونه افزایش بده برای تنظیم ساعت
                http://uplod.ir/79kmw5ix9t4e/time.jpg.htm

                باقیش در پست بعدی.....
                دعا کنید برای من

                چی شد پس لطفا همین حالا!

                دیدگاه


                  #9
                  پاسخ : تحلیل برنامه

                  http://www.4shared.com/file/eqo15Zzj/_online.html
                  من توضیحات لازمه رو برات نوشتم
                  این نرم افزار کلی ایراد داره
                  مهم ترین ایرادش هم تعریف نکردن فرکانس کلاک برای نرم افزار
                  یکی دیگر از ایراد ها شما وقفه هارو فعال کردی ولی استفاده نکردی
                  مهم ترین ایراد دیگر تا جا داشته تو حلقه Main دستور Wait استفاده کردی که این باعث کندی نرم افزار میشه
                  دلا خو کن به تنهایی که از تنها بلا خیزد

                  دیدگاه


                    #10
                    پاسخ : تحلیل برنامه

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

                    چی شد پس لطفا همین حالا!

                    دیدگاه

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