수다닷컴

Option Explicit

Dim NumA As Single
Dim NumB As Single
Dim NumC As Single
Dim CalType As Integer
Dim CalClear As Boolean

Const cPlus = 1
Const cMiners = 2
Const cDouble = 3
Const cDivide = 4
Private Sub cmdC_Click()
Text1.Text =
NumA = 0
NumB = 0
End Sub

Private Sub cmdCE_Click()
Text1.Text =
NumB = 0
End Sub

Private Sub cmdDivide_Click()
NumA = Text1.Text
CalType = cDivide
CalClear = True
End Sub

Private Sub cmddot_Click(Index As Integer)
Dim p As Integer
p = InStr(Text1.Text, .)
If p = 0 Then Text1.Text = Text1.Text & .
End Sub

Private Sub cmdDouble_Click()
NumA = Text1.Text
CalType = cDouble
CalClear = True
End Sub

Private Sub cmdEqual_Click()
If Text1.Text = Then Text1.Text = 0
NumB = Text1.Text

Select Case CalType
Case cPlus
NumC = NumA + NumB
Case cMiners
NumC = NumA - NumB
Case cDouble
NumC = NumA * NumB
Case cDivide
If NumA = 0 Or NumB = 0 Then
NumC = 0
Else
NumC = NumA / NumB
End If
End Select
End Sub

Private Sub cmdNum_Click(Index As Integer)
If CalClear = True Then
Text1.Text = Index
CalClear = False
Else
Text1.Text = Text1.Text & Index
End If
End Sub

Private Sub cmdPercent_Click()
If Text1.Text = Then Text1.Text = 0
NumB = Text1.Text

Select Case CalType
Case cPlus
NumC = NumA + NumB
Case cMiners
NumC = NumA - NumB
Case cDouble
NumC = NumA * NumB
Case cDivide
If NumA = 0 Or NumB = 0 Then
NumC = 0
Else
NumC = NumA / NumB
End If
End Select

Text1.Text = NumC * 100

NumA = 0
NumB = 0
CalType = 0
CalClear = True
End Sub
이러케 했는데

신청하기