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

' Name        : TESTX4.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM
' Target PIC  : 8-pin PIC12F675 or similar types
' Hardware    : Lab-X4 board
' Oscillator  : 4MHz internal
' Keywords    : ADCIN, SEROUT
' Description : PICBASIC PRO test program for LAB-X4 (12F675)
'

@ device pic12F675, intrc_osc_noclkout, wdt_on, mclr_off, protect_off

Include "modedefs.bas" ' Mode definitions for Serout

Define OSCCAL_1K 1     ' Calibrate internal oscillator

' 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
   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, ["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

           

Download the program file.