//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "kaydir.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int dur=0;
int interv;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
seri_carpma.Initialize1();
 
Timer1->Enabled=false;
 
LabelInitialize_1(Label1);
 
if(Bin->Checked==true)
seri_carpma.BinToArray(Edit1->Text.Length(), Edit2->Text.Length(), Edit1->Text, Edit2->Text);
 
else
seri_carpma.DecToArray(Edit1->Text, Edit2->Text);
 
Label_SayiGirdi(Label1);
 
seri_carpma.NewInitialize();
 
PulseCiz(Label1);
 
Button_Initialize(Button2);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
seri_carpma.Initialize2();
 
LabelInitialize_2(Label3);
 
Timer1->Enabled=true;
 
seri_carpma.analitik_cizgi(Canvas);
 
seri_carpma.andlogic();
 
seri_carpma.analitik_ilk_satir(Canvas);
 
seri_carpma.adder();
 
seri_carpma.analitik_diger_satirlar(Canvas);
 
seri_carpma.last_Initialize();
 
ButtonInitialize_2(Button2);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Kaydir_ToAnd(Label4);
 
Kaydir_ToAdder(Label4);
 
Kaydir_ToAcc(Adder);
 
Kaydir_ToMult(Label8);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image3Click(TObject *Sender)
{
if(dur%2==0)
Timer1->Enabled=false;
else
Timer1->Enabled=true;
dur++;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image4Click(TObject *Sender)
{
interv++;
Timer1->Interval=50+interv*7;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image5Click(TObject *Sender)
{
if(interv==-7)
interv=-7;
else
interv--;
Timer1->Interval=50+interv*7;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image2Click(TObject *Sender)
{
Image6->Visible=true;       
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image6Click(TObject *Sender)
{
Image6->Visible=false;
}
//---------------------------------------------------------------------------