Roddy Wayne
- 28th August 2009, 22:13
'************************************************* ***************
'* Name : New_PWM.bas *
'* Author : Roddy Wayne *
'* Notice : Copyright (c) 2008 *
'* : All Rights Reserved *
'* Date : 08/09/2008 *
'* Version : 1.0 *
'* Notes: *
'* *
'* A PWM for running a Hydrogen Generator *
'************************************************* ***************
CLEAR ;always start with clear
DEFINE OSC 4 ;define oscillator speed
DEFINE ADC_BITS 8 ; Sets number of bits in result
DEFINE ADC_CLOCK 3 ; Sets clock source (3=rc)
DEFINE ADC_SAMPLEUS 50 ; Sets sampling time in uS
define DEBUG_REG PORTC
DEFINE DEBUG_BIT 6
define DEBUG_BAUD 2400
DEFINE DEBUG_MODE 0
DEFINE DEBUG_PACING 1000
Low PORTE.2 ;makes low for write only
TRISA = %00001111 ;sets 0, 1, 2, and 3 as porta inputs (A to D's & ref's)
TRISB = %00111111 ;sets bits 6 & 7 portb pins as outputs, 0 thru 5 as inputs
TRISC = %10111111 ;sets port c.6 for serial output
TRISD = %00000011 ;sets PORTD 0,1, lines to inputs, rest to outputs
TRISE = %00000000 ;sets all PORTE lines to outputs
potpos var BYTE ;potpos is 8 bit
cellamps VAR BYTE ;cellamps is 8 bit
A2D_V VAR BYTE ;Created A2D_V Value to store result
A2D_V2 Var BYTE ;Created A2D_V2 Value to store result
;ADCON1=%10000011 ;Sets the Analog to Digital control register to 4 Channels
;with Vref+ and Ground
;ADCON1=%10000010 ;Sets the Analog to Digital control register to 5 Channels
;with +5 VDC and Ground as the references!
Start:
If portc.0 = 0 then portb.6 = 0 'If pin 15 is low, make pin 39 low
If Portc.0 = 1 then portb.6 = 1 'If pin 15 is high, make pin 39 high
'When Pin 39 goes high, this turns the
'pump on! I'm using a Darlington pair
'to do this (Part # TIP120) It also turns
'on the "Pump On" LED.
If portc.3 = 0 then portb.7 = 0 'If pin 18 is low, make pin 40 low
If portc.3 = 1 then portb.7 = 1 'If pin 18 is high, make pin 40 high
'When Pin 40 goes high, the "Low Tank
'Water" LED is turned on!
ADCON1=%10000010 '?? Setup to read analog inputs
ADCIN 0, A2D_V 'Read channel 0 to A2D_Value
Pause 50
;DEBUG 14, 1, BIN8 A2D_V *
;Pause 1000 *
potpos= 1+(((255-1)*A2D_V)/255) ;*
Debug 14, 1, "Pot Position =", 32, DEC3 potpos, 13 ;*
Pause 50 ;*
************************************************** **********************************************
I wrote the above code a long time ago and then, lost my hard drive
without having it backed up! I'm not sure if the code above ever ran
properly but, it is the only code that was saved.
The problem I'm having with it is that "potpos" should be a Byte wide
but I'm only getting changes in the 0 & 1 bits of the Byte while varying
the input between 0 and + 5 VDC.
Can anyone help this "Idiot, trying to be a programmer"?
'* Name : New_PWM.bas *
'* Author : Roddy Wayne *
'* Notice : Copyright (c) 2008 *
'* : All Rights Reserved *
'* Date : 08/09/2008 *
'* Version : 1.0 *
'* Notes: *
'* *
'* A PWM for running a Hydrogen Generator *
'************************************************* ***************
CLEAR ;always start with clear
DEFINE OSC 4 ;define oscillator speed
DEFINE ADC_BITS 8 ; Sets number of bits in result
DEFINE ADC_CLOCK 3 ; Sets clock source (3=rc)
DEFINE ADC_SAMPLEUS 50 ; Sets sampling time in uS
define DEBUG_REG PORTC
DEFINE DEBUG_BIT 6
define DEBUG_BAUD 2400
DEFINE DEBUG_MODE 0
DEFINE DEBUG_PACING 1000
Low PORTE.2 ;makes low for write only
TRISA = %00001111 ;sets 0, 1, 2, and 3 as porta inputs (A to D's & ref's)
TRISB = %00111111 ;sets bits 6 & 7 portb pins as outputs, 0 thru 5 as inputs
TRISC = %10111111 ;sets port c.6 for serial output
TRISD = %00000011 ;sets PORTD 0,1, lines to inputs, rest to outputs
TRISE = %00000000 ;sets all PORTE lines to outputs
potpos var BYTE ;potpos is 8 bit
cellamps VAR BYTE ;cellamps is 8 bit
A2D_V VAR BYTE ;Created A2D_V Value to store result
A2D_V2 Var BYTE ;Created A2D_V2 Value to store result
;ADCON1=%10000011 ;Sets the Analog to Digital control register to 4 Channels
;with Vref+ and Ground
;ADCON1=%10000010 ;Sets the Analog to Digital control register to 5 Channels
;with +5 VDC and Ground as the references!
Start:
If portc.0 = 0 then portb.6 = 0 'If pin 15 is low, make pin 39 low
If Portc.0 = 1 then portb.6 = 1 'If pin 15 is high, make pin 39 high
'When Pin 39 goes high, this turns the
'pump on! I'm using a Darlington pair
'to do this (Part # TIP120) It also turns
'on the "Pump On" LED.
If portc.3 = 0 then portb.7 = 0 'If pin 18 is low, make pin 40 low
If portc.3 = 1 then portb.7 = 1 'If pin 18 is high, make pin 40 high
'When Pin 40 goes high, the "Low Tank
'Water" LED is turned on!
ADCON1=%10000010 '?? Setup to read analog inputs
ADCIN 0, A2D_V 'Read channel 0 to A2D_Value
Pause 50
;DEBUG 14, 1, BIN8 A2D_V *
;Pause 1000 *
potpos= 1+(((255-1)*A2D_V)/255) ;*
Debug 14, 1, "Pot Position =", 32, DEC3 potpos, 13 ;*
Pause 50 ;*
************************************************** **********************************************
I wrote the above code a long time ago and then, lost my hard drive
without having it backed up! I'm not sure if the code above ever ran
properly but, it is the only code that was saved.
The problem I'm having with it is that "potpos" should be a Byte wide
but I'm only getting changes in the 0 & 1 bits of the Byte while varying
the input between 0 and + 5 VDC.
Can anyone help this "Idiot, trying to be a programmer"?