brilliant, like i said im looking forward to try and get this up and running tomorrow... hopefully there wont be too much "real" work on so i can get a good hour or so with my hardware and OS.
Define LCD_BITS = 4
Define LCD_DREG = PORTB
Define LCD_DBIT = 4
Define LCD_RSREG = PORTA
Define LCD_RSBIT = 4
Define LCD_EREG = PORTA
Define LCD_EBIT = 5
Define SIMULATION_WAITMS_VALUE = 1
'------------------------------------
'setup temp variables
Dim ascbfr4 As Byte
Dim ascbfr3 As Byte
Dim ascbfr2 As Byte
Dim ascbfr1 As Byte
Dim ascbfr0 As Byte
Dim temp3 As Word
Dim binval As Word
Dim val0 As Word
ADCON0 = %01000001 'adcchan0
ADCON1 = %10001011 'Dis clk div,,,an0 > an3 analaog rest dig
TRISA = %00000001
TRISB = %11111111 'all inputs on portb
TRISC = %11111111
'-----------------------------------------------------
Lcdinit
main0:
Lcdcmdout LcdClear
main:
Gosub readadc
Goto main
End
'scale the 5V input to 4.88v using a resistive divider
readadc:
'read adc word
Adcin 0, val0
binval = val0 'rename for the bin2asc subr
Gosub bin2asc
Lcdcmdout LcdLine1Home
Lcdout "Percent: ", ascbfr3, ascbfr2, ".", ascbfr1
Return
'you can convert any binary value from 0000h to fffFh to 0000 to 65535 decimal
'just name the binary word as binval and call this subr and the ASCII
'result will be in ascbfr4,3,2,1,0, ready for your LCD or UART
'just pop the DP in the output to the LCD [as shown above]
bin2asc:
'ascbfr4 = binval / 10000' add these 4 lines for 16 bit conv
'temp3 = binval Mod 10000
'ascbfr3 = temp3 / 1000
'temp3 = binval Mod 1000
ascbfr3 = binval / 500 'delete for 16 bit conv
temp3 = binval Mod 500 'delete for 16 bit
ascbfr2 = temp3 / 50
temp3 = temp3 Mod 50
'ascbfr1 = temp3 / 10
ascbfr1 = temp3 Mod 5
'results are BCD so
'convert to ASCII for LCD or UART
ascbfr4 = ascbfr4 Or 0x30
ascbfr3 = ascbfr3 Or 0x30
ascbfr2 = ascbfr2 Or 0x30
ascbfr1 = ascbfr1 Or 0x30
ascbfr0 = ascbfr0 Or 0x30
Return'scale the 5V input to 4.88v using a resistive divider
readadc:
'read adc word
Adcin 0, val0
binval = val0 'rename for the bin2asc subr
[COLOR="Blue"]
binval =binval/5 ' reduces 1000 to 200[/COLOR]
Gosub bin2asc
Lcdcmdout LcdLine1Home
Lcdout "Value[COLOR="Blue"][/COLOR]: ", ascbfr3, ascbfr2, ".", ascbfr1
Return'04Feb 2010 Forum
Define LCD_BITS = 4
Define LCD_DREG = PORTB
Define LCD_DBIT = 4
Define LCD_RSREG = PORTA
Define LCD_RSBIT = 4
Define LCD_EREG = PORTA
Define LCD_EBIT = 5
Define SIMULATION_WAITMS_VALUE = 1
'------------------------------------
'setup temp variables
Dim ascbfr4 As Byte
Dim ascbfr3 As Byte
Dim ascbfr2 As Byte
Dim ascbfr1 As Byte
Dim ascbfr0 As Byte
Dim temp3 As Word
Dim binval As Word
Dim val0 As Word
ADCON0 = %01000001 'adcchan0
ADCON1 = %10001011 'Dis clk div,,,an0 > an3 analaog rest dig
TRISA = %00000001
TRISB = %11111111 'all inputs on portb
TRISC = %11111111
'-----------------------------------------------------
Lcdinit
main0:
Lcdcmdout LcdClear
main:
Gosub readadc
Goto main
End
'scale the 5V input to 4.88v using a resistive divider
readadc:
'read adc word
Adcin 0, val0
binval = val0 'rename for the bin2asc subr
Gosub bin2asc
Lcdcmdout LcdLine1Home
Lcdout "Percent: ", ascbfr3, ascbfr2, ascbfr1, ".", ascbfr0, "%"
binval = val0 / 5
Gosub bin2asc
Lcdcmdout LcdLine2Home
Lcdout "Value: "ascbfr2, ascbfr1, ".", ascbfr0
Return
'you can convert any binary value from 0000h to fffFh to 0000 to 65535 decimal
'just name the binary word as binval and call this subr and the ASCII
'result will be in ascbfr4,3,2,1,0, ready for your LCD or UART
'just pop the DP in the output to the LCD [as shown above]
bin2asc:
'ascbfr4 = binval / 10000' add these 4 lines for 16 bit conv
'temp3 = binval Mod 10000
'ascbfr3 = temp3 / 1000
'temp3 = binval Mod 1000
ascbfr3 = binval / 1000 'delete for 16 bit conv
temp3 = binval Mod 1000 'delete for 16 bit
ascbfr2 = temp3 / 100
temp3 = temp3 Mod 100
ascbfr1 = temp3 / 10
ascbfr0 = temp3 Mod 10
'results are BCD so
'convert to ASCII for LCD or UART
ascbfr4 = ascbfr4 Or 0x30
ascbfr3 = ascbfr3 Or 0x30
ascbfr2 = ascbfr2 Or 0x30
ascbfr1 = ascbfr1 Or 0x30
ascbfr0 = ascbfr0 Or 0x30
Return
hi all... had a play last night with some minor successes.. am finally starting to understand why it works rather than just praying and see
anyhow, using the compiler is it possible to:
1: take an average value every half a second or so to stop the screen flicking between values like it is now?
2: have a message appear when a certain value is reached.
3: an interupt or response to a switch or something which causes the LCD display to completely blacken (to prove it is working) for a second or so then return to normal service?
my aim for the next 2 or 3 days is to get it doing this... hopefully i can dedicate some real time to it again...
