در این مقاله با نحوه ایجاد یکی دیگر از مهم ترین افکتهای موجود بر روی تابلو روان آشنا خواهیم شد. افکت حرکت به سمت پایین در تابلو روان با جاروب ستونی.

من در این برنامه سعی کردم با ایجاد تصویر یک فلش در جدول گلایف و نوشتن کدهای برنامه، این فلش را به سمت پایین حرکت دهم. پس شما هم با ما همراه باشید تا با یکی دیگر از افکتهای زیبا و پر کاربرد در تابلو روان آشنا گردیم.

در مقاله قبلی با ایجاد حرکت به سمت بالا  به خوبی آشنا شدیم و از آنجایی که در این مبحث حرکت را در جهت خلاف آن یعنی به سمت پایین میخواهیم انجام دهیم، لذا کدهای برنامه بسیار مشابه حالت پیشین است و در مواردی بسیار کوچک تفاوت خواهد داشت. در حرکت به پایین شیفت اطلاعات به سمت راست باعث ایجاد حرکت به سمت بالا می‌گشت و در اینجا شیفت به سمت چپ باعث حرکت به پایین خواهد شد. جهت درک موضوع به برنامه زیر توجه کنید.

'*********************************************
'* This Program Writing By : Hossein Lachini *
'* Scroll to Down on the LED Signe Board     *
'* For to get more details visit :           *
'*                 www.HLachini.com          *
'* Contact to me by : eLachini@Gmail.com     *
'*********************************************
$regfile = "m8def.dat"
$crystal = 8000000

Config Portb = Output
Config Portd = Output

Dim Col As Byte
Dim Scan As Byte
Dim Refresh As Byte
Dim Index As Byte
Dim S As Byte
Dim R As Byte
Dim Mask As Byte
Dim A As Byte

Do
    For S = 0 To 8
        A = 8 - S
        Mask = &HFF
        Shift Mask , Left , S
        For Refresh = 1 To 10
            Scan = &B00000001
            For Col = 0 To 4
                Index = S + Col
                Portb = Lookup(Index , Gelayof)
                Shift Portb , Right , A
                Portb = Portb Or Mask
                Portd = Scan
                Waitus 250
                Rotate Scan , Left
                Portd = &H00
            Next Col
        Next Refresh
    Next S

    For S = 0 To 8
        A = 8 - S
        Mask = &HFF
        Shift Mask , Right , A
        For Refresh = 1 To 10
            Scan = &B00000001
            For Col = 0 To 4
                Index = S + Col
                Portb = Lookup(Index , Gelayof)
                Shift Portb , Left , S
                Portb = Portb Or Mask
                Portd = Scan
                Waitus 250
                Rotate Scan , Left
                Portd = &H00
            Next Col
        Next Refresh
    Next S
Loop
End 'end program

Gelayof:
Data &B11110111
Data &B11101111
Data &B11000000
Data &B11101111
Data &B11110111

من از توضیح کامل برنامه خودداری میکنم، و توضیح آنرا بر عهده شما دوستان گرامی میگذارم.

در زیر فیلم تابلو روان پس از اجرای برنامه فوق مشاهده می‌کنید.

من جهت سهولت کار شما کدهای فوق به همراه فایل Hex برنامه را جهت دانلود در سایت قرار دادم.

جهت دانلود فایلهای فوق اینجا کلیک کنید.

دوستان گرامی تا اینجا ما با ایجاد حرکت و افکت در تابلو روان با جاروب ستونی آشنا شدیم، حال نوبت به آن رسیده تا این مدار را توسعه داده و ابعاد آنرا گسترش دهیم. لذا در مقاله بعدی به بررسی این موضوع می‌پردازیم. و یک نمونه ساخته شده را بهمراه نقشه و برنامه کامل بررسی میکنیم. تصویری از مدار فوق الذکر در اینجا آورده شده است.

این مدار دارای :

- ماتریسی با ابعاد 20 در 7 LED .

- میکروکنترلر ATmega8.

- برنامه کاملی جهت نمایش افکتهای حرکات چهار گانه.

- نمایش متن با طول دلخواه.

- کدهای برنامه توسط نرم افزار BASCOM نوشته شده است.

- و . . .

لذا شما نیز با ارسال نظرات خود به ایمیل eLachini@Gmail.Com و یا با ارسال SMS و تماس با تلفن 09123812060 ما را در این راه یاری کنید.

جهت ادامه مطلب اینجا کلیک کنید.