با سلام خدمت دوستان
من یه پروزه ای رو کار می کنم که با تاچ اسکرین سرو کار داره.
راستش من کلی مطالب درباره صفحه لمسی پیدا کردم اما هر پروژه لمسی محتویات خودش رو میطلبه. و نمیشه اونو کپی کرد .
این برنامه منه :
$regfile = "m32def.dat"
$crystal = 4000000
Config Portc = Output
Config Portd = Output
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "glcdKS108.lib"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 0 , Ce2 = 1 , Cd = 2 , Rd = 3 , Reset = 5 , Enable = 4
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim X As Word , Y As Word , A As Byte
Setfont Font8x8
Start Adc
Cls
A = 0
Main:
Do
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
Waitms 10
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
If A = 0 Then : Showpic 0 , 0 , Pic1 : End If
If A = 1 Then : Showpic 0 , 0 , Pic2 : End If
If A = 2 Then : Showpic 0 , 0 , Pic3 : End If
If A = 3 Then : Showpic 0 , 0 , Pic4 : End If
If A = 4 Then : Showpic 0 , 0 , Pic5 : End If
If A = 5 Then : Showpic 0 , 0 , Pic6 : End If
If A = 6 Then : Showpic 0 , 0 , Pic7 : End If
If A = 7 Then : Showpic 0 , 0 , Pic8 : End If
If A = 8 Then : Showpic 0 , 0 , Pic9 : End If
If A = 9 Then : Showpic 0 , 0 , Pic10 : End If
If X > 129 And X < 256 And Y > 65 Then
If A < 9 Then
Cls
A = A + 1
End If : End If
If X > 10 And X < 127 And Y > 65 Then
If A > 0 Then
Cls
A = A - 1
End If : End If
Loop
End
Pic1:
$bgf "1.bgf"
Pic2:
$bgf "2.bgf"
Pic3:
$bgf "3.bgf"
Pic4:
$bgf "4.bgf"
Pic5:
$bgf "5.bgf"
Pic6:
$bgf "6.bgf"
Pic7:
$bgf "7.bgf"
Pic8:
$bgf "8.bgf"
Pic9:
$bgf "9.bgf"
Pic10:
$bgf "10.bgf"
$include "font8x8.font"
دراین برنامه خواستم که صفحه لمسی رو یه تستی کنم اما تو همین هم با مشکل نویز یا ...نمی دونم چی روبه رو شدم. صفحات سریع عوض میشه گویا تاچ چیزی رو حس میکنه و ثابت نمیمونه.
راستش خواهشی که از شما دارم اینه مشکل برنامه من رو به من بگید . من فکر میکنم چند خط کم داره تا از نوسان اون جلو گیری کنه مثل debounce .
مفهوم hwstack = 32
$swstack = 10
$framesize = 40
رو هم نمیدونم چیه آیا تو تاچ اسکرین تاثیری داره؟
من یه پروزه ای رو کار می کنم که با تاچ اسکرین سرو کار داره.
راستش من کلی مطالب درباره صفحه لمسی پیدا کردم اما هر پروژه لمسی محتویات خودش رو میطلبه. و نمیشه اونو کپی کرد .
این برنامه منه :
$regfile = "m32def.dat"
$crystal = 4000000
Config Portc = Output
Config Portd = Output
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "glcdKS108.lib"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 0 , Ce2 = 1 , Cd = 2 , Rd = 3 , Reset = 5 , Enable = 4
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim X As Word , Y As Word , A As Byte
Setfont Font8x8
Start Adc
Cls
A = 0
Main:
Do
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
Waitms 10
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
If A = 0 Then : Showpic 0 , 0 , Pic1 : End If
If A = 1 Then : Showpic 0 , 0 , Pic2 : End If
If A = 2 Then : Showpic 0 , 0 , Pic3 : End If
If A = 3 Then : Showpic 0 , 0 , Pic4 : End If
If A = 4 Then : Showpic 0 , 0 , Pic5 : End If
If A = 5 Then : Showpic 0 , 0 , Pic6 : End If
If A = 6 Then : Showpic 0 , 0 , Pic7 : End If
If A = 7 Then : Showpic 0 , 0 , Pic8 : End If
If A = 8 Then : Showpic 0 , 0 , Pic9 : End If
If A = 9 Then : Showpic 0 , 0 , Pic10 : End If
If X > 129 And X < 256 And Y > 65 Then
If A < 9 Then
Cls
A = A + 1
End If : End If
If X > 10 And X < 127 And Y > 65 Then
If A > 0 Then
Cls
A = A - 1
End If : End If
Loop
End
Pic1:
$bgf "1.bgf"
Pic2:
$bgf "2.bgf"
Pic3:
$bgf "3.bgf"
Pic4:
$bgf "4.bgf"
Pic5:
$bgf "5.bgf"
Pic6:
$bgf "6.bgf"
Pic7:
$bgf "7.bgf"
Pic8:
$bgf "8.bgf"
Pic9:
$bgf "9.bgf"
Pic10:
$bgf "10.bgf"
$include "font8x8.font"
دراین برنامه خواستم که صفحه لمسی رو یه تستی کنم اما تو همین هم با مشکل نویز یا ...نمی دونم چی روبه رو شدم. صفحات سریع عوض میشه گویا تاچ چیزی رو حس میکنه و ثابت نمیمونه.
راستش خواهشی که از شما دارم اینه مشکل برنامه من رو به من بگید . من فکر میکنم چند خط کم داره تا از نوسان اون جلو گیری کنه مثل debounce .
مفهوم hwstack = 32
$swstack = 10
$framesize = 40
رو هم نمیدونم چیه آیا تو تاچ اسکرین تاثیری داره؟
دیدگاه