اطلاعیه

Collapse
No announcement yet.

تایمر کانتر

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

    تایمر کانتر

    از دوستان عزیز یک برنامه میخام و اون اینه با دستور تایمر کانتر 1 با تاخیر 1 ثانیه تا 60 ثانیه را رویlcdنمایش بده هر چه زود تر mer30

    #2
    پاسخ : تایمر کانتر

    سلام
    من یه برنامه نوشتم و به همراه فایل شبیه ساز آن در پروتئوس براتون فرستادم.
    موفق باشید.
    http://rapidshare.com/files/166883149/Timer1.rar.html
    «اگر واقعيات با نظريات هماهنگي ندارند، واقعيتآ‌ها را تغيير بده.»
    آلبرت انشتين

    دیدگاه


      #3
      پاسخ : تایمر کانتر

      سلام
      لینکی که دادی کار نمیکنه :mrgreen:
      چه جوری دانلود کنه؟ :mrgreen:
      صدایی از قلب آذربایجان

      Ya$a odlar yurdum AZERBAICANIM

      دیدگاه


        #4
        پاسخ : تایمر کانتر

        $regfile = "m32def.dat"
        $crystal = 8000000
        $baud = 9600

        Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.0 , Rs = Porta.1
        Config Lcd = 16 * 2
        Config Timer1 = Timer , Prescale = 256

        Dim S As Byte

        Enable Interrupts
        Enable Timer1
        On Timer1 Timer1_isr

        Timer1 = 34286

        Do

        Loop


        End
        '----------------------------------------------------
        Timer1_isr:
        Incr S
        Print "Timer=" ; S ; "s"
        Cls
        Locate 1 , 1
        Lcd "Timer=" ; S ; "s"
        Timer1 = 34286
        If S = 60 Then S = 0
        Return
        «اگر واقعيات با نظريات هماهنگي ندارند، واقعيتآ‌ها را تغيير بده.»
        آلبرت انشتين

        دیدگاه


          #5
          پاسخ : تایمر کانتر

          سلام
          لینک Rapidshare هم کار می کنه روی Free User کلیک و بعداً دانلود کنین.
          «اگر واقعيات با نظريات هماهنگي ندارند، واقعيتآ‌ها را تغيير بده.»
          آلبرت انشتين

          دیدگاه

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