이해가 안되요 ㅠㅠ 도와주세요(빨간색부분만!)
냥냥
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 를 공백으로 아무것도 안보이게 한다는 것 입니다.
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2656883 | 웹 텍스트 불러오기 (6) | Sona | 2024-06-01 |
2656855 | 압박, Winhttp도 패킷 많이 보내지나요 (5) | 아리알찬 | 2024-06-01 |
2656800 | 비주얼 베이직이 비주얼스튜디오인가여 . (3) | Regretting | 2024-06-01 |
2656768 | 네이버 로그인할때 ID/PW가 일치하면 로그인되었습니다. 라는 메세지가 나오게할려면 어떻게 해야하죠? | 타마 | 2024-05-31 |
2656718 | 목록 구분선 또는 ) 오류 질문 | Hotpants | 2024-05-31 |
2656687 | 닷홈 호스팅 값 프로그램 ( 리스트에서 ) 버튼으로 갱신해주는법 | 전갈자리 | 2024-05-31 |
2656610 | 오류 해결좀...ㅠㅠ (3) | 찬내 | 2024-05-30 |
2656584 | winhttp 홈페이지 소스를어덯게 따야되나영? | 연하늘 | 2024-05-30 |
2656503 | 커맨드 반복으로 클릭되게하는방법점요 | 핑크펄 | 2024-05-29 |
2656475 | 폼을열면 프로젝트가 떠요 | 초코우유 | 2024-05-29 |
2656445 | 이거 답변좀...ㅠ.ㅠ | 남은 | 2024-05-28 |
2656415 | 리스트 저장하는 방법 (1) | HotPink | 2024-05-28 |
2656390 | 제대로 된 질문! VB로 html소스 편집하기! (5) | 바나나맛사탕 | 2024-05-28 |
2656310 | shell 으로 프로그램실행하는데.... | 아잉형님 | 2024-05-27 |
2656281 | 이게 뭔지 알려주십시오 | 지율 | 2024-05-27 |
2656248 | Text안에 있는 문자열 삭제 (1) | 하림 | 2024-05-27 |
2656219 | 텍스트박스 질문2 | 달빛 | 2024-05-26 |
2656189 | 와인으로 컴파일된 VB6 파일을 실행하는 방법. | 지우개 | 2024-05-26 |
2656167 | 메세지박스 창 확인누르기질문 | Together | 2024-05-26 |
2656027 | HTML 색상코드를 VB색상코드로 변환하는 방법 (1) | 미르 | 2024-05-25 |