' Name : TESTX4.pbp ' Compiler : PICBASIC PRO Compiler 2.6 ' Assembler : PM or MPASM ' Target PIC : PIC12F683 ' Hardware : LAB-X4 Experimenter Board ' Oscillator : 4MHz internal ' Keywords : SEROUT ' Description : PICBASIC PRO Test program for LAB-X4. ' Note: Disable MCLR reset so button can be used. ' Include "modedefs.bas" ' Mode definitions for Serout ' Alias pins LED Con 0 ' Alias GPIO.0 to LED LCD Var GPIO.1 ' LCD TX pin PB Var GPIO.3 ' Alias GPIO.3 to push button ' Allocate variables adval Var byte ' Create adval to store result ANSEL = %00001000 ' Set AN3 analog, rest digital CMCON0 = 7 ' Analog comparators off Pause 500 ' Wait .5 second for LCD to init mainloop: ADCIN 3, adval ' Read channel 3 to adval Serout LCD, T2400, [$fe, 1] ' Clear screen Serout LCD, T2400, ["Pot = ", #adval] ' Display the decimal value If PB = 0 Then ' If button pressed... Low LED ' Turn on LED Else High LED ' Turn off LED Endif Pause 100 ' Do it all about 10 times a second Goto mainloop ' Do it forever End