§３　電卓の制作　VB6
(4) 演算キーの追加 �U

グローバル変数の初期化

　ここまで宣言したグローバル変数を初期化する。
　初期化の処理は実行したとき１度だけでよいので、Form_Loadプロシージャに書く。

Private Sub Form_Load()
    dData1 = 0        '数値記憶用変数の初期化
    dData2 = 0
    Enzan = NONE      '演算種類初期値
    SuuFlag = False
    EFlag = False
End Sub

クリアキーの処理追加

　クリアキーを押したときも、この初期状態になるようにcmdClear_Clickプロシージャにグローバル変数を初期化するプログラムを追加する（青色部分）。

Private Sub cmdClear_Click()
    txtDisplay.Text = "0"
    dData1 = 0        '数値記憶用変数の初期化
    dData2 = 0
    Enzan = NONE      '演算種類初期値
    SuuFlag = False
    EFlag = False
End Sub

数字キーの処理追加

　cmdNum_Clickプロシージャで、数字キーを押した後、グローバル変数SuuFlagをTrueに設定する。また、数字キーを押した後ではないときも表示を消す必要があるので、判定を追加する（青色部分）。

Private Sub cmdNum_Click(Index As Integer)
    '0が１文字だけ、または、演算キーを押した後の時
    If txtDisplay.Text = "0" Or SuuFlag = False Then
        txtDisplay.Text = ""        '0を消す
        dData2 = 0
    End If
    If Index <= 9 Then          '0 - 9 数字
        txtDisplay.Text = txtDisplay.Text & Trim(Str(Index))
    ElseIf Index = 10 Then      '．小数点
        If txtDisplay.Text = "" Then    '最初が小数点
            txtDisplay.Text = "0."
        ElseIf InStr(txtDisplay.Text, ".") = 0 Then '小数点無し
            txtDisplay.Text = txtDisplay.Text & "."
        End If
    End If
    SuuFlag = True
End Sub

(4) 演算キーの追加 �U
Copyright © 2001,2002 Hiroshi Masuda