ME Labs, Inc.
719-520-5323

Home:
	Developer Resources:

Programming Clues
		Sample Programs

		PICBASIC PRO™ Compiler Manual
		PICBASIC™ Compiler Manual
		Serin2/Serout2 Modes
		ASCII Character Set
		Number Conversion
		Floating Point Routines
		PBP Debug Monitor
		Articles and Tutorials

Hardware Clues
		Parts / Vendor List
		PICPROTO™ Boards
		LAB-X1 Docs
		LAB-X2 Docs
		LAB-X20 Docs
		LAB-X3 Docs
		LAB-X4 Docs
		LAB-XUSB Docs
		LAB-XT Docs

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

PICBASIC PRO program to display result of 10-bit A/D conversion on LCD. Connect analog input to channel-0 (RA0).

01' Name        : ADCIN10.pbp
02' Compiler    : PICBASIC PRO Compiler 2.6
03' Assembler   : PM or MPASM
04' Target PIC  : 40-pin 16F, 18F types
05' Hardware    : Lab-X1 or Lab-X2 board
06' Oscillator  : 4MHz internal or external
07' Keywords    : ADCIN, LCDOUT
08' Description : PICBASIC PRO program to display result of 10-bit
09' A/D conversion on LCD. Connect analog input to channel-0 (RA0).
10'
11 
12' Define LCD registers and bits
13Define  LCD_DREG  PORTD
14Define  LCD_DBIT  4
15Define  LCD_RSREG PORTE
16Define  LCD_RSBIT 0
17Define  LCD_EREG  PORTE
18Define  LCD_EBIT  1
19 
20' Define ADCIN parameters
21Define  ADC_BITS     10    ' Set number of bits in result
22Define  ADC_CLOCK    3     ' Set clock source (3=rc)
23Define  ADC_SAMPLEUS 50    ' Set sampling time in uS
24 
25adval Var word             ' Create adval to store result
26 
27   TRISA = %11111111       ' Set PORTA to all input
28   ADCON1 = %10000010      ' Set PORTA analog and right justify result
29   Low PORTE.2             ' LCD R/W line low (W)
30   Pause 500               ' Wait .5 second
31 
32mainloop:
33   ADCIN 0, adval          ' Read channel 0 to adval
34    
35   Lcdout $fe, 1           ' Clear LCD
36   Lcdout "Value: ", DEC adval  ' Display the decimal value  
37   Pause 100               ' Wait .1 second
38 
39   Goto mainloop           ' Do it forever
40  
41   End

Download the program file.

PIC, PICmicro, dsPIC, and MPLAB are registered trademarks of Microchip Technology Inc. in the USA and other countries. PICBASIC, PICBASIC PRO, PICPROTO, and EPIC are trademarks of Microchip Technology Inc. in the USA and other countries. BASIC Stamp is a trademark of Parallax, Inc.