اطلاعیه

Collapse
No announcement yet.

مشکل در برنامه تابلو روان

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    مشکل در برنامه تابلو روان

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

    '----------------------------------------------------------
    '----------------------------------------------------------
    ' LED based Digital Clock
    ' By: Reza Sepas Yar (reza@avr.ir)
    ' Revision: 1.0
    '----------------------------------------------------------
    '----------------------------------------------------------

    $regfile = "M32def.dat"
    $crystal = 12000000

    Dim Iloop As Word
    Dim Row As Word
    Dim Index As Word
    Dim A As Word
    Dim N As Word
    Dim K As Word

    Dim Ar1(512) As Byte
    Dim Strg1 As String * 2
    Dim Strg2 As String * 2
    Dim Strg3 As String * 2
    Dim Strg As String * 12

    Dim Digits(12) As Byte At Strg Overlay

    Ddra = &B11110000
    Ddrb = 255
    Ddrc = 255
    Ddrd = 255

    Config Scl = Porta.0
    Config Sda = Porta.1

    Const Ds1307w = &HD0
    Const Ds1307r = &HD1

    Dim _sec As Byte , _min As Byte , _hour As Byte
    Dim _day As Byte , _month As Byte , _year As Byte
    Dim Weekday As Byte , _min1 As Byte , _hour1 As Byte
    Dim _weekday As Byte

    '------------------------------------------------------------------------------------------

    Do

    Gosub Getdatetime

    Gosub Getdatetime
    Strg1 = Bcd(_sec)
    Strg2 = Bcd(_min)
    Strg3 = Bcd(_hour)

    Strg = Strg3 + ":" + Strg2 + ":" + Strg1

    A = 1
    For Iloop = 1 To 8
    Gosub Filling
    For K = 1 To 8
    Read Ar1(a)
    Incr A
    Next
    Next

    For N = 1 To 100

    For Row = 0 To 7

    Portd = Ar1(1 + Row)
    Set Portc.0
    nop
    Reset Portc.0

    Portd = Ar1(9 + Row)
    Set Portc.1
    nop
    Reset Portc.1

    Portd = Ar1(17 + Row)
    Set Portc.2
    nop
    Reset Portc.2

    Portd = Ar1(25 + Row)
    Set Portc.3
    nop
    Reset Portc.3

    Portd = Ar1(33 + Row)
    Set Portc.4
    nop
    Reset Portc.4

    Portd = Ar1(41 + Row)
    Set Portc.5
    nop
    Reset Portc.5

    Portd = Ar1(49 + Row)
    Set Porta.5
    nop
    Reset Porta.5

    Portd = Ar1(57 + Row)
    Set Porta.6
    nop
    Reset Porta.6

    Reset Portb.row
    Waitms 1
    Set Portb.row

    Next

    Next

    Loop

    '------------------------------------------------------------------------------------------

    Filling:

    Select Case Digits(iloop)

    Case 32 : Gosub Space_char
    Case 46 : Gosub Dot_char
    Case 47 : Gosub Forward_char
    Case 48 : Gosub 0_char
    Case 49 : Gosub 1_char
    Case 50 : Gosub 2_char
    Case 51 : Gosub 3_char
    Case 52 : Gosub 4_char
    Case 53 : Gosub 5_char
    Case 54 : Gosub 6_char
    Case 55 : Gosub 7_char
    Case 56 : Gosub 8_char
    Case 57 : Gosub 9_char
    Case 58 : Gosub Colon_char

    Case Else : Gosub Space_char

    End Select

    Return

    '------------------------------------------------------------------------------------------

    Space_char:
    Restore Space_dta
    Return

    Dot_char:
    Restore Point_dta
    Return

    Forward_char:
    Restore Division_dta
    Return

    0_char:
    Restore 0_dta
    Return

    1_char:
    Restore 1_dta
    Return

    2_char:
    Restore 2_dta
    Return

    3_char:
    Restore 3_dta
    Return

    4_char:
    Restore 4_dta
    Return

    5_char:
    Restore 5_dta
    Return

    6_char:
    Restore 6_dta
    Return

    7_char:
    Restore 7_dta
    Return

    8_char:
    Restore 8_dta
    Return

    9_char:
    Restore 9_dta
    Return

    Colon_char:
    Restore Colon_dta
    Return

    '-------------------------------------------------------------------------------

    Getdatetime:
    I2cstart
    I2cwbyte Ds1307w
    I2cwbyte 0

    I2cstart
    I2cwbyte Ds1307r
    I2crbyte _sec , Ack
    I2crbyte _min , Ack
    I2crbyte _hour , Ack
    I2crbyte Weekday , Ack
    I2crbyte _day , Ack
    I2crbyte _month , Ack
    I2crbyte _year , Nack
    I2cstop
    _min1 = Makedec(_min)
    _hour1 = Makedec(_hour)

    Return



    Setdate:
    _day = Makebcd(_day)
    _month = Makebcd(_month)
    _year = Makebcd(_year)
    I2cstart
    I2cwbyte Ds1307w
    I2cwbyte 3
    I2cwbyte _weekday
    I2cwbyte _day
    I2cwbyte _month
    I2cwbyte _year
    I2cstop
    Return

    Settime:
    _sec = Makebcd(_sec)
    _min = Makebcd(_min)
    _hour = Makebcd(_hour)
    I2cstart
    I2cwbyte Ds1307w
    I2cwbyte 0
    I2cwbyte _sec
    I2cwbyte _min
    I2cwbyte _hour
    I2cstop
    Return

    End

    '------------------------------------------------------------------------------------------
    Space_dta:
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00

    Point_dta:
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H18 , &H18 , &H00

    Division_dta:
    Data &H06 , &H0C , &H18 , &H30 , &H60 , &HC0 , &H80 , &H00

    0_dta:
    Data &H7C , &HCE , &HDE , &HF6 , &HE6 , &HC6 , &H7C , &H00

    1_dta:
    Data &H30 , &H70 , &H30 , &H30 , &H30 , &H30 , &HFC , &H00

    2_dta:
    Data &H78 , &HCC , &H0C , &H38 , &H60 , &HCC , &HFC , &H00

    3_dta:
    Data &H78 , &HCC , &H0C , &H38 , &H0C , &HCC , &H78 , &H00

    4_dta:
    Data &H1C , &H3C , &H6C , &HCC , &HFE , &H0C , &H1E , &H00

    5_dta:
    Data &HFC , &HC0 , &HF8 , &H0C , &H0C , &HCC , &H78 , &H00

    6_dta:
    Data &H38 , &H60 , &HC0 , &HF8 , &HCC , &HCC , &H78 , &H00

    7_dta:
    Data &HFC , &HCC , &H0C , &H18 , &H30 , &H30 , &H30 , &H00

    8_dta:
    Data &H78 , &HCC , &HCC , &H78 , &HCC , &HCC , &H78 , &H00

    9_dta:
    Data &H78 , &HCC , &HCC , &H7C , &H0C , &H18 , &H70 , &H00

    Colon_dta:
    Data &H00 , &H18 , &H18 , &H00 , &H00 , &H18 , &H18 , &H00

    اگه مارو قابل میدونین یه کمکی به ما کنین :nerd:

    Dim Ar1(512) As Byte
    منظور از 512 چیه یا ar1(512) سر هم هست


    Ddra = &B11110000
    این همون دستور config porta =&B11110000 هست

    Ddrb = 255
    این همون دستورconfig portb=255 iهست


    Const Ds1307w = &HD0
    Const Ds1307r = &HD1
    یعنی چه


    Strg1 = Bcd(_sec)
    این همون strg1=makebcd(_sec) هست


    Read Ar1(a)
    یعنی چه


    Set Portb.row
    یعنی چه


    Setdate:
    _day = Makebcd(_day)
    _month = Makebcd(_month)
    _year = Makebcd(_year)
    I2cstart
    I2cwbyte Ds1307w
    I2cwbyte 3
    I2cwbyte _weekday
    I2cwbyte _day
    I2cwbyte _month
    I2cwbyte _year
    I2cstop
    Return

    Settime:
    _sec = Makebcd(_sec)
    _min = Makebcd(_min)
    _hour = Makebcd(_hour)
    I2cstart
    I2cwbyte Ds1307w
    I2cwbyte 0
    I2cwbyte _sec
    I2cwbyte _min
    I2cwbyte _hour
    I2cstop
    Return

    برای چی هستن زمان و ساعت داخل اون ای سی ساعت قرار بگیرن


    خیلی ممنون :nerd:
    انجام پروژه های برنامه نویسی اندروید
    [glow=red,2,300]نرم افزار نقشه های پاور کامپیوتر اندورید[/glow]
    http://cafebazaar.ir/app/?id=com.atxdroid
    برچسب ها: برنامه, تابلو, در, روان, مشکل
    #2
    پاسخ : مشکل در برنامه تابلو روان

    چه همه اشکال:
    Dim Ar1(512) As Byte یعنی یه آرایه با 512 تا اندیس.

    Ddra = &B11110000 یعنی اینکه جهار بیت کم ارزش پورت A به عنوان ورودی و چهار بیت پر ارزشش به صورت خروجی تعریف شدند.

    Ddrb = 255 یعنی همه پایه های پورت B خروجیند.

    Const Ds1307w = &HD0 و Const Ds1307r = &HD1 یک ثابت رو با مقادیر روبروشون تعریف می کنند.

    BCD هم یه متغیر از نوع BCD رو رشته می کنه.

    Read هم برای خوندن مقادیر استفاده شده در جدول Lookup استفاده میشه.

    Set Portb.row هم پایه row از پورت B رو یک می کنه.

    بقیه مشکلاتت هم مربوط میشه به ارتباط با Ds1307 و استفاده از پروتکل I2C که بهتره یا به کتاب علی کاهه مراجعه کنی ( قسمت حافظه EEPROM خارجی) یا اینکه به Help نرم افزار بری.



    دیدگاه

      #3
      پاسخ : مشکل در برنامه تابلو روان

      نوشته اصلی توسط حامد جعفری
      چه همه اشکال:
      Dim Ar1(512) As Byte یعنی یه آرایه با 512 تا اندیس.

      Ddra = &B11110000 یعنی اینکه جهار بیت کم ارزش پورت A به عنوان ورودی و چهار بیت پر ارزشش به صورت خروجی تعریف شدند.

      Ddrb = 255 یعنی همه پایه های پورت B خروجیند.

      Const Ds1307w = &HD0 و Const Ds1307r = &HD1 یک ثابت رو با مقادیر روبروشون تعریف می کنند.

      BCD هم یه متغیر از نوع BCD رو رشته می کنه.

      Read هم برای خوندن مقادیر استفاده شده در جدول Lookup استفاده میشه.

      Set Portb.row هم پایه row از پورت B رو یک می کنه.

      بقیه مشکلاتت هم مربوط میشه به ارتباط با Ds1307 و استفاده از پروتکل I2C که بهتره یا به کتاب علی کاهه مراجعه کنی ( قسمت حافظه EEPROM خارجی) یا اینکه به Help نرم افزار بری.



      ممنون
      ولی؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :angry:

      Dim Ar1(512) As Byte یعنی یه آرایه با 512 تا اندیس.
      منظور از اندیس چی هست اگه میشه توضیح بدین


      BCD هم یه متغیر از نوع BCD رو رشته می کنه
      ما که ندونستیم یعنی چه و چه کاربردی داره

      انجام پروژه های برنامه نویسی اندروید
      [glow=red,2,300]نرم افزار نقشه های پاور کامپیوتر اندورید[/glow]
      http://cafebazaar.ir/app/?id=com.atxdroid

      دیدگاه

        #4
        پاسخ : مشکل در برنامه تابلو روان

        ببین فرض کن تو یه محاسبه ریاضی میخوای X1 + X2 + X3 +...+ Xn رو حساب کنی . اون وقت چیکار می کنی؟
        میای میگی سیگمای Xi به طوری که X از 1 تا n تغییر کنه.( نمی تونستم به صورت ریاضی بنویسم). حالا این وسط i ها چیند؟ همون اندیس ها هستند دیگه. تو برنامه هم هر وقت نیاز بود که یه سری مقادیر به این صورت استفاده بشند از متغیر آرایه ای استفاده می کنیم. در واقع اینجا Ar1 از اندیس 1 تا اندیس 512 تعریف شده.


        اما در مورد BCD ؛ به طور خلاصه میشه گفت که اعداد یک رقمی در مد BCD معادل با اعداد باینری هستند. ( یعنی همون باینری)

        دیدگاه

          #5
          پاسخ : مشکل در برنامه تابلو روان

          نوشته اصلی توسط mohsen.hex
          با تشکر از دوست ی که این برنامه را در اختیار ملت قرار داده
          ولی من متاسفانه در تحلیل اون چند تا مشکل دارم

          '----------------------------------------------------------
          '----------------------------------------------------------
          ' LED based Digital Clock
          ' By: Reza Sepas Yar (reza@avr.ir)
          ' Revision: 1.0
          '----------------------------------------------------------
          '----------------------------------------------------------

          $regfile = "M32def.dat"
          $crystal = 12000000

          Dim Iloop As Word
          Dim Row As Word
          Dim Index As Word
          Dim A As Word
          Dim N As Word
          Dim K As Word

          Dim Ar1(512) As Byte
          Dim Strg1 As String * 2
          Dim Strg2 As String * 2
          Dim Strg3 As String * 2
          Dim Strg As String * 12

          Dim Digits(12) As Byte At Strg Overlay

          Ddra = &B11110000
          Ddrb = 255
          Ddrc = 255
          Ddrd = 255

          Config Scl = Porta.0
          Config Sda = Porta.1

          Const Ds1307w = &HD0
          Const Ds1307r = &HD1

          Dim _sec As Byte , _min As Byte , _hour As Byte
          Dim _day As Byte , _month As Byte , _year As Byte
          Dim Weekday As Byte , _min1 As Byte , _hour1 As Byte
          Dim _weekday As Byte

          '------------------------------------------------------------------------------------------

          Do

          Gosub Getdatetime

          Gosub Getdatetime
          Strg1 = Bcd(_sec)
          Strg2 = Bcd(_min)
          Strg3 = Bcd(_hour)

          Strg = Strg3 + ":" + Strg2 + ":" + Strg1

          A = 1
          For Iloop = 1 To 8
          Gosub Filling
          For K = 1 To 8
          Read Ar1(a)
          Incr A
          Next
          Next

          For N = 1 To 100

          For Row = 0 To 7

          Portd = Ar1(1 + Row)
          Set Portc.0
          nop
          Reset Portc.0

          Portd = Ar1(9 + Row)
          Set Portc.1
          nop
          Reset Portc.1

          Portd = Ar1(17 + Row)
          Set Portc.2
          nop
          Reset Portc.2

          Portd = Ar1(25 + Row)
          Set Portc.3
          nop
          Reset Portc.3

          Portd = Ar1(33 + Row)
          Set Portc.4
          nop
          Reset Portc.4

          Portd = Ar1(41 + Row)
          Set Portc.5
          nop
          Reset Portc.5

          Portd = Ar1(49 + Row)
          Set Porta.5
          nop
          Reset Porta.5

          Portd = Ar1(57 + Row)
          Set Porta.6
          nop
          Reset Porta.6

          Reset Portb.row
          Waitms 1
          Set Portb.row

          Next

          Next

          Loop

          '------------------------------------------------------------------------------------------

          Filling:

          Select Case Digits(iloop)

          Case 32 : Gosub Space_char
          Case 46 : Gosub Dot_char
          Case 47 : Gosub Forward_char
          Case 48 : Gosub 0_char
          Case 49 : Gosub 1_char
          Case 50 : Gosub 2_char
          Case 51 : Gosub 3_char
          Case 52 : Gosub 4_char
          Case 53 : Gosub 5_char
          Case 54 : Gosub 6_char
          Case 55 : Gosub 7_char
          Case 56 : Gosub 8_char
          Case 57 : Gosub 9_char
          Case 58 : Gosub Colon_char

          Case Else : Gosub Space_char

          End Select

          Return

          '------------------------------------------------------------------------------------------

          Space_char:
          Restore Space_dta
          Return

          Dot_char:
          Restore Point_dta
          Return

          Forward_char:
          Restore Division_dta
          Return

          0_char:
          Restore 0_dta
          Return

          1_char:
          Restore 1_dta
          Return

          2_char:
          Restore 2_dta
          Return

          3_char:
          Restore 3_dta
          Return

          4_char:
          Restore 4_dta
          Return

          5_char:
          Restore 5_dta
          Return

          6_char:
          Restore 6_dta
          Return

          7_char:
          Restore 7_dta
          Return

          8_char:
          Restore 8_dta
          Return

          9_char:
          Restore 9_dta
          Return

          Colon_char:
          Restore Colon_dta
          Return

          '-------------------------------------------------------------------------------

          Getdatetime:
          I2cstart
          I2cwbyte Ds1307w
          I2cwbyte 0

          I2cstart
          I2cwbyte Ds1307r
          I2crbyte _sec , Ack
          I2crbyte _min , Ack
          I2crbyte _hour , Ack
          I2crbyte Weekday , Ack
          I2crbyte _day , Ack
          I2crbyte _month , Ack
          I2crbyte _year , Nack
          I2cstop
          _min1 = Makedec(_min)
          _hour1 = Makedec(_hour)

          Return



          Setdate:
          _day = Makebcd(_day)
          _month = Makebcd(_month)
          _year = Makebcd(_year)
          I2cstart
          I2cwbyte Ds1307w
          I2cwbyte 3
          I2cwbyte _weekday
          I2cwbyte _day
          I2cwbyte _month
          I2cwbyte _year
          I2cstop
          Return

          Settime:
          _sec = Makebcd(_sec)
          _min = Makebcd(_min)
          _hour = Makebcd(_hour)
          I2cstart
          I2cwbyte Ds1307w
          I2cwbyte 0
          I2cwbyte _sec
          I2cwbyte _min
          I2cwbyte _hour
          I2cstop
          Return

          End

          '------------------------------------------------------------------------------------------
          Space_dta:
          Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00

          Point_dta:
          Data &H00 , &H00 , &H00 , &H00 , &H00 , &H18 , &H18 , &H00

          Division_dta:
          Data &H06 , &H0C , &H18 , &H30 , &H60 , &HC0 , &H80 , &H00

          0_dta:
          Data &H7C , &HCE , &HDE , &HF6 , &HE6 , &HC6 , &H7C , &H00

          1_dta:
          Data &H30 , &H70 , &H30 , &H30 , &H30 , &H30 , &HFC , &H00

          2_dta:
          Data &H78 , &HCC , &H0C , &H38 , &H60 , &HCC , &HFC , &H00

          3_dta:
          Data &H78 , &HCC , &H0C , &H38 , &H0C , &HCC , &H78 , &H00

          4_dta:
          Data &H1C , &H3C , &H6C , &HCC , &HFE , &H0C , &H1E , &H00

          5_dta:
          Data &HFC , &HC0 , &HF8 , &H0C , &H0C , &HCC , &H78 , &H00

          6_dta:
          Data &H38 , &H60 , &HC0 , &HF8 , &HCC , &HCC , &H78 , &H00

          7_dta:
          Data &HFC , &HCC , &H0C , &H18 , &H30 , &H30 , &H30 , &H00

          8_dta:
          Data &H78 , &HCC , &HCC , &H78 , &HCC , &HCC , &H78 , &H00

          9_dta:
          Data &H78 , &HCC , &HCC , &H7C , &H0C , &H18 , &H70 , &H00

          Colon_dta:
          Data &H00 , &H18 , &H18 , &H00 , &H00 , &H18 , &H18 , &H00

          اگه مارو قابل میدونین یه کمکی به ما کنین :nerd:

          Dim Ar1(512) As Byte
          منظور از 512 چیه یا ar1(512) سر هم هست


          Ddra = &B11110000
          این همون دستور config porta =&B11110000 هست

          Ddrb = 255
          این همون دستورconfig portb=255 iهست


          Const Ds1307w = &HD0
          Const Ds1307r = &HD1
          یعنی چه


          Strg1 = Bcd(_sec)
          این همون strg1=makebcd(_sec) هست


          Read Ar1(a)
          یعنی چه


          Set Portb.row
          یعنی چه


          Setdate:
          _day = Makebcd(_day)
          _month = Makebcd(_month)
          _year = Makebcd(_year)
          I2cstart
          I2cwbyte Ds1307w
          I2cwbyte 3
          I2cwbyte _weekday
          I2cwbyte _day
          I2cwbyte _month
          I2cwbyte _year
          I2cstop
          Return

          Settime:
          _sec = Makebcd(_sec)
          _min = Makebcd(_min)
          _hour = Makebcd(_hour)
          I2cstart
          I2cwbyte Ds1307w
          I2cwbyte 0
          I2cwbyte _sec
          I2cwbyte _min
          I2cwbyte _hour
          I2cstop
          Return

          برای چی هستن زمان و ساعت داخل اون ای سی ساعت قرار بگیرن


          خیلی ممنون :nerd:
          اگه میشه لطف کنین نقشه رو هم قرار بدین ممنون
          r.pسابق

          دیدگاه

            #6
            پاسخ : مشکل در برنامه تابلو روان

            با تشکر از دوست ی که این برنامه را در اختیار ملت قرار داده
            ممنون، قابل شما رو نداره. :smile:

            در مورد بیشتر سوالات حامد جان زحمت کشیدند جواب دادند، در مورد ds1307 هم دیتاشیت اش رو بخونید مشکلتون حل میشه :job:
            There is nothing so practical as a good theory. — Kurt Lewin, 1951

            دیدگاه

              #7
              پاسخ : مشکل در برنامه تابلو روان

              نوشته اصلی توسط mohsen.hex
              اگه میشه لطف کنین نقشه رو هم قرار بدین ممنون
              http://www.eca.ir/forum2/index.php/topic,6035.0.html

              There is nothing so practical as a good theory. — Kurt Lewin, 1951

              دیدگاه

                #8
                پاسخ : مشکل در برنامه تابلو روان

                بازم سلام اگه من تو نستم یه برنامه رو خودم تنهای تحلیل کنم باید برم برای کنکور کاردانی ارشد ثبت نام کنم

                Read Ar1(a)1
                این یعنی چه- از کجا بخون -Ar1(a)1میشه کجا

                Select Case Digits(iloop) 1
                Digits(iloop)1این از کجا اومد
                و جریان این پرانتز چیه
                انجام پروژه های برنامه نویسی اندروید
                [glow=red,2,300]نرم افزار نقشه های پاور کامپیوتر اندورید[/glow]
                http://cafebazaar.ir/app/?id=com.atxdroid

                دیدگاه

                  #9
                  پاسخ : مشکل در برنامه تابلو روان

                  :angry: :angry: :angry: :angry: :angry: :angry: :angry:
                  انجام پروژه های برنامه نویسی اندروید
                  [glow=red,2,300]نرم افزار نقشه های پاور کامپیوتر اندورید[/glow]
                  http://cafebazaar.ir/app/?id=com.atxdroid

                  دیدگاه

                    #10
                    پاسخ : مشکل در برنامه تابلو روان

                    راه های بهتری هم به جای کوبیدن سر به دیوار هست.

                    به طور ساده وقتی می خوای از دیتای یک جدول به ترتیب Look up بخونی کافیه اول با استفاده از دستور Restore ، جدولت رو فراخوانی کنی و بعد هر بار از دستور Read استفاده کنی به طور اتوماتیک دیتا بعدی رو می خونه و داخل متغیر جلوی Read میذاره. محض رضای خدا هم که شده یه بار به Help نرم افزار مراجعه کن و مثال این دستور رو یه بار شبیه سازی کن. مطمئنم خیلی ساده است.

                    پرانتز هم جریان پیچیده ای نداره. همون اندیسی که قبلا گفتم تو بیسکام داخل پرانتز نوشته میشه.یعنی Digit(iloop) معادله با اندیس iloop از متغیر Digit.


                    Just this. No more

                    دیدگاه

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