سلام راجع به اتصال صفحه های لمسی به میکرو های AVR سوال داشتم برنامه زیر رو نوشتم ولی متاسفانه کار نمیکنه می خواستم از اساتید بپرسم آیا برنامه درست هست یا نه و راهی برای تست سالم بودن صفحه دارم یا نه ممنون
$regfile = "m32def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency ' use baud rate
Config Adc = Single , Prescaler = Auto
'Dim variables (y not used)
Dim X As word , Y As word
Stop Adc
Start Adc
Main:
Config Porta.0 = Output
Config Porta.1 = Input
Config Porta.2 = Output
Config Porta.3 = Input
Config Portb.0 = Output
Set Porta.0
Reset Porta.2
X = Getadc(1)
Y = Getadc(3)
If X > 0 Then
If Portb.0 = 1 Then Portb.0 = 0
Else
Portb.0 = 1
End If
Goto Main
End
$crystal = 8000000 ' used crystal frequency ' use baud rate
Config Adc = Single , Prescaler = Auto
'Dim variables (y not used)
Dim X As word , Y As word
Stop Adc
Start Adc
Main:
Config Porta.0 = Output
Config Porta.1 = Input
Config Porta.2 = Output
Config Porta.3 = Input
Config Portb.0 = Output
Set Porta.0
Reset Porta.2
X = Getadc(1)
Y = Getadc(3)
If X > 0 Then
If Portb.0 = 1 Then Portb.0 = 0
Else
Portb.0 = 1
End If
Goto Main
End
دیدگاه