none
에러(2013.1.21) RRS feed

  • 질문


  • Private Sub btnNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNum.Click

        Dim shtnum As Short, inumvalue 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("비부호화정수 테스트..." & uinum, "비부화정수")

        Dim snum As Single, dbinum double

        dbinum = 45.27
        dbinum *= 23.77777

        snum = 18234
        snum /= 55

        MessageBox.Show("부동 소수점 테스트..." & dbinum, "부동소수점")
        MessageBox.Show("부동 소수점 테스트..." & snum, "부동소수점")

    End Sub

     * 시도했으나 오류 1 네임스페이스에는 문을 사용할 수 없습니다.

     ( C:\Users\정시영\documents\visual studio 2010\Projects\chapter03\수치\수치\Form1.vb 3 1 수치)


    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월 21일 월요일 오전 7:30

답변

  • 안녕하세요? 

    아마도 아래 에러가 나는 것은

    시도했으나 오류 1 네임스페이스에는 문을 사용할 수 없습니다.

    indentation (들여쓰기)가 제대로 되지 않아서 입니다.

    소스상에 에러가 있는 부분은요.

    변수 선언 시에 As 가 빠져있습니다.

    dbium double (x) -> dbinum As Double(o)

    그리고 사용 하지 않는 변수는 지워 줍니다.

    inumvalue As Integer

    전체 소스 입니다.

    그대로 카피 하셔서 해보시고 안되면 다시 말씀 해주세요.


    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, uinum As UInteger, inum As Long

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

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

            Dim snum As Single, dbinum As Double

            dbinum = 45.27
            dbinum *= 23.77777

            snum = 18234
            snum /= 55

            MessageBox.Show("부동 소수점 테스트..." & dbinum, "부동소수점")
            MessageBox.Show("부동 소수점 테스트..." & snum, "부동소수점")

        End Sub


    End Class

    • 답변으로 표시됨 jung shi young 2013년 1월 22일 화요일 오전 9:55
    2013년 1월 21일 월요일 오후 12:51

모든 응답

  • 네임스페이스 수준에서는 클래스나 구조체 등을 사용할 수 있고 다른 일반 구문은 사용은 못하는데 다른 구문을 사용하신듯 합니다.

    전체 소스가 없나요? 위의 소스 외 다른 소스가 있을 것 같은데요.

    프로젝트 메뉴에서 프로젝트 빌드를 클릭하고 나타나는 오류를 더블 클릭해보십시오. 그럼 대부분 해당 라인으로 이동하고 오류를 해결 할 수 있습니다.

    제시해 드린 답변이 도움이 되었기를 바랍니다.

    답변이 문제 해결에 도움이 되었다면 답변으로 채택을 부탁드립니다.
    하지만 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해주시기 바랍니다.


    Hong-ju

    2013년 1월 21일 월요일 오전 10:02
  • 안녕하세요? 

    아마도 아래 에러가 나는 것은

    시도했으나 오류 1 네임스페이스에는 문을 사용할 수 없습니다.

    indentation (들여쓰기)가 제대로 되지 않아서 입니다.

    소스상에 에러가 있는 부분은요.

    변수 선언 시에 As 가 빠져있습니다.

    dbium double (x) -> dbinum As Double(o)

    그리고 사용 하지 않는 변수는 지워 줍니다.

    inumvalue As Integer

    전체 소스 입니다.

    그대로 카피 하셔서 해보시고 안되면 다시 말씀 해주세요.


    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, uinum As UInteger, inum As Long

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

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

            Dim snum As Single, dbinum As Double

            dbinum = 45.27
            dbinum *= 23.77777

            snum = 18234
            snum /= 55

            MessageBox.Show("부동 소수점 테스트..." & dbinum, "부동소수점")
            MessageBox.Show("부동 소수점 테스트..." & snum, "부동소수점")

        End Sub


    End Class

    • 답변으로 표시됨 jung shi young 2013년 1월 22일 화요일 오전 9:55
    2013년 1월 21일 월요일 오후 12:51
  • 5번째 성공하였습니다. 종종 도움글을 받아서 너무 좋습니다. 감사합니다.

    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월 22일 화요일 오전 9:57
  • 안녕하세요.

    VB MVP 고성만 입니다.

    해당 소스를 테스트 해보았습니다.

    아래의 소스를 붙여넣어 보십시오.

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim shtnum As Short, uinum As UInteger, inum As Long
    
            shtnum = 23400
            inum = 78000 '(값이 100000일 경우 오버플로로 에러가 난다)
            inum = shtnum * inum
            uinum = 100000
            uinum = shtnum * uinum
    
            MessageBox.Show("정수 테스트..." & inum, "정수")
            MessageBox.Show("비부호화정수 테스트..." & uinum, "비부화정수")
    
            Dim snum As Single
            Dim dbinum As Double
    
    
            dbinum = 45.27
            dbinum *= 23.77777
    
            snum = 18234
            snum /= 55
    
            MessageBox.Show("부동 소수점 테스트..." & dbinum, "부동소수점")
            MessageBox.Show("부동 소수점 테스트..." & snum, "부동소수점")
    
        End Sub

    테스트 해보았습니다.

    문제없이 구동되는것을 확인하였습니다.

    추가 질문이 있으시면 질문주세요.


    VB/VB.NET is my Life

    2013년 1월 24일 목요일 오전 8:31