VPF::[VB6] Описание (объяснение) программного кода. Помогите.

ALBB

Дата 25.5.2008, 10:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 25.5.2008

Репутация: нет
Всего: нет

Люди добрые, помогите, пожалуйста, полному чайнику.
Тут вот в Универе дали задание объяснить написание одного программного кода (из калькулятора). То есть, надо пояснить что и зачем там написано.

Ну вот такая прога:

Цифры 1,2,3, и т.д запрограммированы вот так

Код


Private Sub Command1_Click() 
On Error Resume Next 
If a = 1 Then 
Text2.Text = Text2.Text + "1" 
End If 
If a = 2 Then 
Text1.Text = Text1.Text + "1" 
End If 
If a = 3 Then 
Text7.Text = "." 
End If 
End Sub 

Private Sub Command5_Click() 
On Error Resume Next 
If a = 1 Then 
Text2.Text = Text2.Text + "5" 
End If 
If a = 2 Then 
Text1.Text = Text1.Text + "5" 
End If 
If a = 3 Then 
Text7.Text = "" 
End If 
End Sub

Нужно объяснить, что тут и зачем вообще написано.

Вот ещё кнопка «очистка»

Код


Private Sub Command11_Click() 
On Error Resume Next 
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
Text1.SetFocus 
b = 0 
End Sub

Тоже надо всё объяснить.

Кнопки «сложение», «вычитание», «умножение» и «деление»:

Код


Private Sub Command13_Click() 
On Error Resume Next 
Text2.SetFocus 
Text6.Text = Val(Text1.Text) + Val(Text2.Text) 
c = 1 
End Sub 

Private Sub Command14_Click() 
On Error Resume Next 
Text2.SetFocus 
c = 2 
End Sub 

Private Sub Command15_Click() 
On Error Resume Next 
c = 3 
Text2.SetFocus 
End Sub 

Private Sub Command16_Click() 
On Error Resume Next 
c = 4 
Text2.SetFocus 
End Sub

В чём принцип их программирования? Как это объяснить?

А так же кнопка Равно:

Код


Private Sub Command18_Click() 
On Error Resume Next 
If c = 1 Then 
Text3.Text = Val(Text1.Text) + Val(Text2.Text) 
End If 
If c = 2 Then 
Text3.Text = Val(Text1.Text) - Val(Text2.Text) 
End If 
If c = 3 Then 
Text3.Text = Val(Text1.Text) * Val(Text2.Text) 
End If 
If c = 4 Then 

If Text2.Text = "0" Then 
MsgBox "Деление на ноль запрещено", 48, "Ошибка" 
Else 

Text3.Text = Round(Text1.Text / Text2.Text, 11) 

End If 
End If 
If c = 5 Then 
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text) 
End If 
If c = 6 Then 
Text3.Text = Val(Text1.Text) ^ (1 / Text2.Text) 
End If 
Text7.SetFocus 
End Sub

Чёго тут вообще написано?

Каков принцип программирования синуса и косинуса?:

Код


Private Sub Command22_Click() 
On Error Resume Next 
gradtorad = Text1.Text * pi / 180 
Text3.Text = Round(Cos(gradtorad), 11) 
Text7.SetFocus 
End Sub 

Private Sub Command23_Click() 
On Error Resume Next 
gradtorad = Text1.Text * pi / 180 
Text3.Text = Round(Sin(gradtorad), 11) 
Text7.SetFocus 
End Sub

А так же возведение X в квадрат и куб?:

Код


Private Sub Command26_Click() 
On Error Resume Next 
Text3.Text = Val(Text1.Text) ^ 2 
Text7.SetFocus 
End Sub 

Private Sub Command27_Click() 
On Error Resume Next 
Text3.Text = Val(Text1.Text) ^ 3 
Text7.SetFocus 
End Sub

И, главное, нужно объяснить почему везде написана одна и та же строчка On Error Resume Next

Помогите, пожалуйста, со всем этим разобраться.
Просто не соображаю я в информатике. Да и специальность у меня с этим предметом не связана даже близко. Но вот никуда не денешься от этой информатики как общеобразовательного предмета, и задания приходится всё-таки делать.

В общем, кому не трудно, помогите, пожалуйста.

Это сообщение отредактировал(а) cardinal - 25.5.2008, 19:57

Данкинг

Дата 25.5.2008, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(ALBB @ 25.5.2008, 11:33

)

И, главное, нужно объяснить почему везде написана одна и та же строчка On Error Resume Next

Чтобы в случае ошибки (типа деления на нуль) программа не вылетала, а продолжала работать со следующей строки.
А в остальном что там непонятного? По-моему, проще программы (реально работающей и нужной) и не бывает. smile

--------------------

There's nothing left but silent epitaphs.

Naghual

Дата 25.5.2008, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 2
Всего: 49

ALBB, для данной темы существует Центр Помощи

Это сообщение отредактировал(а) Naghual - 25.5.2008, 11:40

--------------------

Я желаю всем Счастья!

cardinal

Дата 25.5.2008, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 15
Всего: 99

ALBB, пользуйтесь тегом "Код"!

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Akina

Дата 25.5.2008, 20:45 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »