Проектирование и программирование собственных приложений для решения поставленных задач
Разработка интерфейса пользователя в среде визуального проектирования Visual Basic. Создание, заполнение таблиц и организация различного вида запросов в СУБД MS Accеss. Экспорт данных из MS Access в Visual Basic 6.0 с целью их последующей обработки.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 03.10.2017 |
| Размер файла | 3,1 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.Allbest.ru/
Курсовая работа
По дисциплине «Компьютерная подготовка»
Лысогорский Сергей
Студент 1 курса, МЭ 1-3
Введение
|
Label1 |
Caption |
Курсовая работа по дисциплине "Компьютерная подготовка" студента I курса МЭ 1-3 Лысогорского Сергея |
|
|
Label1 |
BorderStyle |
0 - None |
|
|
Form1 |
Picture |
… |
Private Sub Label1_Click()
Form1.Hide
Form6.Show
End Sub
|
Label 4 |
Caption |
Лабораторная работа №4 Задание №1 |
|
|
Label 5 |
Caption |
Получить новую последовательность S1, ..., Sn, которые отличаются от исходных членов тем, что все нечётные члены удвоенны. |
|
|
Label 1 |
Caption |
Количество членов. |
|
|
Label 2 |
Caption |
Исходная последовательность. |
|
|
Label 3 |
Caption |
Новая последовательность. |
|
|
Text1 |
Text |
||
|
Text2 |
Text |
||
|
Text3 |
Text |
||
|
Command1 |
Caption |
Вычислить. |
|
|
Command2 |
Caption |
Отрубить программу. |
|
|
Command3 |
Caption |
Далее |
|
|
Command4 |
Caption |
Назад |
Private Sub Command1_Click()
Dim q As String
Dim s As Integer
Dim a As String
Dim t As Integer
Dim N As Integer
q = 0
a = 0
N = Val(Text1.Text)
For i = 1 To N
s = InputBox("Введите S")
If s Mod 2 = 0 Then
t = s
Else
t = 2 * s
End If
q = q + Str(s) + ";"
a = a + Str(t) + ";"
Text2 = q
Text3 = a
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form3.Hide
Form4.Show
End Sub
Private Sub Command4_Click()
Form3.Hide
Form6.Show
End Sub
|
Label3 |
Caption |
Лабораторная работа №4 Задание №2. |
|
|
Label1 |
Caption |
Вычислить приближённое значение суммы с точностью 0.0001. последовательность: 1 -1/2+1/3-1/4+... |
|
|
Text1 |
Text |
||
|
Label2 |
Caption |
Точное значение = 0,6931478... |
|
|
Command1 |
Caption |
Вычислить. |
|
|
Command2 |
Caption |
Отрубить программу. |
|
|
Command3 |
Caption |
Назад |
|
|
Command4 |
Caption |
Далее |
Private Sub Command1_Click()
Dim a As Double
Dim N As Integer
Dim d As Double
Do
N = N + 1
d = (1 / N) * ((-1) ^ (N + 1))
a = a + d
Loop While Abs(d) >= 0.0001
Text1 = Fix(a * 10000) / 10000
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form4.Hide
Form3.Show
End Sub
Private Sub Command4_Click()
Form4.Hide
Form5.Show
End Sub
интерфейс visual basic таблица accеss
|
Label2 |
Caption |
Лабораторная работа №5. |
|
|
Label1 |
Caption |
Даны затраты каждого из 7 предприятий на реконструкцию на каждый год пятилетки. а) Для каждого года пятилетки определить наиболее экономное предприятие. b) Для каждого предприятия определить средние годовые затраты. |
|
|
MSFlexgrid1 |
Name |
MSF1 |
|
|
MSF1 |
Cols |
8 |
|
|
MSF1 |
Rows |
10 |
|
|
Command1 |
Caption |
Заполнить таблицу |
|
|
Command2 |
Caption |
Вычислить |
|
|
Command3 |
Caption |
Назад |
|
|
Command4 |
Caption |
Вырубить программу. |
|
|
Command5 |
Caption |
Далее |
Private Sub Command1_Click()
Const m = 7
Const N = 5
Dim a(m, N) As Integer
Dim i As Byte
Dim j As Byte
MSF1.Rows = m + 3
MSF1.Cols = N + 3
For i = 1 To m
For j = 1 To N
a(i, j) = Fix(Rnd * 100)
MSF1.TextMatrix(i, j) = a(i, j)
Next j
Next i
Command2.Enabled = True
For i = 1 To m
MSF1.TextMatrix(i, 7) = " "
MSF1.TextMatrix(i, 6) = " "
Next i
For j = 1 To N
MSF1.TextMatrix(9, j) = " "
MSF1.TextMatrix(8, j) = " "
Next j
End Sub
Private Sub Command2_Click()
Const m = 7
Const N = 5
Dim a(m, N) As Integer
Dim i As Byte
Dim j As Byte
Dim v As Integer
Dim k As Byte
Dim b As Byte
Dim c As Byte
For i = 1 To m
For j = 1 To N
a(i, j) = MSF1.TextMatrix(i, j)
Next j
Next i
For i = 1 To m
v = 0
For j = 1 To N
v = v + a(i, j)
Next j
b = v / 5
MSF1.TextMatrix(i, 7) = b
Next i
For j = 1 To N
k = a(1, j)
For i = 2 To m
If a(i, j) < k Then
k = a(i, j)
c = i
Else
k = k
End If
Next i
MSF1.TextMatrix(9, j) = k
MSF1.TextMatrix(8, j) = MSF1.TextMatrix(c, 0)
Next j
End Sub
Private Sub Command3_Click()
Form5.Hide
Form4.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Form5.Hide
form8.Show
End Sub
Private Sub Form_Load()
MSF1.TextMatrix(1, 0) = "Первое предприятие"
MSF1.TextMatrix(2, 0) = "Второе предприятие"
MSF1.TextMatrix(3, 0) = "Третье предприятие"
MSF1.TextMatrix(4, 0) = "Четвёртое предприятие"
MSF1.TextMatrix(5, 0) = "Пятое предприятие"
MSF1.TextMatrix(6, 0) = "Шестое предприятие"
MSF1.TextMatrix(7, 0) = "Седьмое предприятие"
MSF1.TextMatrix(8, 0) = "Наиболее экономное предприятие"
MSF1.TextMatrix(9, 0) = "Значение наиболее экономного предприятия"
MSF1.TextMatrix(0, 1) = "Первый год пятилетки"
MSF1.TextMatrix(0, 2) = "Второй год пятилетки"
MSF1.TextMatrix(0, 3) = "Третий год пятилетки"
MSF1.TextMatrix(0, 4) = "Четвёртый год пятилетки"
MSF1.TextMatrix(0, 5) = "Пятый год пятилетки"
MSF1.TextMatrix(0, 7) = "Средние годовые затраты"
End Sub
|
Label13 |
Caption |
Лабораторная работа №3:работа с листами |
|
|
Label14 |
Caption |
Задача с списками студентов. Добавить, удалить, подтвердить участие студента.Кредит |
|
|
Label1 |
Caption |
Фамилия студента |
|
|
Label3 |
Caption |
Город |
|
|
Label4 |
Caption |
Доход |
|
|
Label2 |
Caption |
Количество студентов: |
|
|
Label8 |
Caption |
Кредит: |
|
|
Label9 |
Caption |
Количество студентов на экскурсию: |
|
|
Label10 |
Caption |
Возможно поедут: |
|
|
Label11 |
Caption |
возможно поедут: |
|
|
Label12 |
Caption |
точно поедут: |
|
|
Label5 |
Caption |
Выберите город: |
|
|
Label6 |
Caption |
Точно поедут: |
|
|
Label7 |
Caption |
Стоимость экскурсии |
|
|
List1 |
List |
||
|
List2 |
List |
||
|
List4 |
List |
||
|
List5 |
List |
||
|
List6 |
List |
||
|
List3 |
List |
||
|
Text1 |
Text |
||
|
Text4 |
Text |
||
|
Text2 |
Text BackColor |
------------ Menu Bar |
|
|
Text5 |
Text BackColor |
------------ Menu Bar |
|
|
Text3 |
Text BackColor |
------------ Menu Bar |
|
|
Command4 |
Caption |
Добавить студента |
|
|
Command1 |
Caption |
Заполнить |
|
|
Command5 |
Caption |
Удалить студента |
|
|
Command6 |
Caption |
Подтвердить участие студента в экскурсии |
|
|
Command2 |
Caption |
Далее |
|
|
Command7 |
Caption |
Назад |
|
|
Command3 |
Caption |
Выход |
Private Sub Command1_Click()
List1.AddItem "Иванов"
List1.AddItem "Петров"
List1.AddItem "Сидоров"
List1.AddItem "Пупкин"
List1.AddItem "Козлов"
List1.AddItem "Ивкин"
List1.AddItem "Ванечкин"
List1.AddItem "Опупелов"
List1.AddItem "Угорелов"
List1.AddItem "Зазевалкин"
List1.AddItem "Вонючкин"
List1.AddItem "Оглоедов"
List1.AddItem "Зебрин"
List1.AddItem "Васин"
List1.AddItem "Шлюпков"
Text2.Text = List1.ListCount
List3.AddItem "1500"
List3.AddItem "6000"
List3.AddItem "3500"
List3.AddItem "2000"
List3.AddItem "1400"
List3.AddItem "980"
List3.AddItem "2300"
List3.AddItem "1900"
List3.AddItem "1700"
List3.AddItem "4500"
List3.AddItem "4200"
List3.AddItem "2800"
List3.AddItem "5300"
List3.AddItem "1980"
List3.AddItem "3100"
List2.AddItem "Москва"
List2.AddItem "Санкт-Петербург"
List2.AddItem "Великий Новгород"
List2.AddItem "Ростов-на-Дону"
List2.AddItem "Жуковский"
List2.AddItem "Москва"
List2.AddItem "Ростов-на-Дону"
List2.AddItem "Москва"
List2.AddItem "Великий Новгород"
List2.AddItem "Ростов-на-Дону"
List2.AddItem "Москва"
List2.AddItem "Жуковский"
List2.AddItem "Москва"
List2.AddItem "Великий Новгород"
List2.AddItem "Жуковский"
Text4.Text = 0
Dim N As Integer
Dim m As Integer
Dim a As Integer
Dim s As Integer
m = Text2.Text
For i = 0 To m - 1
s = 0
N = List4.ListCount
If N = 0 Then
List4.AddItem List2.List(i)
Else
For j = 0 To N - 1
If List2.List(i) = List4.List(j) Then
a = 1
Else
a = 0
End If
s = s + a
Next j
If s = 0 Then
List4.AddItem List2.List(i)
End If
End If
Next i
End Sub
Private Sub Command2_Click()
Form6.Hide
Form3.Show
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
For N = 0 To (Text2.Text - 1)
If List1.Selected(N) = True Then
If List4.Selected(d) = True Then
r = List4.List(d)
End If
If List2.List(N) = r Then
If List3.List(N) < Text1.Text Then
If Text4.Text >= (Text1.Text - List3.List(N)) Then
List5.AddItem List1.List(N)
Text3.Text = List5.ListCount
Text4.Text = (Text4.Text - Text1.Text + List3.List(N))
Else
MsgBox "не хватает кредита"
End If
Else
List5.AddItem List1.List(N)
Text3.Text = List5.ListCount
End If
Else
If Text4.Text >= (Text1.Text - List3.List(N)) Then
List5.AddItem List1.List(N)
Text3.Text = List5.ListCount
Text4.Text = (Text4.Text - Text1.Text + List3.List(N))
Else
MsgBox "не хватает кредита"
End If
End If
End If
Next N
End Sub
Private Sub Command5_Click()
Dim b As Integer
b = List5.ListIndex
List5.RemoveItem b
Text3.Text = List5.ListCount
End Sub
Private Sub Command6_Click()
For p = 0 To (List5.ListCount - 1)
If List5.Selected(p) = True Then
List6.AddItem List5.List(p)
For i = 0 To (Text2.Text - 1)
If List1.List(i) = List5.List(p) Then
If (List3.List(i) - Text1.Text) >= 0 Then
List3.List(i) = List3.List(i) - Text1.Text
Else
List3.List(i) = "Влез в долги"
End If
g = 0
End If
Next i
End If
Next p
For d = 0 To (List6.ListCount - 1)
For h = 0 To (List5.ListCount - 1)
If List6.List(d) = List5.List(h) Then
List5.RemoveItem (h)
End If
Next h
Next d
Text3.Text = List5.ListCount
Text5.Text = List6.ListCount
End Sub
Private Sub Command7_Click()
Form6.Hide
Form1.Show
End Sub
Private Sub Label12_Click()
End Sub
Private Sub List1_Click()
For N = 0 To (List1.ListCount - 1)
If List1.Selected(N) = True Then
List2.Selected(N) = True
List3.Selected(N) = True
End If
Next N
End Sub
Private Sub List2_Click()
For N = 0 To (List1.ListCount - 1)
If List2.Selected(N) = True Then
List1.Selected(N) = True
List3.Selected(N) = True
End If
Next N
End Sub
Private Sub List3_Click()
For N = 0 To (List1.ListCount - 1)
If List3.Selected(N) = True Then
List2.Selected(N) = True
List1.Selected(N) = True
End If
Next N
End Sub
Private Sub List4_Click()
List5.Clear
If List4.Text = "Москва" Then
Text1.Text = 2000
Else
If List4.Text = "Санкт-Петербург" Then
Text1.Text = 1000
Else
If List4.Text = "Великий Новгород" Then
Text1.Text = 1500
Else
If List4.Text = "Ростов-на-Дону" Then
Text1.Text = 3000
Else
If List4.Text = "Жуковский" Then
Text1.Text = 500
End If
End If
End If
End If
End If
Dim m As Integer
Dim d As Integer
m = List1.ListCount
d = Text1.Text
For i = 0 To m - 1
If List4.Text <> List2.List(i) Then
If List3.List(i) >= d Then
List5.AddItem List1.List(i)
End If
End If
Next i
Text3.Text = List5.ListCount
End Sub
|
Label4 |
Caption |
Лабораторная работа №6 |
|
|
Label5 |
Caption |
Составить функцию для вычисления y=1-x/2+(x^2)/(2*5)-(x^3)/(2*5*6)+(x^4)/(2*5*6*9)-(x^5)/(2*5*6*9*10)+... принимая модуль х не больше 1. Вычисление продолжать, пока модуль разницы между слагаемым и его предыдущим значением больше заданной малой величины (точности значений). |
|
|
Label1 |
Caption |
Введите X, так, чтобы |x| не был > 1 |
|
|
Label2 |
Caption |
Введите точность значения |
|
|
Label3 |
Caption |
y= |
|
|
Text1 |
Name Caption |
x ------------ |
|
|
Text2 |
Name Caption |
t ------------ |
|
|
Text3 |
Name Caption |
r ------------ |
|
|
Command1 |
Caption |
Вычислить |
|
|
Command2 |
Caption |
Назад |
|
|
Command3 |
Caption |
Выключить курсовую работу. |
Function y(x As Double, t As Double)
Dim g As Double
s = 1
N = 0
k = 1
g = 1
Do
g = g + ((-1) ^ N * x ^ N) / s
N = N + 1
If N Mod 2 = 1 Then
k = k + 1
Else
k = k + 3
End If
s = s * k
Loop While Abs(((-1) ^ N * x ^ N) / s) > t
y = g
End Function
Private Sub Command1_Click()
r = y(x, t)
End Sub
Private Sub Command2_Click()
form8.Hide
Form5.Show
End Sub
Private Sub Command3_Click()
End
End Sub
Формирование таблиц и запросов в СУБД MS Access. Экспорт данных из MS Access в Visual Basic 6.0
Задание 1. Создание таблицы
Задание 2. Формирование запросов
Задание 3. Экспорт данных из MS Access в Visual Basic 6.0 через элемент управления Data
Структура таблиц:
|
Предприятие |
Продукция |
Выпуск за 1 мес |
Выпуск за 2 мес |
Выпуск за 3 мес |
|
Выпуск 4 мес |
Выпуск 5 мес |
Выпуск 6 мес |
Цена |
|
Предприятие |
Адрес |
Дата основания |
Каждое предприятие выпускает несколько видов продукции, и одна и та же продукция выпускается разными предприятиями.
Состав меню:
1. Распечатка исходных таблиц
2. Формирование и выдача справок
Справка 1. Вывод справки в виде:
|
Предприятие |
Продукция |
Среднемесячная стоимость |
Номера месяцев с максимальным выпуском |
Справка 2. Вывод сведений о предприятиях г. Москвы и г. Тулы. По каждому предприятию из этих городов вывести: название, адрес, стоимость выпусков всех видов продукции за полугодие, количество видов продукции.
Справка 3. Вывод сведений о динамике выпуска продукции на произвольно заданном предприятии. По каждой выпускаемой продукции должны быть выведены такие данные:
Продукция, цена, стоимость выпуска за полугодие, динамика выпуска. В качестве динамики выпуска вывести один из вариантов текста: “Рост”, “Падение”, “Колебание”, “Неизменен”.
3. Создание Документа:
Сведения о стоимости выпуска
Предприятие Продукции Среднемесячный выпуск Выпущено за полгода (руб.)
…. …. …. ….
Итого по предприятию …
Итого по всем предприятиям …
Основная таблица - база данных: Предприятия, Виды продукции, Выпуск продукции с 1-6, Цена продукции
Вторая таблица - база данных: Предприятия, Адрес (Город, Улица, Дом), Дата основания
Запрос на среднемесячную стоимость, используется обе таблицы
Запрос на количество видов продукции, используются обе таблицы. Сделано так же через Data
Запрос на динамику выпуска за всё полугодие (Рост, Падение, Колебание). Используется основная таблица «Предприятия и продукция»
Сделано через экспорт данных в Visual Basic из Access используя Data.
|
Data1 |
DataBaseName |
.../Запрос1 |
|
|
MSFlexGrid1 |
Name |
M1 |
|
|
M1 |
FixedCols |
0 |
|
|
M1 |
DataSource |
Data1 |
|
|
MSFlexGrid2 |
Name |
M2 |
|
|
M2 |
Rows |
3 |
|
|
M2 |
Cols |
3 |
|
|
Command1 |
Caption |
Cделать выборку на количество видов продукции |
Private Sub Command1_Click()
a = M1.Rows
N = 1
k = 1
b = M1.TextMatrix(1, 0)
s = M1.TextMatrix(1, 2)
For i = 2 To (a - 1)
If M1.TextMatrix(i, 0) = b Then
k = k + 1
c = M1.TextMatrix(i, 1)
s = s + M1.TextMatrix(i, 2)
Else
b = M1.TextMatrix(i, 0)
N = N + 1
k = 1
c = M1.TextMatrix(i, 1)
s = M1.TextMatrix(i, 0)
End If
M2.TextMatrix(N, 0) = b
M2.TextMatrix(N, 2) = k
M2.TextMatrix(N, 1) = c
Next i
M2.TextMatrix(0, 0) = "Адрес"
M2.TextMatrix(0, 1) = "Предприятия"
M2.TextMatrix(0, 2) = "Количество видов продукции"
End Sub
Отчёт или же создание документа, последнее задание курсовой работы
Список литературы
1. Visual Basic 6.0 - “Наиболее полное руководство для профессиональной работы в среде Visual Basic 6.0”. Издательство «Мастер», 2004 год, С-П.
2. Обработка баз данных на Visual Basic 6.0”, Издательство «Вильямс», 2001 г.
3. Microsoft Access 2000 учебный курс”. С. Робинсон. изд. «Питер», 2001 г, С-П
Размещено на Allbest.ru
...Подобные документы
Программный проект Баз данных средствами Visual Basic 6.0. Проектирование структуры таблицы базы данных Visual Basic 6.0. Заполнение созданных таблиц БД исходными данными. Создание пользовательского меню. Вид формы и свойства элементов управления.
курсовая работа [3,0 M], добавлен 19.06.2010Принципы визуального программирования. Создание программы, генерирующей звук через определенные промежутки времени. Visual Basic как средство разработки прототипов программы, для разработки приложений баз данных и компонентного способа создания программ.
лабораторная работа [1,1 M], добавлен 10.12.2014Visual Basic for Application. Объекты и коллекции. Использование VBA в среде Access. Основы современной технологии проектирования АИС. Автоматизированное проектированиеCASE-технологий. Реинжиниринг бизнес-процессов и проектирование корпоративной ИС.
курсовая работа [2,1 M], добавлен 22.02.2008Рождение и развитие Basic. Краткое описание Visual Basic for Applications. Новые возможности Visual Basic 5.0. Пример взаимодействия Excel и Visual Basic. Программирование табличных функций. Встраивание, применение функций. Формы, средства управления OLE.
реферат [20,7 K], добавлен 11.03.2010Язык программирования Visual Basic: краткая история возникновения, значение и общая характеристика. Изучение основных свойств Visual Basic, синтаксис языка. Обзор ключевых операторов Visual Basic, пользовательские процедуры и функции данного языка.
контрольная работа [36,4 K], добавлен 23.07.2014Разработка программного продукта с помощью языка программирования Visual Basic. Описание интерфейса пользователя и возможностей программы. Исходный код основных модулей. Программа, демонстрирующая основные возможности диаграмм и среды Visual Basic.
контрольная работа [989,9 K], добавлен 29.03.2011Решение экономических задач с помощью Microsoft Excel и инструментария Visual Basic For Application. Способы запуска редактора Visual Basic, правила его синтаксиса. Создание автоматических макросов по сортировке и выборке. Создание управляющих кнопок.
курсовая работа [852,0 K], добавлен 24.09.2010Рабочая среда Visual Basic (VB) и ее основные компоненты. Ввод и вывод данных в VB. Объявление переменных и констант в программе. Создание и работа с процедурами и функциями, их виды. Организация ветвления в VB. Использование циклов в программировании.
практическая работа [502,5 K], добавлен 26.10.2013Составление блок-схемы алгоритма решения задачи, погрешности вычисления суммы членов числового ряда. Разработка программ на языке на Visual Basic, работа с массивами. Особенности работы со строковыми данными. Варианты реализации формы приложения.
контрольная работа [220,4 K], добавлен 18.06.2010Описание Visual Basic Scripting Edition как скриптового языка программирования, интерпретируемого компонентом Windows Script Host. Правила работы языка и применение VBS-сценариев для обработки данных, управления системой, работы с учетными записями.
доклад [31,3 K], добавлен 11.05.2012Этапы подготовки и решения задач на компьютере. Способы предоставления алгоритмов. Простые типы данных и их обработка. Основы работы с графикой и графическими операторами в Visual Basic. Организация линейной программы. Процедуры и функции в языке Паскаль.
дипломная работа [1,9 M], добавлен 25.10.2015Общие понятия реляционного похода к базам данных. Разработка программы для автоматизации функций руководителя салона сотовой связи. Детализация бизнес-процессов. Интерфейс для работы пользователя. Тестирование разработанной информационной системы.
курсовая работа [2,2 M], добавлен 26.06.2012Основы работы с языком программирования Visual Basic 6.0, разработка и обработка созданных баз данных. Создание экранной формы и запросов по таблице VIP. Алгоритм совместного запроса по таблицам VIP и PROD. Методика разработки пользовательского меню.
курсовая работа [2,7 M], добавлен 04.06.2009Создание базы данных при помощи СУБД, разработка собственного приложения. Информационно-логическая модель рекламного агентства. Структура реляционной базы данных в Access. Заполнение таблиц информацией. Структура приложения и взаимодействия форм.
курсовая работа [12,6 M], добавлен 17.06.2014Многообразие мини-игр и возможности языка Visual basic 6.0 для их реализации. Понятие мини-игр и их классификация. Элементы управления мини-игры "Реверси". Разработка прикладной программы. Создание игрового интерфейса. Написание программного кода.
курсовая работа [1,5 M], добавлен 03.06.2014Вывод графических файлов на компонент Picture. Действия Visual Basic по умолчанию. Создание графического интерфейса пользователя. Циклический показ фотографий. Формирование списка изображений и их циклический вывод на экран с определенным интервалом.
курсовая работа [3,2 M], добавлен 05.01.2013Напівфункціональна мова програмування, складова частина Access - Visual Basic for Applications (VBA). Створення коду VBA за допомогою майстрів елементів управління. Модулі, створення процедур обробки подій. Редагування у вікні модуля, аргументи процедури.
реферат [144,8 K], добавлен 31.08.2009Исследование теоретических аспектов разработки программы посредством использования Visual Basic. Анализ достоинств и недостатков данного языка программирования. Изучение особенностей создания интерфейса приложения. Основные этапы реализации программы.
практическая работа [460,6 K], добавлен 22.01.2013Система программирования - Visual Basic. Новые возможности. Быстрый запуск проекта. Средства управления. Что позволяет Visual Basic. Краткое описание работы. Corel Draw. Отличие векторной графики от растровой. Краткое описание работы в Corel Draw.
курсовая работа [1,3 M], добавлен 04.10.2008Сравнительная характеристика средств обучения программированию в среде Visual Basic. Задачи проектируемых автоматизированных программных систем. Комплекс технических средств. Математическое и программное обеспечение. Язык программирования Visual Basic.
дипломная работа [64,1 K], добавлен 17.05.2007
