값비교 및 결과출력에 대한 예제 입니다.

MSDN 개발자 포럼에서 질문받은 내용이기도합니다.

제가 일본에서 일을하며 거주중이라, 예제 및 소스의 주석에는 간혹 일본어가 눈에띌수 있으니, 이해해 주십시오.

 

 

화면 디자인 및 컨트롤 배치는 위의 그림을 참고하세요.

그리고, 실행화면은 아래와 같습니다.

 

 

전체 코드는 아래와 같습니다.

 

Public Class clsResult

    Private Sub btnLt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGt.Click

        Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
        Dim fResult As Boolean

        iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
        iNum2 = txtInput2.Text

        fResult = iNum1 < iNum2  '두 변수를 비교한다
        Label1.Text = "<"  '< 연산자 표시

        IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다

    End Sub


    Private Sub btnLe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGe.Click

        Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
        Dim fResult As Boolean

        iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
        iNum2 = txtInput2.Text

        fResult = iNum1 <= iNum2  '두 변수를 비교한다
        Label1.Text = "<="  '<= 연산자 표시

        IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
    End Sub


    Private Sub btnGt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGt.Click

        Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
        Dim fResult As Boolean

        iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
        iNum2 = txtInput2.Text

        fResult = iNum1 > iNum2  '두 변수를 비교한다
        Label1.Text = ">"  '> 연산자 표시

        IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
    End Sub


    Private Sub btnGe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLe.Click

        Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
        Dim fResult As Boolean

        iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
        iNum2 = txtInput2.Text

        fResult = iNum1 >= iNum2  '두 변수를 비교한다
        Label1.Text = ">="  '>= 연산자 표시

        IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
    End Sub


    Private Sub btnEq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEq.Click

        Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
        Dim fResult As Boolean

        iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
        iNum2 = txtInput2.Text

        fResult = iNum1 = iNum2  '두 변수를 비교한다
        Label1.Text = "="  '= 연산자 표시

        IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
    End Sub


    Private Sub btnNe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNe.Click

        Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
        Dim fResult As Boolean

        iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
        iNum2 = txtInput2.Text

        fResult = iNum1 <> iNum2  '두 변수를 비교한다
        Label1.Text = "<>"  '<> 연산자 표시

        IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
    End Sub


    Private Sub btnLike_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLike.Click

        Dim fResult As Boolean

        fResult = txtInput1.Text Like txtInput2.Text '두 문자열을 비교한다"
        Label1.Text = "Like" 'Like 연산자 표시

        IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
    End Sub

End Class

 

+ Recent posts