수다닷컴

저기서 Dim CalClear As Boolean

이것을 선언했는디요..

ClaClear = True 이게 도대체 무슨말인가요?

그냥 선언만 했는데 Calclear 에 대한 정의가 없잖아요..무슨 함수도 아니고..

도대체 저게 무슨뜻입니까... 각각 연산 command 코드에 CalClear = True 라는게 자꾸 써져있는데..

저게 무슨뜻인지 모르겠습니다. ㅠㅠ 알켜주셈 고수님들아..
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 = 4Private 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()
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

Text1.Text = NumC

NumA = 0
NumB = 0
CalType = 0
CalClear = True
End Sub

Private Sub cmdMiners_Click()
NumA = Text1.Text
CalType = cMiners
CalClear = True
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

Private Sub cmdPlus_Click()
NumA = Text1.Text
CalType = cPlus
CalClear = True
End Sub

Private Sub Form_Load()
Text1.Text =
NumA = 0
NumB = 0
CalClear = False
End Sub

신청하기