70172

Visual Basic

Курсовая

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

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

Русский

2014-10-16

92.5 KB

10 чел.

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

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

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

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

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

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

на тему: 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);

Заключение.

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

Приложение.

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

Главная

Часы


 

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

3016. Особенности спортивной игры Волейбол 64 KB
  ВОЛЕЙБОЛ: ВОЗНИКНОВЕНИЕ И СТАНОВЛЕНИЕ ИГРЫ (1895-1920) При обучении будущих специалистов физического воспитания и спорта важно конкретизировать и дополнить историю эволюции волейбола в её хронологической последовательности...
3017. Філософські основи сучасного туризму 223 KB
  Зростання місця і ролі сфери туризму у сучасному світі є привабливим предметом дослідження з кількох причин. По-перше, глобалізація сучасного світу є наслідком зміни змісту і характеру праці, що викликає значне підвищення мобільності людини не...
3018. Цех по производству изделий бытового назначения методом литья под давлением мощностью 7000 тонн в год 179 KB
  Описание технологической схемы производства: Из полувагона или цистерны полимер в виде гранулятя выгружается краном в контейнерах и перевозится к установке растаривания и передается пневмотранспортом 12 в силосы. Затем...
3019. Определение концентрации серной и соляной кислот 39.5 KB
  Растворы Цель работы: Определить концентрацию серной и соляной кислот. Теория: Титрование – постепенное преливание раствора известной концентрации к раствору с неизвестной концентрацией, но точного объёма. Молярная концентрация – число мол...
3020. Анализ управленческой деятельности открытого акционерного общества Вологодский машиностроительный завод 185 KB
  Организационно - правовая деятельность предприятия. Местом прохождения практики является Открытое акционерное общество Вологодский машиностроительный завод (далее ОАО ВМЗ). Свою деятельность в соответствии с действующим Законодатель...
3021. Анализ рынка банковских векселей 372.73 KB
  Сектор банковских векселей После краха рынка ГКО и потери практически всех средств, инвестированных в госбумаги, многие операторы перенесли свои операции в сектор векселей банков и компаний, своевременно погашающих свои об...
3022. Особенности создания бренда 90 KB
  Общая теория бренда Давайте сначала выясним для себя что есть бренд? Все его видели – немногие знают в лицо. Бренд – американизированный (а значит, сокращенный) вариант английского сложносочиненного brand-name (значение brand: 1.3.: кл...
3023. Атомное ядро. Изучение атомного ядра и частиц 71 KB
  Изучение атомного ядра вынуждает заниматься элементарными частицами. Причина этого ясна: в ядрах атомов частиц так мало, что свойства каждой из них в отдельности не усредняются, а, напротив, играют определяющую роль.
3024. Введение в программирование под Windows 91 KB
  Лекция 1. Введение в программирование под Windows Под термином WINDOWS-программирование можно подразумевать все, что угодно, но в большинстве своем это означает "событийное" программирование. Именно эта концепция используется в Windows. Она кардинал...