numai materiale utile
Acționarul principal al Alibaba a devenit cel mai bogat om din China
Articole
Microsoft a început testarea închisă a Office 16
Articole
Experții au găsit găuri de securitate în Windows 8.1
Articole
În metroul din Moscova va fi o rețea mobilă unificată
Articole
eBay va accepta Bitcoin
Articole
Vivitek a prezentat proiectorul "școală" D755WTIR
Articole
Butonul "Cumpărați" a apărut pe Twitter
Articole
"Yandex.News" poate fi acum vizualizat pe iPhone
Articole
Acum vom scrie o simplă jucărie grafică, a cărei esență, pentru timpul alocat, va avea timp să găsească toate formele de aceeași culoare. Nu știu cum să transmit mai exact sensul acestui joc. în general, atunci vei înțelege totul pe tine însuți)
Dacă doriți să știți costul serviciilor SEO, atunci vizitați site-ul netsend.ru.
Ca întotdeauna, deschidem Delphi și creăm un nou proiect. Imediat aruncați pe forma componentei DrawGrid din fila Suplimentare. Trebuie să schimbăm un număr de proprietăți:
1. Proprietatea ColCount - face egal cu 20
2. Proprietatea RowCount este de asemenea 20
3. DefaultColWidth = 20 proprietate
4. Proprietatea DefaultRowHeight = 20
5. FixedCols = 0
6. FixedRows = 0
7. DefaultDrawing = False
În cele din urmă, ar trebui să obțineți ceva similar.
Acum trebuie să alocăm întâmplător fiecărei celule o anumită culoare. În total, vom avea 3 culori (roșu, verde și albastru).
Trecem în cod și peste cuvântul cheie var, inserăm acest cod
const
MAX_COLORS = 3;
const
PossibleColors. array [0..MAX_COLORS-1] de TColor = (clRed, clBlue, clGreen);
Apoi, trebuie să creăm o matrice bidimensională, în celulele cărora vor fi stocate culorile pătratelor corespunzătoare. deoarece dimensiunea zonei de joc avem de la 20 la 20, respectiv, iar matricea va avea aceeași dimensiune. Dar mai întâi, să declarăm câteva constante în care dimensiunea zonei de joc va fi stocată. Din nou, deasupra cuvântului var, scriem următorul cod:
const
MAX_COLUMNS = 20;
MAX_ROWS = 20;
Acum creați o matrice. Vom face acest lucru după cuvântul cheie var ie. imediat după:
ColorOfBrick. array [0..MAX_COLUMNs, 0..MAX_ROWS] din TColor;
Deplasându-ne, acum trebuie să creăm o procedură care va aloca la întâmplare culorile corespunzătoare patratelor atunci când jocul este pornit. După cuvântul cheie public pe care îl scriem
Apăsați combinația de taste CTRL + SHIFT + C. voila și Delphi au creat un șablon pentru procedura noastră viitoare. În viitor, nu voi vorbi în detaliu despre procesul de creare a unei noi proceduri sau funcții, dacă uitați brusc că vă veți întoarce în acest loc. Acum, când șablonul pentru procedura pe care ați creat-o deja, uitați-vă la ceea ce ar trebui să rezulte în final și adăugați liniile lipsă.
procedura TForm1.AssignBrickColors;
var
i, j. întreg;
începe
pentru i: = 0 până la Form1.DrawGrid1.ColCount-1 face
pentru j: = 0 până la Form1.DrawGrid1.RowCount-1 face
ColorOfBrick [i] [j]: = Posibile culori [aleatorii (MAX_COLORS)]
se încheie;
Ne-am confruntat. Sper că da. Hai da jucătorului posibilitatea de a începe un joc nou, atunci când vrea să-l arunce la forma butonului component (buton) cu tab-ul Standard și imediat schimba proprietatea Caption pe „New Game“. Creați un handler de evenimente OnClick pe buton făcând clic pe el de două ori. Între început și sfârșit scrieți:
Desigur, la pornire, este de asemenea necesar să începem un joc nou, așa că vom crea un handler de evenimente onCreate pe formular, din nou între sfârșitul începutului vom scrie:
Ei bine și în cele din urmă a crea handler de evenimente OnDrawCell pe componenta DrawGrid scrie acolo
DrawGrid1.Canvas.Brush.Color: = ColorOfBrick [ACol] [ARow];
DrawGrid1.Canvas.FillRect (Rect)
Rulați proiectul, iată ce am primit:
Sfârșitul părții 1
Articole similare
Trimiteți-le prietenilor: