Bu Program C++ Builder 6 ile uyumludur.

AÇIKLAMA

Bu program verilen görevi ko?ulacak processlere(yani küçük i?lem parçac?klar?na) böler.
Thread isimli klasör icinde bu Thread.exe'nin projesi bulunmaktadir. Ve verilen problem kosulacak process say?s?na bolunerek i?lem belirli parçalara ayr?larak h?z kazan?l?r. Program ko?arken görev yöneticisi i?lem sekmesinde ko?an threadleri gorebilirsiniz.

Thread program? argüman ald???ndan dolay? o projeyi tek ba??na ko?arsan?z hata mesaj? alacaks?n?z.
Ama ana program icinden argüman'l? olarak ça?r?ld???ndan dolay? sorun olmayacakt?r.

Program?n Tamam?n? A?a??daki Linkten ?ndirebilirsiniz

Linki Görebilmeniz ?çin Üye Olman?z Gerekmektedir...

Üye Kay?t

Program Kodu:

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "stdio.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(Edit1->Text!="")
{
Label3->Caption="";
Label7->Caption="";
Label8->Caption="";
ListBox1->Items->Clear();
ListBox2->Items->Clear();
FILE *dosya;
if((dosya=fopen("sayilar.txt","w+"))==NULL)
exit(6);
int p=StrToInt(InputBox("SINIR DE?ER?","Bulunacak Mükemmel Say?lar ?çin S?n?r De?eri Girin",""));
 TDateTime time1=Time();
Label7->Caption=time1;
int bolum=p/StrToInt(Edit1->Text);
for(int i=1;i<=StrToInt(Edit1->Text);i++)
{
String x="Thread.exe ";
x+=bolum*(i-1);
x+=" ";
x+=bolum*i;
ListBox1->Items->Add(bolum*i);
WinExec(x.c_str(),NULL);
}
bool durum=true;
while(durum)
{
 int tut=ListBox1->Items->Count;
 int yep=0;
 for(int i=0;i<tut;i++)
 {
  if(FileExists(ListBox1->Items->Strings[i]))
  yep++;
 }
 if(yep==tut)
 durum=false;
}
fclose(dosya);
TDateTime time2=Time();
Label8->Caption=time2;
TDateTime  x=time2-time1;
Label3->Caption=x;
ListBox2->Items->LoadFromFile("sayilar.txt");
 
DeleteFile("sayilar.txt");
Sleep(1000);
 int tut=ListBox1->Items->Count;
 for(int i=0;i<tut;i++)
 DeleteFile(ListBox1->Items->Strings[i]);
}
else
Application->MessageBoxA("Ko?acak Process Say?s?n? Giriniz","UYARI",MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------