완전 간단한 계산기를 만들어 보겠습니다.
더하기 , 빼기 , 곱하기 , 나누기 기본적인 계산만 넣을 거구요.
각 더하기 , 빼기 , 곱하기 , 나누기로 쓰일 버튼 4개와 입력값을 넣을 TextBox 2개 , 결과값을 보여줄 레이블 1개로 구성됩니다.
우선 새 프로젝트를 calculator 로 만들어 줍니다.
위에서 말씀대로 구성된 화면입니다.
각 도구를 추가하면서 Name에 값을 정확히 넣어주셔야 됩니다.
숫자를 넣을 위쪽 TextBox에 Name 을 입력1로 입력해줍니다.
아래쪽 TextBox에 Name을 입력2로 입력해줍니다.
4개의 버튼입니다..차례대로 더하기버튼 , 빼기버튼 , 곱하기 , 나누기버튼을 입력해줍니다.
버튼은 Text속성도 정확히 넣어 주셔야 됩니다..이 Text로 어느 계산을 하게 될지 구분할 거거든요..
순서대로 더하기 , 빼기 , 곱하기 , 나누기로 넣어줍니다...Name과 일치시켜주셔야 됩니다.
결과값을 보여줄 레이블에 Name을 결과값으로 입력해줍니다.
Public Class Form1 Private Sub 더하기버튼_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 더하기버튼.Click, 빼기버튼.Click, 곱하기버튼.Click, 나누기버튼.Click Dim i, j As Integer Dim currentBt As Button i = CInt(입력1.Text) j = CInt(입력2.Text) currentBt = sender Select Case currentBt.Text Case "더하기" 결과값.Text = CStr(i + j) Case "빼기" 결과값.Text = CStr(i - j) Case "곱하기" 결과값.Text = CStr(i * j) Case "나누기" 결과값.Text = Format(i / j, "standard") End Select End Sub End Class
입력값을 담을 변수를 추가해줍니다.
Dim i, j As Integer
i는 입력1 , j는 입력2의 값을 임시로 저장합니다.
Dim currentBt As Button
더하기,빼기,곱하기,나누기 버튼을 더하기버튼_Click 프러시저에 같이 처리 되게 해 , 클릭된 버튼을 저장한 변수 currentBt 를 누가해준다.
currentBt = sender
처음에 입력한 Text의 속성으로 구분해 계산을 해준다.
currentBt.Text 의 값이 클릭된 버튼의 Text의 속성값이다.
'배워보자!! > Visual Basic' 카테고리의 다른 글
[VB.NET] 타이머(Timer)를 이용해 레이블(Label) 변경하기 (0) | 2015.03.26 |
---|---|
[VB.NET] 좌우로 움직이는 레이블[Label] (0) | 2015.03.25 |
댓글