اطلاعیه

Collapse
No announcement yet.

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

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

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

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

    اینم لینک فایل شبیه سازی و برنامه به زبان بیسیک:
    http://www.uploadtak.com/images/k4946_nemone_bardari.rar


    #2
    پاسخ : نمونه برداری و محاسبه میانگین دما در ساعت با کریستال ساعت

    سلام
    یه راهنمایی کلی میکنم
    ببین شما میایی اول از همه 60 تا متغیر تعریف میکنی از نوع byte
    dim x(60) as byte
    بعد یه متغیر دیگه از نوع بایت تعریف میکنی y
    dim y as byte
    سپس میایی یه شرط قرار میدی که اگر ثانیه برابر 59 شد توی دقیقه اول y=0 و دما برابر با متغیر اول x1 تا اخر و y=59 x60
    در اخر میایی میزان همیه متغیر هارو جمع میکنی و میانگین و به دست میاری
    اگر این قسمتو متوجه شده باشی بقیه هم کاری نداره
    دوستان بازم اگر نظری دارن اعلام کنن
    خواستن توانستن است !

    دیدگاه


      #3
      پاسخ : نمونه برداری و محاسبه میانگین دما در ساعت با کریستال ساعت

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

      دیدگاه


        #4
        پاسخ : نمونه برداری و محاسبه میانگین دما در ساعت با کریستال ساعت

        کد:
        Dim X(60) As Byte
        Dim Y As Byte
        Dim Z As Byte
        Dim Avrg As Byte
        Dim Temp As Byte
        Y = 0 : Avrg = 0
        Do
        If Min = 59 Then : Incr Y : X(y) = Temp : End If
        If Y = 60 Then : Y = 0 : For Z = 0 To 60
        Avrg = Avrg + X(y)
        Incr Y
        If Y = 60 Then Avrg = Avrg / 60
        Next
        End If
        Loop
        End
        این کدو داشته باش و روش کمی کار کن شاید بتونی از این هم بهتر بنویسی
        خواستن توانستن است !

        دیدگاه

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