사칙연산을 수행할 수 있는 계산기 프로그램 작성

소개글

사칙연산을 수행할 수 있는 계산기 프로그램 작성에 대한 보고서 자료입니다.

목차

(1) 출력 형식

(2) 처리조건

(3) 폼 디자인

(4) 속성 설정

(5) 이벤트 프로시저 작성(코딩)

본문내용

'+
Private Sub Command13_Click()
If Text3.Text = "" Then
Text3.Text = "+"
Text2.Text = Int(Text1.Text)
Text1.Text = Clear
Else
Text1.Text = "error"
End If
End Sub

'-
Private Sub Command14_Click()
If Text3.Text = "" Then
Text3.Text = "-"
Text2.Text = Int(Text1.Text)
Text1.Text = Clear
Else
Text1.Text = "error"
End If
End Sub


...
...



'×
Private Sub Command15_Click()
If Text3.Text = "" Then
Text3.Text = "×"
Text2.Text = Int(Text1.Text)
Text1.Text = Clear
Else
Text1.Text = "error"
End If
End Sub

'/
Private Sub Command16_Click()
If Text3.Text = "" Then
Text3.Text = "/"
Text2.Text = Int(Text1.Text)
Text1.Text = Clear
Else
Text1.Text = "error"
End If
End Sub
...
...
...
...


'=
Private Sub Command12_Click()
If Text3.Text = "+" Then
Text1.Text = Int(Text2.Text) + Int(Text1.Text)
Else
If Text3.Text = "-" Then
Text1.Text = Int(Text2.Text) - Int(Text1.Text)
Else
If Text3.Text = "×" Then
Text1.Text = Int(Text2.Text) * Int(Text1.Text)
Else
If Text3.Text = "/" Then
Text1.Text = Int(Text2.Text) / Int(Text1.Text)
Else
Text1.Text = "error"
End If
End If
End If
End If
Text2.Text = Clear
Text3.Text = Clear
End Sub


...
...

키워드

계산기,   사칙연산,   계산기 프로그램 작성