مشکل با تاچ(لطفا کمک کنید)

[masoud_m_bf]

سلام
من یک ال.سی.دی 128*64 رو با تاچ 128*64 راه اندازی کردم
اما تاچ به صورت مسخره ای داره اذیت میکنه
برنامش رو خلاصه میذارم:

$regfile = "m32def.dat "
$crystal = 16000000

$lib "glcdks108.lbx"

Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , _
Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2 , Mode = 6

Setfont Font8x8

Config Pina.2 = Input

Config Adc = Single , Prescaler = Auto , Reference = Aref

Dim X As Word

Cls

Do
Gosub Readtouch
Lcdat 1 , 0 , X ; " "
Loop
End

$include "font8x8.font"

Readtouch:
Waitms 20
X = Getadc(2)
Return

حالا ببینید هر قسمت تاچ رو ک لمس میکنم چ رقمی از مبدل آنالوگ بهم میده:

http://up.iranblog.com/images/wtvxqpx5vnxomzrc4o.gif

همونطور ک میبینید X هم افقی و هم عمودی داره تغییر میکنه
:angry: :angry: :angry:
مشکل کجاست؟

[move]متشکرم[/move]

[narek]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

سلام
هم سخت افزار را اشتباه بستی هم برنامه اشتباه است!
باید یه متغیر x تعریف کنی یه متغیر y
این لینک و نگاه کنید خیلی واضح توضیح داده برنامه هم به زبان بیسیک نوشته!
http://yazdkit.com/touch-screen-530.html?comments=true

[masoud_m_bf]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

سلام
هم سخت افزار را اشتباه بستی هم برنامه اشتباه است!
باید یه متغیر x تعریف کنی یه متغیر y
این لینک و نگاه کنید خیلی واضح توضیح داده برنامه هم به زبان بیسیک نوشته!
http://yazdkit.com/touch-screen-530.html?comments=true

سلام
متشکرم ک جواب دادی
گفتم ک برنامه رو خلاصه نوشتم و سخت افزار رو دستی وصل کردم
فقط میخواستم ببینم x چطور کم و زیاد میشه
اما از برنامه و اتصالات پیشنهادی شما استفاده کردم و اون مشکل حل شد
حالا یه مشکل دیگه هست
تاچ فقط در مرکز مختصات درست میده و هر چ ب سمت لبه ها میرم x و y بیشتر به سمت مرکز میل میکنن
یعنی لبه تاج از 10-15 کمتر و از 110-115 بیشتر نمیشه
همینطور برای y
راهی برای حل این مشکل هست؟
مقاومتهای 10کیلو رو هم تغییر دادم درست نشد
[move]متشکرم[/move]

[narek]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

خواهش میکنم

تاچ فقط در مرکز مختصات درست میده و هر چ ب سمت لبه ها میرم x و y بیشتر به سمت مرکز میل میکنن

منظور اینو نفهمیدم!

یعنی لبه تاج از 10-15 کمتر و از 110-115 بیشتر نمیشه

فکر کنم این عادی باشه واسه تاچ، دیگه اون لبه های تاچ که میفته روی قسمت قاب ال سی دی استفاده ای نداره که.

[masoud_m_bf]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

خواهش میکنم منظور اینو نفهمیدم!فکر کنم این عادی باشه واسه تاچ، دیگه اون لبه های تاچ که میفته روی قسمت قاب ال سی دی استفاده ای نداره که.

نه نشد
بذار اینجوری بگم
من یه تاچ 128*64 گرفتم ک عملا حدود 100*50 رو بیشتر بهم نمیده
گرفتی؟
این برنامه رو ببین:

$regfile = "m32def.dat"
$crystal = 16000000
$lib "glcdks108.lbx"

Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , _
Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2 , Mode = 6
Setfont Font8x8

Config Pina.2 = Input

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

Dim X As Word , Y As Word
Dim X1 As Single
Dim Y1 As Single
Dim Xx As Byte
Dim Yy As Byte

Cls

Do

Gosub Readtouch

Lcdat 7 , 7 , Xx ; " -- " ; Yy ; " "

Pset Xx , Yy , 1

Loop
End

$include "font8x8.font"

Readtouch:

Config Porta.0 = Output

Config Porta.1 = Input

Config Porta.2 = Output

Config Porta.3 = Input

Set Porta.0

Reset Porta.1

Reset Porta.2

Reset Porta.3

X = Getadc(1)

X1 = X / 8

Xx = Int(x1)

Waitms 10

Config Porta.0 = Input

Config Porta.1 = Output

