Private Sub Form_Load()

Text1.Text = ""                                                        'очистка текстовых окон

Text2.Text = ""                                                        'очистка текстовых окон

Text3.Text = ""                                                        'очистка текстовых окон

Text4.Text = ""                                                        'очистка текстовых окон

Text5.Text = ""                                                        'очистка текстовых окон

Text6.Text = ""                                                        'очистка текстовых окон

Text7.Text = ""                                                        'очистка текстовых окон

Text8.Text = ""                                                        'очистка текстовых окон

Text9.Text = ""                                                        'очистка текстовых окон

Text10.Text = ""                                                      'очистка текстовых окон

Text11.Text = ""                                                      'очистка текстовых окон 
 

Picture1.Cls                                                             'очистка PictureBox

Label1.Enabled = False                                            'метка недоступна

Label2.Enabled = False                                            'метка недоступна

Label3.Enabled = False                                            'метка недоступна

Label4.Enabled = False                                            'метка недоступна

Label5.Enabled = False                                            'метка недоступна

Label6.Enabled = False                                            'метка недоступна

Label7.Enabled = False                                            'метка недоступна

Label8.Enabled = False                                            'метка недоступна

Label9.Enabled = False                                            'метка недоступна

Label10.Enabled = False                                          'метка недоступна

Label11.Enabled = False                                          'метка недоступна

Label12.Enabled = False                                          'метка недоступна

Label13.Enabled = False                                          'метка недоступна 

Frame1.Enabled = False                                           'фрейм недоступен

Frame2.Enabled = False                                           'фрейм недоступен

End Sub 

Private Sub Text1_Change()

При вводе  значений показателя в текстовом окне производится проверка вводимых данных на их положительность и тип (число). Для этого Ascii- код введенного  символа сравнивается с Ascii- кодами цифр (от 48 до 57) и символа-разделителя (точки - Ascii- код 46). Эта проверка происходит при вводе каждого символа в текстовом окне (событие Change).

Используются  встроенные функции Len (string) – возвращает длину строки и  Mid(string, start[, length]) –  возвращает часть строки, начиная  с позиции start длины length 

Private Sub Text1_Change()

Dim i As Integer                                                        ' счетчик цикла

Dim KeyAscii As Integer                                          ' переменная, содержащая код Ascii

                                                                                    символа 

For i = 1 To Len(Text1.Text)                                    ' для каждого символа в  строке

KeyAscii = Asc(Mid(Text1.Text, i, 1))                     ' получим код Ascii этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then

                                                                                   ' если код не лежит в диапазоне кодов

                                                                                    цифр или точки 

Text1.Text = ""                                                          ' очистить текстовое окно

Exit Sub                                                                     ' выход из процедуры

End If

Next i

End Sub 

Private Sub Text1_KeyPress(KeyAscii As Integer)

После нажатия кнопки «Enter» производится перевод курсора в следующее  текстовое окно. 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then                                               ' если нажата клавиша Enter

Text2.SetFocus                                                          ' перевести курсор в текстовое поле

End If

End Sub 

Процедуры обработки событий keyPress для элементов управления text2, text3, text4, text5, text6, text7, text8, text9, text10 аналогичны  Text1_KeyPress.

    Работа  приложения

    (примеры  форм с результатами  расчетов и графиком)

    Расчет  показателя:

      
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Построение  графика: 

      

Пример  окна сообщения об ошибке: 

      
 
 

    Список  используемой литературы

1. Вычислительные  машины, системы и сети: Учебник/А.П. Пятибратов, С.Н. Беляев, Г.М. Козырева и др.; Под ред. проф. А.П. Пятибратова. - М.: Финансы и статистика, 1991. - 400 с.

 

2. Черняк Н.Г. и др. Архитектура вычислительных систем и сетей: Учеб. пособие / Н.Г. Черняк, И.Н. Буравцева, Н.М. Пушкина. - 2-е изд., перераб. и доп. - М.: Финансы и статистика, 1986. - 318 с.

 

3. Фигурнов В.Э. IBM PC для пользователя, 2-е изд., перераб и доп. - М.: Финансы и статистика, Компьютер Пресс, 1991. - 288 с.

 

4. Фигурнов В.Э. IBM PC для пользователя. Изд. 6-Е перераб. И доп. - М.: ИНФРА-М, 1996. - 432 с.

 

5. Макдона Р. Основы микрокомпьютерных вычислений: Пер. с англ./ Т.Г. Никольской; Под ред. В.Ф. Шаньгина. - М.: Высш. Шк., 1989. - 272 с.

 

6. А.Н. Ворощук. Основы ЦВМ и программирование. Главная  редакция физико-математической литературы изд-ва “Наука”, М., 1978.

 

7. Абель П. Язык Ассемблера для IBM PC и программирования/ Пер. с англ. Ю.В. Сальникова. - М.: Высш. Шк., 1992. - 447 с.

 

8. Овечкин Ю.А. Микроэлектроника: Учебник для техникумов. - М.: Радио  и связь, 1982 - 288 с.

 

9. Каган Б.М. Электронные  вычислительные машины и системы: Учеб. пособие для вузов. - 2-е изд., перераб. и доп. - М.: Энергоатомиздат, 1985. - 552 с.