مشکل با صفحه تاچ

[masoud_m_bf]

پاسخ : مشکل با صفحه تاچ

1- فرکانس کاریتون چقدره؟
2- اگه با CV کار می کنید تنظیمات کدویزارد رو چک کردید که فرکانسش با فرکانس شما یکی باشه؟(چون اگه یکی نباشه تاخیرها هم درست در نمیاد)
3- به نظر تاخیر 500us اینقدری زیاد نیست که خط پیوسته کشیده نشه، با این حال اگه از مورد 2 مطمئنید، تاخیر رو کمتر کنید

من با بسکام کار میکنم
دیروز اومد 16 خارجی بهش بدم الان یه میکروم نمیدونم اصلا چی برای کلاکش پروگرام شده روش که راهش بندازم
پروگرامرم ISP هست نمیتونم الان بازش کنم
این یکی رو دیگه جرات نکردم بذارم رو خارجی؛ همون 8 داخلی گذاشتم
منم تعجب میکنم
برنامه یه حلقه کاملش 2 میلی ثانیه وقفه داره الان
تاخیر رو که کم میکنم دوباره اون خطای خوندن ورودیش برمیگرده
موندم ب خدا oo:

[masoud9]

پاسخ : مشکل با صفحه تاچ

من با بسکام کار میکنم
دیروز اومد 16 خارجی بهش بدم الان یه میکروم نمیدونم اصلا چی برای کلاکش پروگرام شده روش که راهش بندازم
پروگرامرم ISP هست نمیتونم الان بازش کنم
این یکی رو دیگه جرات نکردم بذارم رو خارجی؛ همون 8 داخلی گذاشتم
منم تعجب میکنم
برنامه یه حلقه کاملش 2 میلی ثانیه وقفه داره الان
تاخیر رو که کم میکنم دوباره اون خطای خوندن ورودیش برمیگرده
موندم ب خدا oo:

- برای میکروتون که احتمالا فیوزبیتاش اشتباه پروگرم شدن، زنده کردن میرو و تنظیم اشتباه فیوزبیت رو سرچ کنید داخل انجمن. یک روشی هم هست که با یک میکروی دیگه فرکانس می دید به میکروی مرده، میکروتون بر میگرده، من تست کردم جواب داد :agree:
- داخل بسکام فرکانس رو 8مگ تعریف کردید دیگه؟ (که تاخیرها درست تنطیم بشن)
- خطای خوندن ورودی یعنی چه؟!

[masoud_m_bf]

پاسخ : مشکل با صفحه تاچ

- برای میکروتون که احتمالا فیوزبیتاش اشتباه پروگرم شدن، زنده کردن میرو و تنظیم اشتباه فیوزبیت رو سرچ کنید داخل انجمن. یک روشی هم هست که با یک میکروی دیگه فرکانس می دید به میکروی مرده، میکروتون بر میگرده، من تست کردم جواب داد :agree:
- داخل بسکام فرکانس رو 8مگ تعریف کردید دیگه؟ (که تاخیرها درست تنطیم بشن)
- خطای خوندن ورودی یعنی چه؟!

خیلی ممنون
بله 8 مک تعریف کردم
چند تا پست قبل گفتم وقتی ی جا رو لمس میکنم جند تا نقطه مختلف خونده میشه
الان ورودی رو دو بار با تاخیر 500 میکرو میخونه اگه برابر بودن ی نقطه میذاره
برم ببینم چطور میکرومو میتونم برگردونم

[masoud9]

پاسخ : مشکل با صفحه تاچ

خیلی ممنون
بله 8 مک تعریف کردم
چند تا پست قبل گفتم وقتی ی جا رو لمس میکنم جند تا نقطه مختلف خونده میشه
الان ورودی رو دو بار با تاخیر 500 میکرو میخونه اگه برابر بودن ی نقطه میذاره
برم ببینم چطور میکرومو میتونم برگردونم

خواهش میکنم :smile:
الان که یکم فکر می کنم یه چیزایی یادم میاد! فکر می کنم من وقتی بین نمونه ها تاخیر می ذاشتم درست عمل نمی کرد(مطمئن نیستم!) اگه داخل اون کد رو هم ببینید فقط تابع read_adc یه تاخیر 10میکروثانیه داره!
ببینید:
1- از سخت افزار و سیم بندی ها مطمئن بشید
2- تاخیرها رو در مجموع تا 10-20میکرو کم کنید، در عوض اگه لازم بود نمونه های بیشتری بردارید

[masoud_m_bf]

پاسخ : مشکل با صفحه تاچ

خواهش میکنم :smile:
الان که یکم فکر می کنم یه چیزایی یادم میاد! فکر می کنم من وقتی بین نمونه ها تاخیر می ذاشتم درست عمل نمی کرد(مطمئن نیستم!) اگه داخل اون کد رو هم ببینید فقط تابع read_adc یه تاخیر 10میکروثانیه داره!
ببینید:
1- از سخت افزار و سیم بندی ها مطمئن بشید
2- تاخیرها رو در مجموع تا 10-20میکرو کم کنید، در عوض اگه لازم بود نمونه های بیشتری بردارید

عرض شود خدمت عزیز دلم
من دوتا تاخیر ده میکرو ثانیه برای ثبات خروجی ورودی دارم
ی تاخیر 500 میکرو برای وقفه بین دوتا نمونه برداری
چون تو حلقه نوشتم مجموعا میشه 1040 میکرو تا اینجا
یک میکرو هم تو تو خود برنامه

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

اصلا چرا برنامه منو نمیبینید شما نظرتونو بگین؟

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

$hwstack = 50
$swstack = 20
$framesize = 40

$lib "glcdks108.lbx"

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

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

Cls
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
'---------------------------------------------------------------------
If Col(1) < 128 And Row(1) < 64 Then
Pset Col(1) , Row(1) , 255
End If
'---------------------------------------------------------------------
If Col(1) > 0 And Col(1) < 10 And Row(1) > 0 And Row(1) < 10 Then Cls
'---------------------------------------------------------------------
Waitms 1
Loop
'---------------------------------------------------------------------
End
'---------------------------------------------------------------------
Readt:
For I = 1 To 2
'---------------------------------------------------------------------
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)
'---------------------------------------------------------------------
Xx = X - 115
Xx = Xx * 1.2397
Col(i) = Xx / 8
'---------------------------------------------------------------------
Yy = Y - 189
Yy = Yy * 1.5657
Row(i) = Yy / 16
'---------------------------------------------------------------------
Waitus 500
Next
'---------------------------------------------------------------------
If Col(1) <> Col(2) Or Row(1) <> Row(2) Then
Col(1) = 128
Row(1) = 64
End If
'---------------------------------------------------------------------
Return

این برنامه اولیه واسه راه اندازی تاچ هست پس اگه خیلی افتضاحه ب بزرگی خودتون ببخشید
ببخشید من ی مشکلم با نمایش عکس رو ال سی دی دارم تو قسمت سوالات ال سی دی پرسیدم کسی جواب نداد
عکسم رو وقتی میخوام عمودی بالا یا پایین ببریم 8پیکسل 8 پیکسل جابجا میشه
یعنی بین 0 تا 8 رو 0 محسوب میکنه
میدونید مشکل از چیه؟

[masoud9]

پاسخ : مشکل با صفحه تاچ

عرض شود خدمت عزیز دلم
من دوتا تاخیر ده میکرو ثانیه برای ثبات خروجی ورودی دارم
ی تاخیر 500 میکرو برای وقفه بین دوتا نمونه برداری
چون تو حلقه نوشتم مجموعا میشه 1040 میکرو تا اینجا
یک میکرو هم تو تو خود برنامه

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

اصلا چرا برنامه منو نمیبینید شما نظرتونو بگین؟

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

$hwstack = 50
$swstack = 20
$framesize = 40

$lib "glcdks108.lbx"

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

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

Cls
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
'---------------------------------------------------------------------
If Col(1) < 128 And Row(1) < 64 Then
Pset Col(1) , Row(1) , 255
End If
'---------------------------------------------------------------------
If Col(1) > 0 And Col(1) < 10 And Row(1) > 0 And Row(1) < 10 Then Cls
'---------------------------------------------------------------------
Waitms 1
Loop
'---------------------------------------------------------------------
End
'---------------------------------------------------------------------
Readt:
For I = 1 To 2
'---------------------------------------------------------------------
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)
'---------------------------------------------------------------------
Xx = X - 115
Xx = Xx * 1.2397
Col(i) = Xx / 8
'---------------------------------------------------------------------
Yy = Y - 189
Yy = Yy * 1.5657
Row(i) = Yy / 16
'---------------------------------------------------------------------
Waitus 500
Next
'---------------------------------------------------------------------
If Col(1) <> Col(2) Or Row(1) <> Row(2) Then
Col(1) = 128
Row(1) = 64
End If
'---------------------------------------------------------------------
Return

این برنامه اولیه واسه راه اندازی تاچ هست پس اگه خیلی افتضاحه ب بزرگی خودتون ببخشید
ببخشید من ی مشکلم با نمایش عکس رو ال سی دی دارم تو قسمت سوالات ال سی دی پرسیدم کسی جواب نداد
عکسم رو وقتی میخوام عمودی بالا یا پایین ببریم 8پیکسل 8 پیکسل جابجا میشه
یعنی بین 0 تا 8 رو 0 محسوب میکنه
میدونید مشکل از چیه؟

من با بسکام برنامه نمی نویسم، اما تا اونجا که از کدتون فهمیدم، تاخیرتون 2-3ms هستش، چون یک 1ms هم داخل تابع اصلی برنامه هست.
در کل فکر میکنم تاخیراتون زیاده، با توجه به این که چند تا خط هم بعد از هر دو نمونه برداری رسم می کنید که اینا هم زمان برند!
توصیه میکنم کدتون رو کمی تصحیح کنید، به این صورت که تا اختلاف دو نمونه اندازه گیری شده از یک عددی کوچکتر نشده، نمونه برداری ادامه پیدا کنه (حلقه while-Wend) پس شاید لازم باشه در تابع Readt متغیرهای x1 , x2 , y1 , y2 تعریف کنید، تمام تاخیرهای حین نمونن برداری رو هم ترجیحا حذف کنید

[masoud_m_bf]

پاسخ : مشکل با صفحه تاچ

من با بسکام برنامه نمی نویسم، اما تا اونجا که از کدتون فهمیدم، تاخیرتون 2-3ms هستش، چون یک 1ms هم داخل تابع اصلی برنامه هست.
در کل فکر میکنم تاخیراتون زیاده، با توجه به این که چند تا خط هم بعد از هر دو نمونه برداری رسم می کنید که اینا هم زمان برند!
توصیه میکنم کدتون رو کمی تصحیح کنید، به این صورت که تا اختلاف دو نمونه اندازه گیری شده از یک عددی کوچکتر نشده، نمونه برداری ادامه پیدا کنه (حلقه while-Wend) پس شاید لازم باشه در تابع Readt متغیرهای x1 , x2 , y1 , y2 تعریف کنید، تمام تاخیرهای حین نمونن برداری رو هم ترجیحا حذف کنید

چرا به عقل خودم نرسید مربع رو تو لوپ رسم نکنم؟
خیلی خیلی ممنون
خیلی لطف کردین
البته این اطمینان رو به شما میدم که باز هم مزاحمتون میشم! :mrgreen:

[masoud9]

پاسخ : مشکل با صفحه تاچ

چرا به عقل خودم نرسید مربع رو تو لوپ رسم نکنم؟
خیلی خیلی ممنون
خیلی لطف کردین
البته این اطمینان رو به شما میدم که باز هم مزاحمتون میشم! :mrgreen:

خواهش می کنم
صد البته این اطمینان رو بهتون میدم که تا حد توان در خدمت هستم :agree:
برو برنامت رو بهینه کن و برگرد

[mahan.rafiee]

پاسخ : مشکل با صفحه تاچ

چرا به عقل خودم نرسید مربع رو تو لوپ رسم نکنم؟
خیلی خیلی ممنون
خیلی لطف کردین
البته این اطمینان رو به شما میدم که باز هم مزاحمتون میشم! :mrgreen:

اقا برنامه تون درست شد؟