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

' 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

           

Download the program file.