اطلاعیه

Collapse
No announcement yet.

تابلو روان 40*8 توسط mega16 به زبان c و بیسیک(((((نیاز به کمک دارم))))))

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

    تابلو روان 40*8 توسط mega16 به زبان c و بیسیک(((((نیاز به کمک دارم))))))

    سلام به دوستان عزیز تو مدار شکل زیر :
    من به جای uln برای راه اندازی ال ای دی از ترانزیستور استفاده کردم و برنامه ی زیر رو به بیسیک پروگرم کردم و کار کرد ولی not کد های فرستاده شده رو نشون میده یعنی ال ای دی های متن خاموش و بقیه روشن هستند میخوام برنامه رو تغییر بدم تا تو ستون ها صفر جاروب بشه نه یک. تا درست بشه.نمیخوام تو سخت افزار not بذارم سخت میشه.نمیدونم چه تغییری باید تو برنامش بدم حتی این حلقه رو:



    For S = 0 To 7
    M = 15
    If S = 0 Then M = 35
    For Refresh = 1 To M
    Scan = &H01
    For I = 0 To 7

    A = &HFF00
    Rotate , A , Left , S

    For B = 0 To 4

    D = B * 8
    D = D + I
    PORTD = Lookup(d , Text00)
    T = PORTD And A

    Shift PORTD , Right , S
    Rotate T , Right , S
    PORTB = 2 ^ B
    PORTB = 0

    Next B

    PORTA = Scan
    Rotate Scan , Left , 1
    Waitms 2
    PORTA = 0



    به اینطوری تغییر دادم:




    For S = 0 To 7
    M = 15
    If S = 0 Then M = 35
    For Refresh = 1 To M
    Scan = &HFE
    For I = 0 To 7

    A = &HFF00
    Rotate , A , Left , S

    For B = 0 To 4

    D = B * 8
    D = D + I
    PORTD = Lookup(d , Text00)
    T = PORTD And A

    Shift PORTD , Right , S
    Rotate T , Right , S
    PORTB = 2 ^ B
    PORTB = 0

    Next B

    PORTA = Scan
    Rotate Scan , Left , 0
    Waitms 2
    PORTA = 1




    دیگه نمیدونم چه تغییراتی بدم
    در ضمن ترانزیستور های استفاده شده به جایuln رو npn انتخاب کردم



    اینم سوسرس کامل برنامش:




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

    Config PORTA = Output
    Config PORTB = Output
    Config PORTC = Output
    Config PORTD = Output

    Dim Scan As Byte
    Dim I As Word
    Dim Refresh As Byte
    Dim T As Byte
    Dim B As Byte
    Dim D As Word
    Dim U As Word
    Dim S As Word
    Dim M As Word
    Dim E As Word
    Dim A As Word

    Do




    For S = 0 To 7
    M = 15
    If S = 0 Then M = 35
    For Refresh = 1 To M
    Scan = &HFE
    For I = 0 To 7

    A = &HFF00
    Rotate , A , Left , S

    For B = 0 To 4

    D = B * 8
    D = D + I
    PORTD = Lookup(d , Text00)
    T = PORTD And A

    Shift PORTD , Right , S
    Rotate T , Right , S
    PORTB = 2 ^ B
    PORTB = 0

    Next B

    PORTA = Scan
    Rotate Scan , Left , 0
    Waitms 2
    PORTA = 1

    Next I
    Next Refresh
    Next S



    For S = 0 To 96
    M = 96 - S
    E = M + 7
    For Refresh = 1 To 2
    Scan = &H01
    For I = M To E

    For B = 0 To 4

    D = B * 8
    D = D + I
    PORTD = Lookup(d , Text01)

    PORTB = 2 ^ B
    PORTB = 0

    Next B

    PORTA = Scan
    Rotate Scan , Left , 1
    Waitms 2
    PORTA = 0

    Next I
    Next Refresh
    Next S


    For S = 0 To 96
    E = S + 7
    For Refresh = 1 To 2
    Scan = &H01
    For I = S To E

    For B = 0 To 4

    D = B * 8
    D = D + I
    PORTD = Lookup(d , Text02)

    PORTB = 2 ^ B
    PORTB = 0

    Next B

    PORTA = Scan
    Rotate Scan , Left , 1
    Waitms 2
    PORTA = 0

    Next I
    Next Refresh
    Next S



    Loop
    End 'end program

    Text00:
    Data &H00 , &H0C , &H02 , &H01 , &H09 , &H01 , &H02 , &H1C 'Farsi character
    Data &H08 , &H08 , &H08 , &H10 , &H08 , &H10 , &H08 , &H10 'Farsi character
    Data &H08 , &H08 , &H08 , &H28 , &H48 , &H48 , &H28 , &H10 'Farsi character
    Text01:
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 'Farsi character
    Data &H06 , &H01 , &H01 , &H1E , &H48 , &H98 , &H48 , &H10 'Farsi character
    Data &H00 , &H00 , &H00 , &HF0 , &H08 , &H08 , &H08 , &H08 'Farsi character
    Data &H08 , &H08 , &H08 , &H08 , &H0A , &H08 , &H08 , &H30 'Farsi character
    Data &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &HF0 'Farsi character
    Data &H00 , &H00 , &H00 , &H01 , &H81 , &H02 , &H24 , &H18 'Farsi character
    Data &H08 , &H08 , &H08 , &H88 , &H88 , &H28 , &H58 , &H30 'Farsi character
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Text02:
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 'Farsi character
    Data &H06 , &H01 , &H01 , &H1E , &H48 , &H98 , &H48 , &H10 'Farsi character
    Data &H00 , &H00 , &H00 , &HF0 , &H08 , &H08 , &H08 , &H08 'Farsi character
    Data &H08 , &H08 , &H08 , &H08 , &H0A , &H08 , &H08 , &H30 'Farsi character
    Data &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &HF0 'Farsi character
    Data &H00 , &H00 , &H00 , &H01 , &H81 , &H02 , &H24 , &H18 'Farsi character
    Data &H08 , &H08 , &H08 , &H88 , &H88 , &H28 , &H58 , &H30 'Farsi character
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
    حسن قزلباش
    مهندس یار الکترونیک و کامپیوتر
    آموزش الکترونیک و دریافت نرم افزار های کاربردی برق و الکترونیک -دانلود جزوات الکترونیک -آموزش و پروژه های میکروکنترولر های AVR و 8051 - آموزش نرم افزار های کاربردی - پروژه ی کارآفرینی برق و الکترونیک - آموزش برنامه نویسی c و بیسیک - برنامه نویسی وب و آموزش سیستم های مدیریت محتوا و ...
    www.eelectrop30.tk
    electrop30@gmail.com
    برچسب ها: 408, mega16, بیسیکنیاز, تابلو, توسط, دارم, روان, زبان, کمک
    #2
    پاسخ : تابلو روان 40*8 توسط mega16 به زبان c و بیسیک(((((نیاز به کمک دارم))))))

    با سلام،

    هر گیت ULN رو در اصل یک ترانزیستور Open-Collector میتونی فرض کنی.
    حالا اگر شما بجای ULN از ترانزیستور منفی استفاده کردی، نباید هیچ تغییر خاصی رخ داده باشه، مگر اینکه ترانزیستورها رو اشتباه بسته باشی، یه جای دیگه میلنگه اخوی!

    ترانزیستور ها مثبت هستند یا منفی؟ LED ها کاتد مشترکند یا آند مشترک؟
    شماتیک یکی از ستونها و نحوه استفاده از ترانزیستور رو بزار تا ببینیم چیکار کردی.

    اگر از ترانزیستور مثبت و LED آند مشترک استفاده کردی، در اینصورت، درستش اینه که یک ترانزیستور منفی روی بیس ترانزیستور های مثبت بزاری و اطلاعات ارسالی به سطر ها رو قبل از نوشتن روی PORT مربوطه، نات کنی. اگر نمیخوای ترانزیستور منفی رو بزاری، باید اطلاعات ارسالی به سطرها و ستون ها رو ( هر دو رو ) قبل از نوشتن روی پورت مربوطه، نات کنی....
    مادامی که از شخصی یاد میشود، او و افکارش زنده اند ....

    Sh_Nourbakhsh@Yahoo.com

    http://s2.picofile.com/file/7170362468/_Wall_e_.jp

    دیدگاه

      #3
      پاسخ : تابلو روان 40*8 توسط mega16 به زبان c و بیسیک(((((نیاز به کمک دارم))))))

      با سلام led ها آند مشترکه که به خروجی ترانزیستور npn وصله و کاتد ها هم به بافر74hc573 وصله
      برنامه که اشغال نداره؟
      حسن قزلباش
      مهندس یار الکترونیک و کامپیوتر
      آموزش الکترونیک و دریافت نرم افزار های کاربردی برق و الکترونیک -دانلود جزوات الکترونیک -آموزش و پروژه های میکروکنترولر های AVR و 8051 - آموزش نرم افزار های کاربردی - پروژه ی کارآفرینی برق و الکترونیک - آموزش برنامه نویسی c و بیسیک - برنامه نویسی وب و آموزش سیستم های مدیریت محتوا و ...
      www.eelectrop30.tk
      electrop30@gmail.com

      دیدگاه

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