タイトル : 電卓 連続計算 投稿日 : 2007/12/15(Sat) 16:32 投稿者 : 9月
はじめまして、9月です。 私は今大学生なのですが、情報の授業で、VBで電卓を作る、という課題が出されました。 途中までは授業中に作成して続きを自分でやる、というものなのですが、どうしても連続計算(1+2+3=6など)する機能がつけられません。 授業で作ったものをあまりいじらずに、付け加える形で、計算機能を加えることはできないでしょうか? 数字と演算に関するコードは、 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 です。 演算キーは、+−×÷のクリックイベント、計算は=のクリックイベントに対応しています。 よろしくお願いします。 |