Mashg‘ulotlarni bajarish uchun uslubiy ko‘rsatmalar

MASHG‘ULOTLARNI BAJARISH UCHUN USLUBIY KO‘RSATMALAR

Buday ma’lumotnomalar yaratishni “Zamonaviy kompyuterlarning qurilmaviy ta’minoti bO‘yicha electron ma’lumotmoma yaratish” misolida qarab chiqamiz. Bu iarayon quyidagi etaplardan tashkil topgan:

1-ETAP. MA’LUMOTNOMANING DASTURIY VOSITADINI YARATISH

Bunday dastur zamonaviy DELPHI 7.0 dasturlash tilida tuzilgan bœlib, asosiy qismdan va ikkita qismiy dasturdan tashkil topgan, ya’ni:

- Buyurtmachining talablariga kœra qurilmaviy ta’minotni loyiќalovchi qismiy dastur;
- Buyurtmachining imkoniyatlariga kœra qurilmaviy ta’minotni loyiќalovchi qismiy dastur.
Bu dasturning tO‘liq matni quyida keltirilgan.

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Menus, Buttons;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
Label3: TLabel;
ComboBox2: TComboBox;
Label4: TLabel;
ComboBox3: TComboBox;
Label5: TLabel;
ComboBox4: TComboBox;
Label6: TLabel;
ComboBox5: TComboBox;
Label7: TLabel;
ComboBox6: TComboBox;
Label8: TLabel;
ComboBox7: TComboBox;
Label9: TLabel;
ComboBox8: TComboBox;
Label10: TLabel;
ComboBox9: TComboBox;
Label11: TLabel;
ComboBox10: TComboBox;
Label12: TLabel;
ComboBox11: TComboBox;
Label13: TLabel;
ComboBox12: TComboBox;
GroupBox2: TGroupBox;
Label14: TLabel;
ComboBox13: TComboBox;
Panel2: TPanel;
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
Label15: TLabel;
Label16: TLabel;
GroupBox3: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
GroupBox4: TGroupBox;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Panel3: TPanel;
BitBtn3: TBitBtn;
Label20: TLabel;
Edit6: TEdit;
Label21: TLabel;
Label22: TLabel;
Edit7: TEdit;
Edit8: TEdit;
N5: TMenuItem;
N6: TMenuItem;
procedure ComboBox1Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure ComboBox4Change(Sender: TObject);
procedure ComboBox5Change(Sender: TObject);
procedure ComboBox6Change(Sender: TObject);
procedure ComboBox7Change(Sender: TObject);
procedure ComboBox8Change(Sender: TObject);
procedure ComboBox9Change(Sender: TObject);
procedure ComboBox10Change(Sender: TObject);
procedure ComboBox11Change(Sender: TObject);
procedure ComboBox12Change(Sender: TObject);
procedure ComboBox13Change(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var i:Integer; k:integer;
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin i:=0;
case ComboBox1.ItemIndex of
0:i:=i+56700;
1:i:=i+63000;
2:i:=i+70000;
3:i:=i+83000;
4:i:=i+88000;
5:i:=i+95000;
6:i:=i+102000;
7:i:=i+107000;
8:i:=i+110000;
9:i:=i+120000;
10:i:=i+131000;
11:i:=i+136000;
12:i:=i+132000;
13:i:=i+134000;
14:i:=i+144000;
15:i:=i+157000;
end;
if ComboBox1.ItemIndex<>-1 then ComboBox1.Enabled:=False;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ((Edit6.Text))<>'' then
begin
Edit1.Text:=FloatToStr(i);
Edit2.Text:=FloatToStr((i*(StrToFloat(Edit6.Text)))/(StrToFloat(Edit3.Text)));
Edit7.Text:=FloatToStr((i*(StrToFloat(Edit6.Text)))/(StrToFloat(Edit4.Text)));
Edit8.Text:=FloatToStr((i*(StrToFloat(Edit6.Text)))/(StrToFloat(Edit5.Text)));
end
else ShowMessage('Narxlar farkini kiriting!!!');
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
case ComboBox2.ItemIndex of
0:i:=i+45000;
1:i:=i+53000;
2:i:=i+56000;
3:i:=i+63000;
4:i:=i+87000;
5:i:=i+92000;
6:i:=i+100000;
7:i:=i+113000;
8:i:=i+124000;
9:i:=i+166000;
10:i:=i+224000;
end;