АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Реалізація проекту в програмному середовищі Visual Basic із застосуванням процесів розгалуження та умовних циклів

Читайте также:
  1. AIR TRAVEL BASICS
  2. Basic notions of the grammatical description: grammatical form, grammatical meaning, paradigm, grammatical category
  3. Basic Oscilloscope Patterns
  4. Basic Steps to Cultural Competence
  5. BASIC TECHNICAL DATA
  6. Basic Тerms
  7. II. Буття речей, процесів
  8. Introduction. Basic concepts and definitions. Measurement, the measurement result, measurement errors and their classification, the accuracy of the measurement.
  9. Principles of transformation of biological and not electric signals in electric. Designs of sensors and electrodes, their basic characteristics
  10. Text A. Basic communication systems
  11. The basic law of radioactive disintegration in the differential form. A constant of disintegration.
  12. XV. 1. Загальна характеристика електрохімічних процесів

Розроблена екранна форма для забезпечення взаємодій користувача та програми на основі її ескізу. На екранній формі розміщіні елементи управління, що забезпечують введення вхідних даних, управління процесом обчислень і виведення результатів розрахунків. Для рішення задачі передбачена обробка різних подій у вигляді програмних кодів приватних процедур. При цьому використовувани різні форми операторів розгалужень і операторів циклів. Зроблен аналіз результатів виконання розробленого проекту (рис. 37).

Рис. 37. Ескіз екранної форми.

Проектування додатків з масивами елементів керування
та масивами даних

Вхідні дані індивідуального завдання представлени у вигляді масивів елементів керування та масивів даних.

Згідно з ескізом екранної форми в програмному середовищі Visual Basic реалізована форма, що містить елементи керування для уведення вхідних даних і виводу результатів обробки (рис. 38).

Розроблен програмний код рішення індивідуального завдання. У ньому передбачено використання операцій роботи з файлами при введенні вхідних даних і виведення результатів обробки даних. Процес обробки даних організован із застосуванням циклів з лічильником (рис. 39).

Для уведення даних та подання результату розрахунка було використано екранні форми (рис. 40-51).

 

Рис. 38. Екранна форма для забезпечення взаємодій користувача та програми

 

Рис. 39. Вікно з програмним кодом

Програмний код:

Option Explicit 'Обов'язковіть описування змінних

Option Base 1 'Нумерація елементів масиву з 1

Const n = 3 'Кілкість видів товарів

Dim strНазва(n) As String 'опис змінних

Dim curОЦ(n) As Currency 'оптова ціна одного товару

Dim intКількість(n) As Integer 'кілкість товарів одного виду

Dim curСобівартість(n) As Currency 'собівартість одного товару

Private Sub CommandButton1_Click() 'уведення даних

Dim i As Integer 'номер товару

For i = 1 To n 'цикл,забеспечуваючий уведення даних

strНазва(i) = InputBox("Введіть, будь ласка, назву товару", _

Str(i) & "-й товар")

curОЦ(i) = CCur(InputBox("Введіть, будь ласка, оптову ціну ", _

Str(i) & "-й товар"))

intКількість(i) = CInt(InputBox("Введіть, будь ласка, кількість", _

Str(i) & "-й товар"))

curСобівартість(i) = CCur(InputBox("Введіть, будь ласка, собівартість товару", _

Str(i) & "-й товар"))

Next i

End Sub

Private Sub CommandButton2_Click() 'обчислювання та вивід результату

Dim i As Integer

Dim sngНадбавка As Single 'надбавка

Dim s As Single 'загальний прибуток

s = 0

For i = 1 To n 'цикл, визначаючий надбавки та прибуток

If curОЦ(i) >= 1 And curОЦ(i) < 50 Then

sngНадбавка = 10

ElseIf curОЦ(i) >= 50 And curОЦ(i) < 100 Then

sngНадбавка = 20

ElseIf curОЦ(i) >= 100 And curОЦ(i) < 200 Then

sngНадбавка = 30

ElseIf curОЦ(i) >= 200 Then

sngНадбавка = 50

End If

s = s + intКількість(i) * (curОЦ(i) - curСобівартість(i) + sngНадбавка)

Next i

MsgBox "Прибуток становить" & Format(s, "0.00") & "грн"

End Sub

 

Рис. 40. Форма для першого уведення 1-го товару

Рис. 41. Форма для другого уведення 1-го товару

Рис. 42. Форма для третього уведення 1-го товару

Рис. 43. Форма для четвертого уведення 1-го товару

Рис. 44. Форма для першого уведення 2-го товару

Рис. 45. Форма для другого уведення 2-го товару

Рис. 46. Форма для третього уведення 2-го товару

Рис. 47. Форма для першого уведення 3-го товару

Рис. 48. Форма для другого уведення 3-го товару

Рис. 49. Форма для третього уведення 3-го товару

Рис. 50. Форма для четвертого уведення 3-го товару

Рис. 51. Підрахований прибуток


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.005 сек.)