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

3 чел.

ЗВІТ

з лабораторної роботи № 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


 

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

71030. Развитие кадрового потенциала ОАО «ЖТК» 477.5 KB
  Изучить современные научные подходы к проблеме подготовки, переподготовки и повышения квалификации кадров; проанализировать состояние работы по подготовке, переподготовки и повышению квалификации руководителей и специалистов Красноярского филиала ОАО «ЖТК»; выявить проблемы организации процесса подготовки, переподготовки и повышения квалификации руководителей и специалистов Красноярского филиала ОАО «ЖТК»...
71031. Изучение основных принципов работы маршрутизаторов в сетях ЭВМ на основе протокола OSPF 209 KB
  Изучение основных принципов работы маршрутизаторов в сетях ЭВМ на основе протокола OSPF. В результате выполнения лабораторной работы студент получает знания по принципам построения и алгоритмам функционирования маршрутизаторов в сетях ЭВМ и навыки по выбору кратчайших путей в сети на основе протокола OSPF.
71032. Разработка универсальной модульной системы, предназначенной для организации промышленной шины 3.78 MB
  Недостатком промышленной сети является то, что при обрыве кабеля теряется возможность получать данные и управлять не одним, а несколькими устройствами (в зависимости от места обрыва и топологии сети остается возможность автономного функционирования сегмента сети и схемы управления).
71033. Информационно–справочная система архива проектно–сметной документации для Ставропольнефтегаз 16.24 MB
  Непосредственной целью данного дипломного проекта является проектирование и разработка информационно – справочной системы ведения архива проектно – сметной документации, которая будет вести учет проектно – сметной документации.
71035. ВЫБОР РАЦИОНАЛЬНОЙ ДЛИНЫ ПАКЕТА СЕТИ ЭВМ 131.5 KB
  Изучить влияние длины пакета на характеристики сети ЭВМ. Изучить методику расчёта рациональной длины пакета сети ЭВМ. Определить рациональную длину пакета сети ЭВМ. Исследовать зависимость эффективной скорости передачи данных от длины пакета для основного цифрового канала связи и канала связи тональной...
71036. ФУНКЦИОНИРОВАНИЕ МАРШРУТИЗАТОРОВ НА ОСНОВЕ ПРОТОКОЛА СЕТЕВОГО УРОВНЯ OSPF СТЕКА ПРОТОКОЛОВ TCP/IP 197.5 KB
  Изучение основных принципов работы маршрутизаторов в сетях ЭВМ на основе протокола OSPF. В результате выполнения лабораторной работы студент получает знания по принципам построения и алгоритмам функционирования маршрутизаторов в сетях ЭВМ и навыки по выбору кратчайших путей в сети на основе протокола OSPF.
71037. Повірка вольтметра, амперметра і лічильника електричної енергії 258 KB
  В електронних лічильниках напруга і струм перетворюються у імпульси які перемножуються інтегруються в часі так що їх кількість пропорційна спожитій електроенергії. Дійсна стала лічильника Номінальна стала лічильника це кількість електроенергії у ватсекундах яка відповідає вказаному на лічильнику передаточному числу...