Acasă / Informatică / Colectarea de sarcini practice MS Visual Basic
Sarcinile practice.
Proiectul "formă de divertisment" - 3
II. Programul de calculare a costurilor- 6
III. Program pentru rezolvarea ecuațiilor patratice - 9
IV. Proiectul "Ore" - 12
V. Proiect "Ceas cu alarmă" - 15
VI. Proiectul - screensaverul "Dots" - 17
VII. Jocul "Puzzle" - 19
Proiectul "Formă de divertisment".
Creați un formular și puneți-l pe cele șase butoane de acțiune, primul buton va reduce dimensiunea formei, al doilea - pentru a crește, a treia - pentru a picta forma de culoare roșie, a patra - albastru, a cincea - pentru a face toate butoanele invizibil al saselea - buton de retur. Pentru a face acest lucru:
1. Porniți Microsoft Visual Basic.
2. Plasați șase butoane de control pe formular:
3. Atribuiți comenzilor următoarele proprietăți:
Formă:
Nume - frmFormFun,
Caption - Formă de divertisment.
buton de comandă Comandă 1:
Nume - cmdShrink,
caption - Scaderea formei.
buton de comandă Comandă 2:
Nume - cmdGrow,
caption - Măriți forma.
Comandă 3:
Nume - cmdRed,
legendă - Formă roșie.
Comandă 4:
Nume - cmdBlue,
legendă - Forma albastră.
Nume - cmdHide,
caption - Ascundeți butoanele.
buton de comandă Command6:
Nume - cmdShow,
caption - butoane de returnare,
vizibil - Fals.
4. Înregistrați următoarele proceduri de manipulare a evenimentelor pentru butoanele de comandă:
Private Sub cmdShrink_Click ()
"reduceți înălțimea formei cu 100 de itemi
frmFormfun.Height = frmFormfun.Height - 100
"reduceți lățimea formei cu 100 de itemi
frmFormfun. Lățime = frmFormfun. Lățime - 100
Cmd Grow -
Private Sub cmdGrow_Click ()
'Creșteți înălțimea matriței cu 100 de țesături
frmFormfun.Height = frmFormfun.Height + 100
"creșterea lățimii formularului cu 100 de itemi
frmFormfun. Lățime = frmFormfun. Lățime + 100
Private Sub cmdRed_Click ()
frmFormfun.BackColor = vbRed "vopsiți formularul în roșu
Private Sub cmdBlue_Click ()
frmFormfun. BackColor = vbBlue "culoarea formei în albastru
6. Editați proiectul după cum urmează:
Apăsând pe formular se mărește lățimea cu 300 de itemi.
Apăsând pe formular se reduce înălțimea cu 250 de itemi.
Apăsând orice tastă, în timp ce butonul cmdRed este activ, vopsește formatul în verde.
Apăsând orice tastă, în timp ce butonul cmdBlue este activ, vopsește formularul în negru.
Când butonul cmdRed este apăsat, este colorat roșu (setați proprietatea Stil a butonului la 1- Grafic).Când faceți clic pe butonul cmdBlue, este vopsit în albastru (setați proprietatea Style a butonului la 1 - grafic).
7. Compilați proiectul în dosarul My Documents (Documentele mele) sub formularul Entertaining.
II. Program pentru calcularea costurilor.
Vom crea un program pentru calcularea costurilor săptămânale ale alimentelor în cantina școlii, pentru aceasta:
Porniți Microsoft Visual Basic.
P
Rulați programul, corectați erorile dacă este necesar.
Editați programul după cum urmează:
Adăugați butonul de control "Ieșire", când faceți clic pe care va ieși din program.
Adăugați un buton de control "Resetare", care va șterge toate cele trei ferestre text.
Adăugați lângă primele două butoane de text caseta de control „+“ și „-“, care va crește, respectiv, sau a micșora numărul 1, situat în caseta de text.
Adăugați două butoane de control "+" și "-" de lângă cea de-a doua casetă de text, care va crește sau descrește cu 1 numărul din această casetă de text.
Compilați programul în dosarul Documentele mele sub numele Calculator.
. Proiectul "Numere aleatorii".
Creați un zar, permițându-vă să selectați numere aleatorii de la 1 la 6, pentru aceasta:
Porniți Microsoft Visual Basic.
Plasați butonul de control și șase imagini pe formular:
Setați următoarele proprietăți pentru comenzi:
Articole similare
Trimiteți-le prietenilor: