ＶＢ　電卓　メモリー機能

Question

ＶＢ．ＮＥＴで電卓にメモリ機能をつけたいのですが
ソースがわかりません。
とりあえずメモリ用の変数を一つ用意して、
下記に機能はこのような感じだと思って書いてみました。
Ｍ＋：メモリ用の変数に現在の値を加算する
ＭＳ：メモリーに記録。今までのは消える。
ＭＲ：メモリ用の変数の値を現在の値とし、ディスプレイに表示。
ＭＣ：メモリ用の変数をゼロクリアする

Ｍ＋の場合
Dim curmemory  As Decimal

Private Sub cmdMemoryPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMemoryPlus.Click
        curMemory = curMemory + txtDisplay.Text
        curMemory = curMemory + Val(txtDisplay.Text)

ＭＣは何とかわかりそうなのですが、Ｍ+でもあたっているか
わからない上に、ＭＳ、ＭＲはまったくわかりません。
申し訳ありませんが、アドバイス等よろしくお願いいたします。

Oh-Orange · Accepted Answer

★それでは補足要求します。
・まず電卓キーを入力してそれを表示などしますが、その方法(アルゴリズム)と構造体などの
　変数について教えてくれますか？→メモリ変数は『curMemory』だと分かりますが…。
・基本的にボタン・イベントに直接電卓の機能を記述しているのですか？
　私は複数の関数に電卓機能を分けて作成しました。このとき、キーをクリックしたらその
　関数を呼び出すようにして分かりやすく管理して電卓を実装しました。
・四則演算の部分だけでよいので、簡略化した(重要な部分)を『この回答への補足』に記述して下さい。
　ソースを解読してアルゴリズムを探ります。また、このときにちょっとしたコメントを追加して
　下さい。→『txtDisplay.Text』は『電卓の表示用のテキストボックス』などと１行程度でいいので
　コメントなどをお願いします。
・以上。待っています。

Oh-Orange · Answer

★まずはメモリ演算用の定数を増やします。
・very-dou さんの過去の質問も参照しました。
　仮に次の定数があるとして説明します。→ご自分で分かりやすい名前に変更なりして下さい。
　定数の値は『OP_xxxx』と重複しないように決めます。
　『M+』キー機能→『MEM_PLUS』
　『M-』キー機能→『MEM_MINUS』
　『MS』キー機能→『MEM_STORE』
　『MR』キー機能→『MEM_RECALL』
　『MC』キー機能→『MEM_CLEAR』
・あと『KEY_NUMBER』と同じ意味合いの『KEY_MEMORY』という定数を付け加えて下さい。
　『KEY_MEMORY』は『M+』『M-』『MS』『MR』『MC』キーの押し下げを表します。
・それから『txtMemory.text』がメモリの『M』表示です。ここでの説明の都合上ですよ。
・なお『M+』、『M-』はイコール機能は兼ねないタイプにします。これは、Windows の電卓の
　仕様と同じにするためです。多分、very-dou さんは Windows 電卓を参考に作りたいと思う
　のでこの仕様に合わせます。
・アルゴリズムは前回の通りです。そのアルゴリズムを元に実装例のサンプルを紹介します。

サンプル:
If (intLastKey = KEY_NUMBER) Or (intOp = OP_EQUAL) Then
　　：
　ここは質問者さんの OP_PLUS ～ OP_DIVIDE の処理です。
　　：
ElseIf intLastKey = KEY_MEMORY Then
　Select Case intPrevOperation
　　Case MEM_PLUS　'M+
　　　curMemory = curMemory + dblCurrentNumber
　　　txtMemory.text = "M"　'[M]表示を出す
　　Case MEM_MINUS　'M-
　　　curMemory = curMemory - dblCurrentNumber
　　　txtMemory.text = "M"　'[M]表示を出す
　　Case MEM_STORE　'MS
　　　curMemory = dblCurrentNumber
　　　txtMemory.text = "M"　'[M]表示を出す
　　Case MEM_RECALL　'MR
　　　dblCurrentNumber = curMemory
　　　txtDisplay.text = CStr(dblCurrentNumber)
　　Case MEM_CLEAR　'MC
　　　curMemory = 0
　　　txtMemory.text = " "　'[M]表示を消す
　End Select
End If

