Lucrarea nr.8
Componenta RadioButton:
-> Se realizează formularul din dreapta:
-> Se cer următoarele:
- La apăsarea butonului „Deci?” (Button1) se vor reactualiza cele două componente Label cu textul: pentru Label1 vom avea “Culoarea preferată este: “ şi culoarea selectată, pentru Label2 vom avea “Gustul preferat este : “ şi gustul selectat, De exemplu “ Culoarea preferată este : Roşu”, “Gustul preferat este : Dulce”
- Toate setările să se realizeze dinamic.
Rezolvare:
Se aduc pe formular componentele în ordinea următoare:
- GroupBox1 pentru Culoare, GroupBox2 pentru Gust,
- Butonul Button1 pentru Deci ?,
- Label1 şi Label2 pentru rezultate,
- RadioButton 1,2 şi 3 pentru Roşu, Verde şi respectiv Albastru,
- RadioButton 4,5 şi 6 pentru Dulce, Acru şi respectiv Amar.
Atenţie! Manual nu se va face decât aranjarea obiectelor pe formular. Modificarea proprietăţilor componentelor se va face dinamic la evenimentul FormCreate.
- Se generează evenimentul OnCreate al formularului şi se completează după cum urmează:
- Caption pentru formular va fi “Aplicatia mea”,
- Caption pentru Groupbox 1 şi 2,
- Caption pentru RadioButton 1, 2, 3, 4, 5 şi 6,
- Caption pentru Button1 cu &Deci?,
- Default pentru Button1 cu True,
- Kind pentru BitBtn1,
- Width pentru RadioButton 1, 2, 3, 4, 5 şi 6 de 65 de puncte,
- Checked pentru RadioButton 1 şi 4 pe True,
- Se generează evenimentul OnClick pentru Button1 şi se completează :
- Se declară variabilele Culoare şi Gust de tip String,
- Dacă Roşu este selectat (proprietatea Checked a componentei RadioButton1 este True) atunci variabila Culoare ia valoarea culorii selectate (Captionul componentei RadioButton1),
- Dacă Verde este selectat (proprietatea Checked a componentei RadioButton2 este True) atunci variabila Culoare ia valoarea culorii selectate (Captionul componentei RadioButton2),
- La fel pentru Albastru,
- Dacă Dulce este selectat (proprietatea Checked a componentei RadioButton4 este True) atunci variabila Gust ia valoarea gustului selectat (Captionul componentei RadioButton4),
- La fel pentru Acru,
- La fel pentru Amar,
- Eticheta 1 ia valoarea : “Culoarea preferata este :” + variabila Culoare,
- Eticheta 2 ia valoarea : “Gustul preferat este :” + variabila Gust.
Componenta RadioGroup:
-> Să se realizeze aplicaţia următoare unde:
- Primul este GroupBox, al doilea este RadioGroup,
- Setările se vor face dinamic,
- La apăsarea butonului Vis se va afişa un mesaj cu caracteristicile şi culoarea de păr ale prietenei ideale.
Rezolvare:
- Se aduc pe formular un GroupBox, un RadioGroup şi un Button,
- Pe GroupBox se aduc CheckBox 1, 2, şi 3,
- Se face aranjarea lor ca în figură, fără a face alte setări.
- Se generează evenimentul OnCreate al formularului şi se completează cu următoarele:
- Caption-ul Aplicaţiei va fi “Prietena ideala”,
- Caption-ul pentru GroupBox va fi “Caracteristici”,
- Caption-ul pentru RadioGroup va fi “Culoarea Parului”,
- Caption-ul pentru cele trei CheckBox-uri vor fi “Frumoasa” , “Senzuala” şi “Inteligenta ”,
- Caption-ull Button-ului va fi “&Vis”,
- Default pentru Button1 va fi True;
- Pentru completarea componentei RadioGroup cu cele trei butoane se scrie codul:
with RadioGroup1.Items do
begin
Add (‘&Blonda’);
Add (‘Br&uneta’);
Add (‘&Roscata’);
end;
sau
RadioGroup1.Items.Add (‘&Blonda’);
RadioGroup1.Items.Add (‘Br&uneta’);
RadioGroup1.Items.Add (‘&Roscata’);
- Pentru a selecta implicit butonul al treilea se foloseşte instrucţiunea:
RadioGroup1 . ItemIndex: =2;
- Se generează evenimentul OnClick al componentei Button şi se completează cu următoarele:
- Se declară variabila locală Rezultat de tip string,
- Se iniţializează variabila Rezultat cu ‘Prietena mea va fi ’,
- Dacă CheckBox1 este bifat atunci la variabila rezultat se adaugă ‘Frumoasa ‘, dacă nu se adaugă ‘Urata ’, adică
Rezultat:=Rezultat + ‘Urata’;
- Se trece la linie nouă, adică
Rezultat:=Rezultat + #13#10;
- Dacă CheckBox2 este bifat atunci la variabila rezultat se adaugă ‘Senzuala ‘, dacă nu se adaugă ‘Nesenzuala ’,
- Se trece la linie nouă, adică
Rezultat:=Rezultat + #13#10;
- Dacă CheckBox3 este bifat atunci la variabila rezultat se adaugă ‘Inteligenta ‘, dacă nu se adaugă ‘Proastă ’,
- Se trece la linie nouă, adică
Rezultat:=Rezultat + #13#10;
- Pentru tratarea RadioGroup-ului se foloseşte o instrucţiune Case care selectează o instrucţiune din listă în funcţie de valoarea unei variabile:
case RadioGroup1.ItemIndex of
0:Rezultat:=Rezultat + ‘Blonda’;
1:Rezultat:=Rezultat + ‘Bruneta’;
2:Rezultat:=Rezultat + ‘Roscata’;
end; {case}
- Se cere afişarea unui mesaj cu textul conţinut în variabila Rezultat.
Observaţie:
Setările pentru RadioGroup se pot face şi static. Cum?
Exerciţiu:
Să se realizeze o aplicaţie care să satisfacă funcţiile de memorie, sumă, diferenţă, înmulţire, împărţire, radical şi procent ale unui calculator de buzunar.