Q o‘ L y o zma huq uq I d a u d k 06

var 

a,s:real; 

begin 

 a:=strtofloat(edit1.Text); 

 s:=a; 

 if CheckBox1.Checked then s:= s*2; 

 label1.Caption:='s='+floattostr(s); end; end. 

 

3.2.10-rasm. CheckBox tugmachasidan foydalanish 

6. Dasturning bajarilishini amalga oshirish uchun “F9” tugmasini tanlaymiz.  

7.  Hosil bo‘lgan katakchaga  (Edit1) maydoniga 5 sonini kiritamiz va  “Button1” 

tugmachasini tanlasak oynada 5 soni paydo bo‘ladi.  

8.  Agar  Edit  maydoniga  5  sonini  kiritib  “CheckBox1”  tugmachasiga  belgilash 

kiritsak oynada 10 soni paydo bo‘ladi.  

 

3.2.11-rasm. CheckBox tugmachasidan foydalanish 

---

61 

 

5. GroupBox tugmachasidan foydalanish.