最後に:
・メモリ数値のオーバーフロー処理は省略しています。
　『OP_PLUS』～『OP_DIVIDE』と『MEM_PLUS』、『MEM_MINUS』で演算時の桁オーバーも
　チェックして電卓画面に『E』または、『OVERFLLOW』などと表示する仕組みも組み込んで
　見ましょう。→別のルーチンで処理している場合は『OnOperation』内では必要ありません。
・以上。おわり。→『0除算エラー』には対応しているようですね。忘れがちです。この処理。

PED02744 · Answer

う～ん。。何がわからないのか、わからないんですが(笑)
＞「メモリー機能をClickしたときにcallで呼び出すようにしました。」
なんて、言っている時点で、私の理解を超えてます(^_^;)

ようは「画面に表示されないデータをどこで覚えておけばよいの？」
って話ではないかとおもったんですが、違うでしょうか？
もし、そうなら、「Shared」が幸せになれるキーワードかもしれません。

Oh-Orange · Answer

★アルゴリズムのアドバイスになります。
・電卓管理の構造が分からないため詳しくはアドバイスできません。念のために。
・昔、私が電卓を作成したときにメモリ機能を作るうえで次の３つの変数を使いました。
　(1)入力用の変数(X)⇒キーボードから入力した数字を保管しておくための変数
　(2)演算用の変数(Y)⇒演算結果が毎回格納される変数で、最終的にこれが計算結果として表示する変数
　(3)メモリの変数(M)⇒これがメモリ機能の変数です
・上記の X、Y、M を使って説明します。

●『M+』
・変数(M)に変数(Y)を加算します。⇒M=M+Y
・このとき『M+』キーが押されたときに『＝』イコールもかねる場合は演算する関数を読んだ後に、
　(Y)から(M)へ加算します。
●『MS』
・変数(M)に変数(X)を代入します。⇒M=X
・『MS』キーは電卓の表示されている数値を直接代入する必要があるため、変数(Y)ではありません。
●『MR』
・変数(M)を変数(X)、もしくは変数(Y)へ代入します。⇒X=M、Y=M
・『MR』キーは計算中と計算完了(イコールが押された後)で動作が異なります。
　計算中では変数(X)をクリアする処理『CE』キーの動作を行ってから、変数(M)を変数(X)へ代入します。
　計算完了では変数(Y)にそのまま変数(M)を代入します。
●『MC』
・単純に変数(M)に『0』を代入して表示の『M』を消します。

サンプル:
Select Case ope　'0～4でメモリ演算を指定
　Case 0:　'MC
　　M = 0
　　[M]表示を消す
　Case 1:　'MS
　　M = X
　　[M]表示を出す
　Case 2:　'M+
　　[=]ボタンの処理を呼び出す
　　M = M + Y
　　[M]表示を出す
　Case 3:　'M-
　　[=]ボタンの処理を呼び出す
　　M = M - Y
　　[M]表示を出す
　Case 4:　'MR
　　If calcmode=true Then
　　　[CE]ボタンの処理を呼び出す
　　　X = M
　　　電卓入力の数値表示を出す
　　Else
　　　Y = M
　　End If
End Select

最後に:
・very-dou さんの電卓アルゴリズムがよく分からないため、私が昔作成した電卓アルゴリズムに
　基づき擬似サンプル・コードを載せました。冒頭で紹介した変数(X,Y,M)をちゃんと管理すれば
　かなり簡単に電卓は出来ます。→問題はキー操作などのタイミングですね。
・入力用の変数(X)、演算用の変数(Y)、メモリの変数(M)の最低 3 つの変数を用意して管理すると
　演算処理が簡単です。
・以上。おわり。→電卓作り応援します。頑張って操作性の良い『卓上電気計算機』＝電卓を作って下さい。

ＶＢ 電卓 メモリー機能

★それでは補足要求します。

この回答への補足

★まずはメモリ演算用の定数を増やします。

う～ん。

★アルゴリズムのアドバイスになります。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

ＶＢ　電卓　メモリー機能