Objektinis programavimas - meniu komandos

Darbo tikslas: ištirti įvairių meniu komandų panaudojimo galimybes.
Darbo aprašymas: darbo metu aprašomi ir panaudojami įvairūs programos komponentai. Pateikiamos jų savybės ir panaudojimai. Darbo metu bus ištirti komponentai: RadioButton, Button, Label Memo, MonthCalendar, DateTimePicker, ComboBox, StaticText, Edit, MainMenu, OpenDialog, SaveDialog.
mygtukas. Tai indikatorius skirtas veiksmo pažymėjimui. Komponentas pavieniui nenaudojamas, nes jis negali būti perjunginėjamas. Aš RadioButton komponentą, panaudojau atskiroms lango dalim ijungti. Pavyzdžiui pažymėjus Laikas, galima naudotis tik skiltimi laikas, o kitos yra neaktyvios.
Edit7->Enabled=true;
Edit3->Enabled=false;
Edit4->Enabled=false;
ScrollBar1->Enabled=false;
MonthCalendar1->Enabled=false;
Button5->Enabled=false;
ComboBox2->Enabled=false;
DateTimePicker1->Enabled=false;
Memo1->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;
Button – mygtuko komponentas. Turbūt dažniausiai naudojamas komponentas. Jo pagrindinė paskirtis reaguoti į įvykius programos vykdymo metu. Jį galima rasti Standart paletėje, mygtukas. Mano programoje, panaudoti mygtukai:
Laikas- parodo, koks tikslus laikas dabar yra, bei išskaido atskirai į valandas, minutes ir sekundes.
Šiandienos data – kalendoriuje parodo, šios dienos datą
Įrašyti užrašus – išsaugo tekstą, iš užrašų knygelės į norima failą.
Atidaryti užrašus – atidaro pasirinktą failą į užrašų knygelę.
Baigti darbą – uždaro programą.
Mygtukas Laikas:
TDateTime RightNow = Time();
unsigned short Hours, Minutes, Seconds, Milliseconds;
RightNow.DecodeTime(&Hours, &Minutes, &Seconds, &Milliseconds);
Edit5->Text = RightNow;
Edit6->Text = Hours;
Edit7->Text = Minutes;
Edit8->Text = Seconds;
StaticText7->Caption="Paskutinis paspaustas mygtukas: Laikas";
Mygtukas Šiandienos Data:
MonthCalendar1->ShowToday = !MonthCalendar1->ShowToday;
StaticText7->Caption="Paskutinis paspaustas mygtukas: Šiandienos Data";
Mygtukas Įrašyti užrašus
FILE *PP;
AnsiString Vardas="";
if (SaveDialog1->Execute())
{
Vardas=SaveDialog1->FileName+;
Memo1->Lines->SaveToFile(SaveDialog1->FileName+".txt");
}
StaticText7->Caption="Paskutinis paspaustas mygtukas: Įrašyti užrašus";
Mygtukas Baigti darbą:
Close();
Mygtukas Atidaryti užrašus:
AnsiString Vardas="";
if (OpenDialog1->Execute())
{
Vardas=OpenDialog1->FileName;
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
StaticText7->Caption="Paskutinis paspaustas mygtukas: Atidaryti užrašus";
StaticText – teksto komponentas. Skirtas programos formos lange rodyti papildomą informaciją. Komponentui galima keisti rėmelio tipą, spalvą, išvedamo teksto dydį, spalva, šriftą.
Aš programoje StaticText panaudojau, kaip indikatorių, kuris parodo, kuris mygtukas buvo paspaustas paskutinis. Tai atliekama, kiekvieno mygtuko paspaudimui priskiriant, StaticText laukelio antraštės pakeitimui į norimą.
Edit – redagavimo komponentas, skirtas saugoti tekstui, kuris užrašomas šiame lange. Komponentą galima rasti Standart komponentų paletėje, mygtukas.
Savo programoje Edit laukelius panaudojau, laiko, bei pasirinktų skaičių rodymui ir skaičių įvedimui.
Label – etiketės komponentas. Šiuo komponentu yra parodomi papildomi užrašai Form lange. Jį galima rasti Standart komponentų paletėje, mygtukas. Galima keisti, jo šrifta, dydį spalvą, fono spalvą ir daug kitų parametrų
Mano programoje Label komponentas panaudotas kaip...

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!