1-misol. Hisoblang: y= agar x>0 , y= agar x<0, y=х agar x=0.
Bu tajriba ishida RadioGroup, Lable, Edit, Button komponentlaridan foydalaniladi. Edit lar soni foydalanuvchining nechta o‘zgaruvchi kiritishiga bog‘liq. Button1 Y ning qiymatini hisoblash uchun zarur, RadioGroup komponentasida Edit1 komponentasiga kiritilgan x ning qiymatiga ko‘ra x>0, x<0, x=0 shartlarini tanlash tugmalari o‘rnatiladi. Tanlash tugmalarini o‘rnatish uchun RadioGroup ning Items xossasi ochiladi va String List Editor oynasida 3ta shart yozilgan qatorlar kiritiladi(4-rasm):
4-rasm. String List Editor oynasi
Dastur kodi:
//-------------------------------------------------------------------
#include
#include
#pragma hdrstop
#include “Unit15.h”
//-------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource “*.dfm”
Tform1 *Form1;
//-------------------------------------------------------------------
__fastcall Tform1::Tform1(Tcomponent* Owner)
: Tform(Owner)
{
}
//-------------------------------------------------------------------
Do'stlaringiz bilan baham: |