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

موضوع: مشکل با کانتر و شمارش پالس

  1. #1
    تازه وارد
    تاریخ عضویت
    Apr 2016
    نوشته ها
    1
    تشکر
    0
    تشکر شده 0 بار در 0 پست

    پیش فرض مشکل با کانتر و شمارش پالس

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

    $regfile = "m32def.dat"
    $crystal = 16000000
    '-----------------------------------------------------

    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
    Config Timer1 = Counter , Edge = Rising
    Config Pina.0 = Input
    Config Pina.1 = Input
    Config Portd.0 = Output
    Config Portc.7 = Output
    Config Portb = Output
    Config Int0 = Rising
    Enable Interrupts
    Enable Oc1a
    Counter1 = 0




    Dim B As Byte

    Dim E As Eram Byte
    Dim D As Byte
    Dim F As Word

    Up Alias Pina.0
    Down Alias Pina.1

    If E > 180 Then E = 180
    B = E

    Tcnt1 = F
    Do

    If F = 55535 Then Set Portd.0


    For D = 0 To E
    Next D
    Reset Portd.0

    'Counter1 = 0

    If Up = 0 Then
    If B > 0 Then Decr B
    Waitms 10
    E = B
    End If

    If Down = 0 Then
    If B < 180 Then Incr B
    Waitms 10
    E = B
    End If



    Cls
    Lcd B

    Waitms 500

    Loop




    Return
    ویرایش توسط Ali_ch : 14-05-2016 در ساعت 15:57

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

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

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