검색어 입력폼

[soft] 계산기

등록일 2004.05.22 파일확장자압축파일 (zip) | 12페이지 | 가격 700원

소개글

계산기 3가지..
한꺼번에...
직접 제작한 계산기...
윈도의 계산기와 거의 흡사..

목차

총 12파일

본문내용

Dim i As Double
Dim j As Double
Dim y As Double
Dim u As String

Private Sub 계산_KeyPress(KeyAscii As Integer)

If KeyAscii = 43 Then

a = Val(계산.Text)
y = a + y
u = "+"
계산.Text = ""

ElseIf KeyAscii = 45 Then

s = Val(계산.Text)
계산.Text = ""
y = s - y
u = "-"
계산.Text = ""

ElseIf KeyAscii = 42 Then

d = Val(계산.Text)
계산.Text = ""
If y = 0 Then y = d: GoTo en1
y = y * d
en1:
u = "*"
계산.Text = ""

ElseIf KeyAscii = 47 Then

f = Val(계산.Text)
계산.Text = ""
If y = 0 Then y = f: GoTo e
y = y / f
e:
u = "/"
계산.Text = ""


ElseIf KeyAscii = 61 Then

If u = "+" Then g = y + Val(계산.Text)
If u = "-" Then g = y - Val(계산.Text)
If u = "*" Then g = y * Val(계산.Text)
If Val(계산.Text) = 0 Then g = 0: GoTo en
If u = "/" Then g = y / Val(계산.Text)
en:
계산.Text = g
u = ""
g = 0
y = 0

End If



End Sub
다운로드 맨위로