صفحه های Touch Screen موجود در بازار تهران

[Eng.Ramezani]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

بفرمائید :rolleyes:

[alirezalahij]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

سلام دوستان من اون صفحه ها رو دیدم و با هاش ار کردم ولی 5000 تومان نگرفتم من 2000 تومان گرفتم :nice:اگرکسی بخواد بودنه بهش میگم از کجا
شاید هم با کمی سود براش تهیه کنم
کسی میخواد بگم؟ :agree:

لطفا بگید؟

[simorgh]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

سلام من همین الان از امجد میام. touch برای 128*240 لازم داشتم قیمت کردم. 14000 تومن. جام جم این قیمت میداد. ولی فکر کنم برای pocket pc ها رو بشه دست دوم ارزون تر خرید. فقط بدیش اینه که ابعاد 128*64 بیشتر نداره.

[ramin2000]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

سلام
ببین دوست عزیز من دقت خیلی خوبی از این صفحات گرفتم در حدی که با هاش دفتر چه تلفنی ساختم مثل موبایل های تاچ دار.یعنی اسم و شماره رو با یک قلم رو صفحه ایی که رو LCD گرافیکی نصب کردم مینویسم بعد کل آرایه صفحه رو Save میکنم.خیلی عالیه

حمید جان یه لطفی میکنی اگه با C کار کردی سورس برنامرو upload کنی همه استفاده کنیم تشکر

[ali3635]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

سلام
من یکی از این تاچ سکرینا گرفتم جوابم میده اما مشکلم ایتجاس که وقتی هیچجای صفحه رو فشار نمیدم 800 , 900 بر میگردونه اینم کدیه که استفاده کردم



$regfile = "m128def.dat"
$crystal = 8000000

$swstack = 64
$hwstack = 128
$framesize = 128
Config Clock = Soft
Config Date = Dmy , Separator = .
Time$ = "2000"
Date$ = "16.04.08"

'
$lib "glcdKS108.lib"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Porte , Ce = 2 , Ce2 = 1 , Cd = 6 , Rd = 5 , Reset = 0 , Enable = 4

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



Dim I As Byte , I2 As Byte
Dim X As Word , Y As Word

$include "font8x8.font"


Setfont Font8x8


Stop Adc
Start Adc


X = 0
Y = 0

Cls Graph
Cls Text






Do




Config Portf.0 = Output
Config Portf.1 = Input
Config Portf.2 = Output
Config Portf.3 = Input


Set Portf.0
Reset Portf.1
Reset Portf.2
Reset Portf.3


X = Getadc(1)
X = X



Config Portf.0 = Input
Config Portf.1 = Output
Config Portf.2 = Input
Config Portf.3 = Output


Reset Portf.0
Set Portf.1
Reset Portf.2
Reset Portf.3

Y = Getadc(2)
Y = Y

Cls
Lcdat 2 , 1 , X
Lcdat 3 , 3 , Y
Wait 1
Loop


End

[ali_rk]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

سلام
پایه های DATA را PULLDOWN کردید؟

[ahmadmn]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

تو پاساژ علا الدین طبقه سوم به بالا کلی از این تاچ ها رو بعنوان لوازم یدکی موبایل میفروشن. احتمالا قیمتهاشون هم باید مناسب باشه

[alirezalahij]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

تو پاساژ علا الدین طبقه سوم به بالا کلی از این تاچ ها رو بعنوان لوازم یدکی موبایل میفروشن. احتمالا قیمتهاشون هم باید مناسب باشه

سلام

من قیمت کردم
گفتن 6000 تومن

اینکه گرون تر شد امجد می ده 5000 تومن

[ehsan_akbari]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

اگه آدرس و شماره تلفن بدید ممنون میشم

من بچه شهرستانم

[ali3635]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

سلام
پایه های DATA را PULLDOWN کردید؟

آره البته از طریق میکرو نه سخت افزاری من تاچ اسکرینو 4 سیمه وصل کردم
البته من مشکلمو یه جور دیگه حل کردم من اومدم با تایمر صفر تو 2 تا بازه زمانی خیلی کم x و y خوندم و اگه این 2 تا x و y با هم برابر بود یعنی یه نقطه انتخاب شده دقت خیلی بالایی ام ازش گرفتم اما هنوز نفهمیدم این نرماله که وقتی هیچ نقطه ای از صفحه لمس نشده صفحه مقدار برگردونه یا نه

[tizro]

پاسخ : صفحه های Touch Screen موجود در بازار تهران

سلام

منم با این تاچ ها مشکل پیدا کردم :cry2:
من اومدم از روی همین PDF ای که تو این تاپیک گذاشتین و یا از روی سایت یزد کیت و ... مدار رو بستم ولی جواب نمیده !
مشکل اینکه تا چ رو به مدار وصل نکردم، ال سی دی X و Y رو صفر نشون میده و وقتی تاچ رو وصل میکنم دیگه هیچی نشون نمیده !
دو تا پایه وسط تاچ رو هم به صورت سخت افزاری و هم نرم افزاری Pull Down کردم.
مشکل از کجاست ؟

اینم برنامه :

$regfile = "M16def.dat"
$lib "glcdKS108.LBX"
$lib "glcdKS108.LBX"
$include "font8x8.font"
$crystal = 8000000

Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 4 , Ce2 = 3 , Cd = 7 , Rd = 6 , Reset = 2 , Enable = 5

Setfont Font8x8
Cls
Dim X As Word , Y As Word

Loop1:


' Get X :
Config Pina.0 = Output
Config Pina.1 = Input
Config Pina.2 = Output
Config Pina.3 = Input
Set Porta.0
Reset Porta.1
Reset Porta.2
Reset Porta.3
Ddra.1 = 0
Ddra.3 = 0
Waitms 10
X = Getadc(1)




' Get Y :
Config Pina.0 = Input
Config Pina.1 = Output
Config Pina.2 = Input
Config Pina.3 = Output
Reset Porta.0
Set Porta.1
Reset Porta.2
Reset Porta.3
Ddra.0 = 0
Ddra.2 = 0
Waitms 10
Y = Getadc(2)


Lcdat 1 , 0 , "X:" ; X
Lcdat 1 , 50 , "Y:" ; Y

Goto Loop1
End

:cry2: