Показано с 1 по 5 из 5

Тема: Visual Basic

  1. #1
    Начинающий Репутация: 10 [+/-] Аватар для Катя Оо
    Регистрация
    14.08.2012
    Сообщений
    98
    Поблагодарил(а)
    0
    Получено благодарностей: 2 (сообщений: 2).

    Post 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


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

  2. #2
    Модератор трепа Репутация: 21 [+/-] Аватар для Shoom
    Регистрация
    13.08.2012
    Сообщений
    263
    Поблагодарил(а)
    19
    Получено благодарностей: 8 (сообщений: 8).
    Интересно. Синтаксис немного не привычный...

  3. #3
    Начинающий Репутация: 10 [+/-] Аватар для Катя Оо
    Регистрация
    14.08.2012
    Сообщений
    98
    Поблагодарил(а)
    0
    Получено благодарностей: 2 (сообщений: 2).
    нап