본문 바로가기
배워보자!!/Visual Basic

[VB.NET] 계산기를 만들어보자!

by norinda 2015. 3. 27.
728x90

완전 간단한 계산기를 만들어 보겠습니다.

더하기 , 빼기 , 곱하기 , 나누기 기본적인 계산만 넣을 거구요.

각 더하기 , 빼기 , 곱하기 , 나누기로 쓰일 버튼 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의 속성값이다.



반응형

댓글