Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Sub grafik(z1, z2, z3, z4)






PicDraw.Cls

PicDraw.Scale (z1, z2)-(z3, z4)

PicDraw.Line (z1, 0)-(z3, 0)

PicDraw.Line (0, z2)-(0, z4)

End Sub

 

11. В окне кода процедуры обработки события Click для объекта Cmd1 набрать

 

Call grafik(-10, 100, 10, -10)

For x = -10 To 10 Step 0.1

y = x ^ 2

PicDraw.PSet (x, y)

Next x

12. В окне кода процедуры обработки события Click для объекта Cmd2 набрать

 

Call grafik(-10, 2, 10, -2)

For x = -10 To 10 Step 0.1

y = Sin(x)

PicDraw.PSet (x, y)

Next x

13. В окне кода процедуры обработки события Click для объекта Cmd3 набрать

Call grafik(-10, 10, 10, -10)

For x = -10 To 10 Step 0.1

y = Abs(x)

PicDraw.PSet (x, y)

Next x

 

14. Проверьте работу программы


ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 10

Тема: Процедуры общего назначения

Цель: Закрепить навыки создания вызываемых процедур и функций

Постановка задачи: По заданным координатам построить два треугольника и определить их площадь, используя вызываемую функцию, цель которой – вычисление площади треугольника

Порядок выполнения:

1. Установите на форме следующие объекты и измените им свойства:

Объект Свойство Значение
Рамки Caption Ручная установка точек
Caption Ввод координат вершин
Caption X1, Y1
Caption X1, Y1
Caption X2, Y2
Caption X2, Y2
Caption X3, Y3
Caption X3, Y3
Caption Площадь
Caption Площадь
Текстовые окна     Name (для правой стороны) TxtX1_k TxtY1_k
TxtX2_k TxtY2_k
TxtX3_k TxtY3_k
TxtS_k
Name (для левой стороны) TxtX1_m TxtY1_m
TxtX2_m TxtY2_m
TxtX3_m TxtY3_m
TxtS_m
Графическое окно Name Picture1
Командная кнопка Name Cmd
  Caption Вычислить площадь треугольников

2.

 
 

Приведите свою форму в соответствие с образцом

3. В разделе общих объявлений набрать:

Dim X1, Y1, X2, Y2, X3, Y3 As Single


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал