All pastes #900522 Raw Edit
Unnamed

public text v1 · immutable
·published 2008-02-11 23:30 UTC
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "average.h"
#include "Intro.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------


double a;
double b;
double c;
double d;
double f;
double g;
double h;
double i;
double l;
double m;
double n;
double o;
double p;
double q;
double r;
double s;
double t;
double u;
double v;
double w;
double x;
double y;
double z;
double zz;
double avg;

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

a = atof(Edit1->Text.c_str());
b = atof(Edit2->Text.c_str());
c = atof(Edit3->Text.c_str());
d = atof(Edit4->Text.c_str());
f = atof(Edit5->Text.c_str());
g = atof(Edit6->Text.c_str());
h = atof(Edit7->Text.c_str());
i = atof(Edit8->Text.c_str());
l = atof(Edit9->Text.c_str());
m = atof(Edit10->Text.c_str());
n = atof(Edit11->Text.c_str());
o = atof(Edit12->Text.c_str());
p = atof(Edit13->Text.c_str());
q = atof(Edit14->Text.c_str());
r = atof(Edit15->Text.c_str());
s = atof(Edit16->Text.c_str());
t = atof(Edit17->Text.c_str());
u = atof(Edit18->Text.c_str());
v = atof(Edit19->Text.c_str());
w = atof(Edit20->Text.c_str());
x = atof(Edit21->Text.c_str());
y = atof(Edit22->Text.c_str());
z = atof(Edit23->Text.c_str());
zz = atof(Edit24->Text.c_str());

if ( !CheckBox1->Checked )
{
Edit73->Text = "0";
 }
 else
 {

	avg = (a+b+c+d+f+g+h+i+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z+zz)/dieretis;
	Edit73->Text = avg;
 }

   // EPOMENO TETRAMHNO

 if ( !CheckBox2->Checked )
{
Edit74->Text = "0";
 }
 else
 {
double aa = atof(Edit25->Text.c_str());
double bb = atof(Edit26->Text.c_str());
double cc = atof(Edit27->Text.c_str());
double dd = atof(Edit28->Text.c_str());
double ff = atof(Edit29->Text.c_str());
double gg = atof(Edit30->Text.c_str());
double hh = atof(Edit31->Text.c_str());
double ii = atof(Edit32->Text.c_str());
double ll = atof(Edit33->Text.c_str());
double mm = atof(Edit34->Text.c_str());
double nn = atof(Edit35->Text.c_str());
double oo = atof(Edit36->Text.c_str());
double pp = atof(Edit37->Text.c_str());
double qq = atof(Edit38->Text.c_str());
double rr = atof(Edit39->Text.c_str());
double ss = atof(Edit40->Text.c_str());
double tt = atof(Edit41->Text.c_str());
double uu = atof(Edit42->Text.c_str());
double vv = atof(Edit43->Text.c_str());
double ww = atof(Edit44->Text.c_str());
double xx = atof(Edit45->Text.c_str());
double yy = atof(Edit46->Text.c_str());
double zz = atof(Edit47->Text.c_str());
double zzz = atof(Edit48->Text.c_str());
	double avg = (aa+bb+cc+dd+ff+gg+hh+ii+ll+mm+nn+oo+pp+qq+rr+ss+tt+uu+vv+ww+xx+yy+zz+zzz)/dieretis;
	Edit74->Text = avg;
 }


   // EPOMENO TETRAMHNO

 if ( !CheckBox3->Checked )
{
Edit75->Text = "0";
 }
 else
 {
double aaa = atof(Edit49->Text.c_str());
double bbb = atof(Edit50->Text.c_str());
double ccc = atof(Edit51->Text.c_str());
double ddd = atof(Edit52->Text.c_str());
double fff = atof(Edit53->Text.c_str());
double ggg = atof(Edit54->Text.c_str());
double hhh = atof(Edit55->Text.c_str());
double iii = atof(Edit56->Text.c_str());
double lll = atof(Edit57->Text.c_str());
double mmm = atof(Edit58->Text.c_str());
double nnn = atof(Edit59->Text.c_str());
double ooo = atof(Edit60->Text.c_str());
double ppp = atof(Edit61->Text.c_str());
double qqq = atof(Edit62->Text.c_str());
double rrr = atof(Edit63->Text.c_str());
double sss = atof(Edit64->Text.c_str());
double ttt = atof(Edit65->Text.c_str());
double uuu = atof(Edit66->Text.c_str());
double vvv = atof(Edit67->Text.c_str());
double www = atof(Edit68->Text.c_str());
double xxx = atof(Edit69->Text.c_str());
double yyy = atof(Edit70->Text.c_str());
double zzz = atof(Edit71->Text.c_str());
double zzzz = atof(Edit72->Text.c_str());
	double avg = (aaa+bbb+ccc+ddd+fff+ggg+hhh+iii+lll+mmm+nnn+ooo+ppp+qqq+rrr+sss+ttt+uuu+vvv+www+xxx+yyy+zzz+zzzz)/dieretis;
	Edit75->Text = avg;
 }


  // TELIKO APOTELESMA - M.O.

