سایت که به راحتی باز میشه
نه کانکتور نداشت سیم نازک زدم و اون سرش رو پین هدر.
در کل خیلی قطعه با حالیه.اصلا فکر نمی کردم اینقدر حال بده.
دقت عملکردش خیلی خوبه
خدا گفت : به جهنم ببریدش، او برگشت و با تعجب به خدا نگاه کرد. خدا گفت : به بهشت ببریدش. فرشتگان پرسیدند: چرا؟! خدا گفت : او هنوز به من امیدوار است...
خیلی عالیه، من با Touch Screen های USB که رو مانیتور 15 اینچ نصب میشه کار کردم، قیمت اونها بالای 100 تومنه اما اینی که شما معرفی کردیدا برای کاربردهای Embedded واقعا مناسبه. :smile:
فقط یه مشکلی که داره چون خروجی اش آنالوگه ممکنه تو محیط های نویزی پرش هایی رو سیگنال آنالوگ کوپل بشه و مشکل Aliasing پیش بیاد و مقدار تبدیل شده صحیح نیاشه، پس بهتره اگر در چنین محیط هایی می خواهید از این ها استفاده کنید، یک فیلتر پایین گذر تو ورودی میکرو نصب کنید.
There is nothing so practical as a good theory. — Kurt Lewin, 1951
eimangh جان منظور اون عکس ها چیزه ساده ای هستش
برای خواندن محور ایکس ها ابتدا A را بالا و C را پایین می کنیم و B یا D را می خوانیم و برای خواندن محور ایگرگ ها ابتدا B را بالا و سپس D را پایین می کنیم و A یا C را می خوانیم.
راستی آقای نجفی شما اون تاچ اسکرین رو به چه صورت روی LCD نصب کردی؟ یا اون مدلی که شما خریدید روی صفحه LCD چسبیده بود؟
اگه بخوایم روی LCD نصب کنیم باید اون فلزی که روی ;LCD خورده رو باز کنیم؟
نه روی همون با چسب حرارتی چسپوندم.
برای محور x ها A رو باید 1 بدین از پین B مبدل مقدار رو میخونه پین C رو صفر میدین و D امپدانس بالاست.
برای y ها هم به همین شکل فقط پینها تغییر میکنه.
برای ساختن امپدانس بالا پین میکرو رو ورودی کنید و روش صفر بریزید.
باید برای این کار فرم DDRx رو تغییر بدین.
تو نمونه برنامه مشخص هست
خدا گفت : به جهنم ببریدش، او برگشت و با تعجب به خدا نگاه کرد. خدا گفت : به بهشت ببریدش. فرشتگان پرسیدند: چرا؟! خدا گفت : او هنوز به من امیدوار است...
سلام!
سوکتش رو طبقه دوم امجد داره! یه مغازه هست که لامپ نئون قرمز وصل کرده ، اسمش رو یادم نیست! ولی همه مدل سوکت داره! من واسه تاچ اسکرینم گرفتم 500 تومن!
سلام!
کسی این تاچ اسکرین ها رو با Codevision راه انداخته؟!
سلام !
من با کدویژن راه انداختم ! خیلی راحته! فقط یه مشکل برام پیش اومد! وقتی میخوام با GLCD راش بندازم تا زمانی که از ADC noise canceller استفاده نکنم کار نمیکنه!
سلام
درباره این موضوعی که بحس مکنید توی سایت یزد کیت یک چیزای دیدم وتبدیلش کردم به پیدی اف اگه کسی خواست میتونه دانلودش کنه
http://www.4shared.com/file/81275169/c21a6a48/__online.html
دو تا پایه وسط تاچ اسکرین رو با مقاومت 10 کیلو زمین کردم
نمیدونم چرا اصلا دقیق و درست کار نمیکنه
$regfile = "m64def.DAT"
$crystal = 16000000
$baud = 9600
$eepleave
$loadersize = 512
$hwstack = 100
$swstack = 75
$framesize = 40
Dim X(8) As Byte
Dim X2 As Byte
Dim Y(8) As Byte
Dim Y2 As Byte
Dim Omid As Byte
Dim Kol As Word
Enable Interrupts
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Print "in the name of god"
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
For Omid = 1 To 8
X(omid) = Getadc(1)
Next
Kol = 0
Kol = Kol + X(1)
Kol = Kol + X(2)
Kol = Kol + X(3)
Kol = Kol + X(4)
Kol = Kol + X(5)
Kol = Kol + X(6)
Kol = Kol + X(7)
Kol = Kol + X(8)
Kol = Kol / 8
Kol = Kol / 4
If Kol <> X2 Then
Print "x " ; Kol
End If
X2 = Kol
Waitms 10
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
For Omid = 1 To 8
Y(omid) = Getadc(2)
Next
Kol = 0
Kol = Kol + Y(1)
Kol = Kol + Y(2)
Kol = Kol + Y(3)
Kol = Kol + Y(4)
Kol = Kol + Y(5)
Kol = Kol + Y(6)
Kol = Kol + Y(7)
Kol = Kol + Y(8)
Kol = Kol / 8
Kol = Kol / 8
If Kol <> Y2 Then
Print "y " ; Kol
End If
Y2 = Kol
Loop
دیدگاه