![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Тема 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
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*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 Private Sub Slider2_Change()
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)
|
|||||
Последнее изменение этой страницы: 2016-12-10; просмотров: 720; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.145.89.175 (0.008 с.) |