Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
23 слайда
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
1.87 MB
Просмотров:
71
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд
Содержание слайда: Построение графиков полярных кривых
в Visual Basic
№2 слайд
Содержание слайда: Понятие полярной системы
№3 слайд
Содержание слайда: Переход от полярной системы координат к декартовой
№4 слайд
Содержание слайда: Построение графиков полярных кривых в Visual Basic
№5 слайд
Содержание слайда: Интерфейс проекта
№6 слайд
Содержание слайда: Свойства элементов управления
№7 слайд
Содержание слайда: Свойства элементов управления
№8 слайд
Содержание слайда: Описание переменных
Dim z, k As Integer, f, pi, a, r, b, q As Single, i As Long, x, y As Single
№9 слайд
Содержание слайда: Процедура выбора типа кривой
№10 слайд
Содержание слайда: Процедура кнопки Пуск
Private Sub Command1_Click()
‘шкала
Picture1.Scale (-10, 10)-(10, -10)
‘оси координат
Picture1.Line (-10, 0)-(10, 0), QBColor(0)
Picture1.Line (0, -10)-(0, 10), QBColor(0)
pi = 3.14154
№11 слайд
Содержание слайда: Кардиоида
Параметрические уравнения
r = a * (1 + Cos(f))
x = r * Cos(f)
y = r * Sin(f)
f [0, 2*pi]
№12 слайд
Содержание слайда: Построение графика кардиоиды
№13 слайд
Содержание слайда: Построение графика кардиоиды
‘Вывод параметрических уравнений в текстовое поле
Text1.Text = Text1.Text & "r = a * (1 + Cos(f))" & Chr(13) & Chr(10)
Text1.Text = Text1.Text & "x = r * Cos(f)" & Chr(13) & Chr(10) & "y = r * Sin(f)"
End If
End Sub
№14 слайд
Содержание слайда: Процедура кнопки Сброс
Private Sub Command3_Click()
Picture1.Cls
Picture1.Line (-10, 0)-(10, 0), QBColor(0)
Picture1.Line (0, 10)-(0, -10), QBColor(0)
Label2.Caption = ""
Text1.Text = ""
End Sub
№15 слайд
Содержание слайда: Логарифмическая спираль
Параметрические уравнения
a = 0.2
b = 0.15
n = 5
r = a * Exp(b * f)
x = r * Cos(f)
y = r * Sin(f)
f [0, 2*pi*n]
№16 слайд
Содержание слайда: Декартов лист
Параметрические уравнения
a = 4
r = 3 * a * Cos(f) * Sin(f) / (Cos(f) ^ 3 + Sin(f) ^ 3)
x = r * Cos(f)
y = r * Sin(f)
f [0, 2*pi]
№17 слайд
Содержание слайда: Фигура Лиссажу
№18 слайд
Содержание слайда: K-лепестковая роза
№19 слайд
Содержание слайда: Эпициклоида
№20 слайд
Содержание слайда: Задания
для самостоятельной работы
№21 слайд
Содержание слайда: Задания
для самостоятельной работы
№22 слайд
Содержание слайда: Задания
для самостоятельной работы
‘процедура кнопки Скорость
Private Sub Command5_Click()
v= Slider1 .Value
End Sub
‘переменную v используйте в цикле для задержки рисования
For i = 1 To 100000*v : Next
№23 слайд
Содержание слайда: Процедура кнопки Движение