ME Labs, Inc. | 1-719-520-5323 | Example Program - ADCIN1X4.pbp

' 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

           

Download the program file.