Svenska ElektronikForumet

Kod: Markera allt

#include <int16CXX.H>

////////////// INTERRUPT ROUTINE /////////////////////
#pragma origin 4
interrupt int_server( void)
{
	int_save_registers	  // W, STATUS (and PCLATH)
	uns8 sv_FSR = FSR;
	
	if (INTE&&INTF) //External interrupt on RB0
	{
		INTF=0;

	}

	if (CCP1IE&&CCP1IF) //Capture on RC2 / CCP1
	{
		CCP1IF=0;

	}
	
	if (CCP2IE&&CCP2IF)
	{
		CCP2IF=0;
	}

	if (T0IE&&T0IF)
	{
		T0IF=0;

	}

	if (TMR1IE&&TMR1IF)
	{
		TMR1IF=0;

	}

	if (RCIE&&RCIF)
	{
		rxChar=RCREG;

	}	
	
	
	if (TXIE&&TXIF)
	{
		TXREG=txBuf[txHead];

	}

	FSR = sv_FSR;
	int_restore_registers // W, STATUS (and PCLATH)
}
//////////////  END OF INTERRUPT /////////////////////

Kod: Markera allt

/*
       ________  ________
      |        \/        |       R/!WR = 0
  D6--|RA2   16F628   RA1|--D5   (only write, wait while busy)
  D7--|RA3            RA0|--D4
      |RA4-od    RA7/OSC1|
      |RA5/MCLR  RA6/OSC2|
 GND--|Vss            Vdd|-- +5V
 Giv--|RB0/INT  (RB7)/PGD|
      |RB1/Rx   (RB6)/PGC|
      |RB2/Tx         RB5|--RS
  EN--|RB3/CCP  (RB4)/PGM|
      |__________________|

*/


#include "16F628.H"
#include "int16Cxx.h"
#pragma config |= 0x3fb0   // use internal 4MHz oscillator
#pragma bit RS  @ PORTB.5
#pragma bit EN  @ PORTB.3
#pragma bit D7  @ PORTA.3
#pragma bit D6  @ PORTA.2
#pragma bit D5  @ PORTA.1
#pragma bit D4  @ PORTA.0

char counter;								//define variable k as the normalizing value for 1 litre/sec
char kvot;									//deklarera ny variabel för kvoten mellan antalet pulser och en kosntant för att få i liter per timma-----------------------
unsigned long p;							//declare variabel p to which T1MRL is later copied
char z;										//variabel för text2
char konstant;


#pragma origin 4
interrupt int_server(void)					//interruptfunktion	
{
	int_save_registers						//spara undan aktuellt innehåll i arbetsregistret
			{				
		if (INTF==1)						//om puls på RB0 => addera räkna upp counter med 1
		{	
			counter++;
			INTF=0;							//nolla flagga
		}		
		if (TMR1IF==1)						//om Timer1 slagit runt => flytta counter till p
		{
			p=counter;
			counter=0;						//nolla counter
			TMR1IF=0;						//nolla flagga
		}
		}
	int_restore_registers
}




#include "delays.c"
void delay( char ); 							// ms delay function from file delays.c
void lcd_init( void );
void lcd_putchar( char );
char text1( char );
char text2( char );
char division ( char, char );					//definition of new counter function for the incoming pulses on RB6----------------------------



   
void	main( void)
{
    CM0=1; CM1=1; CM2=1; 						// no comparators on

    /* I/O-pin direction in/out definitions, change if needed  */
    TRISB  = 0b10.0.1.0.0.11;  					// output to RS and EN ( and Tx ), RB0 input
    TRISA  = 0b1111.0000;      					// output to D4-D7
    INTEDG = 0;			    					//interrupt on negative flank
	INTE =1;									//enable external RB0 interrupt 
	GIE	=1;										//enable global interrupt
    PEIE=1;										//enable peripherial int
	OPTION_REG.7=0;								// pull-up resistance on PORTB
	T1CON = 0b00.11.10.01;						//Timer1 prescaled 1:8, oscillator on, internal clock, Timer1 enabled
  	TMR1IE=1;									//enable interrupt on Timer1  
	RBIE=0;										//disable int on other RB ports
	lcd_init();									//initiera display
	TMR1L=0;									//Timer MSB =0
	TMR1H=0;									//Timer LSB=0
	TMR1IF=0;									//interruptflagga =noll
	counter=0;
	konstant=1;
   	
while(1)
{    



//Rutin för att beräkna och skriva ut rätt tecken på displayen
							
	if (p>0)								//flytta TMR1L till p om större än 0 annars p=1. Detta för att tecknet på displayen blir fel vid en kvot inehållande 0
		p=p;
	else
		p=1;
												
	//p=p<<2;									//vänsterskift för att minska effekten av modulot som blir vid divisionen
    

	kvot = division (p,konstant);				//anropa funktion som dividerar pulser med konstant-----------------------------------
 	//kvot=kvot>>2	;								//högerskift för att minska värdet till samma decimal som innan vänsterskift
    

/* Skriv ut till LCD*/
   	RS = 1;  									// LCD in character-mode							 				
  
	if (kvot<10) 	lcd_putchar('0'+kvot);		//testa om kvot mindre än 10, isåfall skriv till skärm från position 0 ASCII plus värdet av kvot
 	if (kvot>=10) 								//om kvot större än 10 dela upp 10 tal och ental, skicka till LCD
	{
		char ch_1;								//deklarera nya variabler ch_1 = tecken nr 1, samt ch_2 =tecken nr 2
		char ch_2;

		ch_1= kvot/10;							//dividera kvot med tio för att få ut värdet på första siffran - ex. 23/10=2 modulo 3
		lcd_putchar ('0'+ ch_1);				//visa värdet på första teckenplaceringen
		ch_2=kvot%10;							//plocka fram modulot och lägg i ch_2 - se ex. ovan 
		lcd_putchar ('0'+ ch_2);				//visa ch_2 i displayen på plats två
	}
				
												// reposition to "line 2" (the next 8 chars)
   	RS = 0;  									// LCD in command-mode
    lcd_putchar( 0b11000000 );
  
    RS = 1;  									// LCD in character-mode
    											// display the 8 char text2() sentence
    for(z=0; z<8; z++) lcd_putchar(text2(z)); 
 
   

}
}

