ایراد در تاچ پنل

[ehsancompany]

سلام خدمت همه شما
دوستان من با بسکام کار میکنم
در مقادیر اولیه ای که تاچ بهم میده ایراد دارم...!
بدین شکل که به فرض مقدار اولیه(وقتی که هیج جا روش فشار نمیدم) بدین شکله:x=630,y=450
حالا ایراد کجاس؟
ایراد کار اینجاس که وقتی برنماه رو یه خرده تغییر میدم و میکرو رو پروگرام میکنم
این مقادیر عوض میشن..!
نظرتون چیه؟

[shadkanlu]

پاسخ : ایراد در تاچ پنل

:agree: :agree:

دقیقا منم این مشکلو داشتم ... تا جایی که مقدار adc که رو ال سی دی مینوشتم واسه تستو حذف میکردم مقدار عوض میشد ...

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

[masoud_m_bf]

پاسخ : ایراد در تاچ پنل

سلام خدمت همه شما
دوستان من با بسکام کار میکنم
در مقادیر اولیه ای که تاچ بهم میده ایراد دارم...!
بدین شکل که به فرض مقدار اولیه(وقتی که هیج جا روش فشار نمیدم) بدین شکله:x=630,y=450
حالا ایراد کجاس؟
ایراد کار اینجاس که وقتی برنماه رو یه خرده تغییر میدم و میکرو رو پروگرام میکنم
این مقادیر عوض میشن..!
نظرتون چیه؟

تاچ منو خیلی اذیت کرد تا راه افتاد
برنامه رو بذار تا ببینم
بعد بگو اتصالات رو درست وصل کردی؟
تاچ رو کالیبره کردی؟

[ehsancompany]

پاسخ : ایراد در تاچ پنل



$regfile = "m16def.dat"
$crystal = 12000000
$lib "glcdks108.lbx"
$include "font8x8.font"

Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Config Adc = Single , Prescaler = Auto
Dim X As Word , Y As Word
Dim X1 As Word , Y1 As Word
Dim X2 As Word , Y2 As Word
Dim X3 As Word , Y3 As Word


Cls

Setfont Font8x8

Start Adc


Main:
Cls
Do

Gosub Readtouch

Lcdat 1 , 1 , X3 ; " "
Lcdat 2 , 1 , Y3 ; " "
Loop
''''''''&# 039;'''''''&#03 9;'''''''' '''''''&#039 ;
Readtouch:
Config Pina.0 = Output
Config Pina.2 = Output

Set Porta.0
Reset Porta.2
Ddra.1 = 0
Ddra.3 = 0

Y = Getadc(1)

Y1 = Getadc(1)

Y2 = Getadc(1)

Y3 = Y + Y1
Y3 = Y3 + Y2
Y3 = Y3 / 3
Config Pina.1 = Output
Config Pina.3 = Output
Reset Porta.1
Set Porta.3

Ddra.0 = 0
Ddra.2 = 0

X = Getadc(2)

X1 = Getadc(2)

X2 = Getadc(2)

X3 = X + X1
X3 = X3 + X2
X3 = X3 / 3
Return

[masoud_m_bf]

پاسخ : ایراد در تاچ پنل

$regfile = "m16def.dat"
$crystal = 12000000
$lib "glcdks108.lbx"
$include "font8x8.font"

Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Config Adc = Single , Prescaler = Auto
Dim X As Word , Y As Word
Dim X1 As Word , Y1 As Word
Dim X2 As Word , Y2 As Word
Dim X3 As Word , Y3 As Word


Cls

Setfont Font8x8

Start Adc


Main:
Cls
Do

Gosub Readtouch

Lcdat 1 , 1 , X3 ; " "
Lcdat 2 , 1 , Y3 ; " "
Loop
''''''''&# 039;'''''''&#03 9;'''''''' '''''''&#039 ;
Readtouch:
Config Pina.0 = Output
Config Pina.2 = Output

Set Porta.0
Reset Porta.2
Ddra.1 = 0
Ddra.3 = 0

Y = Getadc(1)

Y1 = Getadc(1)

Y2 = Getadc(1)

Y3 = Y + Y1
Y3 = Y3 + Y2
Y3 = Y3 / 3
Config Pina.1 = Output
Config Pina.3 = Output
Reset Porta.1
Set Porta.3

Ddra.0 = 0
Ddra.2 = 0

X = Getadc(2)

X1 = Getadc(2)

X2 = Getadc(2)

X3 = X + X1
X3 = X3 + X2
X3 = X3 / 3
Return

برنامتون خوبه
فقط تو زیر برنامه بعد از پیکر بندی پینها و درست قبل از خواندن مقدار آنالوگ یه وقفه کوچیک در حد 10-20 میکرو بدین تا ولتاژ ثابت بشه
بعد برین سراغ کالیبره کردنش
بلدین؟

