//---------------------------------------------------------------------------// // Autor: Ángel David López Prieto // // Fecha: 1-3-2006 // // Nombre CNorte.cpp // // // // Descripcion: Módulo para especificar la posición del Norte // //---------------------------------------------------------------------------// //--------------------------------------------------------------------------- #include #pragma hdrstop #include #include #include "CNorte.h" #include "MPlano.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TFormCNorte *FormCNorte; //--------------------------------------------------------------------------- /*! Inicializa los valores necesarios */ __fastcall TFormCNorte::TFormCNorte(TComponent* Owner) : TForm(Owner) { Arrastrando=false; Mueve_cardinales(M_PI/2); } //--------------------------------------------------------------------------- /*! Al pulsar el botón se valida el contenido del componente Edit */ void __fastcall TFormCNorte::AceptarClick(TObject *Sender) { try { // Usamos una función del Plano para poner el Norte FormPlano->PonNorte(Edit1->Text.ToDouble()); Close(); } catch(...) { ShowMessage("No ha introducido el dato correctamente"); } } //--------------------------------------------------------------------------- /*! Se deja de arrastrar la N */ void __fastcall TFormCNorte::Label2MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Arrastrando=false; } //--------------------------------------------------------------------------- /*! Se empieza a arrastrar la N */ void __fastcall TFormCNorte::Label2MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Arrastrando=true; } //--------------------------------------------------------------------------- /*! El ratón está en movimiento, aqui se realizan los cálculos necesarios para poder posicionar correctamente los puntos cardinales y rellenar el contenido del campo Edit */ void __fastcall TFormCNorte::Label2MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { float angulo; int Xfic; // Xficticia int Yfic; // Yficticia if (Arrastrando) { // Coordenadas con referencia al centro de la imagen Xfic=(X+(Label2->Left-Image1->Left-Image1->Width/2)); Yfic=((Image1->Top-Label2->Top+Image1->Height/2)-Y); // Calculamos el angulo y movemos los puntos angulo=ArcTan2(Yfic,Xfic); Mueve_cardinales(angulo); // Pasamos la variable angulo de radianes a grados angulo=((angulo-(M_PI/2))*180/M_PI); angulo=(angulo<-180?angulo+360:angulo); angulo=-angulo; Edit1->Text=(AnsiString)Trunca(angulo,2); } } //--------------------------------------------------------------------------- /*! Tras pasársele el ángulo donde se encuentra el Norte, esta función es la encargada de mover las Etiquetas de los 4 puntos cardinales a su lugar correspondiente */ void __fastcall TFormCNorte::Mueve_cardinales(float angulo) { int AxisX=Image1->Width; int AxisY=Image1->Height; int Centro1X=Image1->Left+Image1->Width/2; int Centro1Y=Image1->Top+Image1->Height/2; //N Label2->Left=Centro1X+AxisX*cos(angulo)-Label2->Width/2; Label2->Top=Centro1Y-AxisY*sin(angulo)-Label2->Height/2; //O angulo+=M_PI/2; Label3->Left=Centro1X+AxisX*cos(angulo)-Label3->Width/2; Label3->Top=Centro1Y-AxisY*sin(angulo)-Label3->Height/2; //S angulo+=M_PI/2; Label4->Left=Centro1X+AxisX*cos(angulo)-Label4->Width/2; Label4->Top=Centro1Y-AxisY*sin(angulo)-Label4->Height/2; //E angulo+=M_PI/2; Label5->Left=Centro1X+AxisX*cos(angulo)-Label5->Width/2; Label5->Top=Centro1Y-AxisY*sin(angulo)-Label5->Height/2; } //--------------------------------------------------------------------------- /*! Si pulsamos Intro en el campo Edit debemos actualizar el diagrama */ void __fastcall TFormCNorte::Edit1KeyPress(TObject *Sender, char &Key) { float angulo; if (Key==0x0D) // Tecla Intro { try { angulo=Edit1->Text.ToDouble(); Mueve_cardinales((90-angulo)*M_PI/180); } catch(...) { ShowMessage("No ha introducido el dato correctamente"); } } } //--------------------------------------------------------------------------- //! Trunca los decimales del double y devuelve su nuevo valor double __fastcall TFormCNorte::Trunca (double numero,int decimales) { int aux; aux=numero*pow10(decimales); return (double)aux/pow10(decimales); } e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.


SOFTWARE PARA LA MONITORIZACIÓN Y CONTROL DE RECEPTORES GPS. APLICACIÓN A RECEPTORES NOVATEL RT-2

: TOLEDO FERNÃNDEZ, JOSÉ MANUEL
: Ingeniería Telecomunicación
Contenido del proyecto:
Directorio raíz  >  InterGPS  >  InterGPS_codigo  >  Plano  >  CNorte.cpp