ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.





کاربران برچسب زده شده

نمایش نتایج: از 1 به 3 از 3
  1. #1
    2009/05/20
    774
    24

    كسي ميتونه در مورد اين ساعت يه كمكي بكنه

    قراره كه 60تا led در ابتدا روشن بعد به ترتيب خاموش بشن البته فايل اصليمو نداشتم اينو دوباره نوشتم احتمالا بازم مشكل داره راستش مشكل اينه كه تو پروتئوس ميبندم ولي دفعه اول كه اعدادو نشون ميده و ميره سراغ led ها دفعه بعد كه پرش ميكنه و بايد مقدار جديد اعدادو نشون بده اين كارو نميكگنه بايد چيكار كرد

    $regfile = "m16def.dat"
    $crystal = 8000000

    $lib "mcsbyte.lbx" ' for smaller code
    $lib "ds1307clock.lib" ' modified lib
    $framesize = 16
    $hwstack = 24
    $swstack = 16

    Config Pina.0 = Input
    Config Pina.1 = Input
    Config Pina.2 = Input
    Config Portb.0 = Output
    Config Portb.1 = Output
    Config Portb.2 = Output
    Config Portb.3 = Output
    Config Portb.6 = Output
    Config Portb.7 = Output

    Config Portd = Output
    Config Portc = Output

    Config Porta.7 = Output
    Config Porta.6 = Output
    Config Porta.5 = Output
    Config Porta.4 = Output
    Config Porta.0 = Output
    Config Porta.1 = Output

    Config Sda = Portb.6
    Config Scl = Portb.7

    Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
    Const Ds1307r = &HD1

    Enable Interrupts

    Config Clock = User ' this will dim the bytes automatic

    Dim Weekday As Byte

    'Time$ = "2359" ' to watch the day changing value
    'Date$ = "11-13-02"

    Dim S As Byte , M As Byte , H As Byte , Ma As Word , Mlb As Byte , Sc As Byte
    Dim A As Byte , B As Byte , Mha As Word , Mla As Word , Lm As Word

    Dim Mh As Byte , Index As Byte , R As Byte , Jump As Byte , Jump1 As Byte
    Dim Ml As Byte
    Dim Hh As Byte
    Dim Hl As Byte , S1 As Byte , L As Byte , Delaye As Byte

    Ok Alias Pina.4
    Up Alias Pina.5
    Down Alias Pina.6

    Delaye = 3

    '*************************************** start *****************************************

    Jump1 = 1

    Hom:


    Gosub Getdatetime

    Mh = _min / 10
    Ml = _min Mod 10

    Hh = _hour / 10
    Hl = _hour Mod 10

    Porta = 8
    Portb = Hh
    Waitms Delaye

    Porta = 4
    Portb = Hl
    Waitms Delaye

    Porta = 2
    Portb = Mh
    Waitms Delaye

    Porta = 1
    Portb = Ml
    Waitms Delaye

    If Jump = 1 Then Goto Sc2
    If Jump1 = 1 Then Goto Sc

    '***************************************** * sec ********************************************

    Sc:

    Do

    Index = &B00000001

    For R = 0 To 7

    Portc = 0
    Portd = 0
    Portc = Index
    Rotate Index , Left


    For M = 0 To 7

    Portd = Lookup(m , A)
    Gosub Getdatetime
    Incr Sc

    If Sc = 60 Then
    Sc = 0
    Set Jump
    Goto Hom
    End If

    Next M

    Next R

    '**************************************** sec b **********************************************

    Sc2:

    Jump = 0

    Index = &B00000001

    For R = 0 To 7

    Portc = Index
    Rotate Index , Left

    For M = 0 To 7

    Portd = Lookup(m , H)
    Gosub Getdatetime

    Incr Sc
    If Sc = 60 Then
    Goto Hom
    End If

    Next M

    Next R

    If Ok = 0 Then
    Waitms 150
    Goto Settime
    End If


    Loop


    End

    'called from ds1307clock.lib
    Getdatetime:
    I2cstart ' Generate start code
    I2cwbyte Ds1307w ' send address
    I2cwbyte 0 ' start address in 1307

    I2cstart ' Generate start code
    I2cwbyte Ds1307r ' send address
    I2crbyte _sec , Ack
    I2crbyte _min , Ack ' MINUTES
    I2crbyte _hour , Ack ' Hours
    I2crbyte Weekday , Ack ' Day of Week
    I2crbyte _day , Ack ' Day of Month
    I2crbyte _month , Ack ' Month of Year
    I2crbyte _year , Nack ' Year
    I2cstop

    _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)



    Return
    { خلاف قوانین - پاک شد }
  2. #2
    2008/02/19
    2,296
    41

    پاسخ : كسي ميتونه در مورد اين ساعت يه كمكي بكنه

    سلام هم استانی :nerd:

    این سوال که جاش اینجا نیست oo: قسمت AVR !

    موفق باشید :nerd:
  3. #3
    2009/05/20
    774
    24

    پاسخ : كسي ميتونه در مورد اين ساعت يه كمكي بكنه

    شرمنده حاجي مگه اينجا كجاست اشتباه اومدم :surprised: oo: ببخشيد ميتوني مارو منتقل كني :nerd:
    { خلاف قوانین - پاک شد }
نمایش نتایج: از 1 به 3 از 3

موضوعات مشابه

  1. پاسخ: 6
    آخرين نوشته: 2014/05/01, 08:26
  2. کسي ميتونه ماهواره بسازه؟
    توسط انرژي در انجمن سیستمهای مخابراتی
    پاسخ: 11
    آخرين نوشته: 2013/05/09, 11:44
  3. کسي ميتونه در مورد نقشه هاي اين نوع موتورهاي الکتريکي منو راهنمايي کنه ؟
    توسط suyuvu در انجمن ترانسفورماتورها و ماشين هاي الکتريکي
    پاسخ: 10
    آخرين نوشته: 2013/02/27, 23:21
  4. اساتد محترم در مورد اين ساعت كسي ميتونه كمكي كنه
    توسط r-el در انجمن میکروکنترلرهای AVR
    پاسخ: 48
    آخرين نوشته: 2010/06/02, 15:30
  5. پاسخ: 1
    آخرين نوشته: 2010/05/26, 18:17

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

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

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