ど素人でもできた！Visual Basic6.0で電卓を作る

• １つ目（演算子の前）の数値を覚えておく変数
• ２つ目（演算子の後）の数値を覚えておく変数
• 演算子を覚えておく変数
• 直前に押されたキーの種類を覚えておく変数

• 演算子の種類を表す定数
• 直前に押されたキーの種類を表す定数

• 数値が押された時の処理→数値を押す前のキーが数値か演算子どちらかによって処理を変える
• 演算子が押された時の処理
• ＝が押された時の処理→２つの数値を演算子で計算した数値を表示する
• C(クリアキー)が押された時の処理→すべての変数を消す
• CE(クリアエントリーキー)が押された時の処理→２つ目の変数だけを消す

オブジェクト名：Form1

Caption：電卓

オブジェクト名：Label1

Alignment：1-右揃え

Backcolor：好きな色に

BorderStyle：1-実線

Caption：0

0：cmd0

1：cmd1

2：cmd2

3：cmd3

4：cmd4

5：cmd5

6：cmd6

7：cmd7

8：cmd8

9：cmd9

.：cmdPeriod

=：cmdEqual

+：cmdPlus

-：cmdMinus

*：cmdMultipie

/：cmdDivide

C：cmdC

CE：cmdCE

Const OP_NO As Integer = 0　Integerは整数の型です。

Const OP_EQUAL As Integer = 1

Const OP_PLUS As Integer = 2

Const OP_MINUS As Integer = 3

Const OP_MULTIPLE As Integer = 4

Const OP_DIVIDE As Integer = 5

Const OP_ERROR As Integer = -1

Const KEY_NUMBER As Integer = 1

Const KEY_EQUAL As Integer = 2

Const KEY_OTHER As Integer = 0

Dim dblPrevNumber As Double　前の数字を意味します。

Doubleは小数点以下を含む数字を示す型です。　Doubleをdblと略しています。　Previous（前の）をPrevと略しています。

Dim dblCurrentNumber As Double　Current（現在）の数字を意味します。

Dim intPrevOperation As Integer　前のOperation（操作）を意味します。

Dim intLastKey As Integer　最後のキーを意味します。

Private Sub OnNumber(intKey As Integer)　OnNumber(intKey As Integer)というプロシージャを定義する

　0〜9の数字キーを押した場合の処理をまとめて表記します！

    If intPrevOperation = OP_ERROR Then Exit Sub エラーの場合は処理を終える

    If intLastKey <> KEY_NUMBER Then　直前のキーが数字ではなく演算子の場合　<>：等しくない

        lblNumber.Caption = “0” 電卓の表示(lblNumber.Caption)を0にする

    End If

    If intKey = -1 Then　intKeyに-1が入っている場合

        lblNumber.Caption = lblNumber.Caption & “.”　電卓の表示(lblNumber.Caption)をこれまでの電卓の表示＋小数点.

    Else

        If lblNumber.Caption = “0” Then　電卓の表示(lblNumber.Caption)が0の場合

            lblNumber.Caption = CStr(intKey)　今回のキー(intKey)だけを表示する

CStrで数字を文字列に変換することで表示することができる。

        Else

            lblNumber.Caption = lblNumber.Caption & CStr(intKey)　電卓の表示をこれまでの電卓の表示＋今回のキー

        End If

    End If

    dblCurrentNumber = CDbl(lblNumber.Caption)　電卓の表示を数値に変換して、２つ目の数値の変数に代入する

CDblで小数点を含む数字に型を変換する。

    intLastKey = KEY_NUMBER　押されたキーが数字キーであることを記憶する

End Sub

Private Sub OnOperation(intOp As Integer)　OnOperation(intOp As Integer)というプロシージャを定義する

    If intPrevOperation = OP_ERROR Then　エラーが発生していないかチェック

        Exit Sub　エラーがある場合はプロシージャを終わる

    End If

    If intLastKey = KEY_NUMBER Or intOp = OP_EQUAL Then　前に押されたキーが数値か演算子の場合

        Select Case intPrevOperation　intPrevOperationが次のような条件の場合処理を分岐する

        Case OP_PLUS　演算子＋が記憶されていた場合

            dblPrevNumber = dblPrevNumber + dblCurrentNumber１つ目の数値と２つ目の数値の変数を合わせたものを１つ目の数値にする

            Label1.Caption = CStr(dblPrevNumber)　電卓の表示は１つ目の数値だけにする

        Case OP_MINUS　演算子-が記録されていた場合

            dblPrevNumber = dblPrevNumber – dblCurrentNumber１つ目の数値から２つ目の数値を引いたものを１つ目の数値にする

            Label1.Caption = CStr(dblPrevNumber)　電卓の表示は１つ目の数値だけにする

        Case OP_MULTIPLE　演算子×が記憶されていた場合

            dblPrevNumber = dblPrevNumber * dblCurrentNumber　

            Label1.Caption = CStr(dblPrevNumber)

        Case OP_DIVIDE　演算子÷が記憶されていた場合

            If dblCurrentNumber = 0 Then　２つ目の数値が0の場合

                lblNumber.Caption = “E”　電卓の表示はEにする

                intPrevOperation = OP_ERROR　１つ目の数値をOP_ERRORとする

                Exit Sub

            Else

                dblPrevNumber = dblPrevNumber / dblCurrentNumber　２つ目の数値が0じゃなければ普通に計算

                Label1.Caption = CStr(dblPrevNumber)

            End If

        End Select

    End If

    dblPrevNumber = CDbl(lblNumber.Caption)　電卓に表示されている数値を１つ目の数値に代入

    Select Case intOp　intOpが次のような条件の場合処理を分岐する

    Case OP_PLUS　今回演算子＋を押された場合

        intPrevOperation = OP_PLUS　＋をintPrevOperationに記憶する

        dblCurrentNumber = CDbl(Label1.Caption)　電卓の表示を２つ目の数値に代入する

    Case OP_MINUS

        intPrevOperation = OP_MINUS　−をintPrevOperationに記憶する

        dblCurrentNumber = CDbl(Label1.Caption)　電卓の表示を２つ目の数値に代入する

    Case OP_MULTIPLE

        intPrevOperation = OP_MULTIPLE　×をintPrevOperationに記憶する

        dblCurrentNumber = CDbl(Label1.Caption)　電卓の表示を２つ目の数値に代入する

    Case OP_DIVIDE

        intPrevOperation = OP_DIVIDE　÷をintPrevOperationに記憶する

        dblCurrentNumber = CDbl(Label1.Caption)　電卓の表示を２つ目の数値に代入する

    End Select

    If intOp = OP_EQUAL Then　今回演算子＝が押された場合

        intLastKey = KEY_EQUAL　＝を intLastKeyに記憶する

    Else　それ以外は

        intLastKey = KEY_OTHER　KEY_OTHERをintLastKeyに記憶する

    End If

End Sub

Private Sub OnClear()　OnClearというプロシージャを定義する

    dblPrevNumber = 0　１つ目の数値を0にする

    intPrevOperation = OP_NO　前に押されていた演算子を消す

    intLastKey = KEY_OTHER　前に押されていたキーを消す

    Call OnClearEntry　CEの処理をする

End Sub

Private Sub OnClearEntry()　OnClearEntryというプロシージャを定義する

    If intPrevOperation = OP_ERROR Then Exit Sub　前に押されていた演算子がエラーの場合はCEの処理を終わる

    dblCurrentNumber = 0　２つ目の数値を0にする

    Label1.Caption = “0”　電卓の表示を0にする

End Sub

Private Sub cmd0_Click()

    Call OnNumber(0)

End Sub

Private Sub cmd1_Click()

    Call OnNumber(1)

End Sub

Private Sub cmd2_Click()

    Call OnNumber(2)

End Sub

Private Sub cmd3_Click()

    Call OnNumber(3)

End Sub

Private Sub cmd4_Click()

    Call OnNumber(4)

End Sub

Private Sub cmd5_Click()

    Call OnNumber(5)

End Sub

Private Sub cmd6_Click()

    Call OnNumber(6)

End Sub

Private Sub cmd7_Click()

    Call OnNumber(7)

End Sub

Private Sub cmd8_Click()

    Call OnNumber(8)

End Sub

Private Sub cmd9_Click()

    Call OnNumber(9)

End Sub

Private Sub cmdC_Click()

    Call OnClear

End Sub

Private Sub cmdCE_Click()

    Call OnClearEntry

End Sub

Private Sub cmdDivide_Click()

    Call OnOperation(OP_DIVIDE)

End Sub

Private Sub cmdEqual_Click()

    Call OnOperation(OP_EQUAL)

End Sub

Private Sub cmdMinus_Click()

    Call OnOperation(OP_MINUS)

End Sub

Private Sub cmdMultiple_Click()

    Call OnOperation(OP_MULTIPLE)

End Sub

Private Sub cmdPeriod_Click()

    Call OnNumber(-1)

End Sub

Private Sub cmdPlus_Click()

    Call OnOperation(OP_PLUS)

End Sub

Private Sub Form_Load()

    Call OnClear

End Sub