[ehsancompany]

پاسخ : ایراد در تاچ پنل

مسعود جان اگه امکانش هست برنامه رو اصلاح کنید

[masoud_m_bf]

پاسخ : ایراد در تاچ پنل

مسعود جان اگه امکانش هست برنامه رو اصلاح کنید

دو خط باید اضافه کنی
اینجوری میشه:

$regfile = "m16def.dat"
$crystal = 12000000
$lib "glcdks108.lbx"
$include "font8x8.font"

Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Config Adc = Single , Prescaler = Auto
Dim X As Word , Y As Word
Dim X1 As Word , Y1 As Word
Dim X2 As Word , Y2 As Word
Dim X3 As Word , Y3 As Word


Cls

Setfont Font8x8

Start Adc


Main:
Cls
Do

Gosub Readtouch

   Lcdat 1 , 1 , X3 ; "  "
     Lcdat 2 , 1 , Y3 ; "  "
Loop
'''''''''''''''''''''''''''''''''
Readtouch:
Config Pina.0 = Output
Config Pina.2 = Output

Set Porta.0
Reset Porta.2
Ddra.1 = 0
Ddra.3 = 0

Waitus 20

Y = Getadc(1)

Y1 = Getadc(1)

Y2 = Getadc(1)

Y3 = Y + Y1
Y3 = Y3 + Y2
Y3 = Y3 / 3
Config Pina.1 = Output
Config Pina.3 = Output
Reset Porta.1
Set Porta.3

Ddra.0 = 0
Ddra.2 = 0

Waitus 20

X = Getadc(2)

X1 = Getadc(2)

X2 = Getadc(2)

X3 = X + X1
X3 = X3 + X2
X3 = X3 / 3
Return

و توقع نداشته باش لبه ها دقیقا عدد 0 و 1023 رو بهت بدن
در موقع فشار ندادن هم همینطوره
یه عدد الکی بهت میده
ولی این عدد از عددی که وقتی لبه تاچ رو فشار میدی میخونه باید بیشتر باشه
تو تو برنامه باید تعیین کنی که اگه زیر این عدد بود مقدار رو بخون

اینجوری تست کن ک از خارجی ترین قسمت تاچ شروع کن
یه چیز نوک تیز مثل مداد بذار و به سمت مرکز حرکت کن
از 4 لبه کمترین و بیشترین مقدار عددی که میتونی ازش بگیری رو بهم بده
نمیدونم منظورم رو گرفتی یا ن؟
ببین مثلا واسه من از طرف چپ مقدار اولیه 115 بود و از طرف راست 941
یعنی X در عملا در بازه 115 و 941 تغییر میکرد؛ نه بازه 0 و 1023
همینطور از بالا 189 و از پایین 843 بود

منتظرم

[ehsancompany]

پاسخ : ایراد در تاچ پنل

ممنون
به این نتیجه رسیدم که مکان اولیه که تاچ دراه اصلا تو کارایی برنامه تاثیری نداره
یه عکس انداختم رو ال سی دی که از 10 قسمت تشکیل شده
من فکر میکردم که تغییر مقدار اولیه رو مقادیر به دست اومده رو این 10 تکه تاثیر میذاره
ولی این طور نیست
در نتیجه:
مقادیر اولیه تاچ اصلا مهم نیست
یه ایراد اساسی اونم اینه که این عکس 10 تکه رو که میگم عدد از 0 تا 9 هستش
که بازدن هرکدوم رو ال سیدی نشون میده
بعضا میبینی وقتی 4 رو میزنم 2 مینویسه
اینم اگه حل کنم عالی میشه

[masoud_m_bf]

پاسخ : ایراد در تاچ پنل

ممنون
به این نتیجه رسیدم که مکان اولیه که تاچ دراه اصلا تو کارایی برنامه تاثیری نداره
یه عکس انداختم رو ال سی دی که از 10 قسمت تشکیل شده
من فکر میکردم که تغییر مقدار اولیه رو مقادیر به دست اومده رو این 10 تکه تاثیر میذاره
ولی این طور نیست
در نتیجه:
مقادیر اولیه تاچ اصلا مهم نیست
یه ایراد اساسی اونم اینه که این عکس 10 تکه رو که میگم عدد از 0 تا 9 هستش
که بازدن هرکدوم رو ال سیدی نشون میده
بعضا میبینی وقتی 4 رو میزنم 2 مینویسه
اینم اگه حل کنم عالی میشه

من کمی نفهمیدم چی شد :-?
ولی باشه!
کمکی خواستی بگو

[ehsancompany]

پاسخ : ایراد در تاچ پنل

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

[masoud_m_bf]

پاسخ : ایراد در تاچ پنل

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

منم روزای اول همین فکرو میکردم
واسه همین یکسال کلا انداختمش یه گوشه
ولی بعد که پرسیدم بچه ها کمکم کردن خیلی راحت و دقیق راه افتاد
من حتی باهاش دفتر نقاشی درست کردم!
اگه میخوای فیلمشو بذارم

[shadkanlu]

پاسخ : ایراد در تاچ پنل

منم روزای اول همین فکرو میکردم
واسه همین یکسال کلا انداختمش یه گوشه
ولی بعد که پرسیدم بچه ها کمکم کردن خیلی راحت و دقیق راه افتاد
من حتی باهاش دفتر نقاشی درست کردم!
اگه میخوای فیلمشو بذارم

مهندس منم با تاچ مشکل دارم یعنی فقط با آزمونو خطا جواب گرفتم ... شکا با تاچ 4 سیمه کار کردین ؟

[masoud_m_bf]

پاسخ : ایراد در تاچ پنل

مهندس منم با تاچ مشکل دارم یعنی فقط با آزمونو خطا جواب گرفتم ... شکا با تاچ 4 سیمه کار کردین ؟

برای من که کاملا با منطق کار میکنه!!!
بعله 4 سیمه
من از ایران میکرو خریدم
اول فکر میکردم مشکل داره واسه همین یکی دیگه هم خریدم
ولی همون اولی راه افتاد
شما درست کالیبرش نمیکنین
واسه همین اذیت میشین

[shadkanlu]

پاسخ : ایراد در تاچ پنل

برای من که کاملا با منطق کار میکنه!!!
بعله 4 سیمه
من از ایران میکرو خریدم
اول فکر میکردم مشکل داره واسه همین یکی دیگه هم خریدم
ولی همون اولی راه افتاد
شما درست کالیبرش نمیکنین
واسه همین اذیت میشین

میشه مدارش یعنی مقدار مقاومت هایی که معمولا برای pull down استفاده میکنن و سورسی برنامتونو بزارین ؟

[masoud_m_bf]

پاسخ : ایراد در تاچ پنل

میشه مدارش یعنی مقدار مقاومت هایی که معمولا برای pull down استفاده میکنن و سورسی برنامتونو بزارین ؟

مقاومت نذاشتم
کد برنامه اینه
البته یه چیز دیگه بود که اینو برای تست نوشتم و اشتباها سیو کردم رو اون
ولی اصل کارش یکیه

$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 30
$swstack = 10
$framesize = 20
$lib "glcdks108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim X As Word , Y As Word
Dim Xx As Single , Yy As Single
Dim Row(2) As Byte , Col(2) As Byte
Dim I As Byte
Enable Interrupts
Setfont Font8x8
Cls
'Col[0] = 127
'Row[0] = 63
Do
Gosub Readt
Line(1 , 0) -(9 , 0) , 255
Line(1 , 10) -(9 , 10) , 255
Line(0 , 1) -(0 , 9) , 255
Line(10 , 1) -(10 , 9) , 255
Pset Col(1) , Row(1) , 255
'Lcdat 2 , 2 , X ; " "
'Lcdat 3 , 2 , Y ; " "
If Col(1) > 0 And Col(1) < 10 And Row(1) > 0 And Row(1) < 10 Then
Do
Showpic 0 , 0 , S
Loop
End If
'---------------------------------------------------------------------
Waitms 1
Loop
'---------------------------------------------------------------------
End
'---------------------------------------------------------------------
Readt:
For I = 0 To 3
'---------------------------------------------------------------------
Config Pina.1 = Output
Config Pina.3 = Output
Set Porta.1
Reset Porta.3
Ddra.0 = 0
Ddra.2 = 0
Waitus 10
Y = Getadc(2)
'---------------------------------------------------------------------
Config Pina.0 = Output
Config Pina.2 = Output
Set Porta.0
Reset Porta.2
Ddra.1 = 0
Ddra.3 = 0
Waitus 10
X = Getadc(1)
'---------------------------------------------------------------------
If X >= 115 And X <= 941 Then
Xx = X - 115
Xx = Xx * 1.2397
Col(i) = Xx / 8
Else
Col(1) = 127
End If
'---------------------------------------------------------------------
If Y >= 189 And Y <= 843 Then
Yy = Y - 189
Yy = Yy * 1.5657
Row(i) = Yy / 16
Else
Row(1) = 63
End If
'---------------------------------------------------------------------
Waitus 500
Next
'---------------------------------------------------------------------
If Col(1) <> Col(2) Or Row(1) <> Row(2) Then
Col(1) = 127
Row(1) = 63
End If
'---------------------------------------------------------------------
Return

$include "font8x8.font"

S:
$bgf "1.bgf "