Lucrare practică în delphi 7. Calcularea valorilor sumei finale a unei serii. Crearea unei imagini animate

Listaresubrutine

procedură TForm1. RadioButton1Click(Expeditor: TObject);

var i: întreg;

ComboBox1.Clear;

ComboBox1.Tag:= (Expeditorul ca TRadioButton).Tag;

pentru i:= 0 la 5 fac

ComboBox1.Elemente. Add(ListBox1.Items);

ComboBox1.ItemIndex:= 0;

Imagine1.Imagine. LoadFromFile(ListBox2.Items);

procedură TForm1.FormCreate(Expeditor: TObject);

RadioButton1Click(RadioButton1);

procedură TForm1.ComboBox1Change(Expeditor: TObject);

Imagine1.Imagine. LoadFromFile(ListBox2.Items);

Munca practica № 17

„Calculul dobânzii”

Scopul lucrării este de a Creați un program care face următoarele:

După pornirea programului, fereastra afișează trei câmpuri de text.
Făcând clic pe butonul Ștergere, valorile câmpului sunt șters. Apoi, noi valori sunt introduse în câmpuri. Pentru a ieși din program, faceți clic pe butonul de închidere din bara de titlu.

1. Deschideți un nou proiect.

2. Plasați instanțe ale componentelor în formularul: butonul de comandă Buton, inscripție Eticheta, câmp text Editați | ×.

Tabelul 19.

Obiectul selectat	Fila fereastră Inspector de obiecte	Numele proprietatii/ numele evenimentului	Acțiune
			Setarea numelui formularului „Calculați interesul”
			Introduceți titlul „Calcul de procente!”
			Ștergeți valoarea proprietății
			Ștergeți valoarea proprietății
			Ștergeți valoarea proprietății

		Descrieți Numărul local, Procentul, Prn

			Continuarea tabelului 19.
Obiectul selectat	Fila fereastră Inspector de obiecte	Numele proprietatii/ numele evenimentului	Acțiune
			Introduceți numele „Clear”

Fragmentprograme

Număr, Procent, Prn: Real;

procedură TForm1.Button1Click(Expeditor: TObject);

Number:=StrToFloat(Edit1.Text);

Procent:= StrToFloat(Edit2.Text);

PrN:=0,01*Procent*Număr;

Edit3.Text:=FloatToStr(PrN);

procedură TForm1.Button2Click(Expeditor: TObject);

Lucrarea practică nr. 18

„Puzzle nr. 1”

MsoTableGrid" width="657 " style="width:492.85pt;border-collapse:collapse;border:none">

Obiectul selectat

Fila fereastră

Inspector de obiecte

Numele proprietatii/

numele evenimentului

Acțiune

Setarea numelui formei „Puzzle”

Setați valoarea la bsSingle

CheckListBox1

(filă suplimentară)

Stabilim compoziția listei. Faceți clic pe butonul constructor. Se va deschide fereastra editorului String List. Intră în listă numere date prin Enter. Faceți clic pe OK.

Selectați o valoare astfel încât toate numerele să se încadreze în listă (fără bare de defilare).

Descrieți curățarea unei liste. Verificați dacă caseta de selectare este bifată sau nu. După actualizarea listei, trebuie să calculați suma numerelor selectate. Elementele din listă arată ca numere, dar sunt șiruri de text(utilizați funcția StrToInt).

			Continuarea tabelului 20.
Obiectul selectat	Fila fereastră Inspector de obiecte	Numele proprietatii/ numele evenimentului	Acțiune
ListBox1 (fila Standard)			Selectați o valoare astfel încât toate numerele să se încadreze în listă (fără bare de defilare). Inițial lista este goală. Acesta va fi completat în timp ce programul rulează.
(fila Standard)			Introdu textul: „Suma: 0”
	Setați la Fals
	Setați valoarea taCenter

4. Salvați proiectul, rulați și testați-l.

Listaresubrutine

procedură TForm1.CheckListBox1ClickCheck(Expeditor: TObject);

var i, s: întreg;

pentru i:=0 la CheckListBox1.Items. Numărătoarea-1 do

dacă CheckListBox1.Verificat[i] apoi

ListBox1.Elemente. Add(CheckListBox1.Items[i]);

pentru i:= 0 la ListBox1.Elemente. Numărați -1 do

s:= s + StrToInt(ListBox1.Items[i]);

Label1.Caption:= ‘Suma: ’ + IntToStr(s);

dacă s = 50 apoi

Label1.Caption:= ‘Suma:’ + IntToStr(s);

CheckListBox1.Enabled:= False;

ListBox1.Enabled:= False;

Lucrarea practică nr. 19

„Puzzle nr. 2”

Scopul lucrării - crea versiunea de calculator puzzle: setați toate cele cinci steaguri eliminate afișate. Dar când bifați o casetă de selectare, starea următoarelor două se schimbă.

Creați un program care face următoarele:

După pornirea programului, fereastra afișează cinci steaguri șterse. Facerea clicului este permisă numai în casetele de selectare debifate. Făcând clic pe o casetă de selectare bifată, nu are niciun efect. Când bifați o casetă de selectare, starea următoarelor două casete de selectare se schimbă. În acest caz, steagurile șterse sunt verificate, iar cele bifate sunt resetate. Pentru a ieși din program, faceți clic pe butonul de închidere din bara de titlu.

Descrierea planului de dezvoltare a programului

1. Deschideți un nou proiect.

2. Plasați instanțele componente în formularul: listă de casete de selectare Caseta de bifat, inscripție Eticheta.

3. Parcurgeți următorii pași:

Tabelul 21.

Obiectul selectat	Fila fereastră Inspector de obiecte	Numele proprietatii/ numele evenimentului	Acțiune
			Setarea numelui formularului la „Toate cele cinci”
			Creați o variabilă booleană globală s. În timpul când prelucrare in curs evenimente, variabila este True.
CheckBox1 (fila Standard)			Setați valoarea la „1”.
		Trebuie să lucrați cu casete de selectare ca o matrice. Formularul este un container pentru casete de selectare. Obiectele container au o proprietate Controls - o serie de controale situate în acest container: Controls [i] ca TCheckBox.
Puteți utiliza metoda de copiere din clipboard pentru a crea încă cinci casete de selectare.
CheckBox2			Setați valoarea la „2”.
CheckBox3			Setați valoarea la „3”.
CheckBox4			Setați valoarea la „4”.
CheckBox5			Setați valoarea la „5”.

			Continuarea tabelului 21.
Obiectul selectat	Fila fereastră Inspector de obiecte	Numele proprietatii/ numele evenimentului	Acțiune
(fila Standard)			Introdu textul: „Suma: 0”
	Setați la Fals
	Setați valoarea taCenter

4. Salvați proiectul, rulați și testați-l.

Listaresubrutine

procedură TForm1.FormCreate(Expeditor: TObject);

procedură TForm1.CheckBox1Click(Expeditor: TObject);

var Index, i, num: Integer;

dacă s apoi Ieșire; (Dacă programul apelează din nou procedura de procesare, instrucțiunea Exit va fi executată - ieșind imediat din procedură)

pentru Indice: = 0 la 4 do {declarație de pauzăîntrerupe bucla)

dacă Expeditor = comenzi[i] apoi pauză; (Detectează ce casetă de selectare a fost comutată)

(Când bucla se termină, valoarea variabilei Index corespunde steagului comutat)

(Dacă valoarea proprietății Checked este False, caseta de selectare este debifată, iar dacă True, caseta de selectare este bifată. Numărul casetei de selectare din matrice este determinat de variabila Index)

dacă nu(Controale la fel de TCheckBox).Verificat

apoi(Controale la fel de TCheckBox).Checked:= Adevărat (condiția este îndeplinită dacă caseta de selectare este acum debifată, adică a fost bifată înainte de clic)

altfel(Programare pentru a schimba starea „steaguri suplimentare”. Steagul actual este deja comutat)

num:= Index + 1; (Activați următoarele două casete de selectare)

dacă Index = 4 apoi num:= 0; (Schimbarea stării steagului zero)

(Starea casetei de selectare trebuie schimbată la opus)

(Controale la fel de TCheckBox).Verificat:= nu

(Efectuarea unei verificări în afara limitelor matricei)

num:= num + 1; dacă Index = 3 apoi num:= 0;

(Controale ca TCheckBox).Checked:= nu(Controale ca CheckBox).Verificat;

e:= Adevărat; (Puzzle-ul este rezolvat dacă toate cele cinci casete de selectare sunt bifate)

pentru i:= 0 la 4 do

e:= e și (Controls[i] ca TCheckBox).Verificat;

(După buclă, valoarea va rămâne adevărată dacă toate casetele de selectare sunt bifate)

dacă e apoi(Puzzle rezolvat)

Obiectivele lecției.

Educațional: studiați tehnologia modernă de creare a aplicațiilor prin utilizarea componentelor mediului Delphi; studiază tehnologia ADO care asigură conexiunea la baza de date Date Microsoft Acces; predați cum să proiectați o aplicație și să oferiți acces la baza de date MS Access „Children's Clinic”.

Dezvoltare: dezvoltarea capacității elevilor de a analiza, de a trage concluzii independente și, de asemenea, de a dezvolta autocontrolul și controlul reciproc.

Educațional: să promoveze formarea unor astfel de calități de personalitate ca atitudine responsabilă față de munca atribuită; atenție, capacitatea de a se exprima.

DE: Microsoft Access, Borland Delphi7, baza de date de lucru gata „Clinica Copiilor”.

Exercițiu

Exercițiu: Creați un proiect în Borland Delphi 7 și oferiți acces la baza de date Microsoft Access creată anterior „Clinica Copiilor”, folosind componentele mediului Delphi, obțineți informații din baza de date și prezentați-le sub formă de tabel.

Baza de date „Children's Clinic” a fost creată în Microsoft Access și completată cu informații (aplicație).

Sistemul informatic „Clinica Copiilor” stochează informații despre medici, pacienți, boli, instituții de îngrijire a copilului și furnizează următoarele date:

informatii despre medic (nume, specializare, vechime, salariu, job part-time);
informații despre pacient (nume, vârstă, adresă, centru de îngrijire a copilului, locul de muncă al părinților, boli cronice, vaccinări, ultima vizită la medic);
informații despre unitatea de îngrijire a copiilor (nume, adresă, număr de copii, prezența carantinei, identificați boli infecțioase, data ultimei examinări preventive).
o listă a instituțiilor pentru copii în care au fost înregistrate boli infecțioase.

Mediu de dezvoltare a proiectelor în Delphi

Delphi este un mediu de dezvoltare rapidă care folosește Delphi ca limbaj de programare. Limbajul Delphi este un limbaj puternic tipat orientat pe obiecte bazat pe Object Pascal. Mediul integrat vă permite să creați, să compilați, să testați și să editați un proiect într-un singur mediu de programare.

Lucrul la un nou proiect ,

Formular ( Formă)– în el se pune baza de dezvoltare componentele necesare, creați interfața programului. Proprietățile formularului determină aspectul acestuia: dimensiunea, poziția pe ecran, textul titlului etc.

Pentru a vizualiza și modifica valorile proprietăților formularului și ale componentelor sale, utilizați fereastra Inspector de obiecte(Inspector de obiecte) . În partea de sus a ferestrei Inspector de obiecte indică numele obiectului ale cărui valori de proprietate sunt afișate acest moment. În coloana din stânga a filei Proprietăți(Proprietăți) listează proprietățile obiectului, iar în dreapta - sunt indicate valorile acestora (Fig. 1). Inspectorul de obiecte este proiectantul formularului.

Textul sursă al modulului de dezvoltare este conținut în fereastra Editor și are titlul original Unitatea1.pas(Fig. 1). Code Explorer afișează obiectele modulului de formular (* pas), care vă permite să accesați rapid obiecte și să creați noi clase.

Orez. 1. Elemente de bază ale mediului de dezvoltare Delphi

Fișier modul formular Unitatea1.pas(Fig. 1) conține o descriere a clasei de formular (plasarea, comportamentul componentelor și funcționarea handlerelor de evenimente) și este creată automat.

Orice proiect are cel puțin șase fișiere (Tabelul 1).

tabelul 1

Fișierele principale ale proiectului

	Scop
Fișierul principal al proiectului (codul proiectului) – PROGECT.DPR	Principalul este un program în Pascal.
Primul modul de program (modul formular) UNIT.PAS	Apare automat la începutul lucrării; poate fi numit sub orice alt nume. Conține textul programului în Pascal.
Fişier forma principală(descrieri formulare) – UNIT.DFM	Folosit pentru a salva informații despre aspect forma principală.
Fișier descriere resursă – PROGECT.RES	Conține o pictogramă pentru proiect, creată automat.
Fișierul parametrilor proiectului – PROGECT.OPT	Fișier text pentru salvarea setărilor asociate acestui proiect.
Module - *.PAS	Module suplimentare. Conține textul programului în Pascal.

Dezvoltarea aplicației constă în două etape:

1. Crearea interfeței aplicației.

2. Determinarea funcționalității aplicației.

Pentru a crea o interfață, trebuie să determinați aspectul proiectului, să selectați componentele necesare în funcție de funcţionalitateși puneți-l pe formular.

