수다닷컴

Public OldNumber As String
Public WhatC As String
Public IsWork As Boolean
Private Sub AddNumber(Number)
If Text1.Text = 0 And Number = . Then Text1.Text = 0.
If Text1.Text = 0 Then Text1.Text =
If IsWork = True Then
IsWork = False
Text1.Text =
End If
Text1.Text = Text1.Text & Number
End Sub
Private Sub SubNumber()
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
If Text1.Text = Then Text1.Text = 0
End Sub
Private Sub Command1_Click()
AddNumber 7
End Sub
Private Sub Command10_Click()
AddNumber 0
End Sub
Private Sub Command11_Click()
PLUSMINUS
End Sub
Private Sub Command12_Click()
AddNumber .
End Sub
Private Sub Command13_Click()
WhatC = DIV
IsWork = True
OldNumber = Text1.Text
End Sub
Private Sub Command14_Click()
WhatC = MUL
IsWork = True
OldNumber = Text1.Text
End Sub
Private Sub Command15_Click()
WhatC = MIN
IsWork = True
OldNumber = Text1.Text
End Sub
Private Sub Command16_Click()
WhatC = PLU
IsWork = True
OldNumber = Text1.Text
End Sub
Private Sub Command17_Click()
Select Case WhatC
Case Is = PLU
Text1.Text = Val(OldNumber) + Val(Text1.Text)
Case Is = MIN
Text1.Text = Val(OldNumber) - Val(Text1.Text)
Case Is = MUL
Text1.Text = Val(OldNumber) * Val(Text1.Text)
Case Is = DIV
Text1.Text = Val(OldNumber) / Val(Text1.Text)
End Select
IsWork = False
End Sub
Private Sub Command18_Click()
SubNumber
End Sub
Private Sub Command19_Click()
Text1.Text = 0
WhatC =
IsWork = False
End Sub
Private Sub Command2_Click()
AddNumber 8
End Sub
Private Sub Command3_Click()
AddNumber 9
End Sub
Private Sub Command4_Click()
AddNumber 4
End Sub
Private Sub Command5_Click()
AddNumber 5
End Sub
Private Sub Command6_Click()
AddNumber 6
End Sub
Private Sub Command7_Click()
AddNumber 1
End Sub
Private Sub Command8_Click()
AddNumber 2
End Sub
Private Sub Command9_Click()
AddNumber 3
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is = 8
SubNumber
Case Is = 13
Command17_Click
Case Is = 27
Command19_Click
Case Is = 42
Command14_Click
Case Is = 43
Command16_Click
Case Is = 45
Command15_Click
Case Is = 46
AddNumber .
Case Is = 47
Command13_Click
Case Is = 48
AddNumber 0
Case Is = 49
AddNumber 1
Case Is = 50
AddNumber 2
Case Is = 51
AddNumber 3
Case Is = 52
AddNumber 4
Case Is = 53
AddNumber 5
Case Is = 54
AddNumber 6
Case Is = 55
AddNumber 7
Case Is = 56
AddNumber 8
Case Is = 57
AddNumber 9
End Select
End Sub
Private Sub PLUSMINUS()
If Val(Text1.Text) = 0 Then
Exit Sub
ElseIf Val(Text1.Text) 0 Then
Text1.Text = - & Text1.Text
ElseIf Val(Text1.Text) 0 Then
Text1.Text = Replace$(Text1.Text, -, )
End If
End Sub

사칙연산 계산기 소스인데요 여기서 빨간색 글씨친부분이 의미하는게 무엇인지 이해가안되요(해석도부탁드립니다 빨간색글씨친부분)
If IsWork = True Then
Text1.Text =

false부분을 빼도 프로그램이 정상작동하는것같은데 도대체 true 했을때 false햇을때 무슨 차이점을 두기위해 설정한것인가요?

신청하기