Config Porta.2 = Input

Config Porta.3 = Output

Reset Porta.0

Set Porta.1

Reset Porta.2

Reset Porta.3

Y = Getadc(2)

Y1 = Y / 16

Yy = Int(y1)

Waitms 10

Return

قراره هر جا ک فشار داده میشه ی پیکسل ال.سی.دی روشن بشه
درسته؟
وقتی دقیقا وسط تاچ(مثلا پیکسل64افقی و32 عمودی!) رو فشار میدم درست کار میکنه
یعنی دقیقا همون پیکسل روشن میشه
اما اگه مثلا پیکسل5ام رو فشار بدم، رو ال.سی.دی پیکسل15ام روشن میشه :sad:
اگ بازم متوجه نشدی بگو دوباره بگم
[move]متشکرم[/move]

[MK3526]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

سلام...من یه برنامه میزارم برات اینو بریز نتیجه رو بهم بگو...این برنامه ای که تا حالا خودم صد دفعه ازش برای تست تاچ و glcd استفاده کردم...
موفق باشید.
test.bas - 2 KB

در ضمن سخت افزارت مشکل داره...تاچ رو که نباید اینطوری ببندی...از اون لینکی که دوست عزیز گذاشتن استفاده کن...

[masoud_m_bf]

پاسخ : پاسخ : مشکل با تاچ(لطفا کمک کنید)

سلام...من یه برنامه میزارم برات اینو بریز نتیجه رو بهم بگو...این برنامه ای که تا حالا خودم صد دفعه ازش برای تست تاچ و glcd استفاده کردم...
موفق باشید.
http://2darestan.tk/uploads/test.bas

در ضمن سخت افزارت مشکل داره...تاچ رو که نباید اینطوری ببندی...از اون لینکی که دوست عزیز گذاشتن استفاده کن...

سلام
من نتونستم برنامه رو دانلود کنم
اما چیزی که ازش فهمیدم این بود:

$regfile = "m32def.dat"
$crystal = 8000000
$lib "glcdKS108.lib"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Declare Sub Main
Config Adc = Single , Prescaler = Auto
Dim X As Word , Y As Word
Setfont Font8x8
Stop Adc
Start Adc
Cls
Sub Main
Do
Config Porta.0 = Output
Config Porta.1 = Input
Config Porta.2 = Output
Config Porta.3 = Input
Set Porta.0
Reset Porta.1
Reset Porta.2
Reset Porta.3
X = Getadc(1)
X = X / 4
Waitms 5
Config Porta.0 = Input
Config Porta.1 = Output
Config Porta.2 = Input
Config Porta.3 = Output
Reset Porta.0
Set Porta.1
Reset Porta.2
Reset Porta.3
Y = Getadc(2)
Y = Y / 8
Waitms 5
Lcdat 8 , 10 , "x=" ; X
Lcdat 7 , 10 , "y=" ; Y
Waitms 50
Loop
End Sub
$include "font8x8.font"

من اینو ریختم
اما الان فقط رو LCD دارم:

Y=127
X=255

دیگه به تاچ هیچ اهمیتی نمیده!!!
باید چیکار کنم؟

[MK3526]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

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

[MK3526]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

فایل درست شد....
اگه سخت افزارت درسته...باید هنگام خوندن از adc کانال adc رو درست وارد کنی...تو این برنامه بالا کانال 1و2 استفاده شده...آیا شما هم تاچتو به این کانال ها وصل کردی...؟

[masoud_m_bf]

پاسخ : پاسخ : مشکل با تاچ(لطفا کمک کنید)

فایل درست شد....
اگه سخت افزارت درسته...باید هنگام خوندن از adc کانال adc رو درست وارد کنی...تو این برنامه بالا کانال 1و2 استفاده شده...آیا شما هم تاچتو به این کانال ها وصل کردی...؟

بله
من درست وصلش کردم
قبلا هم گفتم
اون شکلی که اول وصل کردم فقط برای دنبال کردن تغییرات x بود و بس
فکر می کنم تاچ مشکل داشته باشه
راهی برای تست کردن تاچ هست؟

[MK3526]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

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

[masoud_m_bf]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

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

تغییر میکنه
اما تغییراتش خطی نیست
میگیری چی میگم؟

[MK3526]

پاسخ : مشکل با تاچ(لطفا کمک کنید)

پس تاچت خراب شده... :sad:
عوضش کن...مشکلت حتما حل میشه...
تاچ جدید رو با اون برنامه که برات گذاشتم اول تست کن...