Void ZakladFormula1::dodajNowyZaklad(){
System::String^ tekst;
Int16 id;
StreamWriter^ plik = gcnew StreamWriter("BazaDanych\\druzyny.txt", true, System::Text::Encoding::Default);
StreamReader^ plikId = gcnew StreamReader("BazaDanych\\zakladID.txt", System::Text::Encoding::Default);
tekst = plikId->ReadToEnd()->Trim();
id = (Int16::Parse(tekst));
id++;
zakladId = id;
plikId->Close();
StreamWriter^ plik2 = gcnew StreamWriter("BazaDanych\\zakladID.txt", false, System::Text::Encoding::Default);
plik2->Write(id.ToString());
plik2->Close();
plik->WriteLine("ID=" + this->zakladId);
plik->WriteLine(this->obiektZakladu1->getTyp());
plik->WriteLine(this->obiektZakladu1->getNazwa1());
plik->WriteLine(this->obiektZakladu1->getKurs1());
plik->WriteLine(this->obiektZakladu2->getNazwa1());
plik->WriteLine(this->obiektZakladu2->getKurs1());
plik->WriteLine(this->obiektZakladu3->getNazwa1());
plik->WriteLine(this->obiektZakladu3->getKurs1());
plik->WriteLine("###########");
plik->Close();
}
Void MainForm::Sum()
{
btnTask1->Enabled = false;
btnTask2->Enabled = false;
btnTask3->Enabled = false;
FileStream ^output = gcnew FileStream("sum.txt", FileMode::Create);
StreamWriter ^writer = gcnew StreamWriter(output);
String ^str = "";
int l = 0, m = (primes[primes->Length - 1] / 2 - 1) / 100 + 1;
pbRun->Value = 0;
double start = 0.0, time = 0.0;
start = clock();
for (int i = 4; i < primes[primes->Length - 1] + 1; i += 2) {
for (int j = 0; j < count; j++) {
if (a[i - primes[j]]) {
str = i.ToString() + " = " + primes[j].ToString() + " + " + (i - primes[j]).ToString();
writer->WriteLine(str);
if (l % m == 0) {
pbRun->Value++;
}
l++;
break;
}
}
}
time = clock() - start;
MessageBox::Show("¬рем¤ выполнени¤: " + time.ToString() + " мс");
pbRun->Value = 0;
writer->Close();
output->Close();
pbRun->Value = 0;
btnTask1->Enabled = true;
btnTask2->Enabled = true;
btnTask3->Enabled = true;
}
FileEntitySchemeOutputStream::FileEntitySchemeOutputStream(ptr<Action> action, ptr<Entity> entity, size_t blockSize)
: action(action), entity(entity), blockSize(blockSize), totalSize(0), currentBlockIndex(0), currentBlockSize(0)
{
descriptorHashStream = NEW(MemoryStream());
descriptorHashWriter = NEW(StreamWriter(descriptorHashStream));
hashStream = NEW(Crypto::WhirlpoolStream());
totalHashStream = NEW(Crypto::WhirlpoolStream());
}
Void MainForm::Primes()
{
btnTask1->Enabled = false;
btnTask2->Enabled = false;
btnTask3->Enabled = false;
pbRun->Value = 0;
for (int i = 0; i < n; i++) {
a[i] = true;
}
a[0] = a[1] = false;
int k = 0, m = count / 100 + 1;
double start = 0.0, time = 0.0;
start = clock();
for (int i = 2; k < count; ++i) {
if (a[i]) {
k++;
if (k % m == 0) {
pbRun->Value++;
}
if (i * 1ll * i < n) {
for (int j = i * i; j < n; j += i) {
a[j] = false;
}
}
}
}
time = clock() - start;
MessageBox::Show("¬рем¤ выполнени¤: " + time.ToString() + " мс");
pbRun->Value = 0;
k = 0;
FileStream ^output = gcnew FileStream("primes.txt", FileMode::Create);
StreamWriter ^writer = gcnew StreamWriter(output);
String ^str = "";
for (int i = 0; k < count; i++) {
if (a[i]) {
primes[k] = i;
str = (k + 1).ToString() + " : " + i.ToString();
writer->WriteLine(str);
k++;
if (k % m == 0) {
pbRun->Value++;
}
}
}
writer->Close();
output->Close();
pbRun->Value = 0;
btnTask1->Enabled = true;
btnTask2->Enabled = true;
btnTask3->Enabled = true;
}