double arrow

Text3.SetFocus

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


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: