Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.34
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.34

Dim d As String

Затем определите значения этих переменных (приставка «CDbl» меняет текстовые значения на числовые):

а = CDbl (TextBoxl.Text) b = CDbl (TextBox2.Text) d = Label1.Text

Далее, используя операторы выбора If...Then или Select Case, создайте коды для математических вычислений.

Select Case d Case " + "

с = a + b

Case

с = a - b Case "/"

с = a / b Case "Sqrt"

с = Math. Sqrt (a) End Select TextBox3.Text = с Label2.Text = " = "

А вот как такой код получится, если использовать оператор If ...Then:

If Labell.Text = " + " Then с = a + b

Калькулятор готов. При желании его можно усовершенствовать.

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Циклические программы

Бывают ситуации, когда одну и ту же программу необходимо выполнить несколько раз подряд. Можно, конечно, попытаться переписать коды столько раз, сколько будет повторяться эта программа, но как быть, если она должна повторяться десятки, сотни или тысячи раз. На этот случай существуют операторы повтора (операторы цикла) или просто циклы. Различают два типа циклов: Do и For.

Циклы Do

Do...Loop While

Выполняет заданные инструкции, затем проверяет условие и, если оно соответствует значению True, снова выполняет инструкции, в противном же случае заканчивает цикл. Таким образом, хотя бы один раз выполняются команды, заложенные в коде. Применительно к циклам часто используется слово итерация. Под ним следует понимать одноразовое выполнение инструкций в цикле. Синтаксис этого цикла выглядит так:

Do

Инструкция Loop While Условие

Одним из наиболее удачных примеров циклических программ является программа движения объекта. Каждая итера-

Циклы Do

ция цикла представляет собой программу для одного маленького шага. Из совокупности таких шагов и состоит движение. Поместим на форму (у левого края) объект Label 1 и напишем для него программу. Коды для этих примеров составляйте в процедуре обработки событий Button _ Click или Label.. Click:

Dim a As Integer

a = Labell.Left Do

a = a + 1 Labell.Left = a Loop While a < 300


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta