Калькулятор: основные арифметические операции - VB
Формулировка задачи:
здравствуйте)
я пишу калькулятор . но мне нужно сделать не 3 текст поля(для 1го операнда , для 2го и для ответа)
а 1
тоесть как в электроннном.
когда вводишь 1 операнд после нажатия операции должно это же поле очиститься и как -то первый операнд запомнится.. для дальнейшей с ним рботы и надо ввести 2 операнд. и после нажатия равно появится в этом же поле результат.
ввод цифр я так записала
аналогично для других
я сделала операции корень, возв в квадрат, 1/х..
вот например
тоесть при повторном нажатии должно опять брать корень
если ввести 16 сначало будет 4 потом 2 и тд (если жать на sqr)
вот меня интересует именно как реализовать * + -/
Решение задачи: «Калькулятор: основные арифметические операции»
textual
Листинг программы
VERSION 5.00 Begin VB.Form Форма1 Caption = "Форма1" ClientHeight = 7545 ClientLeft = 60 ClientTop = 450 ClientWidth = 8310 LinkTopic = "Форма1" ScaleHeight = 7545 ScaleWidth = 8310 StartUpPosition = 3 'Окна По Умолчанию Begin VB.TextBox Text1 Height = 375 Left = 3360 TabIndex = 16 Top = 240 Width = 2775 End Begin VB.CommandButton Комманда2 Caption = "Комманда2" Height = 495 Left = 240 TabIndex = 15 Top = 2400 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "9" Height = 615 Index = 9 Left = 1800 TabIndex = 14 Top = 1320 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "8" Height = 615 Index = 8 Left = 1200 TabIndex = 13 Top = 1320 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "7" Height = 615 Index = 7 Left = 600 TabIndex = 12 Top = 1320 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "6" Height = 615 Index = 6 Left = 1800 TabIndex = 11 Top = 720 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "5" Height = 615 Index = 5 Left = 1200 TabIndex = 10 Top = 720 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "4" Height = 615 Index = 4 Left = 600 TabIndex = 9 Top = 720 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "3" Height = 615 Index = 3 Left = 1800 TabIndex = 8 Top = 120 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "2" Height = 615 Index = 2 Left = 1200 TabIndex = 7 Top = 120 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "1" Height = 615 Index = 1 Left = 600 TabIndex = 6 Top = 120 Width = 615 End Begin VB.CommandButton Комманда1 Caption = "0" Height = 615 Index = 0 Left = 1200 TabIndex = 5 Top = 1920 Width = 615 End Begin VB.CommandButton Command12 Caption = "*" Height = 495 Index = 3 Left = 2640 TabIndex = 4 Top = 1920 Width = 495 End Begin VB.CommandButton Command12 Caption = "/" Height = 495 Index = 2 Left = 2640 TabIndex = 3 Top = 1320 Width = 495 End Begin VB.CommandButton Command12 Caption = "-" Height = 495 Index = 1 Left = 2640 TabIndex = 2 Top = 720 Width = 495 End Begin VB.CommandButton Command12 Caption = "+" Height = 495 Index = 0 Left = 2640 TabIndex = 1 Top = 120 Width = 495 End Begin VB.CommandButton Command1 Caption = "=" Height = 375 Left = 2640 TabIndex = 0 Top = 2520 Width = 495 End End Attribute VB_Name = "Форма1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim X1, X2 Dim ДЕЙСТВИЕ Dim Результат Dim ФЛАГ As Boolean Private Sub Command1_Click() Select Case ФЛАГ Case False X2 = CDbl(Text1.Text) Case True X1 = CDbl(Text1.Text) End Select Select Case ДЕЙСТВИЕ Case "Сложение" Результат = X1 + X2 Case "Разница" Результат = X1 - X2 Case "Деление" Результат = X1 / X2 Case "Умножение" Результат = X1 * X2 End Select ФЛАГ = True Text1.Text = Результат End Sub Private Sub Command12_Click(Index As Integer) ФЛАГ = False X1 = CDbl(Text1.Text) Text1.Text = "" Select Case Index Case 0 ДЕЙСТВИЕ = "Сложение" Case 1 ДЕЙСТВИЕ = "Разница" Case 2 ДЕЙСТВИЕ = "Деление" Case 3 ДЕЙСТВИЕ = "Умножение" End Select End Sub Private Sub Комманда1_Click(Index As Integer) If ФЛАГ = True Then Text1.Text = "": ФЛАГ = False Text1.Text = Text1.Text & Index End Sub Private Sub Комманда2_Click() Text1.Text = "" End Sub