none
에러가 발생하였습니다. RRS feed

  • 질문

  • Public Class Form1

        Private Property SHTNUM As Integer

        Private Property uinum As String

        Private Sub btnNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNum.Click
            Dim shtnum As Short, inum As Integer, uinum As UInteger, INum As Long
         
            SHTNUM = 23400
            inum = 78000 '(값이 100000일 경우 오버플로로 에러가 난다)
            inum = SHTNUM * inum
            uinum = 100000
            uinum = shtnum * uinum

     


            MessageBox.Show("정수 테스트..." & inum(), "정수")
            MessageBox.Show("비부호화정수 테스트..." & uninum, "비부화정수")

     

     

        End Sub

     (에러)

    ------ 빌드 시작: 프로젝트: 수치, 구성: Debug x86 ------
    C:\Users\정시영\documents\visual studio 2010\Projects\chapter03\수치\수치\Form1.vb(8) : error BC30288: 'INum' 지역 변수가 현재 블록에 이미 선언되었습니다.
    ========== 빌드: 성공 0, 실패 1, 최신 0, 생략 0 ==========

     * 컴퓨터 초보자입니다. 자세히 알려주세요.


    microsoft visual studio 2008의 메뉴에서 파일/새로만들기/프로젝트를 선택하여 visual studio안에 있는 "새 프로젝트"화면을 열고 프로젝트를 실행하였으나 선언되지 않았습니다.왕초보입니다. form1폼을 활성화하여 크기를 적당하게 만들고, 그 폼에 도구상자의 공용 컨트롤트리의 button 컨트롤을 추가한다. button 컨트롤을 클릭해서 활성화하고 속성창에서 text 속성(property)을 "x + 44의 값은 ="으로 하고 name 속성은 btnsum으로 입력한다. button을 더블클릭하여 코드창을 연다. btnsum_click 이벤트 서브 프로시저에 다음코드를 입력한다. dim x as interger x = 16 x = x + 44의 messagebox.show(" x + 44값의값은" & x, "변수") (문제) 포로젝트를 실행하였으나 아무런 대답이 없습니다. error이 됩니다.

    2013년 1월 18일 금요일 오후 3:20

답변

  • 변수 이름이 같은 것이 두 개가 있네요. VB.NET 에서는 대소문자가 틀려도 동일하게 인식됩니다.

    Dim shtnum As Short ,inum As Integer, uinum As UInteger, INum As Long

    INum 은 사용하지도 않는것 같습니다. 삭제하시고 빌드해보십시오.

    그리고 uinum 도 속성으로 위에 선언되어 있네요, 먼저 변수를 정리해주세요.


    Hong-ju

    2013년 1월 18일 금요일 오후 11:14

모든 응답

  • 변수 이름이 같은 것이 두 개가 있네요. VB.NET 에서는 대소문자가 틀려도 동일하게 인식됩니다.

    Dim shtnum As Short ,inum As Integer, uinum As UInteger, INum As Long

    INum 은 사용하지도 않는것 같습니다. 삭제하시고 빌드해보십시오.

    그리고 uinum 도 속성으로 위에 선언되어 있네요, 먼저 변수를 정리해주세요.


    Hong-ju

    2013년 1월 18일 금요일 오후 11:14
  • 주어진 코드를 컴파일 되게 변경 해보았습니다.

    설명은 정홍주님이 말씀 하신거 참고 하시면 됩니다.

    Public Class Form1

        Private Property SHTNUM() As Integer
            Get

            End Get
            Set(ByVal value As Integer)

            End Set
        End Property

        Private Property uinum() As String
            Get

            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Private Sub btnNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNum.Click
            Dim shtnum As Short, inum As Integer, uinum As UInteger

            shtnum = 23400
            inum = 78000 '(값이 100000일 경우 오버플로로 에러가 난다)
            inum = shtnum * inum
            uinum = 100000
            uinum = shtnum * uinum

            MessageBox.Show("정수 테스트..." & inum, "정수")
            MessageBox.Show("비부호화정수 테스트..." & uinum, "비부화정수")
        End Sub
    End Class

    2013년 1월 19일 토요일 오전 12:15