double teliko1 = atof(Edit73->Text.c_str());
double teliko2 = atof(Edit74->Text.c_str());
double teliko3 = atof(Edit75->Text.c_str());
	double avg = (teliko1+teliko2+teliko3)/3;
	Edit76->Text = avg;

	// EMEINES

if(avg > double(9.5))
 {
 Label12->Caption = "";
 }

   // PERASES

if(avg < double(9.5))
 {
 Label12->Caption = "Bad :(";
 }

}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
IntroForm->Close();
Form1->Close();
exit(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Edit1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Text = "0";
Edit2->Text = "0";
Edit3->Text = "0";
Edit4->Text = "0";
Edit5->Text = "0";
Edit6->Text = "0";
Edit7->Text = "0";
Edit8->Text = "0";
Edit9->Text = "0";
Edit10->Text = "0";
Edit11->Text = "0";
Edit12->Text = "0";
Edit13->Text = "0";
Edit14->Text = "0";
Edit15->Text = "0";
Edit16->Text = "0";
Edit17->Text = "0";
Edit18->Text = "0";
Edit19->Text = "0";
Edit20->Text = "0";
Edit21->Text = "0";
Edit22->Text = "0";
Edit23->Text = "0";
Edit24->Text = "0";
Edit25->Text = "0";
Edit26->Text = "0";
Edit27->Text = "0";
Edit28->Text = "0";
Edit29->Text = "0";
Edit30->Text = "0";
Edit31->Text = "0";
Edit32->Text = "0";
Edit33->Text = "0";
Edit34->Text = "0";
Edit35->Text = "0";
Edit36->Text = "0";
Edit37->Text = "0";
Edit38->Text = "0";
Edit39->Text = "0";
Edit40->Text = "0";
Edit41->Text = "0";
Edit42->Text = "0";
Edit43->Text = "0";
Edit44->Text = "0";
Edit45->Text = "0";
Edit46->Text = "0";
Edit47->Text = "0";
Edit48->Text = "0";
Edit49->Text = "0";
Edit50->Text = "0";
Edit51->Text = "0";
Edit52->Text = "0";
Edit53->Text = "0";
Edit54->Text = "0";
Edit55->Text = "0";
Edit56->Text = "0";
Edit57->Text = "0";
Edit58->Text = "0";
Edit59->Text = "0";
Edit60->Text = "0";
Edit61->Text = "0";
Edit62->Text = "0";
Edit63->Text = "0";
Edit64->Text = "0";
Edit65->Text = "0";
Edit66->Text = "0";
Edit67->Text = "0";
Edit68->Text = "0";
Edit69->Text = "0";
Edit70->Text = "0";
Edit71->Text = "0";
Edit72->Text = "0";
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Edit1->Text = "0";
Edit2->Text = "0";
Edit3->Text = "0";
Edit4->Text = "0";
Edit5->Text = "0";
Edit6->Text = "0";
Edit7->Text = "0";
Edit8->Text = "0";
Edit9->Text = "0";
Edit10->Text = "0";
Edit11->Text = "0";
Edit12->Text = "0";
Edit13->Text = "0";
Edit14->Text = "0";
Edit15->Text = "0";
Edit16->Text = "0";
Edit17->Text = "0";
Edit18->Text = "0";
Edit19->Text = "0";
Edit20->Text = "0";
Edit21->Text = "0";
Edit22->Text = "0";
Edit23->Text = "0";
Edit24->Text = "0";
Edit1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
Edit25->Text = "0";
Edit26->Text = "0";
Edit27->Text = "0";
Edit28->Text = "0";
Edit29->Text = "0";
Edit30->Text = "0";
Edit31->Text = "0";
Edit32->Text = "0";
Edit33->Text = "0";
Edit34->Text = "0";
Edit35->Text = "0";
Edit36->Text = "0";
Edit37->Text = "0";
Edit38->Text = "0";
Edit39->Text = "0";
Edit40->Text = "0";
Edit41->Text = "0";
Edit42->Text = "0";
Edit43->Text = "0";
Edit44->Text = "0";
Edit45->Text = "0";
Edit46->Text = "0";
Edit47->Text = "0";
Edit48->Text = "0";
Edit25->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
Edit49->Text = "0";
Edit50->Text = "0";
Edit51->Text = "0";
Edit52->Text = "0";
Edit53->Text = "0";
Edit54->Text = "0";
Edit55->Text = "0";
Edit56->Text = "0";
Edit57->Text = "0";
Edit58->Text = "0";
Edit59->Text = "0";
Edit60->Text = "0";
Edit61->Text = "0";
Edit62->Text = "0";
Edit63->Text = "0";
Edit64->Text = "0";
Edit65->Text = "0";
Edit66->Text = "0";
Edit67->Text = "0";
Edit68->Text = "0";
Edit69->Text = "0";
Edit70->Text = "0";
Edit71->Text = "0";
Edit72->Text = "0";
Edit49->SetFocus();
}
//--------------------NEXT TABS----------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if(Edit1->Text.Length() > 1)
Edit2->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit2Change(TObject *Sender)
{
if(Edit2->Text.Length() > 1)
Edit3->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit3Change(TObject *Sender)
{
if(Edit3->Text.Length() > 1)
Edit4->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit4Change(TObject *Sender)
{
if(Edit4->Text.Length() > 1)
Edit5->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit5Change(TObject *Sender)
{
if(Edit5->Text.Length() > 1)
Edit6->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit6Change(TObject *Sender)
{
if(Edit6->Text.Length() > 1)
Edit7->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit7Change(TObject *Sender)
{
if(Edit7->Text.Length() > 1)
Edit8->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit8Change(TObject *Sender)
{
if(Edit8->Text.Length() > 1)
Edit9->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit9Change(TObject *Sender)
{
if(Edit9->Text.Length() > 1)
Edit10->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit10Change(TObject *Sender)
{
if(Edit10->Text.Length() > 1)
Edit11->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit11Change(TObject *Sender)
{
if(Edit11->Text.Length() > 1)
Edit12->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit12Change(TObject *Sender)
{
if(Edit12->Text.Length() > 1)
Edit13->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit13Change(TObject *Sender)
{
if(Edit13->Text.Length() > 1)
Edit14->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit14Change(TObject *Sender)
{
if(Edit14->Text.Length() > 1)
Edit15->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit15Change(TObject *Sender)
{
if(Edit15->Text.Length() > 1)
Edit16->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit16Change(TObject *Sender)
{
if(Edit16->Text.Length() > 1)
Edit17->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit17Change(TObject *Sender)
{
if(Edit17->Text.Length() > 1)
Edit18->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit18Change(TObject *Sender)
{
if(Edit18->Text.Length() > 1)
Edit19->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit19Change(TObject *Sender)
{
if(Edit19->Text.Length() > 1)
Edit20->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit20Change(TObject *Sender)
{
if(Edit20->Text.Length() > 1)
Edit21->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit21Change(TObject *Sender)
{
if(Edit21->Text.Length() > 1)
Edit22->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit22Change(TObject *Sender)
{
if(Edit22->Text.Length() > 1)
Edit23->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit23Change(TObject *Sender)
{
if(Edit23->Text.Length() > 1)
Edit24->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit24Change(TObject *Sender)
{
if(Edit24->Text.Length() > 1)
Edit25->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit25Change(TObject *Sender)
{
if(Edit25->Text.Length() > 1)
Edit26->SetFocus();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Edit26Change(TObject *Sender)
{
if(Edit26->Text.Length() > 1)
Edit27->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit27Change(TObject *Sender)
{
if(Edit27->Text.Length() > 1)
Edit28->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit28Change(TObject *Sender)
{
if(Edit28->Text.Length() > 1)
Edit29->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit29Change(TObject *Sender)
{
if(Edit29->Text.Length() > 1)
Edit30->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit30Change(TObject *Sender)
{
if(Edit30->Text.Length() > 1)
Edit31->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit31Change(TObject *Sender)
{
if(Edit31->Text.Length() > 1)
Edit32->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit32Change(TObject *Sender)
{
if(Edit32->Text.Length() > 1)
Edit33->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit33Change(TObject *Sender)
{
if(Edit33->Text.Length() > 1)
Edit34->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit34Change(TObject *Sender)
{
if(Edit34->Text.Length() > 1)
Edit35->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit35Change(TObject *Sender)
{
if(Edit35->Text.Length() > 1)
Edit36->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit36Change(TObject *Sender)
{
if(Edit36->Text.Length() > 1)
Edit37->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit37Change(TObject *Sender)
{
if(Edit37->Text.Length() > 1)
Edit38->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit38Change(TObject *Sender)
{
if(Edit38->Text.Length() > 1)
Edit39->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit39Change(TObject *Sender)
{
if(Edit39->Text.Length() > 1)
Edit40->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit40Change(TObject *Sender)
{
if(Edit40->Text.Length() > 1)
Edit41->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit41Change(TObject *Sender)
{
if(Edit41->Text.Length() > 1)
Edit42->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit42Change(TObject *Sender)
{
 if(Edit42->Text.Length() > 1)
Edit43->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit43Change(TObject *Sender)
{
if(Edit43->Text.Length() > 1)
Edit44->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit44Change(TObject *Sender)
{
if(Edit44->Text.Length() > 1)
Edit45->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit45Change(TObject *Sender)
{
if(Edit45->Text.Length() > 1)
Edit46->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit46Change(TObject *Sender)
{
if(Edit46->Text.Length() > 1)
Edit47->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit47Change(TObject *Sender)
{
 if(Edit47->Text.Length() > 1)
Edit48->SetFocus();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Edit48Change(TObject *Sender)
{
 if(Edit48->Text.Length() > 1)
Edit49->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit49Change(TObject *Sender)
{
 if(Edit49->Text.Length() > 1)
Edit50->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit50Change(TObject *Sender)
{
 if(Edit50->Text.Length() > 1)
Edit51->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit51Change(TObject *Sender)
{
 if(Edit51->Text.Length() > 1)
Edit52->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit52Change(TObject *Sender)
{
 if(Edit52->Text.Length() > 1)
Edit53->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit53Change(TObject *Sender)
{
 if(Edit53->Text.Length() > 1)
Edit54->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit54Change(TObject *Sender)
{
 if(Edit54->Text.Length() > 1)
Edit55->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit55Change(TObject *Sender)
{
  if(Edit55->Text.Length() > 1)
Edit56->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit56Change(TObject *Sender)
{
  if(Edit56->Text.Length() > 1)
Edit57->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit57Change(TObject *Sender)
{
 if(Edit57->Text.Length() > 1)
Edit58->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit58Change(TObject *Sender)
{
 if(Edit58->Text.Length() > 1)
Edit59->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit59Change(TObject *Sender)
{
 if(Edit59->Text.Length() > 1)
Edit60->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit60Change(TObject *Sender)
{
 if(Edit60->Text.Length() > 1)
Edit61->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit61Change(TObject *Sender)
{
 if(Edit61->Text.Length() > 1)
Edit62->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit62Change(TObject *Sender)
{
 if(Edit62->Text.Length() > 1)
Edit63->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit63Change(TObject *Sender)
{
  if(Edit63->Text.Length() > 1)
Edit64->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit64Change(TObject *Sender)
{
  if(Edit64->Text.Length() > 1)
Edit65->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit65Change(TObject *Sender)
{
 if(Edit65->Text.Length() > 1)
Edit66->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit66Change(TObject *Sender)
{
  if(Edit66->Text.Length() > 1)
Edit67->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit67Change(TObject *Sender)
{
 if(Edit67->Text.Length() > 1)
Edit68->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit68Change(TObject *Sender)
{
  if(Edit68->Text.Length() > 1)
Edit69->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit69Change(TObject *Sender)
{
 if(Edit69->Text.Length() > 1)
Edit70->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit70Change(TObject *Sender)
{
  if(Edit70->Text.Length() > 1)
Edit71->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit71Change(TObject *Sender)
{
  if(Edit71->Text.Length() > 1)
Edit72->SetFocus();
}
//---------------------------------------------------------------------------




void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
 if(RadioButton1->Checked) {



string cmb = ComboBox1->Text.c_str(); if(cmb=="Ενιαίο Α'") dieretis=1;
  else if(cmb=="Ενιαίο Β'(Θεωριτική Κατεύθυνση)") dieretis=2;


}
else {

  dieretis=atof(Edit77->Text.c_str());


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