70172

Visual Basic

Курсовая

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

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

Русский

2014-10-16

92.5 KB

14 чел.

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

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

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

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

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

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

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

Заключение.

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

Приложение.

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

Главная

Часы


 

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

43157. Теоретический ремонт РМ 251 KB
  Краткое описание тракта прохождения сигнала. Краткое описание тракта прохождения сигнала. оно входит в тракт прохождения сигнала то рассмотрим его более подробно. Отследим тракт прохождения сигнала при выводе буквенно цифровой информации на экраны РМ.
43158. Поиск неисправностей 3.06 MB
  Пульт оперативного управления СВ Назначение и состав ПОУ СВ ПОУ СВ предназначен для ручного управления и контроля за работой СВ при наладке аппаратуры и программ и для оперативного вмешательства в работу программ при решении рабочих задач. ПОУ выполняем следующие функции: установку в исходное состояние регистров ВчУ и УО занесение на регистр словосостояния процессора ССП...
43159. Поиск неисправности. Теоретический ремонт РМ 176.5 KB
  Краткое описание тракта прохождения сигнала. Краткое описание тракта прохождения сигнала. оно входит в тракт прохождения сигнала то рассмотрим его более подробно. ЦВУ предназначен для формирования разверток на БИО и БИВ пересчета координат из абсолютной системы в относительную осуществлению синхронизации и программного управления отображением и обменом информации в реальном масштабе времени формировании управляющих служебных сигналов.
43160. Теоретический ремонт РМ при отсутствии отображения информации в режиме «ТХ» 94.5 KB
  На экране индикатора БИВ РМ №1 2 3 4 5 отсутствует отображение информации в режиме ТХ 2. УОП предназначен для организации обмена РМ с СВ хранения и регенерации принятой информации кодирования информации набранной на пультах контроля работоспособности РМ. В состав блока УОП входит: устройство управления обменом УУО; устройство кодирования пультовой информации УКПИ; устройство контроля РМ. Состав УУО: Сдвиговый регистр №1 Рг С1 96 разр осуществляет прием и выдачу информации.
43161. ИСПОЛНИТЕЛЬНЫЙ МЕХАНИЗМ 4.44 MB
  Провести расчет элементов и параметров конструкции исполнительного механизма прибора комплекса ЛА с учетом указанных в задании системных особенностей. Введение 4 Расчет кинематических параметров 5 Выбор двигателя 5 Расчет мощности двигателя 5 Кинематический расчет редуктора 6 Определение передаточного числа 6 Выбор кинематической схемы и типа используемых зп 7 Расчет числа зубьев 7 Ошибка по скорости 8 Расчет КПД...
43162. Проектирование технических расчетов зон ТО, диагностики и ТР на примере подвижного состава автотранспортных предприятий 273.5 KB
  Автомобильный транспорт является наиболее массовым и удобным видом транспорта обладающим большой манёвренностью хорошей проходимостью и приспособленностью для работы в различных климатических и географических условиях. Техническое обслуживание ТО является профилактическим мероприятием проводимым в плановом порядке через определенные длительность пробега или срок работы подвижного состава. ТО1 и ТО2 включают контрольнодиагностические крепёжные...
43163. Водный транспорт леса 2.26 MB
  В данном курсовом проекте рассмотрен пример организации первоначального лесосплава, представляющий собой комплекс производственных и подготовительных работ, связанных с перемещением лесных грузов по водным путям. В проекте рассматриваются наиболее распространенные виды водной транспортировки леса - молевой лесосплав, сплав леса в пучках, плотах и в баржах. Также необходимо оптимальным образом подобрать технику и оборудование на технологических участках, что, в свою очередь, обеспечивало бы беспрерывность работы и снижало простой данного оборудования.
43164. Восстановление детали оси пульта управления автокрана К-64 и разработка технологической планировки кабино-жестяницкого участка завода по ремонту тракторов Т-130 374.5 KB
  Курсовой проект является завершающим этапом изучения дисциплины ремонт машин и оборудования позволяющим в ходе работы над ним углубить и закрепить умение и навыки более детально изучить вопросы восстановления детали в частности оси пульта управления автокрана К64 углубить и закрепить умение и навыки в разработке технологической планировки медницкорадиаторного участка завода по ремонту тракторов Т130. В настоящее время ремонт детали достаточно широко применяется в практике эксплуатации строительных машин что и делает тему...
43165. Тепловой расчет конвективной туннельной сушильной установки для зимнего и летнего режимов 1.72 MB
  Определяем по заданным температурам tол=20.4 Определяем влагосодержание do г кгс.5 Определяем энтальпию ho кДж кгс.6 Определяем плотность природного газа при нормальных условиях.