통합검색
· 마을서비스란?  · 포럼마을  · 일반마을  · 테마마을  · 마을랭킹  · 활동왕
· 덱스퍼트란?  · TECBOX   · PRSBOX   · 이용안내  
· DEXT제품군  · 솔루션베이  · S/W & ESD 컴포넌트
· 프로그램베이
· LiveSeminar  · LiveConference
  마을등급 Visual Basic   이 마을은 포럼마을 입니다이 마을은 자유가입제 마을 입니다 마을소개 페이지로 이동 전입신청
마을촌장촌장 강완모 주민 12006 since 2006-12-29
 질문&답변 ※ 꼭 답변채택을 해주시어 성의껏 답변해주신 회원님께 감사의 마음을 전하시길 바랍니다.
 윈도우계산기처럼 연산공식을 표현하고싶어요  | Report Programming 2019-12-15 오전 11:57:23
asdjkasd 번호: 329968 추천:0  / 읽음:107

윈도우계산기처럼 연산공식을 표현하고싶어요

첫번째 텍스트는 연산공식을 ex:5+8*2/5- 

두번째 텍스트는 연산답을 나오게하면 좋은데 지금까지 한거는 첫번째 텍스트에서는 버튼6을눌렸다가 +를 누르면사라지고

다른숫자버튼을 누르면 +가 사라집니다 그리고 결과는 두번째 텍스트에 나오고요 이걸 어떻게해야될지 모르겠습니다.

 

이 글에 답변 등록하기
 [답변]참고해보세요 2019-12-15 오후 5:34:39
칡흙 번호: 329969 추천:0  

 

-  배열로 문자를 분리 

-  배열마다 값을 분리 연산

 

-  잘 되는  비주얼 베이직 책 / 블로그 /  자료실 소스 확인 

-  Label  확인

 

 

//  Visual Basic 프로그래밍

https://book.naver.com/search/search.nhn?sm=sta_hty.book&sug=&where=nexearch&query=Visual+Basic+%ED%94%84%EB%A1%9C%EA%B7%B8%EB%9E%98%EB%B0%8D+


 

// Label MSDN

https://docs.microsoft.com/en-us/dotnet/api/system.windows.controls.label?view=netframework-4.8


 

 

//  온라인 비주얼 베이직

https://www.tutorialspoint.com/compile_vb.net_online.php


 
'Option Strict On
Module VBModule
    
    Function MyFunction(ByVal Input As String) As Double
    
        ' 0 ~ 9
        If 0 <= Asc(Input) And Asc(Input) <= 9  Then
        End If
       
        ' * + - /
        If 0 <= Asc(Input) And Asc(Input) <= 9  Then
        End If
   
        Return 3.87
    End Function
   
   
'    Function find_multiply( ByRef Buf() As String ) As Integer
 
'        Return -1
'    End Function

    Sub Main()
        Console.WriteLine("Hello, world!")
               
        Dim  Input As String
        Dim  Buf (99) As String
        Dim  IDX As Integer
        Dim  tmp As Integer
        Dim  num As Integer
        Dim  num1 As Integer
        Dim  num2 As Integer
       
        '5 + 8 * 2 / 5 - 6
        IDX = 0
        Input = "5"
        MyFunction( Input )
        Buf(IDX) = Input
        IDX = IDX + 1  
       
        Input = "+"
        MyFunction( Input )
        Buf(IDX) = Input
        IDX = IDX + 1  
       
        Input = "8"
        MyFunction( Input )
        Buf(IDX) = Input
        IDX = IDX + 1  
       
        Input = "*"
        MyFunction( Input )
        Buf(IDX) = Input
        IDX = IDX + 1  
       
        Input = "2"
        MyFunction( Input )
        Buf(IDX) = Input
        IDX = IDX + 1  
       
        Input = "/"
        MyFunction( Input )
        Buf(IDX) = Input
        IDX = IDX + 1  
       
        Input = "5"
        MyFunction( Input )
        Buf(IDX) = Input
        IDX = IDX + 1  
       
        Input = "-"
        MyFunction( Input )
        Buf(IDX) = Input
        IDX = IDX + 1  
       
        Input = "6"
        MyFunction( Input )
        Buf(IDX) = Input

        Console.WriteLine("------" & " " & Buf.Length)
        Console.WriteLine("------" & " " & Len(Buf(0)))
        Console.WriteLine("------" & " " & IDX)
       
        For num As Integer = 0 To IDX
            Console.WriteLine(Buf(num) & "    " & num )
        Next
       
'        tmp = find_multiply( Buf );
'        Console.WriteLine( tmp )
        Console.WriteLine("------")
        For num As Integer = 0 To IDX
            If Asc(Buf(num)) = Asc("*") Then
                Console.WriteLine(Buf(num) & "    " & num)
                tmp = num
                Exit For
            End If
        Next
        Console.WriteLine("------")
        Console.WriteLine(Buf(tmp-1) & "    " & tmp-1)
        Console.WriteLine(Buf(tmp  ) & "    " & tmp  )
        Console.WriteLine(Buf(tmp+1) & "    " & tmp+1)
        
        Console.WriteLine("------")
        Console.WriteLine("------" & " " & Asc("0"))  '48
        num1 = Asc( Buf(tmp-1) ) -48
        num2 = Asc( Buf(tmp+1) ) -48
        tmp = num1 * num2
        Console.WriteLine("------" & " " & num1 & "*" & num2 & " " & tmp)
       
    End Sub
 
End Module

'http://vb.net-informations.com/string/vb.net_String_Length.htm
'https://stackoverflow.com/questions/5759/equivalent-vb-keyword-for-break
' error VBNC30037: Symbol is not valid.
'https://stackoverflow.com/questions/32230441/old-visual-basic-code-fails-on-symbol-with-vbnc30037
'https://www.dotnetperls.com/array-vbnet
'https://www.tutorialspoint.com/vb.net/vb.net_arrays.htm
'https://www.educba.com/vba-break-for-loop/
'https://stackoverflow.com/questions/3308105/byref-vs-byval-performance-when-passing-strings

'http://search.devpia.com/MAEULResult.aspx?KeyW=%uACC4%uC0B0%uAE30&keyr=titlecontent&boardID=274&MAEULNo=19
'compile vb online
'https://rextester.com/l/visual_basic_online_compiler
'Online VB.Net Compiler IDE
'https://www.jdoodle.com/compile-vb-dot-net-online/
'https://paiza.io/en/languages/vb
'https://www.tutorialspoint.com/compile_vb.net_online.php
 

'    Console.WriteLine(Buf.ToString & " ")
'Debug.Write(Buf.ToString & " ")
'https://docs.microsoft.com/ko-kr/dotnet/visual-basic/language-reference/statements/for-next-statement

'Input = "5"
'Buf(0) = Input
'https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/function-statement
'https://docs.microsoft.com/ko-kr/dotnet/visual-basic/language-reference/statements/function-statement
'Dim  Output  As Char
'Console.WriteLine( Buf(0).ToCharArray )
'Console.WriteLine( Asc(Input) )
'Console.WriteLine( Chr(IDX) )

'Buf(0).ToArray()
'https://docs.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/arrays/
'https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/if-then-else-statement
'https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/data-types/char-data-type
'https://www.dotnetperls.com/convert-char-array-string-vbnet
'https://stackoverflow.com/questions/9835959/converting-a-string-to-a-char-array
'https://stackoverflow.com/questions/4857866/converting-a-character-code-to-char-vb-net
 

 

 

이 글에 답변 등록하기
목록 보기   지금 보고 계시는 글을 회원님의 my Mblog >> 스크랩에 넣어두고 다음에 바로 보실 수 있습니다.  
우리마을 공지사항
질문&답변
강좌&팁
자유게시판
자료실
앨범
개인게시판
[마을 게시판]
구인/구직게시판
랑데브 게시판
칼럼 게시판
개발자 고충상담
Dev Talk
자유토론방
벼룩시장
재나미 우스개
구인/프로젝트 정보
사람인 채용 게시판
  고객지원 게시판
마이 데브피아
 나의 e-Money 내역
 활동왕 My Page
 스크랩한 게시글보기
 쪽지관리
 주소록관리

회사소개  |   개인정보취급방침  |  제휴문의  |   광고문의  |   E-Mail 무단수집거부  |   고객지원  |   이용안내  |   세금계산서
사업자등록번호 안내: 220-81-90008 / 통신판매업신고번호 제 2017-서울구로-0055호 / 대표: 홍영준, 서민호
08390, 서울시 구로구 디지털로32길 30, 1211호 / TEL. 02_6719_6200 / FAX. 02-6499-1910
Copyright ⓒ (주) 데브피아. All rights reserved.