Image1.Canvas.Font.Size:=8;
Image1.Canvas.TextOut(10,20, '8');
Image1.Canvas.Font.Size:=14;
Image1.Canvas.Font.Color:=clRed;
Image1.Canvas.TextOut(20,20, '14');
Image1.Canvas.Font.Size:=20;
Image1.Canvas.Font.Color:=clBlue;
Image1.Canvas.TextOut(40,20, '20');
Image1.Canvas.Font.Name:='Times New Roman';
Image1.Canvas.Font.Size:=30;
Image1.Canvas.Font.Color:=clGreen;
Image1.Canvas.TextOut(70,20, '30');
Image1.Canvas.Font.Size:=40;
Image1.Canvas.Font.Color:=clBlack;
Image1.Canvas.TextOut(110,20, '40');
Image1.Canvas.Font.Size:=50;
Image1.Canvas.Font.Color:=RGB(255,0,255);
Image1.Canvas.TextOut(180,20, '50');
Ilovani ishga tushirib, uning tugmasini bosamiz.
Rasmga Alisher NAvoiy rasmini tashlab ko’rsatdi, tabiatni asraylik ilovasini yaratib berdi
Uyga vazifa: 63-dars 47-bet savol va topshiriqlar
21.05.2020
O’qituvchi:
Mavzu: Nazorat ishi
Takrorlash uchun MS Excel va Ma’lumotlar ombori, Delphi bo’yicha takrorladi.MS Excel interfeysi, ikkoniyatlari va vazifalari, nimalarni ishlaganimizni, Diagramma va uning ko’rinishlari. Ma’lumotlar ombori va uning turlari, MS Access va uning interfeysi, vazifalari asosiy obyektlari ularda nimalarni bajarganligimizni aytib o’tdi.Ilovalar yaratshning zamonaviu usullari, dasturlash tillari, delphi , uning interfeysi, dastur kodi, delphi obyektlari haqida ma’lumotlarni takrorladi. Koptok ilovasi va uni qanday ishlash kerakligini tushuntirdi.
Uyga vazifa : Topshiriq.1. Kvadrat funksiyaning grafigini hosil qiling.2. MS Excel da kubning hajmini hisoblang.
23.05.2020 10-sinf informatika
Mavzu: Rasmga boshqa obyektlarni joylash mavzusida amaliy mashg’ulot
1. Yangi ilova yarating. Unda koordinata sistemasini chizing.
Koordinata o‘qlarining nomlarini va undagi sonlarni rasmga kiriting.
2. Yangi ilova yarating. Unga kompyuter faylida joylashgan rasmni
yuklang. Rasm faylining nomini rasmning o‘ng burchagiga joylang.
3. Yangi ilova yarating. Unga bir necha rangdagi ellips yoylarini
joylang. 4. Yangi ilova yarating. Unga bir necha xil doira segmentlarini joylashtiring.
5. Yangi ilova yarating. Unga ichma ich joylashgan 10 ta ellips
segmentini joylang.
I lovaga oynasiga Image obyektini joylang.
Ilova oynasining bo‘sh joyida sichqonchani ikki marta chertib, quyidagi
protsedurani kiriting.
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=10 downto 1 do
image1.Canvas.Chord(100-10*i,100-10*i,100+10*i,100+10*i, 0,100,100,0);
end;
Ilovani ishga tushiring.
Uyga vazifa: 2-3, 5-topshiriqlar 148-bet
Do'stlaringiz bilan baham: |