سلام دوستان . من یه صفحه لمسی مثل شکل زیر خریدم . دو تا مشکل دارم .
1 ) ترتیب پایه ها رو درست نمیدونم .
2 ) صفحه لمسی رو روی LCD چسبوندم و وقتی اون رو به ADC میکرو وصل میکنم ، و میخوام نقطه فشرده شده رو روی LCD برام روشن کنه ، نقطه روشن شده با نقطه فشرده شده فاصله داره. درضمن با اینکه صفحه و LCD هر دو 128 * 64 هستند ، ولی آخرین نقطه صفحه لمسی تقریبا وسط LCD رو روشن میکنه .
اینم برنامه .
$regfile = "m32def.dat"
$crystal = 8000000
$lib "glcdKS108.lbx"
Config Adc = Single , Prescaler = Auto
Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Dim X As Word , Y As Word
Enable Adc
Stop Adc
Cls
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
Start Adc
X = Getadc(1)
X = X / 8
Stop Adc
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
Start Adc
Y = Getadc(2)
Y = Y / 16
Stop Adc
Pset X , Y , 255
Loop
End
خواهشا اگه میدونید دریغ نکنید .

1 ) ترتیب پایه ها رو درست نمیدونم .
2 ) صفحه لمسی رو روی LCD چسبوندم و وقتی اون رو به ADC میکرو وصل میکنم ، و میخوام نقطه فشرده شده رو روی LCD برام روشن کنه ، نقطه روشن شده با نقطه فشرده شده فاصله داره. درضمن با اینکه صفحه و LCD هر دو 128 * 64 هستند ، ولی آخرین نقطه صفحه لمسی تقریبا وسط LCD رو روشن میکنه .
اینم برنامه .
$regfile = "m32def.dat"
$crystal = 8000000
$lib "glcdKS108.lbx"
Config Adc = Single , Prescaler = Auto
Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Dim X As Word , Y As Word
Enable Adc
Stop Adc
Cls
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
Start Adc
X = Getadc(1)
X = X / 8
Stop Adc
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
Start Adc
Y = Getadc(2)
Y = Y / 16
Stop Adc
Pset X , Y , 255
Loop
End
خواهشا اگه میدونید دریغ نکنید .

دیدگاه