Проектирование и программирование собственных приложений для решения поставленных задач
Составить функцию для вычисления y=1-x/2+(x2)/(2*5)-(x3)/(2*5*6)+(x4)/(2*5*6*9)-(x5)/(2*5*6*9*10)+… принимая модуль х не больше 1. Вычисление продолжать, пока модуль разницы между слагаемым и его предыдущим значением больше заданной малой величины (точности значений). Справка 2. Вывод сведений о предприятиях г. Москвы и г. Тулы. По каждому предприятию из этих городов вывести: название, адрес… Читать ещё >
Проектирование и программирование собственных приложений для решения поставленных задач (реферат, курсовая, диплом, контрольная)
 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/3−¼+… | |
Text1. | Text. | ||
Label2. | Caption. | Точное значение = 0,6 931 478… | |
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 * 10 000) / 10 000.
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. | ||
MSF1. | Rows. | ||
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+(x2)/(2*5)-(x3)/(2*5*6)+(x4)/(2*5*6*9)-(x5)/(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. | ||
M1. | DataSource. | Data1. | |
MSFlexGrid2. | Name. | M2. | |
M2. | Rows. | ||
M2. | Cols. | ||
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 г, С-П