Базовые элементы управления вводом и выводом информации в IDE VB

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

Государственное образовательное  учреждение

высшего профессионального  образования

«Ивановская государственная  текстильная академия»

(ИГТА)

 

Кафедра ПМИТ

 

 

 

 

 

 

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

 

дисциплина: Информатика

 

Автор работы_______________                                                  Козин И.А.           

                                Подпись                                                              Инициалы, фамилия

 

Специальность 100101  «Информационный сервис»

                                     Номер, наименование

 

Номер зачётной книжки: 104079                                        Группа 1э4

 

Руководитель работы ___________                                 Ветчинин Д.Д.

                                              Должность, подпись                               Инициалы, фамилия

 

                                                  

Работа  защищёна    ___________                                Оценка___________

                                                 Дата

 

 

 

 

Иваново 2011

 

Содержание

 

 

 

№  п/п	Наименование	Стр.
	Введение	3
1	Базовые элементы управления вводом и выводом информации в IDE VB	4
2	Процедуры и функции в  системе программирования VB	8
3	Важнейшие программные конструкции  в системе программирования VB. Создание MDI формы для проекта VB5	12
3.1	Реализация проекта VB 5.1	12
3.2	Реализация проекта VB 5.2	15
3.3	Реализация проекта VB 5.3	18
3.4	Реализация проекта VB 5.4	21
4	Использование элементов  визуального дизайна IDE VB	23
	Выводы	28
	Список использованных источников	29

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Введение

 

 

Visual Basic 6.0 – это средство разработки программного обеспечения. Как и у любой другой среды разработки приложений у него есть свои достоинства и свои недостатки.  Visual Basic - это объектно-ориентированный язык программирования. Объектами являются окно, кнопка,  текстовое поле с, с которыми работает программа и многое другое. Это дает возможность программисту не тратить много времени на разработку интерфейса и визуальное проектирование создаваемого приложения. В этом заключается основная особенность Visual Basic 6.0. Простой синтаксис программирования – вот еще одно достоинство этого языка. Это помогает начинающим программистам быстро освоить его. Основной недостаток VB 6.0 это сильная привязанность к своей среде разработки и невозможность программирования вне своей среды. VB  поддерживает операционные системы только семейства Windows и Mac OS. Это также является существенным недостатком для многих программистов.

Цель данной курсовой работы изучить основные элементы и принципы языка программирования Visual Basic 6.0.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1. Базовые элементы управления вводом и выводом информации в IDE VB

 

 

В пункте 2.2 работы VB3  предлагается разработать приложение для расчета задачи по данной формуле:

 

 

 

Разрабатываем интерфейс приложения, который представлен на рисунке 1.

 

 

 

 

Рисунок 1 – Интерфейс  приложения для выполнения пункта 2.2 работы VB3

 

 

Обьявляем переменные:

 

Option Explicit     

Dim K As Single

Dim w As Single

Dim n As Single

 

Программный код для выполнения  процедуры обработки события  нажатия клавиши «Вычислить»:

 

 

Private Sub Cmd_1_Click()

    Dim i As Integer

    Dim G As Single

    Dim n As Integer

 

       n = Round(Val(Txt_3))

        w = Val(Txt_2)

        K = Val(Txt_1)

 

    For i = 0 To n

        G = 1

        G = G * (K * 2.7 ^ (-w * i))

    Next i

        Txt_4 = G

End Sub

 

 

Код обработки события  нажатия клавиши «Очистить поля»:

 

 

Private Sub Cmd_2_Click()

    Txt_1.Text = ""

    Txt_2.Text = ""

    Txt_3.Text = ""

    Txt_4.Text = ""

End Sub

 

Запрет на ввод других символов кроме цифр:

 

Private Sub Txt_1_Change()

    If Not IsNumeric(Txt_1.Text) Then

        Txt_1.Text = ""

    End If

End Sub

 

Private Sub Txt_2_Change()

    If Not IsNumeric(Txt_2.Text) Then

        Txt_2.Text = ""

    End If

End Sub

 

Private Sub Txt_3_Change()

    If Not IsNumeric(Txt_3.Text) Then

        Txt_3.Text = ""

    End If

End Sub

 

Private Sub Txt_4_Change()

    If Not IsNumeric(Txt_4.Text) Then

        Txt_4.Text = ""

    End If

End Sub

 

 

Далее, в пункте 2.3 предлагается разработать приложение для исследования свойств Auto Size и Wordwrap  инструмента«Поле метки». Для этого на форме располагаем объект Lable c названием Lbl_1  и клавиши включающие и отключающие свойства Auto Size и Wordwrap. Код приложения представлен ниже:

 

 

Private Sub Cmd_1_Click(Index As Integer)

    Frm_2.Lbl_1.AutoSize = True