Pentru a asigura funcționalitatea aplicației, trebuie să setați valorile proprietăților și procedurilor obiectelor eveniment în Object Inspector, scrieți codul programului procesarea evenimentelor.

Trebuie să setați parametrii proiectului modificați folosind comanda de meniu Proiect/Proiect de construcție. Dacă trebuie să combinați mai multe formulare sub un singur început, executați comanda Proiect/Opțiuni.

Compilarea este un proces obligatoriu - procesul de traducere a întregului program și apoi de executare. Acest proces poate fi realizat în orice stadiu al dezvoltării proiectului. Compilarea produce:

Fișier gata de executat (*exe),

Bibliotecă încărcată dinamic (*DLL).

Puteți rula proiectul din mediul Delphi cu comanda Alearga Alearga din mediul Windows (Numele aplicatiei.exe).

Crearea unei aplicații pentru lucrul cu o bază de date Access

Lucrul la un nou proiect , așa se numește aplicația în curs de dezvoltare în Delphi; începe cu crearea unui formular de pornire.

Crearea de marcaje în designerul de formulare.

1. În Object Inspector, modificați parametrii unor proprietăți: Align -> alClient, color-> clMoneyGreen, caption-> Children's clinic, font, name-> Form (Fig. 1).

2. Creați marcaje în designerul de formulare folosind componenta PageControl din fila Win32 (Tabelul 2) (Win32->PageControl).

3. În fereastra Arborele obiectelor, creați o pagină (meniu contextual->Pagină nouă). În Object Inspector, modificați parametrii numelui (Caption->Patient) (Fig. 2).

Orez. 2. Crearea de marcaje în designerul de formulare

4. În mod similar, creați marcaje ale căror nume corespund cu numele tabelelor din schema de date a bazei de date MS Access (Fig. 7).

5. Plasați componenta ADOConnection pe formular (ADO> fila ADOConnection) și configurați-o (Tabelul 2; Fig. 3).

masa 2

Valorile proprietăților componentei ADOConnection

Proprietate	Notă
PageControl	Set panouri cu marcaje. Fiecare panou poate conține propriul set de elemente de interfață și poate fi accesat făcând clic pe fila asociată acestuia.
fila Win32	Conține elemente de interfață pentru sisteme de operare pe 32 de biți sisteme Windows 2000.
LoginPromt	Fals
ConnectionString	Faceți clic pe butonul cu trei puncte (situat în câmpul cu valorile proprietății). Faceți clic pe butonul Build. În fila Furnizor de date, selectați Furnizor Microsoft Jet 4.0 OLEDB. În fila Conexiune, specificați fișierul de bază de date „Clinica pentru copii”. În plus, specificați Drepturi de acces: ReadWtite.

Pentru a activa modul asincron, trebuie să setați proprietatea ConnectOptions a componentei TADOConnection la coAsyncConnect. În acest caz, cererile noi vor fi executate fără a aștepta un răspuns de la solicitările anterioare.

Fig.3. Configurarea ADOConnection în parametrii Object Inspector

6. Plasați componenta ADOTable(ADODB) pe formular (fila ADO->ADOTable) și configurați-o (Tabelul 3; Fig. 3).

Tabelul 3

Valorile proprietăților componentelor ADOTable(ADODB).

Proprietate	Sens	Notă
Conexiune	Numele componentei ADOConnection care oferă o conexiune la baza de date
TableName	Echipa care oferă informații de la tabel specific DB	Extindeți lista situată în câmpul cu valoarea proprietății și selectați numele tabelului dorit
Activ	Adevărat
Tehnologia ADO		Aceasta este execuția sincronă/asincronă a operațiunilor cu depozitul de date. Folosind proprietatea connectoptions, puteți seta modul de conectare la depozitul de date
TADODataSet TADOCoomand		Componente comune pentru lucrul cu tehnologia ADO, vă permit să executați comenzi în limba furnizorului de date.
DataSourceObject		Magazin de date.

7. Plasați componenta DataSource pe formular (Acces la date -> fila DataSource) și configurați-o (Tabelul 4; Fig. 3)

Tabelul 4

Valorile proprietăților componentei DataSource

8. Plasați componenta DBGrid pe formular (Controale de date->fila DBGrid) și configurați-o (Tabelul 5; Fig. 3)

Tabelul 5

Valorile proprietăților componentelor DBGrid, Editare, Buton

