În această lecție vom scrie un program pe baza căruia vor apărea cercuri concentrice (astfel de cercuri se află într-un plan și au un centru comun).
Pentru centrul cercurilor luăm jumătate din lățimea și înălțimea formei:
Pentru a desena un cerc, folosiți metoda Circle (x, y), raza, culoarea. Deoarece avem nevoie de mai multe astfel de cercuri, folosim un ciclu în care crestem raza cercurilor.
Așadar, putem evita cercuri care se suprapun între ele. Luăm valoarea de 100 de twips pentru raza inițială, raza finală este de 10.000 de twips, pitchul este de 100 de twips.
Pentru ca acest cod să funcționeze când faceți clic pe un formular, l-am pus în procedura Form_Click (). Codul programului va arata astfel:
Rulați proiectul nostru, faceți clic pe formular și admirați rezultatul (Figura 1).
Figura 1 - Rezultatul programului
Dacă doriți să selectați un cerc cu culoare, adăugați numele culorii dorite după raza din metoda Circle ().
Rezultatul acestei selecții este prezentat în Figura 2.
Figura 2 - Selectarea cercurilor cu culoarea