/* ****************** FUNCTIONS ****************************** */



char text2( char x)   							// this is the way to store a sentence
{
   skip(x); /* internal function CC5x.  */
   #pragma return[] = "liter/h "    			// 8 chars max! Måste vara 8teckenavstånd mellan "" tecknen
}



void lcd_init( void ) 								// must be run once before using the display
{
  delay(40);  									// give LCD time to settle
  RS = 0;     // LCD in command-mode
  lcd_putchar(0b0011.0011); /* LCD starts in 8 bit mode          */
  lcd_putchar(0b0011.0010); /* change to 4 bit mode              */
  lcd_putchar(0b00101000);  /* two line (8+8 chars in the row)   */ 
  lcd_putchar(0b00001100);  /* display on, cursor off, blink off */
  lcd_putchar(0b00000001);  /* display clear                     */
  lcd_putchar(0b00000110);  /* increment mode, shift off         */
  RS = 1;    										// LCD in character-mode
             										// initialization is done!
}


void lcd_putchar( char data )
{
  // must set LCD-mode before calling this function!
  // RS = 1 LCD in character-mode
  // RS = 0 LCD in command-mode
  // upper Nybble
  D7 = data.7;
  D6 = data.6;
  D5 = data.5;
  D4 = data.4;
  EN = 0;
  nop();
  EN = 1;
  delay(5);
  // lower Nybble
  D7 = data.3;
  D6 = data.2;
  D5 = data.1;
  D4 = data.0;
  EN = 0;
  nop();
  EN = 1;
  delay(5);
}

char division( char x, char y)  		/* function header            */
  {                          		/* start of function body     */
     char f;
     f = x / y;
     return f;   
  }                          		/* end of function body       */

Kod: Markera allt

//Rutin för att beräkna och skriva ut rätt tecken på displayen
							
	if (p>0)								//flytta TMR1L till p om större än 0 annars p=1. Detta för att tecknet på displayen blir fel vid en kvot inehållande 0
		p=p;
	else
		p=1;
												
	//p=p<<2;									//vänsterskift för att minska effekten av modulot som blir vid divisionen
    

	kvot = division (p,konstant);				//anropa funktion som dividerar pulser med konstant-----------------------------------
 	//kvot=kvot>>2	;

Kod: Markera allt

kvot=counter;

Kod: Markera allt

counter=0;

Kod: Markera allt

/* Skriv ut till LCD*/
   	RS = 1;  									// LCD in character-mode							 				
  
	if (kvot<10) 	lcd_putchar('0'+kvot);		//testa om kvot mindre än 10, isåfall skriv till skärm från position 0 ASCII plus värdet av kvot
 	if (kvot>=10) 								//om kvot större än 10 dela upp 10 tal och ental, skicka till LCD
	{
		char ch_1;								//deklarera nya variabler ch_1 = tecken nr 1, samt ch_2 =tecken nr 2
		char ch_2;

		ch_1= kvot/10;							//dividera kvot med tio för att få ut värdet på första siffran - ex. 23/10=2 modulo 3
		lcd_putchar ('0'+ ch_1);				//visa värdet på första teckenplaceringen
		ch_2=kvot%10;							//plocka fram modulot och lägg i ch_2 - se ex. ovan 
		lcd_putchar ('0'+ ch_2);				//visa ch_2 i displayen på plats två
	}
				
												// reposition to "line 2" (the next 8 chars)
   	RS = 0;  									// LCD in command-mode
    lcd_putchar( 0b11000000 );
  
    RS = 1;  									// LCD in character-mode
    											// display the 8 char text2() sentence
    for(z=0; z<8; z++) lcd_putchar(text2(z)); 
 
   

}