Borland C++ -де ListBox жəне ComboBox компоненттері жолдар тізімінен тұрады. ListBox компоненті ашық түрдегі тізімді бейнелейді, ал ComboBox компоненті жиналмалы түрдегі, төмен қарай ашылатын тізімнен тұрады. Екі компоненттің де жолдар тізімінен тұратын TStrings типті Items қаС#еті болады. Тізімнен таңдалған элементтің индексі ItemIndex қаС#еті арқылы көрсетіледі. Ол 0-ден бастап бүтін сандармен нөмірленеді. Егер ешқандай элемент таңдалмаса, онда ItemIndex қаС#етінің мəні -1-ге тең болады.
Мысал: Бұл бағдарлама мəліметтерді мəтіндік файлдан оқудың қолданылуын
көрсетеді. Бағдарлама Ауа райы бағдарламасының meteo.txt файлының құрамындағы
мəліметтерді Memo компонентінің өрісіне шығарады жəне орташа айлық
температураны есептейді.
Бағдарлама формасы:
#include
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int GetString( int f, AnsiString *st);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ComboBox1->Style = csDropDownList;
ComboBox1->Items->Add("Қаңтар") ;
ComboBox1->Items->Add ("Ақпан") ;
ComboBox1->Items->Add("Наурыз") ;
ComboBox1->Items->Add("Сəуір");
ComboBox1->Items->Add("Мамыр") ;
ComboBox1->Items->Add("Маусым") ;
ComboBox1->Items->Add ("Шілде") ; ComboBox1->Items->Add("Тамыз") ; ComboBox1->Items->Add ("Қыркүйек") ; ComboBox1->Items->Add("Қазан"); ComboBox1->Items->Add("Қараша"); ComboBox1->Items->Add ("Желтоқсан") ; ComboBox1->ItemIndex = MonthOf( Now() ) -1 ; }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int h;
h = FileOpen("meteo.txt",fmOpenRead);
if ( h == -1)
{
ShowMessage ("meteo.txt мəліметтер файлы табылмады");
return;
}
Memo1->Lines->Clear();
AnsiString st;
int ls;
TDateTime aDate;
float temp;
int nMonth;
int n = 0;
float sum =0;
float sred;
AnsiString buf;
do
{
ls = GetString(h,&st) ;
if ( ls != 0)
{
nMonth = MonthOf(StrToDate(st)) - 1;
buf = st;
ls = GetString(h,&st);
temp = StrToFloat(st);
if ( nMonth == ComboBox1->ItemIndex )
{
n++;
sum = sum + temp;
buf = buf + " " + st;
Memo1->Lines->Add(buf);
}
}
}
while ( ls != 0);
FileClose(h);
if ( n != 0 )
{
sred = sum / n;
Label1->Caption = "Орташа мəні: " + FloatToStrF(sred,ffGeneral,3,2);
}
else
Label1->Caption = "Мəліметтер базасында мынадай күннің температурасы туралы ақпарат жоқ" + ComboBox1->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
Label1->Caption - "" ;
Memo1->Text = "" ;
}
//---------------------------------------------------------------------------
int GetString(int f, AnsiString *st)
{
unsigned char buf[256];
unsigned char *p = buf;
int n;
int len = 0;
do
n = FileRead(f, p, 1);
while ( (n != 0) && (*p == ' '));
-
while
|
(( n !=
|
0
|
)&&( *p !=' '))
|
{
|
|
|
|
if (
|
*p == '\r')
|
|
{
|
|
|
|
n = FileRead(f,
|
p,
|
1);
|
break;
|
|
|
}
|
|
|
|
len++;
|
|
|
p++;
|
|
|
|
n = FileRead(f,
|
p,
|
1) ;
|
}
|
|
|
|
*p='\0';
if (len!=0)
st->printf("%s",buf);
return len;
}
Əдебиеттер: [1]- [4]
13- апта
1- кредит сағат.
Тақырыбы: Borland C++ де Windows-тың менюін жасау жəне кестелік ақпаратпен жұмыс. System парағының компоненттері.
Дəріс мазмұны:
Негізгі меню жасаудың Main Menu
Жанама меню жасаудың Popup Menu компоненттері
3.Кестелік ақпаратпен жұмыс істеудің StringGrid компоненті жəне оның қаС#еттері.
System парағы (9-сурет) таймер, DDE, OLE жəне т.б. типтi жүйелiк сервис типтерiне қол жетуге арналған компоненттер жиынын ұсынады.
9-сурет. Палитра компонентінің System парағы
TTimer - таймер, OnTimer оқиғасы Interval қаС#етiнде көрсетiлген уақыт аралығында периодты түрде шақырады. Уақыт периоды 1-ден 65535 мс-ке дейiнгі аралықты қабылдайды.
TPaintBox – сурет салу орны. Тышқанмен байланысты оқиғалар өңдегiшiне форманың абсолют мəнi емес, тышқанның TPaintBox- ғы салыстырмалы координаттары берiледi.
TMediaPlayer – мультимедиялық құрылғыларды (CD-ROM, MIDI типтi жəне т.б.) басқару үшiн арналған. Play, Stop, Record жəне т.б. батырмалармен берiлген басқару панелi түрiнде орындалған. Оны iске қосу үшiн сəйкес құрылғы жəне бағдарламалық қамтамасыздандыру (ПҚ) қажет. Құрылғыларды қосу жəне ПҚ орнату Windows ортасында жүзеге асады. Мысалы, AVI форматта жазылған бейненi қосу үшiн MicroSoft Video ПҚ орнату қажет.
TOLEContainer - OLE объектiлердi қамтитын контейнер.
Негізгі меню жасаудың Main Menu компоненті. Меню пунктінің негізгі қаС#еттері: Bitmap,Caption, Visible, Items,Enabled. Меню пунктін белсенді етудің ShortCut қаС#еті. Пункт таңдалғандығын анықтаудың Checked қаС#еті. Менюге ішкі меню жасау командасы.
Контекстік меню жасаудың Popup Menu компоненті. Компоненттің AutoPopup, Popup, Alignment қаС#теттері. Контекстік меню жасау үшін атқарылатын іс- əрекет.
Достарыңызбен бөлісу: |