| Вопрос: Калькулятор с одним TextBox | Добавлено: 04.05.08 17:36 |
Автор вопроса:  Jacob | ICQ: 480870702 |
|
Народ, как сделать калькулятор с одним TextBox? Я знаю, что там нужно 2 переменные: одна переменная - число введенное до знака (+-*/^), а другая - после. А как это в коде записать? Я не знаю операторов ДО и ПОСЛЕ.
Вот, так что помагите чем можете, пожалуйста. |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #1 | Добавлено: 04.05.08 18:39 |
| Почитай про строковые функции instr, len, mid, left, right, ... | ||
|
Номер ответа: 2 Автор ответа:  Jacob ICQ: 480870702 Вопросов: 6 Ответов: 19 |
Профиль | | #2 | Добавлено: 04.05.08 18:51 |
| А где прочитать? | ||
|
Номер ответа: 3 Автор ответа:  JacobICQ: 480870702 Вопросов: 6 Ответов: 19 |
Профиль | | #3 | Добавлено: 04.05.08 19:15 |
| Все. я нашел, где, и че с ними делать? | ||
|
Номер ответа: 4 Автор ответа: shuffleАдминистратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #4 | Добавлено: 04.05.08 19:16 |
|
http://vbnet.ru/vbguide/showgroup.asp?id=2
Будет мало - гулояндекс поспешит на помощь. |
||
|
Номер ответа: 5 Автор ответа: shuffleАдминистратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #5 | Добавлено: 04.05.08 19:17 |
| Изучить их нужно, а потом применить к поставленной задаче. | ||
|
Номер ответа: 6 Автор ответа: FLUDER@$TВопросов: 14 Ответов: 37 |
Профиль | | #6 | Добавлено: 04.05.08 20:09 |
|
Лови:
Private sub Command1_click()
Dim bef as long, cen as long, aft as long, res as long cen = instrrev(text1.text) bef = mid(text1.text,1,cen - 1) aft = mid(text1.text, cen+1,len(text1.text)) 'Само действие сделаешь сам End sub |
||
|
Номер ответа: 7 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #7 | Добавлено: 04.05.08 20:38 |
| Интересно мне, как же этот код будет работать? Невооруженным глазом видно, что это не скомпилируется даже. | ||
|
Номер ответа: 8 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #8 | Добавлено: 04.05.08 21:05 |
|
Вот код. Но это чисто пример, нет проверок на пробелы и повторы знаков - сделаешь сам.
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Expression As String Dim c As String * 1 Dim i As Integer Dim result As Double If KeyAscii <> 13 Then Exit Sub Expression = Text1 For i = 1 To Len(Expression) c = Mid$(Expression, i, 1) Select Case c Case "+" result = Val(Left$(Expression, i)) + Val(Right$(Expression, Len(Expression) - i + 1)) Case "-" result = Val(Left$(Expression, i)) - Val(Right$(Expression, Len(Expression) - i + 1)) Case "*" result = Val(Left$(Expression, i)) * Val(Right$(Expression, Len(Expression) - i + 1)) Case "/" result = Val(Left$(Expression, i)) / Val(Right$(Expression, Len(Expression) - i + 1)) End Select Next Text1 = Text1 & " = " & result End Sub |
||
|
Номер ответа: 9 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #9 | Добавлено: 04.05.08 22:01 |
| Все просто нада когда ты нажымаеш +-:* записивать то что есть в текстбоксе в переменую например number1 и очистить его. потом после нажатия = записать новое число в переменую number2 .Произвести нужное действия и вывести результат | ||
|
Номер ответа: 10 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #10 | Добавлено: 05.05.08 00:14 |
|
Помоему пример у Microsoft был, скачать сдесь.
http://rus-skipper.narod.ru/raznoe/CALC-Microsoft.zip |
||
Страница: 1 |