КАТЕГОРИИ:


Зарежда се ...

Астрономия- (809) Биология- (7483) Биотехнологии- (1457) Военное дело- (14632) Высокие технологии- (1363) География- (913) Геология- (1438) Государство- (451) Демография- (1065) Дом- (47672) Журналистика и СМИ- (912) Изобретательство- (14524) Иностранные языки- (4268) Информатика- (17799) Искусство- (1338) История- (13644) Компьютеры- (11121) Косметика- (55) Кулинария- (373) Культура- (8427) Лингвистика- (374) Литература- (1642) Маркетинг- (23702) Математика- (16968) Машиностроение- (1700) Медицина- (12668) Менеджмент- (24684) Механика- (15423) Науковедение- (506) Образование- (11852) Охрана труда- (3308) Педагогика- (5571) П Arhitektura- (3434) Astronomiya- (809) Biologiya- (7483) Biotehnologii- (1457) Военно дело (14632) Висока технологиите (1363) Geografiya- (913) Geologiya- (1438) на държавата (451) Demografiya- ( 1065) Къщи- (47672) журналистика и SMI- (912) Izobretatelstvo- (14524) на външните >(4268) Informatika- (17799) Iskusstvo- (1338) История- (13644) Компютри- (11121) Kosmetika- (55) Kulinariya- (373) култура (8427) Lingvistika- (374) Literatura- (1642) маркетинг-(23,702) Matematika- (16,968) инженерно (1700) медицина-(12,668) Management- (24,684) Mehanika- (15423) Naukovedenie- (506) образование-(11,852) защита truda- (3308) Pedagogika- (5571) п Политика- (7869) Право- (5454) Приборостроение- (1369) Программирование- (2801) Производство- (97182) Промышленность- (8706) Психология- (18388) Религия- (3217) Связь- (10668) Сельское хозяйство- (299) Социология- (6455) Спорт- (42831) Строительство- (4793) Торговля- (5050) Транспорт- (2929) Туризм- (1568) Физика- (3942) Философия- (17015) Финансы- (26596) Химия- (22929) Экология- (12095) Экономика- (9961) Электроника- (8441) Электротехника- (4623) Энергетика- (12629) Юриспруденция- (1492) Ядерная техника- (1748) oligrafiya- (1312) Politika- (7869) Лево- (5454) Priborostroenie- (1369) Programmirovanie- (2801) производствено (97182) от промишлеността (8706) Psihologiya- (18,388) Religiya- (3217) с комуникацията (10668) Agriculture- (299) Sotsiologiya- (6455) спортно-(42,831) Изграждане, (4793) Torgovlya- (5050) превозът (2929) Turizm- (1568) физик (3942) Filosofiya- (17015) Finansy- (26596 ) химия (22929) Ekologiya- (12095) Ekonomika- (9961) Telephones- (8441) Elektrotehnika- (4623) Мощност инженерно (12629) Yurisprudentsiya- (1492) ядрена technics- (1748)

Прогрес. Задача 1. Да се ​​напише програма risuyuschuyu флаг на Руската федерация




End Sub

Прогрес.

Практическата част

Задача 1. Да се напише програма risuyuschuyu флаг на Руската федерация.

Изявление на проблема.

Необходимо е да се направят две версии на програмата, която се основава на знамето на Руската федерация:

· Руски флаг, изготвен по образеца, когато тя е създадена (автоматично) (събитието Paint)

· Руски флаг, изготвен по образеца, като кликнете върху него с мишката (на събитието Click)

1. Създайте папка Laboratornaya_rabota_№10, и в него папката 10.1.

2. Стартирайте Microsoft Visual Basic 6.0 програмата.

3. В прозореца, който се появява, изберете STANDARD.exe приложението тип и натиснете "Open".

4. Задайте стойността на имота форма ScaleMode равна на 3 - пиксели, имоти Име - frmFlag и свойства Надпис - руски флаг.

5. Като кликнете два пъти върху формата, кликнете в горния десен ъгъл на събитието Paint

6. Попълнете линията се появява следния код (необходими коментари са дадени след апостроф):

Частни Под Form_Paint ()

FrmFlag.Line (10, 10) - (400, 100), vbWhite, BF "направи бял правоъгълник

FrmFlag.Line (10, 100) - (400, 200), vbBlue, BF "направи син правоъгълник

FrmFlag.Line (10, 200) - (400, 300), vbRed, BF "изготвя червен правоъгълник

FrmFlag.Caption = "Знаме на Руската федерация" "посочва името на формата

  1. Запазване на проекта (като изберете Файл - Съхраняване и Save FrmFlag.frm Flag.vbp)
  2. Проверка на целостта на проекта, стартирайте го.
  3. Създаване на програма Търсейки-файл с командата File → Направи FlagRF-1.EXE.
  4. Излез от Visual Basic околната среда.

11. Run файл флаг RF-1.EXE, и се уверете, че проектът работи автономно, като всички други Windows-базирани приложения.

12. За създаване на втора версия на програмата, която трябва да изберете събитие Кликнете, кодът остава непроменен. Запазване на втората версия на програмата в папката 10.2.

Задача 2. Да се напише програма risuyuschuyu усмивка.

Изявление на проблема.

Задължително да се направи програмата, който представлява весел и тъжен емотикон

1. Създаване на папка в папка Laboratornaya_rabota_№10 10.3.

2. Стартирайте Microsoft Visual Basic 6.0 програмата.

3. В прозореца, който се появява, изберете STANDARD.exe приложението тип и натиснете "Open".

  1. Задайте име собственост на формата за frmSmayl.

5. Задайте свойствата на форма ScaleMode стойност от 3 - пиксели.

6. Като кликнете два пъти върху формата, кликнете в горния десен ъгъл на събитието Paint

7. Попълнете линията се появява следния код (необходими коментари са дадени след апостроф):

Частни Под Form_Paint ()

"Направи радостни усмивки

стил засенчване FillStyle = vbFSSolid "- плътен цвят

FillColor = QBColor (14) "Цвят на запълване - жълт

Кръг (200, 200), 100, QBColor (14) "направи Smiley обвивка



FillStyle = vbFSSolid

FillColor = QBColor (0)

Кръг (170, 160), 10, QBColor (0) "изготвя лявото око

Circle (230, 160), 10, QBColor (0) "Право изготви glazik

Кръг (200, 200), 5, QBColor (0) "изготвя чучур

FillStyle = vbFSSolid

FillColor = QBColor (15)

Кръг (170, 160), 2, QBColor (15) "изготвя ляво на зеницата

Кръг (230, 160), 2, QBColor (15) "обърнат надясно зеницата

FillStyle = vbFSSolid

FillColor = QBColor (0)

Кръг (200, 200), 60, QBColor (0), 3.88, 5.55 "изготвят усмивка

Form1.Caption = "емотикони" "посочва името на формата

"Направи тъжна физиономия

FillStyle = vbFSSolid

FillColor = QBColor (14)

Кръг (500, 200), 100, QBColor (14)

FillStyle = vbFSSolid

FillColor = QBColor (0)

Кръг (470, 160), 10, QBColor (0)

Кръг (530, 160), 10, QBColor (0)

Кръг (500, 200), 5, QBColor (0)

FillStyle = vbFSSolid

FillColor = QBColor (15)

Кръг (470, 160), 2, QBColor (15)

Кръг (530, 160), 2, QBColor (15)

FillStyle = vbFSSolid

FillColor = QBColor (0)

Кръг (500, 300), 60, QBColor (0), 0.83, 2.3 "направи тъжна усмивка