Visual Basic

[Катя Оо]

Перед начинающими программистами всегда встаёт один и тот же вопрос, а именно, какой язык программирования выбрать? На чём программировать? Могу сказать, что лучше начинать с лёгкого и в то же время мощного языка - Visual Basic. Изучив приёмы программирования на VB, вы сможете без особых усилий изучить другие языки, такие как Pascal, C++ и др.

Слово "БЕЙСИК" (BASIC) - "базовый, основной" - образовано из начальных букв английского выражения "Универсальный язык символического кодирования для начинающих". Это "для начинающих" долго вызывало пренебрежение программистов, причём подобное пренебрежение не исчезло до сих пор, несмотря на наличие профессиональных изданий VB.


И сегодня я хочу вам рассказать, как можно создать банальный калькулятор.

Для этого нам понадобится создать в форме три окна «TextBox» и пять кнопок «Button»

В первом окне TextBox в графе text указываем вот такие скобки ”” , а в графе Name пишем пример

Во втором окне TextBox в графе text указываем так же скобки ”” , а в графе Name пишем пример2

В третьем окне TextBox в графе text указываем ноль (0), а в графе Name пишем пример3

Теперь кнопки:

Первую кнопку Button в графе text указываем CE , так же пишем и в графе Name.

Вторую кнопку Button в графе text указываем умножение, то есть « Х или * » , а в графе Name четко указываем именно Х

Третья кнопка, это кнопка деления. В графе text указываем такой значок / , а в графе Name пишем «деление»

Четвертая кнопка – разность. В графе text указываем тире, то есть так «-» , А в графе Name пишем минус

Пятая кнопка – сложение. В графе text указываем просто + , а в графе Name пишем плюс.

Внешний вид готов, теперь пишем код:

[B]Первая идет кнопка СЕ[/B]

Private Sub CE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CE.Click ' при нажатии на кнопку CE , у двух текстовых полей свойство Caption будет равным "", а 3-его бедет равным 0
пример.Text = ""
пример2.Text = ""
пример3.Text = 0
End Sub

[B]Умножение[/B]

Private Sub X_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles X.Click ' при нажатии на кнопку *, 1 текстовое поле будет умножено на второе, и это будет равно 3-ему
пример3.Text = пример.Text * пример2.Text
End Sub

[B]Деление[/B]

Private Sub деление_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles деление.Click ' при нажатии на кнопку / , 1 текстовое поле бедет разделено на второе, и это будет равно 3-ему
пример3.Text = пример.Text / пример2.Text
End Sub

[B]Сложение [/B]

Private Sub плюс_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles плюс.Click ' при нажатии на кнопку +, 1 текстовое поле будет прибавлено ко второму, и это будет равно 3-ему
пример3.Text = Val(пример.Text) + Val(пример2.Text)
End Sub

[B]Разность [/B]

Private Sub минус_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles минус.Click ' при нажатии на кнопку -, 1-ое текстовое поле будет отнято от второго, и это будет равно 3-ему
пример3.Text = пример.Text - пример2.Text
End Sub

[B]Сама форма[/B]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' при запуске формы, ее заголовок будет "Калькулятор"
End Sub


Надеюсь, объяснила легко и доступно.
Если будут какие-то неувязки прошу сообщить.

[Shoom]

Интересно. Синтаксис немного не привычный...

[Катя Оо]

написан на Microsoft Visual Studio .NET 2003

[Shoom]

Сегодня в колледже немного поучили бэйсик. Ну как поучили, просто теория о самом языке. По моему он удобней делфи. Мне его синтаксис ближе.

[Davidwhona]

всем привет.
есть следующий вопрос по этому бейсику.
создаю библиотеку из: Basic