File "calcul.cpp"

Full Path: /home/analogde/www/port parallele/builder/calcul.cpp
File size: 2.54 KB
MIME-type: text/x-c
Charset: 8 bit

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

#include <vcl.h>
#pragma hdrstop

#include "calcul.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
// dfinition
DecimalSeparator = '.';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SortieClick(TObject *Sender)
{
          Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::zone(TObject *Sender, char &Key)
{

if ((Key < 48 || Key > 57)
        && Key != VK_BACK
        && Key != VK_DELETE
        && Key != DecimalSeparator)
        Key = 0;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FrancZoneChange(TObject *Sender)
{
double valeur = 0;
    try { // L'exception sera dclenche si le contenu de
          // la zone est vide
        valeur = StrToFloat(FrancZone->Text);
    }
    catch(...)
    {
        // On ne fait rien, c'est le but recherch
    }

    valeur /= 6.55957;

    // On supprime la gestion de l'vnement OnChange pour la
    // zone d'dition cible
    EuroZone->OnChange = 0;

    EuroZone->Text = EuroZone->Text.FloatToStrF(valeur, AnsiString::sffFixed, 15, 2);

    // On restaure la gestion de l'vnement OnChange
    EuroZone->OnChange = EuroZoneChange;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::EuroZoneChange(TObject *Sender)
{

double valeur = 0;
    try { // L'exception sera dclenche si le contenu de
          // la zone est vide
        valeur = StrToFloat(EuroZone->Text);
    }
    catch(...)
    {
        // On ne fait rien, c'est le but recherch
    }

    valeur *= 6.55957;

    // On supprime la gestion de l'vnement OnChange pour la
    // zone d'dition cible
    FrancZone->OnChange = 0;

    FrancZone->Text = FrancZone->Text.FloatToStrF(valeur, AnsiString::sffFixed, 15, 2);

    // On restaure la gestion de l'vnement OnChange
    FrancZone->OnChange = FrancZoneChange;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::aboutClick(TObject *Sender)
{
ShowMessage("Informations\nLogiciel dvelopp par Delpy patrice, (c) Avril 2005");
}
//---------------------------------------------------------------------------