Тема 8. Решение задач в среде Visual Basic 6.0

Задача № 8.1

1. Создать новый проект и программу для вычисления значения функции:

Значения А и Х задать с помощью элемента HScrollBar. Окно работающего приложения показано на рис. 78. Установить на форме два объекта HScrollBar.

2. Записать для объектов HScrollBar программные коды:

Private Sub HScroll1_Change()

My ‘ вызов процедуры

End Sub

Private Sub HScroll2_Change()

My ‘ вызов процедуры

End Sub

3. Записать программный код для процедуры загрузки формы:

Form1.Show

Label1.Caption="Вычислить функцию Y="+Chr(10)+Chr(13)+

"X/sqr(X^2-A), если A<3"+Chr(10)+Chr(13)+"X/sin(X+A), если A>=3"

4. Записать программный код для раздела General Declaartions:

Dim X, A As Integer

Dim Y As Single

Private Sub My()

X=HScroll1.Value

A=HScroll2.Value

Label4.Caption=X

Label5.Caption=A

If A<3 Then

If (X<-Sqr(Abs(A))) Or (X>Sqr(Abs(A))) Then

Y=X/Sqr(X^2-A)

Label6.Caption="A<3. Вычисляется значение Y=X/sqr(X^2-A)= "+Str(Y)

Else

MsgBox "X должно быть в диапазоне"+Chr(10)+Chr(13)+"X<-Sqr(Abs(A)) And X>Sqr(Abs(A))"

End If

Else

If Sin(X+A)<>0 Then

Y=X/Sin(X+A)^2

Label6.Caption="A>3. Вычисляется значение Y=X/Sin(X+A)^2 ="+Str(Y)

Else

MsgBox "X должно быть в диапазоне"+Chr(10)+Chr(13)+"X<-Sqr(Abs(A)) And X>Sqr(Abs(A))"

End If

End If

End Sub

5. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Задача № 8.2

1. Создать новый проект и программу для расчета времени, за которое возрасты наблюдателей на Земле и в космическом пространстве сравняются согласно теории А. Эйнштейна. Окно работающего приложения показано на рис. 79.

2. Записать для кнопки Расчет программный код:

Private Sub Command2_Click()

Const C As Long=300000

Dim Ts, Tr, T, V As Long

Ts=Val(Text1.Text): Tr=Val(Text2.Text): V=Val(Text3.Text)

If V>0 And V<=C Then

T=(Tr-Ts)/(1-Sqr(1-(V/C)*(V/C)))

Label6.Caption=Format(T, "###.##")

Else

Text3.Text=""

Text3.SetFocus

MsgBox "скорость корабля должна быть в пределах"+Chr(10)+ Chr(13)+Chr(9)+"0<V<300000"

End If

End Sub

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Задача № 8.3

1. Создать новый проект и программу для построения графика функции Y=A*x²+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

Private Sub Slider2_Change()

My

End Sub

Private Sub Slider3_Change()

My

End Sub

5. Записать программный код для раздела General Declaartions:

Private Sub My()

Dim a, b, c As Integer

a=Slider1.Value

b = Slider2.Value

c = Slider3.Value

Label5.Caption="a= "+ Str(a): Label6.Caption= "b= " + Str(b): Label7.Caption="C= "+ Str(c)

Picture1.Cls

Picture1.Scale (-10, 10)-(10, -10)