اطلاعیه

Collapse
No announcement yet.

آموزش ساخت تاچ پد برای کامپیوتر!!

Collapse
X
Collapse
 
  • صفحه of 2
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی 1 2 template بعدی
    #16
    پاسخ : آموزش ساخت تاچ پد برای کامپیوتر!!

    حالا برنامه رو به صورت زیر مینویسیم:
    [code=vb]$regfile = "attiny26.dat"
    $crystal = 8000000

    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0

    Config Adc = Single , Prescaler = Auto , Reference = Avcc
    Start Adc

    Dim X As Word , Y As Word , Xx As Byte , Yy As Byte , Xxx As Byte , Yyy As Byte

    Do
    Gosub Readtouch
    '--------------------------------------
    Xx = X - 130
    Yy = Y - 110

    Xxx = Xx / 6.640625 '850 / 128 = 6.640625
    Yyy = Yy / 11.71875 '750 / 64 = 11.71875
    '--------------------------------------
    Locate 1 , 1
    Lcd "X= " ; Xxx
    Locate 2 , 1
    Lcd "Y= " ; Yyy
    Wait 1
    Cls
    Loop
    End

    Readtouch:
    While X = 0 Or Y = 0

    Porta = &B01100001
    Ddra = &B11100101
    X = Getadc(1)

    Porta = &B11000010
    Ddra = &B11101010
    Y = Getadc(0)

    Wend

    Porta = &B01100001
    Ddra = &B11100101
    X = Getadc(1)

    Porta = &B11000010
    Ddra = &B11101010
    Y = Getadc(0)
    Return
    [/code]

    در این برنامه اومدم مختصات را به 128X64 تبدیل کردم

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

    دیدگاه

      #17
      پاسخ : آموزش ساخت تاچ پد برای کامپیوتر!!

      [code=vb]'--------------------------------------
      Xx = X - 130
      Yy = Y - 110

      Xxx = Xx / 6.640625 '850 / 128 = 6.640625
      Yyy = Yy / 11.71875 '750 / 64 = 11.71875
      '--------------------------------------[/code]

      حالا این کد بالا چی کار میکنه؟
      جواب:
      Xx = X - 130
      Yy = Y - 110
      این کد ها 130 و 110 رو از مقدار اصلی کم میکنه تا اولین نقطه که لمس میکنیم 0 بشه و اگر صفحه رو لمس نکنیم عددی منفی باشه

      Xxx = Xx / 6.640625
      Yyy = Yy / 11.71875
      کد های بالا هم اعداد از 110 و 130 کم شده رو تقسیم بر یک عددی میکنه که به 64x128 تبدیل بشه

      اگر کسی سوالی داشت بپرسه!

      معیار واقعی بودن تصمیم، آن است که دست به عمل بزنیم.

      دیدگاه

        #18
        پاسخ : آموزش ساخت تاچ پد برای کامپیوتر!!

        کسی نمی خواد یاد بگیره؟؟؟؟؟؟؟؟؟ :sad:
        معیار واقعی بودن تصمیم، آن است که دست به عمل بزنیم.

        دیدگاه

          #19
          پاسخ : آموزش ساخت تاچ پد برای کامپیوتر!!

          نوشته اصلی توسط alidehghan288
          کسی نمی خواد یاد بگیره؟؟؟؟؟؟؟؟؟ :sad:
          والا خیلی دلمون میخواد ولی اینقدر مختصر توضیح دادین که تقریبا من هیچی نفهمیدم
          لطفا در مورد تاچ هم بگید که همراه با lcd بگیرم یا بدون اون هم جواب میده
          ممنون

          دیدگاه

            #20
            پاسخ : آموزش ساخت تاچ پد برای کامپیوتر!!

            والا خیلی دلمون میخواد ولی اینقدر مختصر توضیح دادین که تقریبا من هیچی نفهمیدم
            کجا شو نفهمیدید بگید تا من بهتر توضیح بدم؟؟؟؟

            لطفا در مورد تاچ هم بگید که همراه با lcd بگیرم یا بدون اون هم جواب میده
            همراه با LCD بخرید بهتره چون به کارتون میاد
            اگر هم خاستید بخرید مدل KS108 شو بخرید چون سرعتش بالا تره!
            معیار واقعی بودن تصمیم، آن است که دست به عمل بزنیم.

            دیدگاه

              #21
              پاسخ : آموزش ساخت تاچ پد برای کامپیوتر!!

              علی اقا ما داریم دنبال میکنیم
              بخاطر اینکه تاپیک از روال آموزشی خارج نشه چیزی نمینویسیم...
              .The best question deserves a better answer
              =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=
              «پناه»می برم «به خدا»
              از عـیبی که ، «امروز» در خود می بینم، و «دیروز» «دیگران را» به خاطر، «هـمان عیـب» ملامت کرده ام.
              محتاط باشیم، در «سرزنش» و «قضاوت کردن دیگران». وقتی نه از «دیروز او» خبر داریم و نه از "فردای خودمان" .

              دیدگاه

                #22
                پاسخ : آموزش ساخت تاچ پد برای کامپیوتر!!

                ممنون

                اینم برنامه تکمیل شده:(زیاد دقیق نیست)
                [code=vb]$regfile = "attiny26.dat"
                $crystal = 8000000
                Config Ps2emu = Int0 , Data = Pinb.0 , Clock = Pinb.1
                Config Adc = Single , Prescaler = Auto , Reference = Avcc
                Start Adc

                Dim X As Word , Y As Word , Xx As Byte , Yy As Byte , Xxx As Byte , Yyy As Byte

                Do
                Gosub Readtouch
                '--------------------------------------
                Xx = X - 335
                Yy = Y - 418
                '--------------------------------------
                If Xx > -254 And Yy > -254 Then Ps2mousexy Xx , Yy , 1
                Loop
                End

                Readtouch:
                While X = 0 Or Y = 0

                Porta = &B01100001
                Ddra = &B11100101
                X = Getadc(1)

                Porta = &B11000010
                Ddra = &B11101010
                Y = Getadc(0)

                Wend

                Porta = &B01100001
                Ddra = &B11100101
                X = Getadc(1)

                Porta = &B11000010
                Ddra = &B11101010
                Y = Getadc(0)
                Return[/code]

                اینم شماتیک:
                معیار واقعی بودن تصمیم، آن است که دست به عمل بزنیم.

                دیدگاه

                  #23
                  پاسخ : آموزش ساخت تاچ پد برای کامپیوتر!!

                  نوشته اصلی توسط alidehghan288
                  کجا شو نفهمیدید بگید تا من بهتر توضیح بدم؟؟؟؟
                  همراه با LCD بخرید بهتره چون به کارتون میاد
                  اگر هم خاستید بخرید مدل KS108 شو بخرید چون سرعتش بالا تره!
                  مهندس این ال سی دی از کجا بگیرم فروشگاه اینترنتی؟
                  هیچکدوم ندارن؟

                  دیدگاه

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