tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 電卓　連続計算
投稿日： 2007/12/15(Sat) 16:32
投稿者： ９月
はじめまして、９月です。
私は今大学生なのですが、情報の授業で、VBで電卓を作る、という課題が出されました。
途中までは授業中に作成して続きを自分でやる、というものなのですが、どうしても連続計算(１＋２＋３＝６など)する機能がつけられません。
授業で作ったものをあまりいじらずに、付け加える形で、計算機能を加えることはできないでしょうか？
数字と演算に関するコードは、

    Dim R1 As Integer '現在のレジスター
    Dim R2 As Integer '保存用レジスター
    Dim Op As Integer '演算子
    Dim CL As Boolean 'クリア指示


    Private Sub 数字キー(ByVal k As Integer)
        If CL Then
            R1 = 0
            CL = False
        End If
        R1 = R1 * 10 + k
        TextReg.Text = R1
    End Sub

    Private Sub 演算キー(ByVal o As Integer)
        Op = o
        R2 = R1
        CL = True
    End Sub

    Private Sub 計算()
        Select Case Op
            Case 1
                R1 = R2 + R1
            Case 2
                R1 = R2 - R1
            Case 3
                R1 = R2 * R1
            Case 4
                R1 = R2 \ R1
        End Select
        CL = True
        TextReg.Text = R1
    End Sub

です。
演算キーは、＋−×÷のクリックイベント、計算は＝のクリックイベントに対応しています。
よろしくお願いします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。