Visual Basic для детей. Уроки 1-5

Выполним изготовление и монтаж металлоконструкций Новокузнецк и пригороде. Металлоконструкции на заказ.

Dim Total as Integer - часть 3


 

Total = 5200 * Deposit * ((1 + Interest / 5200) ^ Weeks - 1) / Interest

 

Не забудьте, что эту запись необходимо печатать в одну строку, текстовый редактор сам переведет строку для удобства чтения. Так как мы сказали, что эта запись довольно трудна для понимания, то и не следует парить мозги по поводу её физического смысла (всему своё время, просто поверьте на слово, что, действительно, – так вычисляются проценты по вкладу). В написанном выражении присутствуют многие математические операторы и скобки, что нам и необходимо для практики.

 

А сейчас давайте запустим усовершенствованный проект. Введите в соответствующие окошки значения для Deposit, Weeks, и Interest. Щелкните по кнопке Compute. Убедитесь, что полученный ответ разумен. (К примеру, если вы будете класть еженедельно на счет ‘Deposit’ десятку (10), в течении 20 недель ‘Weeks’, а проценты по вкладу 'Interest’ будут равны 6.5, то общая сумма сбережений ‘Total’ будет равна $202 – обратите внимание, что без учета процентов вы получили бы сумму равную $200, что вполне логично). Ещё обратим ваше внимание на то, что в проекте общая сумма сбережений Total автоматически преобразуется в тип integer (как мы и объявляли), даже, несмотря на то, что в результате вычислений получается не целое (десятичное) число. Сохраните ваш проект.

 

После проверки работы вашего проекта, давайте рассмотрим ещё одну вещь. Помните, однажды мы говорили о том, что, хотя это и не обязательно, мы будем объявлять каждую переменную в нашем проекте? Сейчас самое время объяснить – почему. Откройте неусовершенствованный проект подсчета сбережений (который без учета процентов). Найдите процедуру обработки событий cmdCompute_Click и специально сделайте орфографическую ошибку в названии переменной Deposit. Например, измените строку:

 

Deposit = Val(txtDeposit.Text)

 

на:

 

Depsit = Val(txtDeposit.Text)

 

Запустите проект. Что произошло, как только вы щелкнули по кнопке Compute? Появится окно сообщения, похожее на это (для версииVB4):




Начало  Назад  Вперед