GPS mit AVR-Board

* Test des Moduls: Smart-GPS

Bearbeiter: S. Taborek

Begin: 18.10.2010

Stand: 20.10.2010

Version: 2.04

Configuration:

MCU: ATmega128

Dev.Board: BigAVR2

Oscillator: External Clock 08.0000 MHz

Ext. Modules: SmartGPS extra board

Devices: GLCD 128x64, KS108/107 controller (PORTE)

LCDmE LCD 2x16 (PORTC)

MMC module

* NOTES:

- Switches: SW1 Port E off

SW3 all off

SW4 all off

MMC all on

- Connect SmartGPS extra board to PORT-E

PullUp and PullDown Port E disabel

change Cabel-Connection like this:

Smart-GPS BIGAVR2

P0 ---- PE0

P1 ---- PE1

- no Connection

VCC ---- VCC

GND ---- GND

at GPS-Bort Bit 3 and 7 on

- Data-Out over GLCD

- Data-Out over LCD

- Data-Archive on MMC

{------------------------------------------------------------------------------}

program Smart_Gps_with_uartA;

{------------------------------------------------------------------------------}

uses ;

const pufmax = 485; // Bufferlen for some Telegrams

txtmax = 120; // Bufferlen for one Telegram

// Glcd module connections

var GLCD_DataPort : byte at PORTA;

GLCD_DataPort_Direction : byte at DDRA;

var GLCD_CS1 : sbit at PORTE.B2;

GLCD_CS2 : sbit at PORTE.B3;

GLCD_RS : sbit at PORTE.B4;

GLCD_RW : sbit at PORTE.B5;

GLCD_EN : sbit at PORTE.B6;

GLCD_RST : sbit at PORTE.B7;

var GLCD_CS1_Direction : sbit at DDRE.B2;

GLCD_CS2_Direction : sbit at DDRE.B3;

GLCD_RS_Direction : sbit at DDRE.B4;

GLCD_RW_Direction : sbit at DDRE.B5;

GLCD_EN_Direction : sbit at DDRE.B6;

GLCD_RST_Direction : sbit at DDRE.B7;

// End Glcd module connections

// LCD module connections

var LCD_RS : sbit at PORTC.B2;

LCD_EN : sbit at PORTC.B3;

LCD_D4 : sbit at PORTC.B4;

LCD_D5 : sbit at PORTC.B5;

LCD_D6 : sbit at PORTC.B6;

LCD_D7 : sbit at PORTC.B7;

LCD_RS_Direction : sbit at DDRC.B2;

LCD_EN_Direction : sbit at DDRC.B3;

LCD_D4_Direction : sbit at DDRC.B4;

LCD_D5_Direction : sbit at DDRC.B5;

LCD_D6_Direction : sbit at DDRC.B6;

LCD_D7_Direction : sbit at DDRC.B7;

// End LCD module connections

var

Mmc_Chip_Select : sbit at PORTG1_bit;

Mmc_Chip_Select_Direction : sbit at DDG1_bit;

filename : string[14]; // File names

filename_old : string[14]; // File names

card_ok : byte;

size : longint;

filedate : String[10];

file_contents : String[txtmax];

append_ok : byte;

{------------------------------------------------------------------------------}

Type

TGPS_Daten = record // 0-terminierte Strings!! (len + 1)

Date : String[11]; // aus RMC

Time : String[14]; // aus RMC oder GGA

Status1 : String[2]; // aus RMC

P_2D_3D : String[2]; // aus GSA

Latitude : String[14]; // aus RMC oder GGA

Longitude : String[15]; // aus RMC oder GGA

Hight_m : String[8]; // aus GGA oder RMZ(in Fu?)

PDOP : String[5]; // aus GSA

HDOP : String[5]; // aus GSA

VDOP : String[5]; // aus GSA

Velocity_kmh : String[7]; // aus VTG

Bew_Kurs : String[8]; // aus RMC

Kurs : String[8]; // aus VTG

Kurs_magt : String[8]; // aus VTG

Missweisung : String[8]; // aus RMC

Mess_Qualitaet : String[3]; // aus GGA

Mess_Genauik : String[7]; // aus GSA

Anz_Satelliten : String[3]; // aus GGA

Satellit_PRN : String[38]; // aus GSA (f¸r 12 Satelliten n1,n2,...)

DS_Typ_last : String[13]; // ....

end;

{------------------------------------------------------------------------------}

var txt : String[txtmax];

puf1 : array[pufmax] of byte;

in_ptr : word;

out_ptr : word;

ready : byte;

changes : byte;

ret_str : string[22];

ref_str : string[41];

vcode : byte;

error : byte;

i_h : byte;

l_h : byte;

DS_Typ : byte;

GPS_DS : TGPS_Daten;

GPS_DS0 : TGPS_Daten;

GPS_Date : String[11];

GPS_Time : String[12];

ltypes : String[13];

delims : String[21];

//-----------------------------------

{------------------------------------------------------------------------------}

{==============================================================================}

procedure UART_Rd_ISR(); org IVT_ADDR_USART0__RX;

{==============================================================================}

begin

puf1[in_ptr] := UART1_Read(); // GPS-Telegram

inc(in_ptr);

if in_ptr > (pufmax) then begin

in_ptr := 1;

ready := 1; //

end;

{------------------------------------------------------------------------------}

function MakeFileName: array[0..19] of char;

{------------------------------------------------------------------------------}

begin

result := xxx ;

if length(filedate) > 5 then begin

result := GP +filedate+ .txt ;

end;

{------------------------------------------------------------------------------}

procedure WriteToMMCCard;

{------------------------------------------------------------------------------}

var l : byte;

begin

if StrCmp(GPS_DS.Status1, A ) <> 0 then exit;

if (card_ok = 0) then begin

filename := MakeFileName; // use GPS_DS

if StrCmp(filename, filename_old) > 0 then begin

if Mmc_Fat_Assign(filename,0xA0) = 0 then begin // File do not exists

Mmc_Fat_Rewrite; // To clear file and start with new data

filename_old := filename;

append_ok := 0;

end

else begin

if append_ok = 0 then begin

// append_ok := 1;

Mmc_Fat_Append();

end; // Prepare file for append

end;

if Mmc_Fat_Assign(filename,0xA0) <> 0 then begin // File exists

with GPS_DS do begin

ref_str := DS_Typ_last +#13+#10;

l := length(ref_str);