■ 계산기 만들기 ● 문제개요 비쥬얼 베이직을 이용하여 계산기를 만들어 본다. ○ 프로그램 설명 번 호컨트롤명설 명1lblWindow버튼을 누르면 그 값과 연산후의 결과를 출력2cmdNunber숫자버튼들 누르면 레이블에 그에해당하는 숫자출력3cmdDot소수점을 표시 하기 위한 ‘ . ’ 버튼4cmdOperator연산자 ‘+’ ‘-’ ‘ ’ ‘ ’ 버튼들5cmdClear직전의 명령을 취소6cmdBack한칸을 지움7cmdClearAll전체 초기화8cmdEnd프로그램 종료 버튼 ● 알고리즘 숫자 버튼을 누르고 연산버튼을 누른후 결과 버튼을 누르면 결과가 레이블에 표시가 된다. 여기서 연속계산과 추가 계산을 수행할수 있도록 Dim intTrdNum As Currency ` = 다음에연산버튼을 눌렀을시 계속 계산을 하기위해있는 변수 Dim blCheck As Boolean `연속계산 여부 확인 Dim blForlabel As Boolean `계산 결과 나온후에 다시 숫자를 누르면 초기화시키기 위해 위의 세가지 변수를 지정하였다. blCheck는 연산자 버튼이 한번이상 눌렸는지를 확인하는 변수다. 옆에 그림과 같이 연산버튼을 클릭하면 blcheck의 참, 거짓 여부를 판단한다. 그전에 한번이라도 클릭을 했다면 blcheck은 True값으로 되있을 것이다. 그렇기 때문에 숫자를 하나더 받을 필요없이 그전의 값과 함께 연산을 해버린다. 그렇지 않을 경우는 숫자를 한나더 받는다. 이것으로 인해서 연산을 연속적으로 할수 있는 것이다.연산버튼클릭NoblCheck = TrueYes앞에 수와 연산을 수행숫자를 하나 더 받는다. blCheck ← True Dim blStart As Boolean 위의 변수는 계산기가 처음 시작됬을시나 초기화 버튼을 누른후 숫자버튼 이외의 버튼을 누르면 아무것도 안하게 하기 위해서 만든 변수이다. 처음으로 숫자 버튼을 누른 후에만 값이 True가 되...
· 해피레포트는 다운로드 받은 파일에 문제가 있을 경우(손상된 파일/설명과 다른자료/중복자료 등) 1주일이내 환불요청 시 환불(재충전) 해드립니다.
(단, 단순 변심 및 실수로 인한 환불은 되지 않습니다.)
· 파일이 열리지 않거나 브라우저 오류로 인해 다운이 되지 않으면 고객센터로 문의바랍니다.
· 다운로드 받은 파일은 참고자료로 이용하셔야 하며,자료의 활용에 대한 모든 책임은 다운로드 받은 회원님에게 있습니다.
저작권안내
보고서 내용중의 의견 및 입장은 당사와 무관하며, 그 내용의 진위여부도 당사는 보증하지 않습니다.
보고서의 저작권 및 모든 법적 책임은 등록인에게 있으며, 무단전재 및 재배포를 금합니다.
저작권 문제 발생시 원저작권자의 입장에서 해결해드리고 있습니다. 저작권침해신고 바로가기