프로그래밍/BASIC 23

이진 파일을 읽어서 16진수로 보여주는 HexView 소스 with Visual BASIC

Visual BASIC 언어 소스: REM ============================================================================ REM Filename: TestHexView_03.vb REM REM Compile: vbc TestHexView_03.vb REM Execute: TestHexView_03 [filename] REM REM Date: 2013. 8. 6. REM ============================================================================ Imports System.IO Public Class HexViewUtil Shared Sub PrintUsage() Console.Write..

Visual BASIC 언어로 평방근, 입방근, n제곱근 구하는 함수를 구현하고 테스트하기

음이 아닌 실수 A 의 평방근 sqrt(A) 를 구하는 Heron 의 방법: 반복함수 g(x) = (x + A/x) / 2 를 이용 실수 A 의 n제곱근 root(n, A) 를 구하는 Newton-Raphson 의 방법 반복함수 g(x) = ((n-1)*x + A/(x**(n - 1))) / n 를 이용 n = 2 인 경우에는 Newton-Raphson 의 방법이 Heron 의 방법과 동일하다. (참조. http://en.wikipedia.org/wiki/Newton's_method ) Visual BASIC 언어에는 System 모듈에 지수 계산 함수 Math.Pow(double, double) 가 이미 구현되어 있다. 하지만 차후 필요한 데가 있을 것 같아서 이와 유사한 n 제곱 함수와 n 제곱근 함..

FreeBASIC 언어로 역삼각함수, 역쌍곡선함수 값을 구하는 예제

역삼각함수란 삼각함수의 역함수를 의미하고, 역쌍곡선함수란 쌍곡선함수의 역함수를 의미한다. 수학에서 sin 함수의 역함수는 arcsin 으로 표기되는데, FreeBASIC 언어에서는 asin 함수로 구현되어 있다. 아래의 소스는 FreeBASIC 의 (명령줄 컴파일 명령) fbc 로 컴파일되는 소스이다. 참고 1. FreeBASIC 은 이전(MS-DOS 시절)에 쓰던 Quick BASIC 과 유사하며, Quick BASIC을 발전시킨 것이라고 보변 된다. 아래는 Wikipedia 에서 적어 놓은 FreeBASIC 의 설명이다. --------------------------------------------------- FreeBASIC is a free/open source (GPL), 32-bit BAS..

클래스 상속(subclassing) 예제 for .NET with Visual Basic

다음은 세 개의 Public 클래스로 구성되어 있다. 각 클래스는 별도의 파일로 저장되어야 한다. 이 예제는 C#용으로 제공된 클래스 상속 예제와의 비교를 위해 제공된다. (Java와는 달리) 하나의 Visual Basic 소스파일에 public 클래스가 여러 개 존재해도 된다. 소스파일명도 Public 클래스명과 달라도 된다. (비스크립트형) Visual Basic 언어는 소스 코드에서 C, C++, C#, Java 언어 처럼 대소문자 구별을 엄격히 한다. Parent는 부모 클래스이고 Child는 Parent에서 상속 받은 자식 클래스이다. 컴파일하는 명령은 vbc TestSubclassing.bas Parent.bas Child.bas 이다. ' Filename: Parent.bas Imports ..

스트링 리스트에서 스트링 찾기(find) with Visual Basic

[파일명: TestStringFindInList.bas]------------------------------------------------ Imports System Imports System.Collections Imports System.Collections.Generic Namespace MyTestApplication1 Public Class TestStringFindInList ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main Shared Sub Main(ByVal args As String()) 'Dim words As New List(Of String) From { "하나", "둘", "셋", "넷", "다섯", "여섯" } Dim words As New L..

스트링 배열에서 스트링 찾기(find) with Visual Basic

[파일명: TestStringFindApp.bas]------------------------------------------------ Imports System Imports System.Collections Imports System.Collections.Generic Namespace MyTestApplication1 Public Class TestStringFindApp ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main Shared Sub Main(ByVal args As String()) Dim words() As String = { "하나", "둘", "셋", "넷", "다섯", "여섯" } Dim where As Integer Console.Write("arr..

스트링 배열 정렬(sorting)하기 with Visual Basic

[파일명: TestSortApp.bas]------------------------------------------------ Imports System Imports System.Collections Imports System.Collections.Generic Namespace MyTestApplication1 Public Class TestSortApp ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main Shared Sub Main(ByVal args As String()) Dim arr(args.Length) As String Dim i As Integer For i = 0 To args.Length - 1 arr(i) = args(i) Next i Array.Sort..

손으로 계산하는 긴자리 곱셈표 만들기 with Visual Basic

초등학교 때 배우는 두 정수의 곱셈표를 만들어 주는 C# 소스이다. ' -------------------------------------------- ' Filename: MakeMultTableVB.bas ' ' Print a multiplication table. ' ' Compile: vbc MakeMultTableVB.bas ' Execute: MakeMultTableVB 230 5100 ' ' Date: 2009/03/07 ' Author: pkim (AT) scripts.pe.kr ' -------------------------------------------- Imports System Namespace MyTestApplication1 Class MakeMultTableApp Share..

손으로 만드는 나눗셈 계산표 with Visual Basic

다음은 초등학교에서 배우는 나눗셈 계산표를 만들어주는 Visual Basic 소스 코드이다. 나눗셈 계산표를 완성하고 나서 약수, 배수 관계를 알려준다. C# 코드로 작성된 BigInteger.cs 와 함께 컴파일하여 실행시키면 된다. ' Filename: MakeDivisionTableApp.bas ' ' Purpose: Make a division table in a handy written form. ' ' Compile: csc /target:module BigInteger.cs ' vbc MakeDivisionTableApp.bas /addmodule:BigInteger.netmodule ' Execute: MakeDivisionTableApp 12345 32 ' MakeDivisionTable..

대화형 모드의 진법(radix) 변환 예제 with Visual Basic

다음은 대화형 모드(interactive mode)에서 진법 변환(radix conversion)하는 Visual Basic 소스 코드이다. 메뉴는 주메뉴 Command: (S)et radix, (A)bout, (Q)uit or E(x)it 와 부메뉴 SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit 로 구성되어 있으며, 진법 변환의 핵심은 Shared Function ConvertAtoI(s As String, radix As Integer) As Int64 Shared Function ConvertItoA(num As Int64, int radix As Integer) As String 의 구현과 이용이다. 지원되는 진법은 2진..