MsgBox "скорость корабля должна быть в пределах"+Chr(10)+ Chr(13)+Chr(9)+"0<V<300000"
End If
End Sub
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
Задача № 8.3
1. Создать новый проект и программу для построения графика функции Y=A*x2+B*x+C. Значения коэффициентов задать с помощью объекта Slider.
2. Окно работающего приложения показано на рис. 80. Построение графика осуществляется с помощью объекта PictureBox. Установить на форме три объекта Slider с помощью команды Components из контекстное меню, вызванного на наборе инструментов General (см. пр. р. № 6.3, п. 3).
3. Записать программный код для процедуры загрузки формы:
Form1.Show
Picture1.DrawWidth=1
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), vbcian
Picture1.Print "X"
Picture1.Line (0, 10)-(0, -10), vbcian
Picture1.Print "Y"
For i=-10 To 10
Picture1.PSet (i, 0), QBColor(0)
Picture1.Print i
Next i
4. Записать для объектов Slider программные коды:
Private Sub Slider1_Change()
My
End Sub