[비주얼베이직]비주얼베이직 계산기 프로그램

소개글

비주얼베이직 계산기 프로그램입니다.

기본적인 기능이 작동하는 계산기 입니다.

숫자 및 연산자 버튼을 인덱스화 하여 만든 프로그램입니다.

컴파일 실행환경

visual basic 6.0

본문내용

End Sub
Private Sub cmdcalkey_Click(Index As Integer)
Select Case Index
Case 0
If addcheck Then
If Val(Text1.Text) <> 0 Then Text1.Text = Text1.Text + "00"
End If
Case 1
If InStr(Text1.Text, ".") = 0 Then
If addcheck Then
Text1.Text = Text1.Text + "."
Else
addcheck = True
Text1.Text = "0"
End If
End If
Case 2
calaction (1)
Case 3
calaction (2)
Case 4
calaction (3)
Case 5
calaction (4)
Case 6
If addcheck Then
If Len(Text1.Text) = 1 Then
Text1.Text = "0"
Else
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End If
End If
Case 7
calaction (0)
Case 8
calval = ""
Text1.Text = ""
End Select

압축파일 내 파일목록

calculator.vbp
calculator.frm

참고 자료

없음