Proprietate	Sens	Notă
Sursă de date	Numele componentei DataSource	Extindeți lista în câmpul cu valoarea proprietății și selectați numele componentei
Alinia	alClient
DBGrid		Componenta este concepută pentru vizualizarea, introducerea și editarea datelor.
Editați \| ×		Linie de intrare. Proiectat pentru a introduce, afișa sau edita o linie de text.
Buton		Butonul de comanda. Managerul de evenimente OnClick al acestei componente este de obicei folosit pentru a implementa o comandă.

9. În mod similar, creați alte coloane ale tabelului (pentru proiectul „Clinica copiilor”). Figura 4 arată rezultatul acțiunilor sarcinii finalizate corect.

10. În rubrica „Boli infecțioase înregistrate” vom efectua o cerere de date de examinare.

Pentru a face acest lucru, adăugați componenta ADOQuery(ADODB). Valorile acestei componente corespund valorilor proprietăților componentei ADOTable (ADODB). În parametrii Object Inspector, introduceți comanda SQL:

ADOQuery1.Clear:= Adevărat;

ADOQuery1.Add("SELECT DU.DU, DU_Adres.DU, DU.Inf_Zab, DU.Data_obs");

ADOQuery1.Add("FROM DU");

ADOQuery1.Add("WHERE ((DU.Data_Obs) BETWEEN (DateValue(""" + Edit1.Text + """)) AND (DateValue(""" + Edit2.Text + """)));") ;

ADOQuery1.Active:= Adevărat;

11. Plasați componentele Edit1 și Edit2 pe formular. În parametrii acestor componente vom specifica data implicită: Edit1->Text->01/01/2009; Edit2->Text->12/31/2009.

12. Așezați componenta Button pe formular (Fig. 5).

13. Creați o procedură pentru gestionarea evenimentului Click, furnizând Execuția SQL– comenzi.Procedura de procesare a evenimentului Click pe butonul „Actualizare interogare” (Button1):

procedura TF.OtClick(Expeditor: TObject);

sqlfile:TextFile;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add("SELECT DU.DU, DU.Adres_DU, DU.Inf_Zab, DU.Data_obs");

ADOQuery1.SQL.Add("FROM DU");

ADOQuery1.SQL.Add("WHERE ((DU.Data_Obs) BETWEEN (DateValue(""" + Edit1.Text +""")) AND (DateValue(""" + Edit2.Text + """))); ");

ADOQuery1.Active:= Adevărat;

AssignFile(sqlfile,"sql_instructions.txt");

Rescrie(sqlfile);

pentru i:= 0 la ADOQuery1.SQL.Count-1 do Writeln(sqlfile, ADOQuery1.SQL.Strings[i]);

CloseFile(sqlfile);

Fig.5. Fereastra de proiectare formular. Fila „Boli infecțioase înregistrate”

14. Stadiu final. Creare fisier executabil– Aplicația Project1.exe care utilizează procesul de compilare (Project/Compile ). Compilatorul generează program executabil ca aplicație de consolă. Un exemplu despre cum funcționează programul, de ex. Vederea ferestrei programului după execuție este prezentată în Fig. 6.

Fig.6. Fișier executabil – aplicația Project1.exe

Proiectul finalizat - aplicație în Delphi este prezentat în aplicație.

Literatură

Darakhvelidze P.G., Markov E.P. Programare în Delphi 7. - Sankt Petersburg: BHV - Petersburg, 2003.
Kultin N.B. Programare în Turbo Pascal 7.0 și Delphi 7. – Sankt Petersburg: BHV – Petersburg, 2007.
Petrov A. et al. Tehnologia calculatoarelor și programarea. facultate, 2008.
Internet: www.PowerBuilder.sbn

Delphi 8 pentru Microsoft. Cadru net este un mediu de dezvoltare integrat care rulează pe platforma Microsoft .NET și susține întregul ciclu de viață al dezvoltării aplicațiilor. Interfața mediului este foarte diferită de interfețele versiunilor anterioare, de exemplu din Delphi 7. Mai jos ne vom uita la crearea tipuri variate aplicații care utilizează acest instrument de dezvoltare.

Crearea unei aplicații de bază Windows Forms

După ce faceți clic pe butonul „Bună ziua, lume!” vei primi un formular.

La crearea aplicațiilor pentru Platforme Windows opțiunea poate fi selectată Aplicație de formulare VCL (Visual Component Library)., care este lăsat special pentru compatibilitate cu Versiuni anterioare Delphi. Ca într-o aplicație ca Aplicația Windows Forms, Form Designer va apărea pe desktop-ul IDE. Rețineți că proprietățile și evenimentele sunt diferite pentru instanțele obiectelor de clasă Formularul 1Și TwinForm(în acest nume vedem o discrepanță cu regulile adoptate în Delphi - așa sunt de obicei desemnate tipurile) ca TForm1Și System.Windows.Forms.Form performant funcții similare. Când creați proiecte noi, vă recomandăm să utilizați Aplicația Windows Forms, cât mai potrivit pentru platformă. Mediul de dezvoltare încarcă automat designerul de formulare și paleta de instrumente necesare, în funcție de tipul de aplicație pe care îl selectați.

Crearea unei aplicații de bază pentru formulare VCL

Scenariu pentru crearea unui tip de aplicație Aplicație Windows VCL este:

Ca rezultat al clicului pe butonul „Bună, lume!” se va primi un formular.

După cum puteți vedea din formularele de cerere de mai sus, în ciuda diferențelor minore, funcționalitatea generală este aceeași. De asemenea, rețineți că în timpul procesului de construcție a aplicației, seturile de componente disponibile pentru utilizare diferă și ele. În plus, Delphi 8 are câteva constructe de limbaj diferite în comparație cu Delphi 7, care sunt prezentate în tabel.

Principalele diferențe în sintaxa Delphi 7 și Delphi 8

Delphi 7	Delphi 8
Real48	Dubla
Absolut, Adresă, @	Nu sunt acceptate
GetMem, FreeMem, ReAllocMem	Nou, Dispose sau matrice dinamică
Tastați obiect	Clasa de tip
Fișier de orice tip, inclusiv înregistrări	Fluxuri, serializare, baze de date
Asamblare în linie sau asm cu Cuvinte cheie	Nu sunt acceptate
ExitProc	Nu sunt acceptate
FillChar, Mutare	Redefinirea variabilelor într-o buclă
PChar	String sau StringBuilder (Tipul String din .NET nu este eficient pentru operațiunile de concatenare. Folosiți tipul StringBuilder)

Suport ADO, WebBroker, InternetExpress, WebSnap și XML asociat cu componentele TXMLTransform	Nu sunt acceptate
Componente din fila Sistem: OLEContainer, DdeClientConv, DdeClientItem, DdeServerConv, DdeServerItem	Nu sunt acceptate

Crearea aplicațiilor de consolă

Cel mai simplu aplicație de consolă este creat astfel:

Mai jos este un exemplu de aplicație de consolă care, datorită directivelor ($IFDEF) va funcționa la fel de bine atunci când este compilat pe Delphi pentru .NET, Delphi 7 sau Kylix 3, producând linia corespunzătoare:

programHelloWorld;

($APPTYPE CONSOLA)

($IFDEF CLR) // Delphi pentru .NET

writeln("Bună ziua, lume .NET!");

($IFDEF WIN32) // Delphi 7

writeln("Bună ziua, lume Win32!");

($IFDEF LINUX) // Kylix

writeln("Bună ziua, lumea Linux!");

ReadLn; //a întârzia execuția

Următorul exemplu este o aplicație de consolă care funcționează cu fișiere:

1. Selectați o opțiune de meniu File=>New=>Other=>Delphi pentru .Net Projects Console Application.

2. În secțiunea de implementare a cadrului aplicației generate automat, lipiți codul.

WriteLn ("Demonstrație de lucru cu fișiere!");

AssignFile(FT, „fișier-text.txt”);

WriteLn(FT, „Bună, dezvoltator!”);

3. După salvarea și executarea proiectului, pe ecranul monitorului va apărea fereastra aplicației.

Să notăm două puncte legate de această aplicație.

În primul rând, deși documentația nu spune nimic despre imposibilitatea de a lucra cu fișiere nedactilizate, FB: fișier de word; nu se compila, dar se afișează eroarea „Caracteristică de limbă neacceptată: fișier tastat sau neînregistrat”.

În al doilea rând, instrucțiunea writeln imprimă cu succes un șir pe ecran Limba rusă, dar cu o încercare similară de a afișa într-un fișier, pagina de cod a textului rezultat se dovedește a fi diferită. Când lucrezi cu fișiere text Nu există probleme cu paginile de cod.

Crearea aplicațiilor de baze de date

Următorul scenariu descrie cum să construiți o aplicație ADO.NET care utilizează șablonul Aplicație Windows Forms și tehnologie nouă BDP.NET, care include componentele necesare pentru a construi aplicații de baze de date:

Când mutați o aplicație pe alt computer, este important ca baza de date employee.gdb să fie situată într-o locație specifică (de exemplu, d:/data) - altfel va trebui să redefiniți instanța componentei bdpConnection1.

Alinierea tabelului în raport cu formularul se poate face folosind proprietăți AncorăȘi Dock.

Când adăugați legături către un proiect cu comanda Adăugați referință... Nu sunt permise spații în traseu.

Crearea de aplicații ASP .NET

cometariu. Dacă doriți să instalați Delphi 8 pentru a crea aplicații ASP .NET, Internet Information Services trebuie să fie deja instalat pe computer. Dacă ISI a fost instalat după Delphi 8, atunci pt funcţionare corectă Aplicațiile ASP .NET ar trebui să introducă comanda:

aspnet_regiis.exe /i

Pentru a crea aplicații ASP .NET:

La proiectarea acestei aplicații, au apărut două lucruri. caracteristici funcționale, caracteristică tehnologiilor ASP .NET, care erau absente în tehnologiile de dezvoltare a aplicațiilor Web înainte de Delphi 8. În primul rând - ASP .NET vă permite să creați doar aplicații DLL, dar în cazul combinării depanării prin IIS și a depanării în mediul de dezvoltare, constantă apelurile la utilitar nu sunt necesare iisreset.exe pentru a permite traducerea următoarei versiuni a bibliotecii dinamice.

Al doilea este că, în același timp, în cazul definirii unei variabile globale, așa cum s-a făcut în proiectul în cauză, atunci când resursa este apelată din nou, valoarea ei anterioară este salvată, iar resetarea acesteia se poate face numai folosind utilitare precum iisreset.exe.

Pentru transfer a acestui proiect pe o altă mașină, trebuie să copiați directorul HelloWorld în directorul corespunzător, descris în IIS ca un director virtual.

Apăsând butonul Crea, trebuie să faceți din directorul menționat directorul aplicației (figura de mai sus arată fereastra pentru proprietățile directorului HelloWolrd din Windows 2000 Advanced Server). După parcurgerea acestor pași, aplicația Web poate fi apelată mașină locală echipă

1. Calculul unei funcții specificate în mod explicit. Do program și consolă versiunea programului, calculând valoarea funcției. Implementați o verificare a domeniului pentru această funcție. Utilizați componentele Label, Edit, Button, BitBtn, LabeledEdit. Desenați o pictogramă în (ImageEditor) și utilizați-o în program. Selectați imaginile cursorului corespunzătoare. Faceți posibilă modificarea transparenței formularului (AlphaBlend). Schimbați tipul chenarului formularului, setările fontului și culoarea de control. Folosiți indicii. Utilizați ShowMessage pentru a raporta erori.

2. Determinarea dacă un punct aparține unei zone închise.

Sarcina: Scrieți un program pentru a determina dacă punct de referință in aceasta zona.

Utilizați componente: Image, MainMenu, PopupMenu, Checkbox, RadioButton și ActionList.

Implementați o verificare software pentru corectitudinea introducerii datelor.

3. Calculul valorilor sumei finale a seriei.

Sarcină: Calculați suma unei serii de puteri. Folosiți mai multe forme. Plasați condițiile pe primul formular, datele rămase și funcționalitatea pe alte formulare.

Utilizați componente: Shape, Bevel, Splitter.

Folosiți formulare în modul modal si in normal. Folosiți șabloane de formular, plasați-le în stocarea obiectelor.

4. Prelucrarea tablourilor unidimensionale.

Scrieți un program pentru accesarea unui vector de date.

Sarcină: Împărțirea datelor numerice ale unui vector dat la suma celui mai mare și cel mai mic. obține un nou vector de numere.

Utilizați componente: Memo, ListBox.

5. Prelucrarea tablourilor bidimensionale (matrici).

Utilizați: PageControl, StringGrid, Marcaje, încercați... cu excepția blocării.

Sarcină: Ordonați rândurile unei anumite matrice de numere în ordinea descrescătoare a elementelor dintr-o anumită coloană.

6. Procesarea șirurilor.

Lucrul cu date șiruri.

Utilizați componente: ImageList, RichEdit, ToolBar.

Sarcină: obțineți o nouă linie schimbând primul și ultimul „cuvânt”. Utilizați funcții sau proceduri, precum și module.

7. Desenați un grafic al funcției date.

Utilizare: OnResize, ClientHeight, ClientWidth, OLEContainer, TEdit, Chart.

8. Creați o imagine animată.

Cerințe pentru program: Doi se mută cu la viteze diferite obiect. Unul ca procedură prin desenarea unor arce individuale, linii folosind metoda punctului de bază. Plasați cel de-al doilea desen în ImageEditor schimbând proprietățile Left și Top din componenta Image. Utilizați Timer. Implementați oprirea și schimbarea direcției de mișcare.

Sarcină: Obiecte „Barcă” și „Yaht”.

9. Lucrul cu fișiere tastate.

Utilizați componente: OpenDialog, SaveDialog. Creați filtre adecvate pentru aceste componente.

Sarcină: dat un fișier numere reale. Găsiți media aritmetică a componentelor sale și eliminați toate componentele care depășesc media.

10. Lucrul cu baza locala date.

Utilizare: Paradox pentru DB, motor de acces la date BDE, DataSource, Table, DataModule, DBGrid, DBNavigator, DBEdit, DBText, Query și DBChart. Implementează schimbare de software Text de interogare SQL.

Sarcină: Creați o bază de date „Școala”, cu informații: numele, clasa, anul nașterii elevului, adresa, telefon. Stabiliți câți elevi au un telefon. Faceți o listă cu elevii dintr-o clasă dată.

Lucrarea practică nr. 1

Tema: PRIMUL PROIECT

Scopul lecției: folosind componentele Label și Button ale paletei de componente Standard, gestionând evenimentul OnClick - apăsând un buton.

Sarcina nr. 1.

Creați un program care face următoarele:

După pornirea programului făcând clic pe butonul „Bun venit”, apare mesajul „Primele succese!”. Pentru a ieși din program, faceți clic pe butonul „Ieșire”.

Ceea ce este nou în această lucrare este:

Etapele dezvoltării programului

1. Deschideți un nou proiect.

2. Plasați instanțele componente pe formular: o Etichetă și două Butoane

3. Selectați Button2, mergeți la Object Inspector la fila Properties, găsiți proprietatea Caption și schimbați Button2 la titlu

"Ieșire". Accesați pagina Evenimente a ferestrei Object Inspector, găsiți eveniment OnClick, în partea dreaptă a acestuia, faceți dublu clic. Odată ajuns în codul programului, mai exact, în procedura șablonului TForm1.Button2Click, scrieți o singură comandă Close; (asigurați-vă că includeți un punct și virgulă după „Închidere”).

procedura TForm1.Button2Click(Expeditor: TObject);

ÎNCEPE

Închide;

Sfârşit;

4. Salvați codul programului și proiectul sub nume precum Unit2.pas și Pr2.dpr.

5. Rulați programul, apoi închideți fereastra proiectului făcând clic pe butonul „Ieșire”.

6. Selectați formularul și, în proprietatea Caption a ferestrei Object Inspector, înlocuiți cuvântul Form1 cu „My Project”. Acesta va fi titlul ferestrei principale a programului.

7. Selectați butonul Button1, iar în proprietatea Caption a ferestrei Object Inspector, înlocuiți cuvântul Button1 cu numele butonului „Welcome”. Dacă este necesar, măriți lungimea butonului.

8. Cu Button1 încă selectat, mergeți la pagina Evenimente a ferestrei Object Inspector și găsiți evenimentul OnClick, faceți dublu clic în partea dreaptă a acestuia

cu mouse-ul. Introduceți următorul cod: Label1.Caption:= 'Primele succese!';

9. Salvați proiectul în sfârșit, rulați și testați-l.

Sarcina nr. 2.

1. Creați fontul pentru replica „Primele succese!” diferit de standardul ca aspect, culoare și dimensiune.

2. Înlocuiți aspectul butonului „Ieșire” cu unul mai atractiv.

3. Asigurați-vă că după apăsarea butonului „Bun venit”, pe ecran apare mesajul „Primul și nu ultimul!”.

4. Rulați fișierul executabil Pr2.exe care nu este în Mediul Delphi, dar pe Windows.

Pe tema: dezvoltări metodologice, prezentări și note

Lecția – generalizarea cunoștințelor pe tema „Structura computerului”. Accentul principal este pus pe dispozitivul pentru introducerea informațiilor în computer - tastatura. Să lucrez în editor grafic Vopseaua este concepută practic...

Lucrări independente privind instrumentele de formatare a textului și două lucrări practice în MS Word 2007

O mică muncă independentă pentru consolidarea materialului Două lucrări practice de creare și prelucrare a tabelelor într-un editor de text....