rpstroj
- 11th August 2004, 20:32
INCLUDE "modedefs.bas" 'Contains mode definitions for
DEFINE OSC 12 ' Define OSC 12Mhz for HS
DEFINE ADC_BITS 8
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50
TRISA = %11111111
TRISB = %00000000
ADCON1=3
'Variables for LCD
clrSCR CON 12 ' Cntl-L: clear the display.
posCmd CON 16 ' Position the cursor.
ESC CON 27 ' Escape code.
noCurs CON 4 ' no cursor shown
Q0 VAR BYTE
adcount VAR BYTE
adjust VAR BYTE
LCD VAR PORTB.0
Pause 500
SerOut2 LCD, 16468, [clrSCR] 'Clear LCD and cursor to upper left
Pause 500
High PORTB.2
Loop:
ADCON0=%11000001
PauseUs 50
ADCON0.2 = 1 'start conversion
PauseUs 50
adcount=ADRES
'ADCIN 0, adcount
adjust=adcount-1
LookUp adjust,[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,2,3,4,5,6,6,7,8,9,10,10,11,12,12,13, 14,14,15,16,16,17,18,18,19,20,20,21,21,22,22,23,24 ,24,25,25,26,26,27,27,28,28,29,29,30,30,31,31,32,3 2,33,33,34,34,35,35,36,36,37,37,37,38,38,39,39,40, 40,41,41,41,42,42,43,43,44,44,44,45,45,46,46,47,47 ,47,48,48,49,49,50,50,50,51,51,52,52,52,53,53,54,5 4,55,55,55,56,56,57,57,57,58,58,59,59,60,60,60,61, 61,62,62,63,63,63,64,64,65,65,66,66,67,67,67,68,68 ,69,69,70,70,71,71,72,72,73,73,73,74,74,75,75,76,7 6,77,77,78,78,79,80,80,81,81,82,82,83,83,84,85,85, 86,86,87,88,88,89,90,90,91,92,92,93,94,94,95,96,97 ,97,98,99,100,101,102,102,103,104,105,106,107,108, 109,110,112,113,114,115,117,118,120,121,123,125,12 6,128,130,133,135,138,141,144,147,152,157,163,170, 181,200,200],Q0
SerOut2 LCD, 16468, [clrSCR]
SerOut2 LCD, 16468, [posCmd, 87, DEC Q0, " C"]
SerOut2 LCD, 16468, [posCmd, 107, DEC adcount, " adcount"]
IF PORTB.2=1 AND Q0>100 Then
Low PORTB.2
EndIF
IF PORTB.2=0 AND Q0<50 Then
High PORTB.2
EndIF
GoTo Loop
End
It won't let me upload the spreadsheet.
Powered by vBulletin® Version 4.1.7 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.