Building Buttercups

PROGRAM NAME CREATED VIA NEW PROJECT!!
COPY AND PASTE FROM NEXT LINE DOWN
'*************************
Dim Value as Integer
'*************************
Sub Procedure GetValue1
   TrisA = %00001100      ' Set the pulsing ports to output
   Value = 1              ' Start Value at 1
   PortA = %00000001      ' Pulse the capacitor to fill it
   Delay_ms(5)            ' Charge up the capacitor
   TrisA = %00001101      ' Set the port to collect data
   While TestBit(PortA,0) > 0   ' Loop till the capacitor
         Value = Value + 1      ' runs out of juice
   Wend
   PortB = Value         ' Display the data
   If value > 255 Then   ' If it goes over 255 then
   PortB = 255           ' Light up all the lights
   End If
End Sub
'*************************
Sub Procedure GetValue2
   TrisA = %00001100      ' Set the pulsing ports to output
   Value = 1              ' Start Value at 1
   PortA = %00000010      ' Pulse the capacitor to fill it
   Delay_ms(5)            ' Charge up the capacitor
   TrisA = %00001110      ' Set the port to collect data
   While TestBit(PortA,1) > 0   ' Loop till the capacitor
         Value = Value + 1      ' runs out of juice
   Wend
   PortB = Value         ' Display the data
   If value > 255 Then   ' If it goes over 255 then
   PortB = 255           ' Light up all the lights
   End If
End Sub
'*************************
Main:
  TrisB = %00000000
  TrisA = %00001100      ' Need two inputs for switches
  CMCON = %00000111

  While True
     While TestBit(PortA,2) = 0  ' Check left switch
         GetValue1               ' Get left data
     Wend
     While TestBit(PortA,3) = 0  ' Check right switch
         GetValue2               ' Get right Data
     Wend
   PortB = 0                     ' Clear the Port
  Wend
End.

User comment:
"One of my students and I got his buttercups working yesterday. However, the calibration of the capacitor discharge counter was a problem. On one side we had to use 2048 as the boundary between white and black. On the other side it was 256. Since the 8 bit LED counter only shows up to 255 we had issues. We had to divide value by 32 in one case and by 16 in another to shift the digits so we could figure out the boundary."