Języki programowania
Laboratorium 3  Åšrodowisko C++ Builder 1
Ćwiczenie 1
Utwórz nowy projekt. Umieść na Form1 dwa przyciski i jedną etykietę.
W Object Inspector nadaj odpowiednie nazwy w polu Caption.
Klikając podwójnie w przycisk Tekst 1, wygeneruj zdarzenie i wpisz odpowiedni kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption="Ala ma kota";
}
//---------------------------------------------------------------------------
Podobnie dla Tekst 2:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Label1->Caption="Zosia ma psa";
}
//---------------------------------------------------------------------------
Zbuduj i uruchom projekt przyciskiem Run a następnie zaobserwuj efekty działanie aplikacji.
Ćwiczenie 2
Utwórz nowy projekt. Umieść na Form1 komponenty Edit, etykietę i przycisk.
©Daniel Król  PWSZ Tarnów
Języki programowania
Laboratorium 3  Åšrodowisko C++ Builder 2
Nadaj zmień etykietę przycisku na OK.
KlikajÄ…c przycisk dwukrotnie, wygeneruj zdarzenie i wpisz kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption=Edit1->Text;
}
//---------------------------------------------------------------------------
Powy\
szy kod będzie kopiował wpisany tekst z Edit1 do Label1. Zbuduj i uruchom projekt a
następnie sprawdz
działanie programu.
Umieść na formatce komponent Panel.
W zdarzeniu Button1Click dopisz następujący kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption=Edit1->Text.ToInt();
Panel1->Width=Edit1->Text.ToInt();
}
//---------------------------------------------------------------------------
Powy\
szy kod będzie ustawiał szerokość Panel1 w zale\
ności od danych w Edit1. Funkcja
ToInt() konwertuje tekst na wartość typu int je\
eli jest on liczbÄ…, w przeciwnym wypadku
aplikacja zgłasza błąd.
Uruchom projekt i sprawdz
jego działanie wpisując liczby oraz zwykły tekst.
Zamień funkcję ToInt() na ToIntDef() która umo\
liwia wpisanie wartości domyślnej
zwracanej w razie błędu (podania tekstu).
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption=Edit1->Text.ToIntDef(0);
Panel1->Width=Edit1->Text.ToIntDef(0);
}
©Daniel Król  PWSZ Tarnów
Języki programowania
Laboratorium 3  Åšrodowisko C++ Builder 3
//---------------------------------------------------------------------------
Uruchom projekt i sprawdz
jego działanie wpisując liczby oraz zwykły tekst.
Ćwiczenie 3
Utwórz nowy projekt. Umieść na Form1 trzy suwaki ScrollBar, trzy etykiety oraz jeden
panel.
W Object Inspector dla ka\
dego suwaka ustaw właściwość Min na 0 oraz Max na 255.
Klikając podwójnie na ScrollBar1 wygeneruj zdarzenie i wpisz kod wyświetlający na
odpowiednich etykietach pozycję poszczególnych suwaków.
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
Label1->Caption=ScrollBar1->Position;
Label2->Caption=ScrollBar2->Position;
Label3->Caption=ScrollBar3->Position;
}
//---------------------------------------------------------------------------
Zbuduj i uruchom projekt. Widać \
e odświe\
enie etykiet następuje tylko podczas ruchu
pierwszego suwaka. Zamknij aplikację. Zaznacz pojedynczym kliknięciem ScrollBar2 a
następnie przejdz
do zakładki Events w Object Inspector. W polu OnChange wybierz z listy
ScrollBar1Change.
©Daniel Król  PWSZ Tarnów
Języki programowania
Laboratorium 3  Åšrodowisko C++ Builder 4
Tę samą czynność powtórz dla ScrollBar3
Wykonane czynności spowodowały powiązanie zdarzenia OnChange dla wszystkich
suwaków. Uruchom aplikację i zaobserwuj jej działanie.
Zamknij program i przejdz
do kodu funkcji ScrollBar1Change, a następnie dopisz kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
Label1->Caption=ScrollBar1->Position;
Label2->Caption=ScrollBar2->Position;
Label3->Caption=ScrollBar3->Position;
Panel1->Color=RGB(ScrollBar1->Position,ScrollBar2->Position,ScrollBar3->Position);
}
//---------------------------------------------------------------------------
Funkcja RGB(0-255, 0-255, 0-255) zwraca wartość koloru w zale\
ności od składowych RGB.
Uruchom aplikację i zaobserwuj jej działanie.
Zadania
1. Stwórz nowy projekt. Umieść na formatce Panel i dwa suwaki oraz napisz kod
umo\
liwiający za ich pomocą regulację wysokości i szerokości panelu.
2. Stwórz nowy projekt. Umieść na formatce trzy komponenty Edit i napisz kod który
umo\
liwi za ich pomocą wpisywani składowych RGB koloru formatki. Ka\
da
składowa koloru mo\
e przyjmować wartości typu int z przedziału 0  255,
oprogramuj obsługę błędów podczas wprowadzania danych.
3. Stwórz nowy projekt. Umieść na formatce dwie etykiety Label, następnie napisz kod
wyświetlający na nich wysokość i szerokość formatki. Umieść kod w odpowiednim
zdarzeniu, aby etykiety były odświe\
ane podczas zmiany rozmiaru formatki (np. za
pomocÄ… myszy).
©Daniel Król  PWSZ Tarnów