이해가 안되요 ㅠㅠ 도와주세요(빨간색부분만!)
냥냥
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햇을때 무슨 차이점을 두기위해 설정한것인가요?
-
유희
예를들어 초기화 스위치를 누르면 isWork가 True가 될테고
true가 되면 Text창을 초기화 시키는겁니다.
명령을 반복 수행하기 때문에 한번더 초기화를시키지 않게 하기 위해서
isWork를 False로 만드는거고요 -
내꺼하자
isWork가 계산기의 초기화역할을 하는 S/W버튼이라고 생각하면 될꺼같은데요??
-
대나무
true 해야 공백처리되고 false하니까 효과가없어요 뭐지.. 이상하네요
-
연연두
If IsWork = True Then
IsWork = False
Text1.Text = \\
근데 이걸 해석하면요
iswork=true 이면
iswork=false
text1.text=\\ 이다.
이렇게 해석되는게 이해가 안되서 궁금해요.. -
맨마루
정확하진 않지만 그런것 같습니다.
-
꽃짱구
iswork=false 일시에 공백처리 한다는 뜻인가요??
-
미리별
If IsWork = True Then
는 이프문의 시작일테고요
Text1.Text = \\
는 text1.text 를 공백으로 아무것도 안보이게 한다는 것 입니다.
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2655417 | VB로 프로세스 어떻게잡아요?? settini 나오게 또어떻게하나요? (3) | 모해 | 2024-05-19 |
2655384 | 비베로 클래스파일 실행하기 (5) | 달달한캔디 | 2024-05-19 |
2655362 | 컴파일시 오류 ㅠㅠ | 맨삶이 | 2024-05-19 |
2655329 | 트레이너 질문. 핫키를누르면 적용됫다가풀림 (1) | SweetChoco | 2024-05-18 |
2655300 | 특정 프로그램 루프문으로 팅기게 하고싶은데 (2) | 애교 | 2024-05-18 |
2655272 | 강좌소스확인하는법좀요 | 말달리자 | 2024-05-18 |
2655243 | 파일크기비교 | 혜윤 | 2024-05-18 |
2655211 | 우엉~ Winhttp 겁나 급해요 ㅜㅜ (2) | 정훈 | 2024-05-17 |
2655185 | 화면의 x좌표 가장큰값 구하기 질문 (1) | 해길 | 2024-05-17 |
2655158 | 이거 강좌를 받앗는대 어떻개따라해요? | 하람 | 2024-05-17 |
2655130 | 컴퓨터 사운드 녹음 질문 | 갤쓰리 | 2024-05-17 |
2655073 | 폼끄기 질문 다시합니다 | 해찬솔 | 2024-05-16 |
2654987 | 메세지 박스 질문입니다 ~ (3) | 안다미로 | 2024-05-15 |
2654960 | 블로그 글쓰기 질문 (2) | 힘찬 | 2024-05-15 |
2654931 | 질문 하나 하겠습니다 .!! | 소윤 | 2024-05-15 |
2654904 | 비베 질문요 ㅠㅠ | 미련곰탱이 | 2024-05-15 |
2654851 | 미투데이에 글을 다는 소스를 만들어보려고 하는데 | 횃불 | 2024-05-14 |
2654822 | 원하는 이미지만 꼭 찝어서 냅두기 (3) | 다솜 | 2024-05-14 |
2654791 | 닷홈으로 TEXT를 전송하는데요.. (1) | 그리 | 2024-05-14 |
2654769 | 뭐죠 ?? | 가을 | 2024-05-13 |