1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
void __fastcall TA::BitBtn2Click(TObject *Sender)
{
if ((A->Edit1->Text == "")
||(A->Edit2->Text == ""))
MessageDlg("Vous n'avez pas introduit \n la valeur maximale \n ou le nombre d'ensembles flous", mtError, TMsgDlgButtons() << mbOK, 0);
else
{p_val= StrToInt(Edit1->Text);
nbi= StrToInt(Edit2->Text);
ptr_at->nb_int= nbi;
ptr_at->pval = p_val;
ptr_at->tete.suivant=NULL;
ptr_at->tete.precedent=NULL;
ptr_at->ptr_ef=&ptr_at->tete;
for(e=0; e<nbi; e++)
{
ptr_at->ptr_ef->suivant= new ens_flou;
ptr_at->ptr_ef->suivant->precedent=ptr_at->ptr_ef;
ptr_at->ptr_ef=ptr_at->ptr_ef->suivant;
ptr_at->ptr_ef->suivant=NULL;
ptr_at->ptr_ef->supp=0;
ptr_at->ptr_ef->tabe =new float[nb_enrg];
for (l=0; l<nb_enrg; l++)
{
ptr_at->ptr_ef->tabe[l]=0;
}
}
ptr_at->tete.suivant->precedent=ptr_at->ptr_ef;//relier le premier ens_flou au dernier
ptr_at->ptr_ef->suivant=ptr_at->tete.suivant; //relier le dernier ens_flou au premier
ptr_at->ptr_ef=ptr_at->tete.suivant;
ax.draw();
Edit4->Clear();
Edit5->Clear();
Edit6->Clear();
Edit7->Clear();
ListBox1->Clear();
Edit4->Enabled=true;
Edit5->Enabled=true;
Edit6->Enabled=true;
Edit7->Enabled=true;
BitBtn6->Enabled=true;
BitBtn3->Enabled=true;
BitBtn2->Enabled=false;
Edit1->Enabled=false;
Edit2->Enabled=false;
}
} |