70172

Visual Basic

Курсовая

Информатика, кибернетика и программирование

Целью данной работы является ознакомление с программой Visual Basic и написание в ней программы для решения степенных уравнений методом деления отрезка пополам и методом хорд, а так же с программой, позволяющей решить почти любой пример, Maple.

Русский

2014-10-16

92.5 KB

11 чел.

Сибирский государственный университет телекоммуникации

и информатики

Уральский технический институт связи и информатики

Кафедра физики, прикладной математики и информатики

КУРСОВАЯ РАБОТА

по информатике

на тему: Visual Basic

Выполнил: студент гр. МЕ-41

Лерман М. В.  

                                                                                 Руководитель: Кокорина Е. Е.

Екатеринбург 2005

Содержание.

Введение.

Хотя решение степенных уравнений не ново, но всё ещё актуально, потому что нам всем приходилось решать эти уравнения не раз, и не раз ещё придётся нам поломать голову над ними. И именно теперь, когда у нас появилась возможность решать степенные уравнения на компьютере, экономя свои силы и время, о чём и не могли мечтать студенты учившееся до изобретения компьютера, которым приходилось проводить всё вычислительные операции вручную, мы просто обязаны хотя бы ознакомится с этой возможностью.

Целью данной работы является ознакомление с программой Visual Basic и написание в ней программы для решения степенных уравнений методом деления отрезка пополам и методом хорд, а так же с программой, позволяющей решить почти любой пример, Maple.

Вместе с тем необходимо отметить, что написание программы в Visual Basic и проверка результатов работы программы в пакете Maple являются первоочередными задачами данной работы.

Результаты полученные в ходе проведения работы могут использоваться при решении любой математической или физической задачи сводящейся к решению степенного уравнения.

Основная часть.

1.Основная форма

 

Метод деления отрезка пополам:

Private Sub Command1_Click()

a = 1

b = 1.1

y = CDbl(Text3.Text)

Do While Abs(b - a) > y

c = (a + b) / 2

If F(a) * F(c) < 0 Then b = c Else a = c

Loop

Text4.Text = c

End Sub

Метод хорд:

Private Sub Command2_Click()

a = 1

b = 1.1

y = CDbl(Text3.Text)

Do While Abs(F(c)) > y

c = a + Abs(F(a) / (F(a) - F(b))) * (b - a)

If F(a) * F(b) < 0 Then b = c Else a = c

Loop

Text5.Text = c

End Sub

Кнопка «ВЫХОД»:

Private Sub Command3_Click()

End

End Sub

Задание уравнения:

Public Function F(x)

F = x ^ 5 - x - 0.2

End Function

Кнопка перехода на Form2:

Private Sub Command4_Click()

Form2.Show

End Sub

Кнопка перехода на калькулятор:

Private Sub Command5_Click()

Dim RetVal

RetVal = Shell("calc.exe")

End Sub

Кнопка перехода на Paint:

Private Sub Command6_Click()

Dim RetVal

RetVal = Shell("mspaint.exe")

End Sub

Проверка ошибок ввода:

Private Sub Text3_Change()

If Not IsNumeric(Text3.Text) Then

a = MsgBox("НЕВЕРНЫЙ ВВОД", vbExclamation)

Else

If (Text3.Text > 0.1 Or Text3.Text < 0) Then b = MsgBox("Число должно быть от 0 до 0.1")

End If

End Sub

2.Дополнительные формы.

Часы:

Private Sub Command4_Click()

Form4.Hide

End Sub

Private Sub Command1_Click()

Form1.Show

End Sub

Private Sub Text1_Change()

Text1.Text = Time 'Время

End Sub

Private Sub Text2_Change()

Text2.Text = Date 'Дата

End Sub

Private Sub Timer1_Timer()

Text1.Text = Time 'Таймер

If Time = 0 Then Text2.Text = Date 'Дата меняется в полночь

End Sub

Private Sub Form_Load()

Text2.Text = Date 'дата появляется на циферблате при запуске формы

End Sub

Проверка в пакете Maple.

> solve(x^5-x-0.2=0,x);

Заключение.

Метод хорд точнее ……………………………………………………………

Приложение.

Формы как они есть.

Главная

Часы


 

А также другие работы, которые могут Вас заинтересовать

35107. Обзор международного опыта применения сделок РЕПО. Операции РЕПО на российском рынке 1.63 MB
  Операции по кредитованию ценными бумагами и операции РЕПО: понятие и классификация. Обзор международного опыта применения сделок РЕПО. Операции РЕПО на российском рынке Операции РЕПО и операции кредитования ценными бумагами составляющие мощнейший сегмент международного финансового рынка в российской практике появились относительно недавно. Среди основных причин такого роста необходимо выделить следующие: вопервых без рынка РЕПО без финансирования позиций...
35108. Важнейшие пропорции и диспропорции мирового рынка прямых инвестиций. Привлечение прямых инвестиций 1.1 MB
  Мировая практика статистического учёта прямых инвестиций в понятиях 1. Важнейшие пропорции и диспропорции мирового рынка прямых инвестиций 2. Создание универсального индекса для качественной оценки потенциала страны в получении прямых иностранных инвестиций 2. Индекс реальной динамики ввоза прямых иностранных инвестиций 2.
35109. Дифференциальные уравнения 4.15 MB
  Обыкновенные дифференциальные уравнения. Обыкновенными дифференциальными уравнениями о. называются уравнения вида: 1 где известная функция – независимая переменная – неизвестная функция. Порядком дифференциального уравнения д.
35110. ВЫЧИСЛИТЕЛЬНАЯ МАТЕМАТИКА 3.33 MB
  В традиционных областях математическими моделями служат функции производные интегралы дифференциальные уравнения. Значения этой функции при каждом фиксированном x можно получить измерениями или вычислениями. Для запоминания этой функции в памяти компьютера необходимо приближенно описать ее таблицей значений на некотором конечном множестве отдельных точек . Это – простейший пример дискретизации задачи: от задачи запоминания функции на отрезке [0 1] мы перешли к задаче запоминания таблицы значений на дискретном множестве точек из этого...
35111. МЕХАНИКА 1.35 MB
  Кинематика вращательного движения 1 Виды движения твердого тела. Основные понятия по теме При описании вращательного движения в кинематике удобно пользоваться угловыми кинематическими величинами: и Если за время тело совершает поворот на малый угол то углу формально ставиться в соответствие вектор модуль которого равен углу поворота тела за время . Существуют такие системы отсчета в которых материальная точка тело сохраняет состояние покоя или равномерного прямолинейного движения до тех пор пока взаимодействие с другими...
35112. Психологическая и социальная работа с нароко и алгозависимыми детьми и людьми 451.5 KB
  Необходимость такого рода работы с семьей наркозависимого обусловлена следующими причинами: 1. Противонаркотические программы работы с подростками и школьниками старших классов включают в себя: 1. Занятия со школьниками особенно с младшими следует проводить преимущественно в игровой форме но при этом такие занятия должны содержать потенциал серьезной интеллектуальной и психологической работы. Необходимо придерживаться определенных правил групповой работы: а активное слушание б оказание взаимопомощи в доверительность и...
35113. СВЯЗИ С ОБЩЕСТВЕННОСТЬЮ В ГОСУДАРСТВЕННЫХ СТРУКТУРАХ 310.5 KB
  ТАРАШВИЛИ стажер международного прессклуба СВЯЗИ С ОБЩЕСТВЕННОСТЬЮ В ГОСУДАРСТВЕННЫХ СТРУКТУРАХ Содержание: Роль PR в государственной системе. Модели связей с общественностью. Цели связей с общественностью. Связи с общественностью в государственных структурах.
35115. Електрика і магнетизм 12.26 MB
  Потенціал та робота електростатичного поля 17 3. Рух заряджених частинок у електричних та магнітних полях 47 8. ПОЗНАЧЕННЯ ФІЗИЧНИХ ВЕЛИЧИН Фізична величина Позначення Розмірність СІ Валентність Z Маса m M Молярна маса M MN1 Сила F LMT2 Швидкість LT1 Температура T Θ Теплоємність C L2MT2Θ1 Орбітальний момент імпульсу спін повний момент імпульсу l s j L2MT1 Концентрація N L3 Дипольний момент TIL Напруженість електричного поля LMT3I1 Індукція електричного поля L2TI Намагніченість M L1I Поляризованість діелектрика P L2TI...