Do
if tasteneu > 0 then
cst = 0
shiftout dout,clock,x_dout,1,8,20
waitms 5
shiftin din, clock, touchx, 1, 12, 20
shiftout dout, clock, y_dout, 1, 8, 20
waitms 5
shiftin din, clock, touchy,1,12,20
cst=1
touchx = touchx / 38
touchx=touchx+200
touchy = touchy / 38
waitms 200
tasteneu = 0
tijdelijk2="X = "+str(touchx)
Call Ili9327_text(tijdelijk2 , 150 , 80 , 5 , red , Black)
tijdelijk2="Y = "+str(touchy)
Call Ili9327_text(tijdelijk2 , 150 , 100 , 5 , red , Black)
call ili9327_text("x=990",340,12,5,white,black)
call ili9327_text("y=122",340,28,5,white,black)
call ili9327_text("x=250",10,12,5,white,black)
call ili9327_text("y=122",10,28,5,white,black)
call ili9327_text("x=250",10,205,5,white,black)
call ili9327_text("y=862",10,220,5,white,black)
call ili9327_text("x=990",340,205,5,white,black)
call ili9327_text("y=862",340,220,5,white,black)
end if
Loop
|