とりこらぼ。

ひとりでんたく。- Visual Basic で電卓つく～る。その６ -

ひとりでんたく。- Visual Basic で電卓つく～る。その５ -←前回。

前回のあらすじ。

あ、こないだの風林火山の録画したやつ、まだ見てなかったな･･･。

前回はこの世のしがらみを考慮せずに小数点の部分を作りました。それだけです。（←こっちがあらすじ。）

じゃ、つぎー！

＋/－ のとこつく～る！

というわけ（？）で、＋/－ボタンに相当する機能をつくります。Negate メソッドにしましょうか。

えっと、表示が 0 なら正とか負とかないので、なんにもしないと。んで "-" があったら消す、無かったらつけるって感じですか？（←誰に聞いてるのさ？ｗ）

Public Sub Negate()


    Dim newText As String = Me.DisplayText


    ' "0" って･･･。
    If newText = "0" Then


        Exit Sub


    End If


    ' "-" があったら消す、なかったらつける。
    If newText.Contains("-") Then


        newText = newText.Replace("-", String.Empty)


    Else


        newText = "-" & newText


    End If


    ' できあがったのが Decimal に変換できるときだけOKってことにしとこう。
    ' でもなんかこれ･･･気持ち悪い。
    Dim parseValue As Decimal


    If Decimal.TryParse(newText, parseValue) Then


        Me.DisplayText = newText


    End If


End Sub

というわけで、今回はここまで。こなくそー！！

みｗなｗぎってきた

投稿日時 : 2007年7月6日 8:58