/*
 * OLED_test.c
 *
 * Created: 25.09.2012 15:44:29
 *  Author: Martin
 */ 

#define F_CPU 1000000UL
#include <avr/io.h>
#include <util/delay.h>     
#include <stdint.h>
#include <stdlib.h>

uint8_t displayBusy = 0x00;	// Busy Flag des Displays

 
void wartemikrosekunden(uint16_t us)	// Zeit vertrödeln aus AVR Bibliothek delay.h
{
    for(; us>0; us--) _delay_us(1);
}

void wartemillisekunden(uint16_t ms)
{
	for(; ms>0; ms--) _delay_ms(1);
}


uint8_t pruefeBusyFlag(void)
{
	uint8_t BusyFlag = 0x00;
	DDRD = 0x00;						// Port D als Eingang nutzen
	DDRB |= ( 1 << PB0 )|( 1 << PB1 );  // PB0 und PB1 als Ausgang setzen
	PORTB &= ~(1<<PB0); 				//löschen (PBo auf NULL setzen)
	PORTB |= (1<<PB1);					//RS = 0  				
										//PB1 auf EINS setzen
										//RW = 1
	BusyFlag = PIND & (1<<PD7);
	BusyFlag = BusyFlag>>7;
	
	return BusyFlag;
}
	
void schreibeBefehl (uint8_t befehl)
{	
		DDRD = 0xFF;			// alle Ports von Register D als Ausgang setzen
								// PD0...PD7 = DB0...DB7 des Displays
		DDRB = 0xFF;			//Ports von Register B als Ausgang nutzen
		PORTB &= ~(1<<PB0);		// RS = 0
		PORTB &= ~(1<<PB1);		// RW = 0
											
		PORTD = befehl;			// Befehl an Display ausgeben
		wartemikrosekunden(1);
		PORTB |= (1<<PB2);		// EN = 1
		wartemikrosekunden(1);	// Ausgang stabilisieren
		PORTB &= ~(1<<PB2);		// EN = 0
				
		//pruefeBusyFlag();
		while (pruefeBusyFlag())
		{
			wartemillisekunden(1);
		}
}


void initDisplay (void)
{
	wartemillisekunden(300);
	
	DDRB |= ( 1 << PB0 )|( 1 << PB1 )|( 1 << PB2 ); // PB0, PB1, PB2 als Ausgang setzen
	
	schreibeBefehl(0x39);	// europäischer Zeichensatz
	wartemikrosekunden(10);	// 0011 1001
	
	schreibeBefehl(0x08);	// Display AUS
	wartemikrosekunden(10);	// 0000 1000
	
	schreibeBefehl(0x06);	// Display Start Cursor um 1 inkrementieren
	wartemikrosekunden(10);	// 0000 0110
	
	schreibeBefehl(0x17);	// Character-Modus und interne Spannung AN
	wartemikrosekunden(10);	// 0001 0111
	
	schreibeBefehl(0x01);	// Display löschen
	wartemikrosekunden(10);	// 0000 0001
	
	schreibeBefehl(0x02);	// zu HOME Position
	wartemikrosekunden(10);	// 0000 0010
	
	schreibeBefehl(0x0C);	// Display AN
	wartemikrosekunden(10);	// 0000 1100
}

void schreibetext (uint8_t Daten)
{
	while (pruefeBusyFlag())
	{
		wartemillisekunden(1);
	}

	DDRD = 0xFF;			// alle Ports von Register D als Ausgang setzen
							// PD0...PD7 = DB0...DB7 des Displays
	PORTB |= (1<<PB0);		// RS = 1
	PORTB &= ~(1<<PB1);		// RW = 0
					
	PORTD = Daten;			// Befehl an Display ausgeben
	PORTB |= (1<<PB2);		// EN = 1
	
	wartemikrosekunden(5);		// warte 1µs Ausgang stabilisieren
	PORTB &= ~(1<<PB2);		// EN = 0
		
	while (pruefeBusyFlag())
	{
		wartemillisekunden(1);
	}
}


// Zeichenkette übertragen

void schreibeZeichenkette (uint8_t *Zeichenkette)
{
	uint8_t Zeichen;
	
	Zeichen = *Zeichenkette;

	while(Zeichen)
	{			
		schreibetext (Zeichen);
		
		Zeichenkette++;
		Zeichen = *Zeichenkette;
	}	
}



/*******************************************************************************
**	Set cursor to specified position 
**	Input:    x  (column)	horizontal position  (1: left most position) (1..08)
**            y  (row)		vertical position    (1: first line) (1..2)
**
**	Returns:  none
********************************************************************************/
void moveCursurToXY(uint8_t stelle, uint8_t zeile)
{
	uint8_t position=0;
	
	if (stelle>=1) 
	{
		position = stelle-1;
	}
	else if (stelle==0) 
	{
		position = 0;
	}

	switch (zeile) 
	{
		case 1: schreibeBefehl(0x80|0x00+position); break; // 1. Zeile
		case 2: schreibeBefehl(0x80|0x40+position); break; // 2. Zeile
		//40 HEX = 64 DEZ 64 Zeichen kann der Controller pro Zeile aufnehmen
		//80 HEZ setzt das MSB auf HIGH, die unteren 7Bit geben die Stelle an
			
	}
	

}

void DDRAMinhalt(uint8_t befehl)
{
	while (pruefeBusyFlag())
	{
		wartemillisekunden(1);
	}
	
	DDRD = 0xFF;			// alle Ports von Register D als Ausgang setzen
	// PD0...PD7 = DB0...DB7 des Displays
	PORTB |= (1<<PB0);		// RS = 1
	PORTB &= ~(1<<PB1);		// RW = 0
	
	PORTD = befehl;			// Befehl an Display ausgeben
	wartemikrosekunden(5);
	PORTB |= (1<<PB2);		// EN = 1
	wartemikrosekunden(5);		// warte 1µs Ausgang stabilisieren
	PORTB &= ~(1<<PB2);		// EN = 0
	wartemikrosekunden(5);
}

void clearDisplay(void)
{
	
	
	schreibeBefehl (0x01);		// Display löschen
	wartemikrosekunden(5);
	schreibeBefehl (0x02);		// zu HOME Position
}


int main(void)
{ 
		   
	initDisplay();
	wartemikrosekunden(100);
	
	while(1)
	{
				
		// mögliche Cursorzustände
		// 0b00001110 Cursor AN
		// 0b00001111 Cursor blinken
		// 0b00001100 Cursor AUS
		schreibeBefehl(0b00001111);
				
		//clearDisplay();
		schreibeZeichenkette("1");
		wartemillisekunden(100);
						
		//clearDisplay();
		schreibeZeichenkette("2");
		wartemillisekunden(100);
		
		//clearDisplay();
		schreibeZeichenkette("3");
		wartemillisekunden(100);
		
		//clearDisplay();
		schreibeZeichenkette("4");
		wartemillisekunden(100);
		
	}		
		return 0;
}