End Sub

 

Private Sub Cmd_2_Click()

    Frm_2.Lbl_1.AutoSize = False

    Frm_2.Lbl_1.Height = 555

    Frm_2.Lbl_1.Width = 3600

End Sub

 

Private Sub Cmd_3_Click(Index As Integer)

    Frm_2.Lbl_1.WordWrap = True

 

End Sub

 

Private Sub Cmd_4_Click()

    Frm_2.Lbl_1.WordWrap = False

    Frm_2.Lbl_1.Height = 555

    Frm_2.Lbl_1.Width = 3600

End Sub

 

В пункте 2.4 работы VB3 нужно создать приложение для исследования свойства MultiLine текстового поля. На форму помещаем два объекта TextBox, на одном из них свойство MultiLine активно, а на другом нет. Для удобства приложения также помещаем клавишу очистки полей. Никаких процедур в приложении не выполняется, поэтому и в коде кроме очистки полей ничего не прописано:

 

 

Private Sub Cmd_2_Click()

     Txt_1.Text = ""

     Txt_2.Text = ""

End Sub

 

 

В пункте 2.5 предложено разработать  приложение, предназначенное для  редактирования и обмена содержимым двух текстовых полей. Визуальный дизайн приложения представлен на рисунке 2.

 

 

 

 

Рисунок 2 – Визуальный дизайн приложения пункта 2.5 работы VB3

 

 

Код  приложения:

 

 

Private Sub Cmd_1_Click()

    Clipboard.Clear

    Clipboard.SetText Txt_1.SelText

End Sub

 

Private Sub Cmd_2_Click()

    Txt_1.SetFocus

    Txt_1.SelStart = 0

    Txt_1.SelLength = Len(Txt_1.Text)

End Sub

 

Private Sub Cmd_3_Click()

    Txt_2.SelText = Clipboard.GetText()

End Sub

 

Private Sub Cmd_4_Click()

    Clipboard.Clear

    Clipboard.SetText Txt_1.SelText

    Txt_1.SelText = ""

End Sub

 

 

2. Процедуры и функции в системе программирования VB

 

 

В разработанном приложении должна решаться задача: шар радиусом K плавает на поверхности воды, погруженный  в нее на глубину  а * r ( a<r ). Требуется вычислить работу, которая необходима для погружения шара под воду. Работу вычислять посредством численного интегрирования.

Интерфейс приложения представлен  на рисунке 3.

 

 

 

 

Рисунок 3 – Интерфейс  приложения VB4

 

 

Код программы реализации VB4:

Обьявляем переменные:

 

Option Explicit

Dim A As Single

Dim k As Single

Dim a1 As Single

Dim r As Single

Const P = 1 'Плотность воды

Dim d As Single

Dim q As Single

Dim w As Single

Dim z As Single

Dim V As Single

Dim h As Single

Dim Bag As Single

Const pi = 3.14

 

 

Процедура обработки события  нажатия клавиши «Вычислить А»:

 

Private Sub Cmd_1_Click()

 

    k = Val(Txt_1.Text)

    a1 = Val(Txt_2.Text)

    r = Val(Txt_3.Text)

    w = Val(Txt_5.Text)

    q = Val(Txt_6.Text)

    V = 4 / 3 * pi * k ^ 3

    d = 2 * k

    Bag = 0

        If a1 < r Then

            Do

                z = d / w

                For h = 0 To d Step z

                   

                    Bag = Vsegm(h)

                    If V > Vsegm(h) Then

                        Vsegm (h)

                        List1.AddItem Vsegm(h)

                        A = P * Vsegm(h) * 9.8 * (d - (a1 * r))

                        List2.AddItem A

                    Else

                    Exit Do

                    End If

                Next h

            Loop While V - Vsegm(h) > q

        Else

            MsgBox "Ошибка", vbCritical, "Error"

        End If

    End Sub

 

 

Для корректной работы программы  также создаем функцию, вызываемую в указанном выше коде:

 

Private Function Vsegm(h As Single) As Single

    Vsegm = 1 / 3 * pi * (h) ^ 2 * (3 * k - (h))

End Function

 

Для удобства работы с приложением  создаем кнопку для очистки полей  вывода результата. Ниже приведен код  обработки события ее нажатия:

 

 

Private Sub Cmd_2_Click()

        List1.Clear

        List2.Clear

    End Sub

 

 

 

Рисунок 4 – Блок-схема алгоритма работы проекта VB4

3. Важнейшие программные конструкции в системе программирования VB.

Создание MDI формы для проекта VB5

 

 

Работа VB 5 состоит из четырех пунктов. Необходимым заданием было создание MDI формы и загрузка остальных приложений из  ее меню. Код формы представлен ниже:

 

 

