今、Visual Studio NETを用いて電卓を作ろうとしています。
いろいろ調べてやっているのですが、うまくいきません。
1+2はできるのですが、1+2+3が5になってしまいます。
どうすればいいのか、どなたか教えていただけませんか?
今のコードをキーの設定以外を記載しておきます。
お願いします。
================================================
Private Sub 数字キー(ByVal n As Integer)
If CL Then
R1 = 0
CL = False
End If
R1 = R1 * 10 + n
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
Textreg.Text = R1
End Sub
Private Sub keyEQ_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles keyEQ.Click
計算()
End Sub
Private Sub keyCL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles keyCL.Click
Textreg.Text = "0"
R1 = 0
R2 = 0
Op = 0
CL = True
End Sub
Private Sub Form電卓_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Textreg.Text = 0
R1 = 0
R2 = 0
Op = 0
CL = True
End Sub
End Class
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) Visual Basic : ImageListの画像がそろったときにメッセージを表示 1 2023/07/20 13:53
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レイトレーシングとラジオシテ...
-
映画の製作費(予算表)のテン...
-
ANSYS (アンシス)で困ってい...
-
Calcの読み方
-
EXCEL ページを指定してPDF出力...
-
エクセルの対象セルの1つしか...
-
Excelでファイル全体が読み込め...
-
R1C1参照形式変更後「名前の重...
-
エクセルの列の表示が文字でな...
-
Excel 「入力規則」が消えて困...
-
Excelデータ、グラフを積分する...
-
エクセルとPDFのURL化
-
相手に送ったエクセルが間違っ...
-
Excelセル番地の表示の変更の仕...
-
エクセルで上と左の数字列の表...
-
エクセル、不要なページを削除...
-
エクセルにハイパーリンクで貼...
-
エクセル出納帳
-
ゆっくりムービーメーカーで発...
-
Word 2003でラベル差込印刷の際...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ANSYS (アンシス)で困ってい...
-
カッコの2番で計算をした結果74...
-
面積を計算するソフト
-
Calcの読み方
-
無限級数
-
ローン計算が合わないのですが...
-
EXCELで括約できますか?
-
294÷6.02×10の23乗の答えを教え...
-
F-BASICで計算中の実行が中途で...
-
レイトレーシングとラジオシテ...
-
3D_CADのサーフェスモデルとソ...
-
すいません、delphi初心者です。
-
エクセルで計算結果より小さい...
-
3DCG作成ソフトとGPUの関係
-
4G以上のデータをDVDに書き...
-
RGBの色を混ぜるとは計算上どう...
-
複数台のMTBFについて
-
説明がわかりずらくてすみませ...
-
映画の製作費(予算表)のテン...
-
耐震
おすすめ情報