Калькулятор с одной строкой...

[Gars]

Объясните пожалуста как сделать калькулятор, с одной строкой.
Пасиб!

[Wassago]

Вот код.

Код: Выделить всё

Dim Numb1 As Long 'Запоминает первое число
Dim Numb2 As Long 'Запоминает второе число
Dim Str As String 'Опознает какое действие выполняетса
Private Sub Form_Load()
Text1.Text = "" 'Очистка текстового поля
End Sub

Private Sub N1_Click()
Text1.Text = Text1.Text + "1" 'При каждом нажатие добавляем 1
End Sub

Private Sub Plus_Click()
Numb1 = Text1.Text
Text1.Text = ""
Str = "Pls"
End Sub

Private Sub Res_Click()
Numb2 = Text1.Text
If Str = "Pls" Then Text1.Text = Numb1 + Numb2
End Sub


Здесь пример на три кнопки: 1(добавляет в Textbox число "1"),плюс"+" и "=".
Положы на форму, 3 кнопки и TextBox.

[Gars]

Спасибо все роботает!
А как зделать на "-,\,*"?
Обясни плиз.

[Wassago]

Все также,тока меняеш -

Код: Выделить всё

Str = "Pls"

и

Код: Выделить всё

If Str = "Pls" Then Text1.Text = Numb1 + Numb2

вместо "+" ставиш например "*".

Лан пожди,ша напишу быстро исходник.

[Wassago]

Вот:

[Gars]

Спасибо!Хорошый пример.
А как ты сделал, что в текстбоксе не можно писать?

[Wassago]

Код: Выделить всё

Text1.Enabled = False

[iGrok]

Мда.. Я всё понимаю.. Современное образование.. Реформа русского языка.. Опять же, он же самый трудный, после китайского-то..

Но не знать, как пишутся "жи" и "ши".. Это вы меня поразили. Про остальное - молчу.

З.Ы. В калькуляторе нажми два раза минус. Или ещё какую-нить кнопку операции.

[Viper]

Автор, в "Кирпичах" лежит несколько примеров того, что тебе нужно. Советую вдумчиво изучить код. Ну и русский язык подучить заодно.

[Денис]

Gars, если не хочется разбираться с кодом в кирпичах, то вот тебе еще один совет: Сделать арифметические операции индексами.

Код: Выделить всё

private enum Arifmetic
    aPlus = 0 'Сложение
    aMinus = 1 'Вычитание
    aMult = 2 'Умножение
    aDiv = 3 'Деление
end enum

теперь мы можем с легкостью построить ОДНУ функцию для всех действий сразу:

Код: Выделить всё

private function Solve(Value1 as single, Value2 as Single, Oper as Arifmetic) as Single
    select case oper
        case aPlus: solve = value1 + value2
        case aMinus: solve = value1 - value2
        case aMult: solve = value1 * value2
        case aDiv: solve = value1 / value2
    end select
end function

Делаешь массив кнопок. (задаешь свойство Index). вызов этой функции из процедуры массива кнопок будет выглядеть так:

Код: Выделить всё

text3.text = solve ( val( text1.text ) , val( text2.text ) , Index )

Вот и все.
Wasago, ты тоже учись.

[Wassago]

Да это все оч хорошо,но я никак не пойму как роботает "select case".Есе не затруднит обясните подробней.