Private Sub Zadanie1_Click()

Frm_1.WindowState = 2

End Sub

 

Private Sub zadanie2_Click()

Frm_2.WindowState = 2

End Sub

 

Private Sub zadanie3_Click()

Frm_3.WindowState = 2

End Sub

 

Private Sub zadanie4_Click()

Frm_4.WindowState = 2

End Sub

 

 

3.1   Реализация проекта VB 5.1

 

 

В задании  VB 5.1 требуется проанализировать введенный текст и определить частоту использования в нем каждого символа десятичного числового кода и отобразить результат. Для этого на форме располагаем элемент TextBox. Загрузка текста в него производится из файла сразу после загрузки формы. Также на форме располагаем еще 10 текстовых полей соответствующих каждому  десятичному символу  для вывода в них результата подсчета, и два элемента управления CommandButton. Интерфейс приложения представлен на рисунке 5.

 

 

 

Рисунок 5 – Интерфейс  приложения VB 5.1

 

 

Ниже представлен код  реализации программы:

 

Option Explicit

Dim i As Integer

Dim N As Integer

Dim k As Integer

Dim M As Integer

Dim l As Integer

Dim t As Integer

Dim u As Integer

Dim h As Integer

Dim a As Integer

Dim d As Integer

Dim b As Integer

 

Private Sub Cmd_1_Click()

N = 0

k = 0

M = 0

l = 0

t = 0

u = 0

h = 0

a = 0

d = 0

b = 0

 

   For i = 1 To Len(Txt_1)

    If Mid(Txt_1, i, 1) = "0" Then N = N + 1

    If Mid(Txt_1, i, 1) = "1" Then k = k + 1

    If Mid(Txt_1, i, 1) = "2" Then M = M + 1

    If Mid(Txt_1, i, 1) = "3" Then l = l + 1

    If Mid(Txt_1, i, 1) = "4" Then t = t + 1

    If Mid(Txt_1, i, 1) = "5" Then u = u + 1

    If Mid(Txt_1, i, 1) = "6" Then h = h + 1

    If Mid(Txt_1, i, 1) = "7" Then a = a + 1

    If Mid(Txt_1, i, 1) = "8" Then d = d + 1

    If Mid(Txt_1, i, 1) = "9" Then b = b + 1

    Next i

       Txt_2.Text = N

        Txt_3.Text = k

        Txt_4.Text = M

        Txt_5.Text = l

        Txt_6.Text = t

        Txt_7.Text = u

        Txt_8.Text = h

        Txt_9.Text = a

        Txt_10.Text = d

        Txt_11.Text = b

End Sub

 

 

Код для загрузки текста из текстового файла:

 

 

Private Sub Form_Load()

    Dim Fn As Long

        Fn = FreeFile

    Open App.Path & "\f.txt" For Input As Fn

        Txt_1.Text = Input(LOF(Fn), Fn)

    Close Fn

End Sub

 

 

3.2 Реализация  проекта VB 5.2

 

 

Задание к пункту звучит так: исследовать на экстремум функцию 

 

 

 

 

 

на интервале, заданном пользователем (тестовый интервал  [0;3]). Использовать итерацию, возможна оценка точности с использованием в качестве критерия производной.

Интерфейс программы представлен  на рисунке 6.

 

 

 

 

Рисунок 6 – Интерфейс  приложения работы VB 5.2

 

 

Код реализации программы  представлен ниже:

 

 

 

Option Explicit

Dim x As Single

Dim y As Single

Dim X1 As Single

Dim X2 As Single

Dim Ymin As Single

Dim Xmin As Single

Dim Ymax As Single

Dim Xmax As Single

Dim z As Single

 

Private Function F(x As Single) As Single

    F = (x - 2) ^ 2 / 3 * (2 * x + 1)

End Function

Private Sub Cmd_1_Click()

 

    Ymin = F(X1 - 0.0000001)

    Ymax = F(X2 + 0.0000001)

 

    X1 = Val(Txt_1.Text)

    X2 = Val(Txt_2.Text)

    z = Val(Txt_6.Text)

   

    For x = X1 To X2 Step z

            F (x)

            y = F(x)

           

            If y > Ymax Then

            Ymax = y

            End If

       

            If y < Ymin Then

            Ymin = y

            End If

            List1.AddItem y

    Next x

            Txt_4.Text = Ymax

            Txt_5.Text = Ymin

End Sub

 

Private Sub Cmd_2_Click()

        Txt_1.Text = ""

        Txt_2.Text = ""

        Txt_4.Text = ""

        Txt_5.Text = ""

        List1.Clear

End Sub

 

 

 

 

Рисунок 7 – Блок-схема  алгоритма выполнения работы VB 5.2