@Official_AKT Telegram kanali 22-3.
Delphi dasturlash tilida kiritilgan so„zning 1-belgisini chiqaruvchi dastur tuzing
Bitta edit, 2ta label va 1ta button o‟rnatib, buttonning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
var a:string; begin
a:=edit1.Text;
label2.Caption:=a[1];
end;
23-BILET 23.1. MOBT haqida ma‟lumot bering
Ma’lumotlar omborini boshqarish tizimi (MOBT) –foydalanuvchilar tomonidan MOni yaratish,
to„ldirish va birgalikda qo„llash uchun mo„ljallangan dasturiy vositalar tizimidir.
MOBTlariga MS Access, OpenOffice.org Base, Cache, IMS, Firebird, MySQL kabi dasturiy
vositalar misol bo„ladi.
MOBTning asosiy xususiyatlari – bu nafaqat ma‟lumotlarni kiritish va saqlashda ishlatiladigan
protseduralar tarkibi bo„lmasdan, ularning strukturasini ham tasvirlaydi. Ma‟lumotlarni o„zida
saqlab va MOBT ostida boshqariladigan fayl oldin ma‟lumotlar banki, keyinchalik esa
“Ma‟lumotlar ombori” deb yuritila boshlanadi.
23.2__ 23-3. Ekranda ichma-ich joylashgan va markazlari bir nuqtada bo„lgan 5 ta aylana chizadigan dastur
tuzing.
Bitta button o‟rnatib, uning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Canvas.Brush.Color:=clred;
form1.Canvas.Ellipse(50,50,450,450);
form1.Canvas.Brush.Color:=clblue;
form1.Canvas.Ellipse(100,100,400,400);
form1.Canvas.Brush.Color:=clyellow;
form1.Canvas.Ellipse(150,150,350,350);
@Official_AKT Telegram kanali form1.Canvas.Brush.Color:=clgreen;
form1.Canvas.Ellipse(200,200,300,300);
form1.Canvas.Brush.Color:=clgray;
form1.Canvas.Ellipse(225,225,275,275); end;
