[ツリー表示へ] [ワード検索] [Home]
タイトル ： 電卓のプログラムを見てください 投稿日 ： 2009/11/07(Sat) 22:18 投稿者 ： カズ
| 簡単な計算のできるプログラムを作りました。 今のプログラムをもっと簡単にしたいです。 いいプログラムあれば教えてください。 環境はVB.NETです。 今回のは趣味で作っています。 Public Class Dentaku Private Sub gokei_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gokei_timer.Tick 'どちらかが空いていた場合 If su1.Text = "" Or su2.Text = "" Then gokei.Text = "" KeisanShiki.Text = "" End If '両方が入力された場合 If su1.Text <> "" And su2.Text <> "" Then If tasu.Checked = True Then gokei.Text = Val(su1.Text) + Val(su2.Text) KeisanShiki.Text = su1.Text + "＋" + su2.Text ElseIf hiku.Checked = True Then gokei.Text = Val(su1.Text) - Val(su2.Text) KeisanShiki.Text = su1.Text + "−" + su2.Text ElseIf kakeru.Checked = True Then gokei.Text = Val(su1.Text) * Val(su2.Text) KeisanShiki.Text = su1.Text + "×" + su2.Text ElseIf waru.Checked = True Then gokei.Text = Val(su1.Text) / Val(su2.Text) KeisanShiki.Text = su1.Text + "÷" + su2.Text End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Left = (Screen.PrimaryScreen.Bounds.Width - Width) / 2 Top = (Screen.PrimaryScreen.Bounds.Height - Height) / 2 '初期設定 su1.Text = "" su2.Text = "" End Sub Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click 'クリア su1.Text = "" su2.Text = "" gokei.Text = "" End Sub Private Sub EndButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EndButton.Click '終了 End End Sub |
をクリックするとツリー全体を一括表示します） - 電卓のプログラムを見てください - カズ 09/11/07-22:18No.9560