|
비쥬얼 베이직을 이용하여 계산기를 만들었습니다. 기본적으로 비쥬얼 베이직이나 C+ 강좌를 들으실때
레포트로 자주 등장하는게 계산기 만들어서 가져오는 것입니다.
일반 계산기 다 동작하며, 추가로 Sin, Cos, Tan등 삼각함수 기능까지
|
|
|
계산기를 초기상태로 초기화 한다.
intFstNum = 0
intSndNum = 0
intTrdNum = 0
intOperator = 0
historyCounter = 0
blCheck = False
blForlabel = False
blStart = False
lblWindow.Caption = ""
blCheckDot = False
End Sub
Private Sub cmdBack_Click()
' 한칸지우기 버튼
If historyCounter = 0 Then
lblWindow.Capt
|
|
|
|
오늘 악어새 답변하면서 만든 소스입니다. 국어,수학,학점을 선택하도록 구성되었습니다. 국어와 수학에 점수를 입력하고, 학점을 입력하면 계산식에 의해서 총점과 평균점수가 출력이 되는 소스입니다. 비주얼베이직6으로 작성되어있구요.
|
|
|
|
printf("\n");
printf("\t\t ***** 계산기 *****\n");
printf("\n연산자의 종류 : \n");
printf("덧 셈 : + \t 뺄 셈 : - \t 곱 셈 : * \t 나 눗 셈 : / \n");
printf("루 트 : r \t 제 곱 : s \t 싸 인 : S \t 코 싸 인 : C \n");
printf("탄 젠 트 : T \t 로 그 : l \t 상용로그 : L \t 지수함
|
|
|
듣기 프로그램 실행 폼
Private Sub mnu_music_Click()
Form2.Show
End Sub
Private Sub mnu_new_Click()
Call clear_button
Text2.Text = ""
End Sub
Private Sub mnu_win_Click()
Dim rev
'윈도우즈 자체의 계산기를 호출함
rev = Shell("c:\windows\calc.exe", 1)
End Sub
'툴바를 이용한 셀렉트 케이스
|
|
메뉴펼치기
