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

[khast khodaiebehnam]

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

:angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry:

[khast khodaiebehnam]

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

تو سایت به این توپیو گندگی کسی نیس جواب ما رو بده؟؟؟؟؟؟؟؟؟ :cry: :cry2:

[M.M.-T]

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

امید جان من همیشه از این تابع واسه صفحه لمسی استفاده میکنم.بسیار خوب هم جواب میده.مستقیم متصل کردم به میکرو.

Sub Readtouch

Recheck = 0
Loop1:
Config Pina.0 = Output
Config Pina.2 = Output
Set Porta.0
Reset Porta.2
Ddra.1 = 0
Ddra.3 = 0
Waitms 5
Y = Getadc(3)
Config Pina.1 = Output
Config Pina.3 = Output
Reset Porta.1
Set Porta.3
Ddra.0 = 0
Ddra.2 = 0
Waitms 5
X = Getadc(2)
If X = 1023 Then Goto Loop1
If Y = 1023 Then Goto Loop1
If Recheck = 0 Then
Recheck = 1
Goto Loop1
End If


End Sub

[khast khodaiebehnam]

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

ممنونم دوست عزیز.بلا خره یکی جواب من رو داد.من نمیدونم چرا این دقت کافی نداره.این رو خودم تست کردم ولی نمی دونم مشکلش کجاست؟ :angry: :angry:
خیلی مسخرس که با یه موجود به این کوچیکی دست به یقه شدم و از پسش بر نمیام :angry:

[M.M.-T]

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

فکر میکنم مشکل دقت بخاطر اینه که ما خیلی با سرعت مقادیر خروجی رو میخونیم و قبل از اینکه صفحه در نقطه مورد نظر کاملا فشرده بشه مقدارو دریافت میکنیم. من برای بهتر شدنش مقدار دریافتی اولو به حساب نمیارم و دفعه دوم رو بعنوان ورودی میگیرم و اینکار دقتو خیلی بالاتر برده.

[حمید نجفی]

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

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

[khast khodaiebehnam]

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

خیلی ممنون از همکاریتون

میشه لطف کنین برنامتون رو بزارین تا اونم تست کنم اقا حمید؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :cry2: :cry2:

[حمید نجفی]

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

فقط باید بگردم تو PC پیداش کنم.PC من وثل بازار سید اسماعیله oo:
فقط به زبان C کدویژنه

[khast khodaiebehnam]

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

من بیسیک کار می کنم


با این وجود ممنونم دوست عزیز :cry2: :cry2:

[ehsan_akbari]

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

من قیمت این صفحه ها رو از جهان کیت گرفتم کوچیکترین سایز یعنی برای 128*64 رو میداد 8 تومن

کجا ارزون تر میده

لطفا قیمت و شماره تلفن بدید

[khast khodaiebehnam]

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

فکر میکنم مشکل دقت بخاطر اینه که ما خیلی با سرعت مقادیر خروجی رو میخونیم و قبل از اینکه صفحه در نقطه مورد نظر کاملا فشرده بشه مقدارو دریافت میکنیم. من برای بهتر شدنش مقدار دریافتی اولو به حساب نمیارم و دفعه دوم رو بعنوان ورودی میگیرم و اینکار دقتو خیلی بالاتر برده.

سلام ممنونم ازت.راه افتاد و بسیار دقیق هم کار میکنه ولی..........

فقط نصف صفحه از عمودی و نصف صفحه از افقی رو میشناسه یعنی حدودا 1/4 کل صفحه رو و تو همون نصف بزرگترین عدد رو(1024) پس میده.مشکلش چیه؟ :angry:

[ali_rk]

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

من قیمت این صفحه ها رو از جهان کیت گرفتم کوچیکترین سایز یعنی برای 128*64 رو میداد 8 تومن

کجا ارزون تر میده

لطفا قیمت و شماره تلفن بدید

سلام من دیروز از روبرویه جهن کیت خریدم 5000 تومن

[khast khodaiebehnam]

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

سلام ممنونم ازت.راه افتاد و بسیار دقیق هم کار میکنه ولی..........

فقط نصف صفحه از عمودی و نصف صفحه از افقی رو میشناسه یعنی حدودا 1/4 کل صفحه رو و تو همون نصف بزرگترین عدد رو(1024) پس میده.مشکلش چیه؟ :angry:

:angry: :angry: :angry:

[khast khodaiebehnam]

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

واقعا یکی نیس به این حقیر کمک کنه؟ :cry2:

[alirezalahij]

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

سلام

با این کد من تاچ و به 4 قسمت تبدیل کردم

خوب کار می کنه

گفتم شاید به درد بخوره

$regfile = "m16def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency

$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space


Config Pinb.0 = Output

Config Porta = Input
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , Rs = Portb.6 , E = Portb.5




'some routines to control the display are in the glcdKS108.lib file
$lib "glcdKS108.lib"
'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 6 , Enable = 2
'Mishod Payeh Shomareh 5 Ra Braye Reser Entekhab ****m - Man Shomareh 6 Ra Gharar Dadam Va Reset Lcd Ra Mostaghim Be Vcc Vasl Kardam.

'The dataport is the portname that is connected to the data lines of the LCD
'The controlport is the portname which pins are used to control the lcd
'CE =CS1 Chip select
'CE2=CS2 Chip select second chip
'CD=Data/instruction
'RD=Read
'RESET = reset
'ENABLE= Chip Enable

'specify the font we want to use

'if Controlport = Portc not work use porta
Setfont Font8x8

'end


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



Stop Adc
Start Adc


X = 0
Y = 0

Cls Graph
Cls Text






Do


Line(0 , 32) -(127 , 32) , 1 'make line
Line(0 , 33) -(127 , 33) , 1 'make line


Line(63 , 0) -(63 , 63) , 1 'make line
Line(62 , 0) -(62 , 63) , 1 'make line


Setfont Font8x8
Lcdat 2 , 1 , "ALIREZA"
Lcdat 7 , 1 , "KHALILI"
Lcdat 2 , 68 , "Mohamad"
Lcdat 7 , 68 , "Saiyan"





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



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





Select Case X


Case 40 To 186:

If Y < 92 Then
Cls Graph
Cls Text
Sound Portb.0 , 100 , 35

Lcdat 2 , 1 , "ALIREZA"
Lcdat 5 , 1 , " ALI"
Lcdat 7 , 1 , " REZA"
Waitms 500
Cls Graph
Cls Text
Else
Sound Portb.0 , 100 , 35

Cls Graph
Cls Text

Lcdat 2 , 1 , "KHALILI"
Lcdat 5 , 1 , " khalili"
Lcdat 7 , 1 , " Khalili"
Waitms 500
Cls Graph
Cls Text
End If


Case 186 To 255:

If Y < 92 Then
Cls Graph
Cls Text
Sound Portb.0 , 100 , 35


Lcdat 2 , 1 , "Mohammad"
Lcdat 5 , 1 , " Mohammad"
Lcdat 7 , 1 , " MOHAMAD"
Waitms 500
Cls Graph
Cls Text
Else
Sound Portb.0 , 100 , 35

Cls Graph
Cls Text

Lcdat 2 , 1 , "SAIYAN"
Lcdat 5 , 1 , " Electronic"
Lcdat 7 , 1 , " ***---------*** "
Waitms 500
Cls Graph
Cls Text
End If










End Select











Loop


End 'end program


$include "font8x8.font"