Podobne
- Strona startowa
- Van Roy Peter, Haridi Seif Concepts, Techniques, and Models of Computer Programming
- (ebook pdf) Teach Yourself Database Programming with Visual C in 21 days
- [eBook] DirectX 3D Graphics Programming Bible
- (ebook PDF) Schreiner Object oriented Programming With A
- Teach Yourself Database Programming with Visual C in 21 Da
- Advanced 3D Game Programming with DirectX 9
- Program Swiatowej Polityki Zydo
- Programming Windows Games in Borland C
- White Stephen Program (2)
- eBooks.PL.AutoCad.2005. .Podrecznik.Uzytkownika
- zanotowane.pl
- doc.pisz.pl
- pdf.pisz.pl
- mieszaniec.xlx.pl
Cytat
Do celu tam się wysiada. Lec Stanisław Jerzy (pierw. de Tusch-Letz, 1909-1966)
A bogowie grają w kości i nie pytają wcale czy chcesz przyłączyć się do gry (. . . ) Bogowie kpią sobie z twojego poukładanego życia (. . . ) nie przejmują się zbytnio ani naszymi planami na przyszłość ani oczekiwaniami. Gdzieś we wszechświecie rzucają kości i przypadkiem wypada twoja kolej. I odtąd zwyciężyć lub przegrać - to tylko kwestia szczęścia. Borys Pasternak
Idąc po kurzych jajach nie podskakuj. Przysłowie szkockie
I Herkules nie poradzi przeciwko wielu.
Dialog półinteligentów równa się monologowi ćwierćinteligenta. Stanisław Jerzy Lec (pierw. de Tusch - Letz, 1909-1966)
[ Pobierz całość w formacie PDF ]
.4.nastÄ™pnie dwukrotnie klikamy na formularzu przycisk Zaczniji podpinamy zwiÄ…zanÄ… z nim procedurÄ™ procedurÄ™TForm1.Button1Click(Sender: TObject) z nastÄ™pujÄ…cymkodem:procedure TForm1.Button1Click(Sender: TObject);varlitera : Char;liczba : Integer;pomiar : Real;beginlitera:='A';liczba:=120;pomiar:=78.231;Copyright by Wydawnictwo ZÅ‚ote MyÅ›li & MirosÅ‚aw J.Kubiak PROGRAMUJ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po wiÄ™cejÏ% str.48MirosÅ‚aw J.KubiakEdit1.Text:=litera;Edit2.Text:=IntToStr(liczba);Edit3.Text:=Format('%2.2f', [pomiar]);end;5.W ostatnim etapie dwukrotnie klikamy przycisk ZakoÅ„czi w procedurzeprocedure TForm1.Button2Click(Sender: TObject)umieszczamy nastÄ™pujÄ…cy kod:procedure TForm1.Button2Click(Sender: TObject);beginEdit4.Text:='Koniec programu';end;Kilka słów wyjaÅ›nienia poÅ›wiÄ™cimy nastÄ™pujÄ…cym linijkom kodu:Edit2.Text:=IntToStr(liczba);Edit3.Text:=Format('%2.2f', [pomiar]);Zapis Edit2.Text:=InttoStr(liczba) oznacza, że aby w polu Edit2mogÅ‚a siÄ™ pojawić zmienna liczba, to musi na niej zostać wykonanakonwersja typu przy pomocy procedury IntToStr.WiÄ™cej informacjina temat systemowych procedur konwersji typu znajdzie czytelnikw Dodatku na koÅ„cu książki.Copyright by Wydawnictwo ZÅ‚ote MyÅ›li & MirosÅ‚aw J.Kubiak PROGRAMUJ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po wiÄ™cejÏ% str.49MirosÅ‚aw J.KubiakZapis Edit3.Text:=Format('%2.2f', [pomiar]) oznacza, że abyw polu Edit3 mogÅ‚a siÄ™ pojawić zmienna pomiar typurzeczywistego, musi ona zostać najpierw poddana formatowaniu.WiÄ™cej informacji na temat formatowania Å‚aÅ„cuchów tekstowychznajdzie Czytelnik w Dodatku.Poniżej znajduje siÄ™ caÅ‚y program napisany w Delphi (P02).unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes,Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTForm1 = class(TForm)Panel1: TPanel;Panel2: TPanel;Edit1: TEdit;Edit2: TEdit;Edit3: TEdit;Button1: TButton;Button2: TButton;Panel3: TPanel;Edit4: TEdit;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;Copyright by Wydawnictwo ZÅ‚ote MyÅ›li & MirosÅ‚aw J.Kubiak PROGRAMUJ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po wiÄ™cejÏ% str.50MirosÅ‚aw J.Kubiakimplementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);varlitera : Char;liczba : Integer;pomiar : Real;beginlitera:='A';liczba:=120;pomiar:=78.231;Edit1.Text:=litera;Edit2.Text:=IntToStr(liczba);Edit3.Text:=Format('%2.2f', [pomiar]);end;procedure TForm1.Button2Click(Sender: TObject);beginEdit4.Text:='Koniec programu';end;end.C++ BuilderPo zadeklarowaniu zmiennej, przy użyciu operatora przypisania(oznaczonego znakiem równoÅ›ci =) możemy przypisać jejodpowiedniÄ… wartość.Ogólna postać instrukcji przypisania jestnastÄ™pujÄ…ca:nazwa_zmiennej = wyrażenieCopyright by Wydawnictwo ZÅ‚ote MyÅ›li & MirosÅ‚aw J.Kubiak PROGRAMUJ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po wiÄ™cejÏ% str.51MirosÅ‚aw J.KubiakDo wyÅ›wietlania na ekranie wartoÅ›ci zmiennych posÅ‚użymy siÄ™polem Edit.Na formularzu wykonujemy nastÄ™pujÄ…ce czynnoÅ›ci:1.umieszczamy na nim trzy komponenty Panel, czterykomponenty Edit oraz dwa przyciski Button,2.po umieszczeniu na formularzu komponentu Panel1 należy naw Object Inspectorze zmienić we wÅ‚aÅ›ciwoÅ›ciach (Properties)w Caption Panel1 na Litera, Panel2 na Liczba oraz Panel3na Pomiar.3.po umieszczeniu na formularzu przycisku Button należyw Object Inspectorze zmienić we wÅ‚aÅ›ciwoÅ›ciach (Properties)w Caption Button1 na Zacznij i Button2 na ZakoÅ„cz.Ilustruje to rysunek poniżej.Rys.3.2.Program P02 podczas projektowania formularza.4.nastÄ™pnie dwukrotnie klikamy na formularzu przycisk Zaczniji podpinamy zwiÄ…zanÄ… z nim funkcjÄ™ void __fastcallCopyright by Wydawnictwo ZÅ‚ote MyÅ›li & MirosÅ‚aw J.Kubiak PROGRAMUJ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po wiÄ™cejÏ% str.52MirosÅ‚aw J.KubiakTForm1::Button1Click(TObject *Sender) z nastÄ™pujÄ…cymkodem:void __fastcall TForm1::Button1Click(TObject*Sender){char litera;int liczba;float pomiar;litera = 'A';liczba = 120;pomiar = 78
[ Pobierz całość w formacie PDF ]