' Name : ADCIN1X4.pbp ' Compiler : PICBASIC PRO Compiler 2.6 ' Assembler : PM or MPASM ' Target PIC : 8-pin PIC12F675 or similar types ' Hardware : Lab-X4 board ' Oscillator : 4MHz internal ' Keywords : ADCIN, SEROUT ' Description : PICBASIC PRO program to display result of 10-bit A/D conversion on ' Lab-X4 serial LCD. ' Include "modedefs.bas" ' Mode definitions for Serout Define OSCCAL_1K 1 ' Calibrate internal oscillator ' Define ADCIN parameters Define ADC_BITS 10 ' Set number of bits in result Define ADC_CLOCK 3 ' Set clock source (3=rc) Define ADC_SAMPLEUS 50 ' Set sampling time in uS LCD Var GPIO.1 ' LCD TX pin adval Var Word ' Create adval to store result ADCON0.7 = 1 ' Right justify result ANSEL = %00111000 ' Set AN3 analog, rest digital CMCON = 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,["Value: ", #adval] ' Display the decimal value Pause 100 ' Wait 100mS Goto mainloop ' Do it forever End