procedure - O’zbekiston Respublikasi Oliy Ta’lim, Fan va Innovatsiyalar Vazirligi Andijon Viloyati Boshqarmasi Asaka...

|
O’zbekiston Respublikasi Oliy Ta’lim, Fan va Innovatsiyalar Vazirligi Andijon Viloyati Boshqarmasi Asaka 1-son kasb-hunar maktabi
|
bet | 11/13 | Sana | 28.05.2024 | Hajmi | 43,67 Kb. | | #256312 |
Bog'liq Abdumalikova M Delphi dasturlash tiliprocedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Button2Click(Sender);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=10;
Randomize;
i:=Random(n);
Randomize;
j:=Random(n);
Label1.Caption:=IntToStr(i);
Label2.Caption:=IntToStr(j);
Label8.Caption:=IntToStr(0);
Label9.Caption:=IntToStr(0);
end;
end.
28
XULOSA
Hozirgi zamonaviy axborot kommunikatsion texnologiyalari behad
rivojlangan davrga kelib, jamiyat ahlining deyarli barcha qatlami axborot
kommunikatsion texnologiyalaridan keng foydalanmoqda. Shunday yo’nalishlar
qatoriga muhandisslik, iqtisodiyot, statistika kabi yo’nalishlarni kiritish mumkin.
Mazkur kurs ishida berilgan nazariy va amaliy topshiriqlar bilan ishlash
natijasida Delphi dasturlash tilida foydalaniladigan Edit, Label, StatusBar, va
BitBtn komponentlari taxlil etildi. Natijada esa, to’qqizgacha bo’lgan sonlarning
ko’paytmasini topuvchi intelektual o’yin dasturi yaratildi.
Mazkur dasturni yaratishda mantiqiy amallar va dasturlash texnologiyasi
bo’yicha bilimlarim yanada rivojlandi.
29
FOYDALANILGAN ADABIYOTLAR
1. Informatika va axborot texnologiyalari: Oliy ta`lim muassasalari talabalari
uchun darslik S.S. G`ulomov, B.A. Begalov; O`z.R Oliy va o`rta maxsus ta’lim
vazirligi, Toshkent Davlat Iqtisodiyot Universiteti.-T.: Fan,2010.-704 bet
2. Informatika. Akademik S.S.G’ulomov umumiy tahriri ostida. Darslik.
Toshkent. – TDIU, 2007.
3. Alimov R, Hodiyev B. “Milliy iqtisodda axborot tizimlari va
texnologiyalari”, Т.: “Sharq”-2004.
4. Фленов М. Е. Библия Delphi. — 2-е изд. БХВ-Петербург – 2008.
5.
http://www.ziyonet.uz
– Ziyonet axborot resurs portali.
6.
http://moodle.andmiedu.uz
– AndMI masofaviy ta’lim tizimi.
30
ILOVA
object Form1: TForm1
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Topgan topaloq...'
ClientHeight = 271
ClientWidth = 245
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 144
Top = 8
Width = 93
Height = 19
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
31
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 144
Top = 48
Width = 93
Height = 19
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 8
Width = 88
Height = 19
Caption = 'Birinchi son:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
32
Left = 8
Top = 48
Width = 91
Height = 19
Caption = 'Ikkinchi son:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 8
Top = 143
Width = 50
Height = 19
Caption = 'To'#39'g'#39'ri:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 8
Top = 179
Width = 65
Height = 19
33
Caption = 'Noto'#39'g'#39'ri:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 144
Top = 143
Width = 93
Height = 19
Alignment = taCenter
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 144
Top = 179
Width = 93
Height = 19
Alignment = taCenter
AutoSize = False
BiDiMode = bdLeftToRight
34
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
end
object Label10: TLabel
Left = 8
Top = 247
Width = 229
Height = 24
Alignment = taCenter
AutoSize = False
Caption = 'AndMI, MYaMT 131_14 - 2015 yil'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 8
Top = 79
Width = 229
Height = 21
Alignment = taRightJustify
TabOrder = 0
35
Text = '0'
OnKeyPress = Edit1KeyPress
end
object Button1: TButton
Left = 8
Top = 106
Width = 229
Height = 25
Caption = 'OK'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 8
Top = 216
Width = 229
Height = 25
Caption = 'Yakunlash'
TabOrder = 2
OnClick = Button2Click
|
|
Bosh sahifa
Aloqalar
Bosh sahifa
O’zbekiston Respublikasi Oliy Ta’lim, Fan va Innovatsiyalar Vazirligi Andijon Viloyati Boshqarmasi Asaka 1-son kasb-hunar maktabi
|