Private atai1 As Double
Private atai2 As Double
Private atai3 As Double
Private enzanshi As Integer
Private kotae As Double
Private eflag As Integer
Private rflag As Integer
Private mflag1 As Integer
Private mflag2 As Integer
Private sflag As Integer
Private kflag As Integer
Private data1 As Double
Private data2 As Double
Private data3 As Double
Private data4 As Double
Private tendata1 As Integer
Private tendata2 As Integer
Private Sub cmdAC_Click()
atai1 = 0
atai2 = 0
enzanshi = 4
kotae = 0
data1 = 0
data2 = 0
data3 = 0
data4 = 0
tendata1 = 1
tendata2 = 1
eflag = 0
rflag = 0
mflag1 = 1
mflag2 = 1
sflag = 0
txtinput.Text = 0
End Sub
Private Sub cmdclear_Click()
mflag1 = 1
mflag2 = 1
txtinput.Text = 0
If eflag = 0 Then
atai1 = 0
data1 = 0
data3 = 0
tendata1 = 0
sflag = 0
ElseIf eflag = 1 Then
atai2 = 0
data2 = 0
data4 = 0
tendata2 = 0
sflag = 0
ElseIf kflag = 1 Then
atai1 = 0
atai2 = 0
enzanshi = 4
kotae = 0
data1 = 0
data2 = 0
data3 = 0
data4 = 0
tendata1 = 1
tendata2 = 1
eflag = 0
rflag = 0
sflag = 0
End If
End Sub
Private Sub cmdkotae_Click()
mflag1 = 1
mflag2 = 1
Keisan
rflag = 1
kflag = 1
End Sub
Private Sub cmdM_Click()
If eflag = 0 Then
atai3 = atai1
ElseIf eflag = 1 Then
atai3 = atai2
ElseIf kflag = 1 Then
atai3 = kotae
End If
End Sub
Private Sub cmdMC_Click()
atai3 = 0
End Sub
Private Sub cmdMhiku_Click()
If eflag = 0 Then
ElseIf eflag = 1 Then
ElseIf kflag = 1 Then
End If
End Sub
Private Sub cmdMR_Click()
If eflag = 0 Then
ElseIf eflag = 1 Then
ElseIf kflag = 1 Then
End If
End Sub
Private Sub cmdMtasu_Click()
If eflag = 0 Then
ElseIf eflag = 1 Then
ElseIf kflag = 1 Then
End If
End Sub
Private Sub cmdtasu_Click()
mflag1 = 1
mflag2 = 1
enzanshi = 0
eflag = 1
rflag = 1
sflag = 0
End Sub
Private Sub cmdhiku_Click()
If txtinput.Text = 0 Then
mflag1 = -1
txtinput.Text = "-"
Else
mflag1 = 1
mflag2 = 1
enzanshi = 1
eflag = 1
rflag = 1
sflag = 0
End If
End Sub
Private Sub cmdkakeru_Click()
mflag1 = 1
mflag2 = 1
enzanshi = 2
eflag = 1
rflag = 1
sflag = 0
End Sub
Private Sub cmdwaru_Click()
mflag1 = 1
mflag2 = 1
enzanshi = 3
eflag = 1
rflag = 1
sflag = 0
End Sub
Private Sub Form_Load()
atai1 = 0
atai2 = 0
enzanshi = 4
kotae = 0
data1 = 0
data2 = 0
data3 = 0
data4 = 0
tendata1 = 1
tendata2 = 1
eflag = 0
rflag = 0
mflag1 = 1
mflag2 = 1
sflag = 0
End Sub
Private Sub Hyouji(Number As Integer)
If rflag = 1 Then
txtinput.Text = 0
rflag = 0
End If
If sflag = 1 Then
If eflag = 0 Then
data3 = data3 * 10 + mflag2 * Number
tendata1 = tendata1 * 10
atai1 = data1 + (data3 / tendata1)
txtinput.Text = atai1
ElseIf eflag = 1 Then
data4 = data4 * 10 + mflag2 * Number
tendata2 = tendata2 * 10
atai2 = data2 + (data4 / tendata2)
txtinput.Text = atai2
End If
ElseIf sflag = 0 Then
If eflag = 0 Then
data1 = txtinput.Text
data1 = data1 * 10 + mflag2 * Number
atai1 = data1
txtinput.Text = atai1
ElseIf eflag = 1 Then
data2 = txtinput.Text
data2 = data2 * 10 + mflag2 * Number
atai2 = data2
txtinput.Text = atai2
End If
End If
End Sub
Private Sub lbl0_Click()
Hyouji (0)
End Sub
Private Sub lbl00_Click()
If rflag = 1 Then
txtinput.Text = 0
rflag = 0
End If
If sflag = 1 Then
Exit Sub
End If
If eflag = 0 Then
data1 = data1 * 100
atai1 = data1
txtinput.Text = atai1
ElseIf eflag = 1 Then
data2 = data2 * 10 + mflag2 * 0
atai2 = data2
txtinput.Text = atai2
End If
End Sub
Private Sub lbl1_Click()
Hyouji (1)
End Sub
Private Sub lbl2_Click()
Hyouji (2)
End Sub
Private Sub lbl3_Click()
Hyouji (3)
End Sub
Private Sub lbl4_Click()
Hyouji (4)
End Sub
Private Sub lbl5_Click()
Hyouji (5)
End Sub
Private Sub lbl6_Click()
Hyouji (6)
End Sub
Private Sub lbl7_Click()
Hyouji (7)
End Sub
Private Sub lbl8_Click()
Hyouji (8)
End Sub
Private Sub lbl9_Click()
Hyouji (9)
End Sub
Sub Keisan()
If eflag = 0 Then
kotae = atai1
ElseIf eflag = 1 Then
Select Case enzanshi
Case 0
kotae = atai1 + atai2
Case 1
kotae = atai1 - atai2
Case 2
kotae = atai1 * atai2
Case 3
kotae = atai1 / atai2
End Select
End If
txtinput.Text = kotae
eflag = 0
End Sub
Private Sub lbldot_Click()
If sflag = 1 Then
Exit Sub
End If
txtinput.Text = txtinput.Text + "."
sflag = 1
End Sub