Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Captain
0 / 0 / 0
Регистрация: 25.11.2010
Сообщений: 7
1

Лабораторная работа

25.11.2010, 17:43. Просмотров 1155. Ответов 4
Метки нет (Все метки)

Помогите, пожалуйста, правильно завершить лаб. работу. Задание ниже :

Лабораторная работа


Вот мой текст программы, который должен быть дополнен после места, выделенным красным. Там насколько я знаю нужно использовать точность, которую я ввожу, но как это сделать ? Подскажите, пожалуйста.

Private Sub Form_Load()
t = 0.1
For i = 1 To 6
Combo1.AddItem (t)
t = t / 10
Next
Combo1.Text = Combo1.List(0)
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "exit"
End
Case "run"
1:
m = Slider1.Value
Ii1 = 0
iter = 1
If Combo1.Text = Combo1.List(0) Then t = 0.1
If Combo1.Text = Combo1.List(1) Then t = 0.01
If Combo1.Text = Combo1.List(2) Then t = 0.001
If Combo1.Text = Combo1.List(3) Then t = 0.0001
If Combo1.Text = Combo1.List(4) Then t = 0.00001
If Combo1.Text = Combo1.List(5) Then t = 0.000001
h = (1.5 - 0.5) / m
2: For x = 1 To m - 1
Ii1i = h / (Cos(x) ^ 2 + Exp(x) * Abs(x + Log(x)))
Ii1 = Ii1 + Ii1i
Next
If Abs(Ii1i) > t Then
h = h / 2

End If

Label7.Caption = Str(Ii1)
Case "rect"
MsgBox ("Метод выбран.")
Case "trap"
MsgBox ("Выбранный метод не поддерживается.")
Case "simpson"
MsgBox ("Выбранный метод не поддерживается.")
Case "help"

End Select
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2010, 17:43
Ответы с готовыми решениями:

Лабораторная работа «Стандартные модули и модульная структура приложений в VB»
На продажу выставлено N квартир. О каждой квартире известно: адрес, категория...

Процедуры и функции VB.Лабораторная.
Ребят,уже отчаялась.не знаю что и делать(( нужно сделать лабораторку.Если Вам...

Лабораторная. Задача на языке TurboBasic
В первом №26, во втором №23. Нарушение правил 5.18 Запрещено размещать...

Лабораторная работа №5. Работа с файлами и алгоритмы сортировки
1. Написать функцию Load для считывания из текстового файла (например,...

Лабораторная работа
1. Описать функцию, в которой в строке подсчитывается количество сочетаний букв...

4
gaw
6632 / 1499 / 169
Регистрация: 09.01.2010
Сообщений: 4,273
25.11.2010, 19:18 2
Captain
собственно задание и сам код --- как бы не совсем одно и то же
0
Captain
0 / 0 / 0
Регистрация: 25.11.2010
Сообщений: 7
25.11.2010, 19:26  [ТС] 3
То есть, я что-то неправильно в коде написал. А как надо ? Можешь написать как правильно, плиз ? А то я не совсем понимаю...
0
gaw
6632 / 1499 / 169
Регистрация: 09.01.2010
Сообщений: 4,273
25.11.2010, 22:49 4
ну как то так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Command1_Click()
Dim f As Double, I As Double, df As Double
Dim x0 As Double, n As Long, h As Double
Const a = 0.5, b = 1.5, eps = 0.000001
List1.Clear
I = 0: n = 2
1: f = 0
h = (b - a) / n
For x0 = a + h To b Step h  ' для пр.   ////  x0 = a To b - h Step h --- для лев.
f = f + fn(x0) * h
Next x0
df = Abs(I - f)
If df > eps Then
I = f
List1.AddItem "I=" & I & "    ---  eps=" & df & "   ---  n=" & n
n = n + 1
GoTo 1
Else
List1.AddItem "---------------"
List1.AddItem "I=" & I & "    ---  eps=" & df & "   ---  n=" & n
 
End If
 
End Sub
Function fn(x As Double) As Double
fn = 1 / (Cos(x) ^ 2 + Exp(x) * Abs(x + Log(x)))
End Function
0
Captain
0 / 0 / 0
Регистрация: 25.11.2010
Сообщений: 7
05.12.2010, 12:42  [ТС] 5
Спасибо.
Только у меня лаба имеет вид:
http://imglink.ru/show-image.php?id=384908609727bebc9dd995576698e5dd
Я когда заменяю текст кода на ваш, то оно перестаёт работать.
Я если честно чайник в VB, да и в остальных языках программирования. Помогите, плиз)
0
05.12.2010, 12:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2010, 12:42

Лабораторная работа
Здравствуйте! Условие: Передача данных по линии связи ограничена скоростью...

Лабораторная работа
1. Задать структуру для хранения данных в соответствии с индивидуальным...

Лабораторная работа
Нужно сделать лабораторную работу.Сама вообще не могу разобраться,есть в этом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru