در اين قسمت تصميم به آموزش ساخت تابلوروان با ارتفاع 8 سطر و طولي برابر با 128ستون است. البته برنامه اين تابلوروان توسط جادوگر توليد كننده سورس بسكام تهيه شده. كه در صورت تمايل ميتوانيد جهت تهيه آن با من تماس بگيريد .

اين برنامه هم طبق قواعد قبلي كه آموختيد ساخته شده با اين تفاوت كه سعي شده با اضافه كردن يك حلقه FOR-NEXT به برنامه از طول كدهاي توليد شده كم شود.

ويژگي هاي اين  :

• داراي دو فونت انگليسي
• داراي يك فونت فارسي
• ارتفاع تابلوروان 8 سطر
• طول تابلوروان 128 ستون
• قابل استفاده جهت ميكرو ATmega16 و ATmega32
• برنامه نويسي توسط نرم افزار بسكام
• مناسب براي پروژه دانشگاه و علاقمندان به آموزش تابلوروان.

در اين برتامه هم سعي شده كه جنبه آموزشي بودن آن حفظ شود. بنابراين در قسمتهاي مختلف برنامه توضيحات لازم آمورده شده و شما براحتي ميتوانيد ، بخشهاي مختلف برنامه توليد شده را شناسايي كرده و وظيفه هر يك را متوجه شويد همچنين در بخشي كه كدهاي گلابف نوشته شده در مقابل حروف انگليسي نام آن حرف نوشته شده و در مقابل حروف فارسي نيز مشخص شده كه اين حرف فارسي است.

در بخش زير برنامه بسكام تابلوروان توليد شده توسط اين نرم افزار نشان داده شده كه البته بخاطر اينكه اين برنامه در اين صفحه جا شود ، كمي در بخش توضيحات آن تغييرات انجام شده. كه شما ميتوانيد سورس كامل را از لينك موجود در ادامه همين صفحه دانلود كنيد.

'*********************************************
'* This Program Writing By : Hossein Lachini *
'* The Persian LED Sign Board                *
'* For to get more details visit :           *
'*                 www.HLachini.com          *
'* Contact to me by : eLachini@Gmail.com     *
'* Mobile/SMS : +98 912 381 2060             *
'*********************************************
$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

' +---------------------------+
' | Scrolling Text00 to Right |
' +---------------------------+

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

    For B = 0 To 3

     D = B * 8
     D = D + I
     Portd = Lookup(d , Text00)

     Portb = 2 ^ B
     Portb = 0

    Next B

    Porta = Scan
    Rotate Scan , Left , 1
    Waitms 5
    Porta = 0

   Next I
  Next Refresh
 Next S

' +---------------------------+
' | Scrolling Text01 to Left  |
' +---------------------------+

 For S = 0 To 168
  E = S + 7
  For Refresh = 1 To 5
   Scan = &H01
   For I = S To E

    For B = 0 To 3

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

     Portb = 2 ^ B
     Portb = 0

    Next B

    Porta = Scan
    Rotate Scan , Left , 1
    Waitms 5
    Porta = 0

   Next I
  Next Refresh
 Next S

Loop
End                                           'end program

Text00:
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 &H06 , &H01 , &H01 , &H01 , &H0D , &H0B , &H08 , &H08
Data &H08 , &H08 , &H08 , &H08 , &H48 , &H08 , &H08 , &H30
Data &H08 , &H08 , &H08 , &H0A , &H0A , &H08 , &H08 , &H30
Data &H08 , &H08 , &H08 , &H2A , &H49 , &H4A , &H28 , &H10
Data &H00 , &H00 , &H00 , &HF0 , &H08 , &H08 , &H08 , &H08
Data &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &HF0
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H06 , &H01 , &H01 , &H1E , &H08 , &H18 , &H08 , &H10
Data &H00 , &H00 , &H00 , &H08 , &H48 , &H48 , &H28 , &H10
Data &H08 , &H08 , &H08 , &H08 , &H48 , &H08 , &H08 , &H30
Data &H08 , &H08 , &H08 , &H0C , &H02 , &H04 , &H08 , &H08
Data &H08 , &H08 , &H08 , &H08 , &H08 , &H14 , &H14 , &H08
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H30 , &H08 , &H48 , &H08 , &H48 , &H08 , &H30
Data &H08 , &H08 , &H08 , &H0A , &H0A , &H08 , &H08 , &H30
Data &H00 , &H00 , &H00 , &HF0 , &H08 , &H08 , &H08 , &H08
Data &H08 , &H08 , &H08 , &H10 , &H08 , &H10 , &H08 , &H10
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
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 &H1E , &H01 , &H06 , &H01 , &H1E , &H00 , &H00 , &H00'w
Data &H1E , &H01 , &H06 , &H01 , &H1E , &H00 , &H00 , &H00'w
Data &H1E , &H01 , &H06 , &H01 , &H1E , &H00 , &H00 , &H00'w
Data &H00 , &H03 , &H03 , &H00 , &H00 , &H00 , &H00 , &H00'.
Data &H7F , &H08 , &H08 , &H08 , &H7F , &H00 , &H00 , &H00'H
Data &H7F , &H01 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00'L
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00 , &H00 , &H00'a
Data &H0E , &H11 , &H11 , &H11 , &H02 , &H00 , &H00 , &H00'c
Data &H7F , &H08 , &H10 , &H10 , &H0F , &H00 , &H00 , &H00'h
Data &H00 , &H11 , &H5F , &H01 , &H00 , &H00 , &H00 , &H00'i
Data &H1F , &H08 , &H10 , &H10 , &H0F , &H00 , &H00 , &H00'n
Data &H00 , &H11 , &H5F , &H01 , &H00 , &H00 , &H00 , &H00'i
Data &H00 , &H03 , &H03 , &H00 , &H00 , &H00 , &H00 , &H00'.
Data &H0E , &H11 , &H11 , &H11 , &H02 , &H00 , &H00 , &H00'c
Data &H0E , &H11 , &H11 , &H11 , &H0E , &H00 , &H00 , &H00'o
Data &H1F , &H10 , &H0C , &H10 , &H0F , &H00 , &H00 , &H00'm
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

تصويري از برنامه جادوگر توليد كننده سورس بسكام تابلوروان با قابليت فارسي نويسي در زير نشان داده شده است.

سورس كامل برنامه بسكام به همراه فايل هگز و نقشه مدار در پروتيوس و همچنين PDF نقشه  تابلوروان را با استفاده از لينك زير دانلود كنيد.

توجه داشته باشيد كه در تصوير مدار ساخته شده تعدادي مقاومت بين لچ ها و دات ماتريكس قرار گرفته كه شما نيز ميتوانيد اين مقاومتهاي 330 اهمي را در مدار خود استفاده كنيد.

برای مطالعه مباحث جدید به لینک زیر مراجعه کنید.

http://www.hlachini.com/modules.php?name=News&file=categories&op=newindex&catid=1

اين سايت آمادگي دارد كه مشاوره ، طراحي ، ساخت پروژه هاي صنعتي و دانشگاهي را به انجام رساند. لذا ميتوانيد از طريق تلفن 09123812060 و يا ايميل با ما تماس حاصل كنيد.

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