//---------------------------------------------------------------------------// // Autor: José Manuel Toledo Fernández // // Fecha: 21-3-2006 // // Nombre: UFposave.cpp // // // // Descripción: Archivo que contiene el codigo encargado de obtener la // // posición del equipo mediante el comando POSAVE // //---------------------------------------------------------------------------// #include #pragma hdrstop #include "UFposave.h" #include "UFprincipal.h" #include "UfposaveConf.h" #include "UFaverage.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TFormPosave *FormPosave; //--------------------------------------------------------------------------- __fastcall TFormPosave::TFormPosave(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TFormPosave::AceptarClick(TObject *Sender) { float time = 0; float Desv = 0; bool error = true; TFormConfirmacion *AuxForm; int flag; FormAverage->Log = "POSAVE"; AuxForm = new TFormConfirmacion(Application); time = atof(Tmax->Text.c_str()); if(time>=0.0000000001) { FormAverage->Log = FormAverage->Log+" "+Tmax->Text; FormAverage->param->tiempo = Tmax->Text; Desv = atof(desvH->Text.c_str()); if(Desv>=0.000000001) { FormAverage->param->hor = desvH->Text; FormAverage->Log = FormAverage->Log+" "+desvH->Text; Desv = atof(desvV->Text.c_str()); if(Desv>=0.000000000001) { FormAverage->param->vert = desvV->Text; FormAverage->Log = FormAverage->Log+" "+desvV->Text; } else error=false; } else error=false; } else error=false; if(!error) { ShowMessage("ERROR: Alguno de los datos no tiene el formato correcto, vuelva a intentarlo o haga clik en Cancelar"); FormAverage->datosOK=false; } else { Visible=false; flag=AuxForm->ShowModal(); if(flag==mrOk) { FormPrincipal->HiloEsc->SC->Acquire(); try { FormPrincipal->HiloEsc->cadena = "FIX NONE"; FormPrincipal->HiloEsc->ComPuerto = true; //nos saltamos meter el puerto de salida FormPrincipal->HiloEsc->transmitido=true; //habilitamos el hilo para la escritur while(FormPrincipal->HiloEsc->transmitido == true){}; //Esperamos con el while a transmitir la trama FormPrincipal->HiloEsc->cadena = FormAverage->Log; FormPrincipal->HiloEsc->ComPuerto = true; //nos saltamos meter el puerto de salida FormPrincipal->HiloEsc->transmitido=true; //habilitamos el hilo para la escritur while(FormPrincipal->HiloEsc->transmitido == true){}; //Esperamos con el while a transmitir la trama FormPrincipal->HiloEsc->cadena = "LOG AVEPOSA ONCHANGED"; FormPrincipal->HiloEsc->transmitido=true; //habilitamos el hilo para la escritur while(FormPrincipal->HiloEsc->transmitido == true){}; //Esperamos con el while a transmitir la trama } __finally { FormPrincipal->HiloEsc->SC->Release(); } FormAverage->datosOK = true; ModalResult = mrOk; } else ModalResult = mrCancel; } delete(AuxForm); } //--------------------------------------------------------------------------- void __fastcall TFormPosave::CancelarClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- 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  >  POSAVE  >  UFposave.cpp