四线电阻式触摸屏原理及MEGA8驱动实例

4星(超过85%的资源)
所需积分/C币:50 2013-03-03 14:55:33 202KB PDF
103
收藏 收藏
举报

讲述四线电阻触摸屏的工作原理及控制方式,并提供了驱动实例,附有驱动电路和源程序。
圣龙扬特电子htp://ww,airbase.com MEGA8驱动程序使用BAsC0M-ARR编写,串口输岀数据。触摸屏XY连线及方冋与电路图稍有不同, 程序仅供参考 m⊥cxo compiler: Bascom-avr lvt 'website:http://www.avrbase.com 009-09-10 crystal = 400000C Sswstack =32 卓 frames主ze=40 Config Adc= single, Prescaler Auto, Reference Internal Ddrb= FhfA Dard. 6= 1 Dard. 2= 0 Portb= SB11100 portd shFF Dim v1 As Word, V2 As Word I As Integer Dim Chan As Byte Dim 1 As single Dim s As string *4 Dim X As W。d,yAsW。xd am Xstr As string x 4 Ystr As string 4 工nt0Int0i: Enable Interrupt Enable TritO PelA1 ias porth.⊥ Pe2 Alias por tb. 2 e3 Alias portb. 3 Pc4 Alias portb. 4 Pe5 Alias portd. 2 Pe 6 Alias portd. 6 osccal &HAO start Ado 工a 工nt0it Fe3 =0 pt 轴加电压 Fe/ V1= Getadc(0 取x电压 V1= V1+ Getadc(0) 读ADCC,取电压 VI= V1+Getadc(0) 读ADCC取X电压 V1 读ADCC,取x电 11+Getadc(0) CC,取x电压 dc(0) 读ADCC,取x电压 √1 1+Getadc(0) 读ADCC,取ⅹ电压 读ADCC:取x电压 ADCC,取X电压 VI=V1+ Getadc(0) 读ADCC,取X电压 v1=V1/1C 关闭x轴电压及接地 轴加电压 V2 取Y电压 圣龙扬特电子http://v base. com 圣龙扬特电子htp://ww,airbase.com 读ADC1:取Y电压 v2=V2+ Getado(二) 读ADC1,取Y电压 V2=V2+ Getadc(_) 读ADC1,取Y电压 V2= 12+ Getadc(=) 读ADC1,现Y电压 v2=v2/5 Ⅹ=1023-1 Xstr Format(s 0000") Ystr Format(s "0000") Forth fFl1100 Ee6=1 Print xstr i ystr Re七u2n PC演示程序使用α uick basic编写,演示屏幕摸画点、触摸屏和液品屏坐标位置关联定位。 name TFT Touch, bas compiler: Quick Basic author: slit websitehttp://www.avrbase.com dat 2009-09-10 DECLARE SUB delay (d= AS SINGLE Scrccn 12 Cls Clear OPEN"COM1:9600,I,8,1,BN”FOR工NPUA8#1 ON COM (1) GOSUB COMl HANDETF Com(1)off Com (1)On D工 M x AS INTEGER D主mA(4)As工 nteger D主mB(4) As Integer Dim Aa(4) As Integer Dim Bb(4) Dim Inrun As工 nteger 调入屏幕坐标与触摸屏值换算参效 open para. ini"For Input As #2 Line Input #2, paras Kx= Val(paras Line工nput非2,ParS 工nput#2, Paras Dx= Val(paras Line工nput#2, Paras Dy= Val(paras Close #2 2<s=工 leys Select Case Aks Case Cs Case chr$(27) End Case ' C 校正坐标转换参数,在屏幕角依次显示十字 (1 10:B(1 A(2)=10:B(2)=460 A(3)=630:B(3)=10 A(4)=630:B(4)=450 圣龙扬特电子http://www.avrbase.com 圣龙扬特电子http://www.avrbase.com For I= 1 To 4 L⊥ne(a(i)-10,B(=))-(a(i}+10,B(i)),15 (1, B(i) Lo。pUnt1 Inrun=1 Aa (i)=X: Bb(i)=Y X Y Com (1) Off Line(a(i)-10,B(二))-(ai}+10,B(i)),0 ai), b(i) Next 换算参数 Daa=(a(3)+2a(4)Aa(1)-aa(2))/2 Da=A(3)-4(1 Db=B(2)-B(1 kx Da Db Dbb x+A3) DY=B(1)-Kyx(bb(1)+Bb(3))/2 Dy+32) b(4))/2 存储参数 Open "para. ini" For output As # Print #2 strs(<x)) Print #2, strs(y) Print # 2, strs(dx) close #2 Inrun= 0 Case else 在触摸位置画圆点 工E工 trun=1Then Inrun =0 PX= Kx xX+ Dy Circle(px ,3,C。1r8 Faint(px Corg End工 End select 工 Oop uNTII ak5=CHRS(27 END =========串口接收中断服务程序========= Comlhandcle Intrur om(1) Off Line Input 1, Dz$ Dzs- Rights(dzs, B) Xy$=Left$(az与 Ⅹ=va(xY) Xys= Rights(dz$ 4) Y= val(xy$ Com(1)On Return ===三三三三三三三三三三三三三三三三三三三三三三三 sub de lay (at AS SINGLE To= rimer D m1= Timer- T0 L。。 p Unti1T1<0oxT->Dt End sub 圣龙扬特电子http://www.avrbase.com

...展开详情
试读 5P 四线电阻式触摸屏原理及MEGA8驱动实例
立即下载 身份认证后 购VIP低至7折
一个资源只可评论一次,评论内容不能少于5个字
gaoshoujd 还可以,对入门有帮助
2016-09-15
回复
赫氏门徒 还行吧,这个讲的电阻屏和MEGA8的链接
2013-05-04
回复
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
  • 分享小兵

关注 私信
上传资源赚钱or赚积分
最新推荐
四线电阻式触摸屏原理及MEGA8驱动实例 50积分/C币 立即下载
1/5
四线电阻式触摸屏原理及MEGA8驱动实例第1页

试读结束, 可继续读1页

50积分/C币 立即下载