Калькулятор (проблема с комой)

@n3250sasha · Регистрация: 30.10.2011

Студворк — интернет-сервис помощи студентам

Кома так работает, но когда ввожу ее с клавиатуры то она ставитца, а следуйщее число ставится не после комы, а вводится заново

Что не так???

Так я ввожу кому...

Visual Basic
1
2
3
4
5
Private Sub Command4_Click()
If Text1 = "" Then
Text1 = "0"
End If
Text1 = Text1 + ","

Работа с клавиатурой

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Form_KeyPress(KeyAscii As Integer)
 
Dim StrValue As String
Dim IntValue As Integer
 
StrValue = Chr(KeyAscii)
 
 
If (StrValue >= "0") And (StrValue <= "9") Then
    IntValue = Int(StrValue)
    Call Command1_Click(IntValue)
    Else
    
Select Case StrValue
    Case "=": IntValue = 4
    Case "+": IntValue = 0
    Case "-": IntValue = 1
    Case "*": IntValue = 2
    Case "/": IntValue = 3
End Select
 
Call Command2_Click(IntValue)
 
End If

Ввод комы с клавиатуры

Visual Basic
1
2
3
4
5
If (StrValue = ",") Then
    Call Command4_Click
End If
 
End Sub

Комментарий модератора

Для оформления программного кода есть специальный тег VB

SoftIce · 30.10.2011, 22:54

Не нужно изобретать велосипед.
Со временем глюк.

@gaw · 30.10.2011, 23:16

может пригодится

Visual Basic
1
2
3
4
5
6
7
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "," Then
KeyAscii = IIf(InStr(1, Text1.Text, ",") = 0, KeyAscii, 0)
Else
KeyAscii = IIf(InStr(1, "0123456789" & Chr(8), Chr(KeyAscii)) > 0, KeyAscii, 0)
End If
End Sub

@n3250sasha · 31.10.2011, 11:03 **[ТС]**

Вот полностью калькулятор посмотрите что не так..... проблема только когда кому ввожу с клавы

...

Калькулятор 3.rar

@gaw · 31.10.2011, 11:15

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command4_Click()
If InStr(Text1.Text, ",") = 0 Then
If Text1.Text = "" Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text + ","
End If
End If
End Sub

@n3250sasha · 31.10.2011, 16:51 **[ТС]**

сделал так, ну кома с клавы всеравне не ставится... может я гдето в другом месте наплужил?!?!?О_о

@n3250sasha · 02.11.2011, 23:15 **[ТС]**

Калькулятор полностью переделал, работает и ввод с клавиатуры!!! кому надо берите

Калькулятор.rar

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@n3250sasha 9 / 9 / 4 Регистрация: 30.10.2011 Сообщений: 80
	31.10.2011, 11:03 [ТС]
	Вот полностью калькулятор посмотрите что не так..... проблема только когда кому ввожу с клавы ... Калькулятор 3.rar 0

@n3250sasha 9 / 9 / 4 Регистрация: 30.10.2011 Сообщений: 80
	31.10.2011, 16:51 [ТС]
	сделал так, ну кома с клавы всеравне не ставится... может я гдето в другом месте наплужил?!?!?О_о 0

@n3250sasha 9 / 9 / 4 Регистрация: 30.10.2011 Сообщений: 80
	02.11.2011, 23:15 [ТС]
	Калькулятор полностью переделал, работает и ввод с клавиатуры!!! кому надо берите Калькулятор.rar 0