Лаборатория иши топшириқлари мавзу: Кичик лойиҳалар яратиш: Матнли майдонга парол киритиш, сатрларга қайта ишлов бериш

7.2- расм. Series қўшиш ойнаси.


2-қадам. Формага dataGridView, listBox ва button компоненталари жойлаштирилади. Уларнинг хеч қандай хосаси ўзгартирилмайди.


3-қадам. Форманинг load ходиссаси кодлари қуйидагича:
DataTable ^ Таблица;
private: System::Void Form1_Load(System::Object^ sender, System::EventArgs^ e) {chart1->Titles->Add("Oylar bo'yicha sotib olingan maxsulotlar soni va sof daromat");
listBox1->Items->Add("Pie");
listBox1->Items->Add("Line");
this->Text = "Grafik ma'lumotlar";
Таблица = gcnew DataTable();
//Ushbu jadvalda 2 ta ustun "Oy"va "Sotib olingan //max.soni":
Таблица->Columns->Add("Oy", String::typeid);
// В C#: Таблица.Columns.Add("Месяц", //typeof(String));
//2-ustun bo'yicha ma'lumotlar long tipida bo'lasi:
Таблица->Columns->Add("Sotib olingan max.soni", Int64::typeid); Таблица->Columns->Add("Xarajatlar", Int64::typeid);
Таблица->Columns->Add("Daromat", Int64::typeid); Таблица->Columns->Add("Sof daromat", Int64::typeid);
// В C#: Таблица.Columns.Add("Объем продаж", typeof(long));
//Jadvalning 1- qatorini to'ldiramiz:
DataRow ^ Ряд = Таблица->NewRow();
Ряд["Oy"] = "May"; Ряд["Sotib olingan max.soni"] =10; Ряд["Xarajatlar"] =3; Ряд["Daromat"] =15;
Ряд["Sof daromat"] =Convert::ToInt64(Ряд["Daromat"])-Convert::ToInt64(Ряд["Xarajatlar"]);
//Convert::ToInt64( dataGridView1->Rows[0]->Cells[0]->Value);
Таблица->Rows->Add(Ряд);
//Jadvalning 2- qatorini to'ldiramiz:
Ряд = Таблица->NewRow();
Ряд["Oy"] = "Iyun"; Ряд["Sotib olingan max.soni"] = 20; Ряд["Xarajatlar"] =5; Ряд["Daromat"] =25;
Ряд["Sof daromat"] =Convert::ToInt64(Ряд["Daromat"])-Convert::ToInt64(Ряд["Xarajatlar"]);
Таблица->Rows->Add(Ряд);
//3- qatorni qo'shamiz:
Ряд = Таблица->NewRow();
Ряд["Oy"] = "Iyul"; Ряд["Sotib olingan max.soni"] = 30; Ряд["Xarajatlar"] =10; Ряд["Daromat"] =35;
Ряд["Sof daromat"] =Convert::ToInt64(Ряд["Daromat"])-Convert::ToInt64(Ряд["Xarajatlar"]);
Таблица->Rows->Add(Ряд);
//4- qatorni qo'shamiz:
Ряд = Таблица->NewRow();
Ряд["Oy"] = "Avgust"; Ряд["Sotib olingan max.soni"] = 40; Ряд["Xarajatlar"] =15; Ряд["Daromat"] =45;
Ряд["Sof daromat"] =Convert::ToInt64(Ряд["Daromat"])-Convert::ToInt64(Ряд["Xarajatlar"]);
Таблица->Rows->Add(Ряд);
//5- qatorni qo'shamiz:
Ряд = Таблица->NewRow();
Ряд["Oy"] = "Sentyabr"; Ряд["Sotib olingan max.soni"] = 50; Ряд["Xarajatlar"] =20; Ряд["Daromat"] =55;
Ряд["Sof daromat"] =Convert::ToInt64(Ряд["Daromat"])-Convert::ToInt64(Ряд["Xarajatlar"]);
Таблица->Rows->Add(Ряд);
dataGridView1->DataSource = Таблица;
chart1->DataSource = Таблица;
chart1->Series["Series1"]->XValueMember = "Oy";
chart1->Series["Series2"]->XValueMember = "Oy";
chart1->Series["Series1"]->YValueMembers = "Sotib olingan max.soni";
chart1->Series["Series2"]->YValueMembers = "Sof daromat";
chart1->Series["Series1"]->ChartType = System::Windows::Forms::DataVisualization::Charting::SeriesChartType::Column;
chart1->Series["Series2"]->ChartType = System::Windows::Forms::DataVisualization::Charting::SeriesChartType::Column;
// Diogrammaning turi quyidagicha bo'lishi ham //mumkin. masalan: Pie, Line va bohqa.
chart1->Series["Series1"]->Color = Color::Aqua; chart1->Series["Series2"]->Color = Color::Yellow;
chart1->DataBind();} }