Студопедия  
Главная страница | Контакты | Случайная страница

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

Технология визуального программирования

Читайте также:
  1. Азақстан Республикасының технологиялық парктерінің жұмыс жасау тиімділіктерін бағалау
  2. Азық-түлік өнімдерін өндіру саласының технологиясы» пəнінен сұрақтар
  3. Биотехнология в сельском хозяйстве
  4. Выбор языка программирования
  5. Глава VI. БИОТЕХНОЛОГИЯ У РУБЕЖЯ
  6. Графический метод решения задач линейного программирования
  7. Декларативные языки программирования
  8. Деу өндірісінің арнайы технологиясы» пәнінен сұрақтар
  9. Деу өндірісінің жалпы технологиясы» пәнінен сұрақтар
  10. Динамическое программирование. Принцип Беллмана. Основное рекуррентное соотношение Беллмана. Общие принципы решения задач динамического программирования.

Цель работы – овладеть навыками работы в визуальной среде программирования при создании приложения для операционной системы Windows, освоить приемы обработки некорректных действий пользователя при работе в приложением.

1. Запустить MS Visual Basic 6.0

2. Выбрать вид нового файла Standart.exe.

3. Разместить на форме элементы управления и определить значения свойства Name каждого элемента формы в соответствии рис. 4.

 

Рис. 4 Дизайн формы для проекта «АРМ экономиста»

 

 

4. Добавить к форме программный код обработки событий в соответствии с листингом 1.

Листинг 1. Коды приложения «АРМ экономиста»

Private Sub Command1_Click()

If Text1 = "" Then

MsgBox ("Введите сумму доходов")

Text1.SetFocus

GoTo m1

End If

If Text2 = "" Then

MsgBox ("Введите стоимость покупных товаров")

Text2.SetFocus

GoTo m1

End If

If Text4 = "" Then

MsgBox ("Введите коммерческие расходы")

Text4.SetFocus

GoTo m1

End If

If Text6 = "" Then

MsgBox ("Введите ставку налога на прибыль")

Text6.SetFocus

GoTo m1

End If

Text3 = Text1 - Text2

Text5 = Text3 - Text4

Text7 = Text5 * Text6 / 100

If Option1.Value = True Then

Text10 = Text5 * Text8 / 100

Text11 = Text5 * Text9 / 100

End If

m1: End Sub

 

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Option1.Value = False

End Sub

 

Private Sub Command3_Click()

Dim w As fil

If Option2.Value = True And Text12 <> "" Then

Open Text12.Text + ".txt" For Random As #1 Len = 2048

Get #1, 1, w

Text1.Text = w.d

Text2.Text = w.t

Text4.Text = w.k

Text6.Text = w.s

Text8.Text = w.sf

Close 1

End If

If Option3.Value = True And Text12 <> "" Then

w.d = Text1.Text

w.t = Text2.Text

w.k = Text4.Text

w.s = Text6.Text

w.sf = Text8.Text

Open Text12.Text + ".txt" For Random As #1 Len = 2048

Put #1, 1, w

Close 1

End If

End Sub

 

Private Sub Command4_Click()

End

End Sub

 

Private Sub Option1_Click()

If Text6 = "" Then

MsgBox ("Введите ставку налога на прибыль")

Text8.Enabled = True

Text6.SetFocus

GoTo m2

End If

If Text8 = "" Then

MsgBox ("Введите ставку налога на прибыль в ФБ")

Text8.Enabled = True

Text8.SetFocus

GoTo m2

End If

m2: End Sub

 

Private Sub Option2_Click()

If Option3.Value = True Then

Option3.Value = False

End If

If Text12 = "" Then

MsgBox ("Введите имя файла")

Text12.SetFocus

End If

End Sub

 

Private Sub Option3_Click()

If Option2.Value = True Then

Option2.Value = False

End If

If Text12 = "" Then

MsgBox ("Введите имя файла")

Text12.SetFocus

End If

End Sub

 

Private Sub Text8_Change()

If Text9 = "" Then

Text9 = Text6 - Text8

End If

End Sub




Дата добавления: 2015-09-11; просмотров: 18 | Поможем написать вашу работу | Нарушение авторских прав

Запись простейших алгоритмов обработки числовых данных | Этап 1.1. Исследование рабочего окна системы программирования | Этап 2.1. Исследование возможностей системы программирования TurboPascal 7.0 для операционной системы MS DOS. | Этап 2.2. Программы обработки числовых данных. | Этап 2.4. Программы обработки строковых данных | Этап 5.4. Исследование операторов работы с файлом | Основы программирования на языке Turbo Pascal | Операторы управления последовательностью программы | Пример. |


lektsii.net - Лекции.Нет - 2014-2024 год. (0.007 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав