[프로그래밍] [비주얼베이직]계산기 심층분석

등록일 2003.10.11 압축파일 (zip) | 1페이지 | 가격 700원

소개글

어느 누구나 알수 있도록 심층분석하여 주석을 달았습니다..
아무조록 프로그램을 처음 공부하시는분들께 많은 도움이 되길.......

목차

<파일목록>
Calculator.vbw
Calculator.frx
Calculator.frm
Calculator.vbp

본문내용

Private Sub Operator_Click(Index As Integer)

Me.Operator(Index).SetFocus '선택한 버튼으로 포커스 이동

MarkStatus '연산전에 현재 연산 상태를 저장해둠.CE기능을 위하여
'Tip : C=클리어 기능이며 CE는 연산 이전상태로 되돌림 기능이다.

Dim strTempreadout As String '작업을 위한 임시 변수

strTempreadout = Readout '현재내용 변수에 저장

If LastInput = "NUMS" Or LastInput = "DIGI" Then '마지막 입력이 숫자이면
NumOps = NumOps + 1 '+1 이유는 음의 정수인지 빼기 계산인지 구분하기 위하여
End If

Select Case NumOps
Case 0 ''음의 정수를 위해 "-" 선택
If Operator(Index).Caption = "-" And LastInput <> "NEG" Then
If Abs(Val(Readout)) <> 0 Then
Readout = "-" & Readout
LastInput = "NEG"
End If
End If
Case 1 '처음 연산자를 눌렀을 경우
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기
      추천도서