'------------------------------------------------------------------------
'使用芯片: Atmega48
'晶振: 內部8MHz晶振
'email: support@avrbascom.com
'軟件版本: Bascom-AVR 1.11.8.7 Full version
'------------------------------------------------------------------------


$regfile = "m48def.DAT"
$crystal = 14745600
$baud = 19200

Dim Temp As Byte , X As Word , Y As Word

Config Adc = Single , Prescaler = Auto , Reference = Avcc   '設定ADC轉換參數，單次轉換，轉換速度由編譯器自動設定，AVCC作為AD的參考源

Main:
Do
'*************************
' 在這里你可以根據需要添加你的程序
'*************************
 Gosub Readtouch  ' 讀取觸發屏坐標
 Waitms 150
Loop
End


Readtouch:
Config Pinc.0 = Output                                      ' 設定port c.0 為輸出
Config Pinc.2 = Output                                      ' 設定port c.2 為輸出
Set Portc.0                                                 ' port c.0 輸出高電平
Reset Portc.2                                               ' port c.2 輸出低電平
Ddrc.1 = 0                                                  ' 設定port c.1 為輸入
Ddrc.3 = 0                                                  ' 設定port c.3 為輸入
Waitms 20                                                   ' 延時20ms，等待IO口狀態穩定
Y = Getadc(3)                                               ' 讀取y軸坐標
Y = 1024 - Y                                                ' 翻轉坐標，該語句根據需要添加，具體與你引腳連接有關
Print "VALUE Y : " ; Y                                      ' 將結果發到串口，調試時使用
Config Pinc.1 = Output                                      ' 設定port c.1 為輸出
Config Pinc.3 = Output                                      ' 設定port c.3 為輸出
Reset Portc.1                                               ' 設定port c.1 低電平
Set Portc.3                                                 ' 設定port c.3 高電平
Ddrc.0 = 0                                                  ' 設定port c.0 為輸入
Ddrc.2 = 0                                                  ' 設定port c.2 為輸入
Waitms 20                                                   ' 延時20ms，等待IO口狀態穩定
X = Getadc(2)                                               ' 讀取x軸坐標
X = 1024 - X                                                
Print "VALUE X : " ; X
Return