(Листинг программы – продолжение)
'Уменьшение толщины рисования линий на графике
Graph.DrawWidth = 1
'Цикл для отображения на графике сетки
For i = 1 To 5
'Нанесение на график горизонтальных линий с шагом в единицу
Graph.Line (0, Graph.Height - i * 1000)-(Graph.Width, Graph.Height - i * 1000)
'Нанесение на график вертикальных линий с шагом в единицу
Graph.Line (i * 1000, 0)-(i * 1000, Graph.Height)
Next i
'Изменение названия кнопки
cmdApply.Caption = "Назад"
Else
'С целью предоставления возможности дальнейшей работы с программой при возврате
'в исходное состояние производится очистка от результатов предыдущего расчета
Graph.Cls 'Очистка области построения графика
Result.Clear 'Очистка списка расчитанных значений
'Отображение фрейма с исходными данными и скрытие списка для расчитанных значений
Result.Visible = False
Frame1.Visible = True
'Изменение названия кнопки на исходное
cmdApply.Caption = "Принять"
End If
End Sub
Function YCord(ByVal FunctionValue As Double) As Integer
'Служебная функция преобразования реальных значений функции в
'их эквиваленты, оптимальные для построения графика
YCord = Graph.Height - FunctionValue * 1000
End Function
Private Sub txtK_GotFocus()
'Процедура обработки события получения фокуса текстовым полем:
'выделение всего содержимого текстового поля
txtK.SelLength = Len(txtK.Text)
End Sub
Private Sub txtT_GotFocus()
'Процедура обработки события получения фокуса текстовым полем:
'выделение всего содержимого текстового поля
txtT.SelLength = Len(txtT.Text)
End Sub
Private Sub txtC_GotFocus()
'Процедура обработки события получения фокуса текстовым полем:
'выделение всего содержимого текстового поля
txtC.SelLength = Len(txtC.Text)
End Sub
Private Sub txtDx_GotFocus()
'Процедура обработки события получения фокуса текстовым полем:
'выделение всего содержимого текстового поля
txtDx.SelLength = Len(txtDx.Text)
End Sub
MatLAB 7.0 SP1/Simulink 6.1 (The MathWorks, Inc.)
(Модель: система)
(График функции)
MatLAB 7.0 SP1/Simulink 6.1 (The MathWorks, Inc.)
(Модель: система – подсистема)
(Модель: система: подсистема – программирование функции ПИ-регулятора)
MatLAB 7.0 SP1/Simulink 6.1 (The MathWorks, Inc.)
(Модель: система: подсистема – программирование функции ПИД-регулятора)
Додаток 6 Приклад функціональної схеми автоматизації
