'https://electronixforu.com 'Developed by Engr. Tarique R. Memon 'Dated August 7, 2018 $regfile = "m328pdef.dat" $crystal = 16000000 $baud = 9600 'select 641 'left 417 'up 100 'Dwn 261 'right 0 Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim V As Word Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , Rs = Portb.0 Cls Cursor Off Start Adc Do V = Getadc(0) Upperline Lcd "key value" Lowerline If V > 1000 Then Lcd "None " Elseif V > 600 Then Lcd "Select" Elseif V > 400 Then Lcd "LEFT " Elseif V > 200 Then Lcd "Down " Elseif V > 70 Then Lcd "up " Elseif V < 20 Then Lcd "right " End If Loop