23825

Графічні методи

Лабораторная работа

Информатика, кибернетика и программирование

Створив додаток екранна форма якого містить три об'єкти: командна кнопка з ім'ям ПУСК і два графічних вікна з іменами Picturel і Picture2. Вікно робочого додатка Програмний код для цього додатка: Private Sub Command1_Click Picture1.Line 0 03015 2935 65280 BF Picture2.Scale 0 1010 0 Picture2.

Украинкский

2013-08-05

53 KB

4 чел.

ЗВІТ

з лабораторної роботи № 5

" Графічні методи "

виконав студент IІ курсу відділення МІ група 2  

Киричук Олег Романович 

Дата виконання "3" грудня 2008 р.

Виконання завдань:

1. Створив додаток, екранна форма якого містить три об'єкти: командна кнопка з ім'ям ПУСК і два графічних вікна з іменами Picturel і Picture2. Написав програму, за допомогою якої у графічних полях будуються зображення прапорів двох країн (за вибором).

Вікно робочого додатка

Програмний код для цього додатка:

Private Sub Command1_Click()

Picture1.Line (0, 0)-(3015, 2935), 65280, BF

Picture2.Scale (0, 10)-(10, 0)

Picture2.Line (0, 10)-(10, 0), 65280, BF

Picture2.FillStyle = 0

Picture2.FillColor = vbRed

Picture2.Circle (4, 5), 2, 255

Label3.Caption = "Як ви думаєте, прапори яких країн зображені?"

End Sub

Private Sub Command2_Click()

Label1.Caption = "Лівія"

Label2.Caption = "Бангладеш"

End Sub

2. Написав програму, що вирішує задачу побудови графіка функції y = Sin(t), яка описує зміну інформаційного ресурсу країни у часі. Для визначеності, встановив границі значень аргументу, — всередині відрізка [—p/2, p/2]. Графік побудував не на самій екранній формі, а в графічному вікні екранної форми. Для більшої наочності, побудові графіка передує креслення координатної сітки й осей координат.

Вікно робочого додатка

Програмний код для цього додатка:

Private Sub Form_Load()

Dim i As Integer

Dim x As Single

Dim y As Single

Picture1.Scale (-2, 2)-(2, -2)

Picture1.PSet (0, 0)

Picture1.Print " 0"

Picture1.PSet (-1, 0)

Picture1.Print " -П/2"

Picture1.PSet (1, 0)

Picture1.Print " П/2"

Picture1.PSet (1.75, 0)

Picture1.Print "X"

Picture1.PSet (0, 1.75)

Picture1.Print " Y"

Picture1.Line (-2, 0)-(2, 0)

For i = -1 To 1

   Picture1.Line (i, -2)-(i, 2)

Next i

   Picture1.Line (0, -2)-(0, 2)

For i = -2 To 2

   Picture1.Line (-2, i)-(2, i)

Next i

Picture1.ForeColor = vbRed

   x = -2

   y = Sin(x)

Picture1.CurrentX = x

Picture1.CurrentY = y

For x = -2 To 2 Step 0.005

   y = Sin(x)

   Picture1.PSet (x, y)

Next x

End Sub


 

А также другие работы, которые могут Вас заинтересовать

60098. Усний журнал КИМ БУТИ? 58.5 KB
  Ким же я стану Сьогодні ми проведемо усний журнал ‘КИМ БУТИ Яку відповідь на це запитання знайшов наш гість ми зараз послухаємо на першій сторінці яка має назву І сторінка ЦІКАВА ЗУСТРІЧ В гості до нас прийшов щоб розповісти про власний вибір професії Лауреат премії ім. Усі професії потрібні і важливі. Будівельник показую малюнок і слова МАЛЯР МУЛЯР...
60099. Я - українець! 74 KB
  Ведучий: Я українець Над Дніпром Стоїть в саду вишневім хата Криниця журавель з цебром І скибка місяця щербата. Ведуча: Я українка З юних літ Мене пісень навчила мати Які чарують цілий світ Де народився Заповіт...
60100. МАСЛЕНИЦА. СЦЕНАРИЙ 47.5 KB
  Ведущая: А еще для славян масленица долгое время была встречей нового года так как до 16 века он начинался с марта. Дети вместе: У нас горы снежные готовы и блины напечены просим жаловать Мальчик: Масленица объедуха...
60101. Устный журнал: Что в имени тебе моём? 47 KB
  У каждого человека есть имя Нет меж живущих людей да не может и быть безыменных: В первый же миг по рождении каждый убогий и знатный Имя как сладостный дар от родимых своих получает Гомер Прошли тысячелетия а сказанное им и сейчас остается истиной.
60103. Сценарій 9 травня «День памяті та надії» 55 KB
  ХХІ століття. Усе далі й далі відходять грізні роки Великої Вітчизняної війни. Але кожного року 9 травня ми відзначаємо День перемоги, і ніколи не згасне память про всіх тих, хто поліг у боях, хто віддав своє життя для нашого щастя.
60104. Позакласний захід «Що потрібно знати про грип» 60.5 KB
  Тож Що потрібно знати про грип будуть розповідати діти. Сьогодні ми поговоримо про одну з найпоширеніших інфекційних хвороб грип. На грип хворіють і діти і дорослі.
60105. Відкритий виховний захід: «Психологічне здоровя дитини» 49.5 KB
  Мета: розширювати і узагальнювати поняття про поведінку між людьми; про вихованість і чемність людську доброту і милосердя та вплив цих чинників на здоровя людини; прищеплювати бажання свідомо дотримуватися усталених норм поведінки...