اطلاعیه

Collapse
No announcement yet.

تاپیک مخصوص تابلو روان

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

    تاپیک مخصوص تابلو روان

    سلام خدمت دوستان :bye
    کممممممممممممممممممممممممممممممممممممممممممممممممم ممممک :angry: :angry: :angry:
    من تابلو روانی ساختم 8*8
    در نمایش دادن حرف مشکل ندارم
    اما میخوام با فشار دادن کلیدی از کیبرد حرف خاص و افکت خاصی رو تابلو نمایش بده
    هر برنامه ای می نویسم کار نمیده :eek:
    بلدم افکت بدم ولی نمیدونم چطوری رو حرف خاص افکت رو بذارم. با بسکام بر نامه مینویسم لطفا راهنمایم کنید
    برچسب ها: تابلو, تاپیک, روان, مخصوص
    #2
    پاسخ : تاپیک مخصوص تابلو روان

    برنامه ای که نوشتید یا مدارتون را بذارید تا بشه براتون کاری کرد.
    Difficult But possible
    به امید ایرانی آباد.
    http://art-net.ir

    دیدگاه

      #3
      پاسخ : تاپیک مخصوص تابلو روان

      سرچ در انجمن هم گزینه خوبی می تونه باشه :job:

      دیدگاه

        #4
        پاسخ : تاپیک مخصوص تابلو روان

        من تمام اصول تابلو رو بلدم
        رفرش سطری ستونی
        فلیکر
        حرکت در تابلو
        فعلا می خوام با فشار دادن هر میکرو سویچ یه حرف نمایش داده بشه
        البته من با Case هم نوشتم کار نداد
        و
        تابلو فعلا 8*8 هستش که بعد ا میخوام کیبورد بهش وصل کنم و کلیدی واسه افکت بذارم :job:


        [pre]
        '_________In The Name Of GOD________________

        '___Source of Scroll dot Matrix 8*8 Key pad_________

        $regfile = "m8def.dat" ' Atmega8
        $crystal = 8000000

        Config Portd = Output 'this port connected to Catodes 4 Refresh
        Config Portb = Output 'this port connected to Anodes $ data

        Dim Scan As Byte , Colum As Byte , I As Word , Character As Byte , C As Byte
        Dim Count As Byte , _counter As Byte
        Config Portc = Input

        Do
        Main:

        If Pinc.0 = 1 Then Goto A 'u switch S
        If Pinc.1 = 1 Then Goto B 'u switch A
        If Pinc.2 = 1 Then Goto C 'u switch E
        If Pinc.3 = 1 Then Goto D 'u switch I
        ' If Pinc.4 = 1 Then goto e 'u switch D




        Scan = &B01111111



        A:
        _counter = 0
        Portd = 0
        Portb = 0
        For Colum = 0 To 7
        C = Colum + _counter
        Portb = Scan
        Portd = Lookup(c , Glayof)
        Rotate Scan , Right
        Waitus 20
        Portd = 0
        Portb = 0
        Next Colum
        Goto Main


        B:
        _counter = 8
        Portd = 0
        Portb = 0
        For Colum = 0 To 7
        C = Colum + _counter
        Portb = Scan
        Portd = Lookup(c , Glayof)
        Rotate Scan , Right
        Waitus 20
        Portd = 0
        Portb = 0
        Next Colum
        Goto Main

        C:
        _counter = 16
        Portd = 0
        Portb = 0
        For Colum = 0 To 7
        C = Colum + _counter
        Portb = Scan
        Portd = Lookup(c , Glayof)
        Rotate Scan , Right
        Waitus 20
        Portd = 0
        Portb = 0
        Next Colum
        Goto Main

        D:
        _counter = 24
        Portd = 0
        Portb = 0
        For Colum = 0 To 7
        C = Colum + _counter
        Portb = Scan
        Portd = Lookup(c , Glayof)
        Rotate Scan , Right
        Waitus 20
        Portd = 0
        Portb = 0
        Next Colum
        Goto Main

        Loop
        End

        Glayof:

        '****************** character "S" ******************
        Data &B01111100
        Data &B11111110
        Data &B11000000
        Data &B11111110
        Data &B11111110
        Data &B00000110
        Data &B11111110
        Data &B01111100

        '****************** character "A" ******************
        Data &B00111000
        Data &B01101100
        Data &B11000110
        Data &B11111110
        Data &B11111110
        Data &B11000110
        Data &B11000110
        Data &B11000110

        '****************** character "E" ******************
        Data &B11111111
        Data &B11111110
        Data &B11000000
        Data &B11111111
        Data &B11111111
        Data &B11000000
        Data &B11111110
        Data &B11111111

        '****************** character "I" ******************
        Data &B11111111
        Data &B01111110
        Data &B00111100
        Data &B00111100
        Data &B00111100
        Data &B00111100
        Data &B01111110
        Data &B11111111

        '****************** character "D" ******************

        Data &B11111110
        Data &B01111111
        Data &B01100011
        Data &B01100011
        Data &B01100011
        Data &B01100011
        Data &B01111111
        Data &B11111110
        [/pre]

        دیدگاه

          #5
          پاسخ : تاپیک مخصوص تابلو روان

          با این برنامه دقیقا چه خروجی داری؟
          فکر می کنی وقتی یک کلیدو فشار دادی و بعد رهاش کردی چه اتفاقی می افته؟

          دیدگاه

            #6
            پاسخ : تاپیک مخصوص تابلو روان

            نوشته اصلی توسط حامد جعفری
            سرچ در انجمن هم گزینه خوبی می تونه باشه :job:
            سلام .........

            http://www.eca.ir/forum2/index.php?topic=17864.0

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

            دیدگاه

              #7
              پاسخ : تاپیک مخصوص تابلو روان

              ای ول
              دستت درد نکنه آقا
              پیدا کردم صفحه 2 نرفته بودم...... :wow:

              دیدگاه

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