Script Programming(스크립트 프로그래밍)

'  Filename: MakeAsciiTableApp.bas
'            Make a table of ascii codes.
'
'  Compile: vbc MakeAsciiTableApp.bas
'  Execute: MakeAsciiTableApp
'
'      Date:  2009/02/14
'    Author:  PH Kim   [ pkim (AT) scripts.pe.kr ]

Imports System

Namespace MyTestApplication1

    Class MakeAsciiTableApp
        Shared Sub println(s As String)
            Console.WriteLine(s)
        End Sub

        Shared Sub print(s As String)
            Console.Write(s)
        End Sub

        Shared Sub PrintUsage()
            println("Usage: MakeAsciiTableApp")
            println("Make a table of ascii codes.")
        End Sub

        Shared Dim BASE36 As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

        Shared Function ConvertItoA(num As Int64, radix As Int32) As String
            Dim tmp As String
            Dim ret As String
            Dim arr As String
            Dim q As Int64
            Dim r As Int64
            Dim isNegative As Boolean = False
            If num < 0L Then
                isNegative = True
                num = -num
            End If
            arr = ""
            q = num
            r = 0L

            While q >= Convert.ToInt64(radix)
                r = q Mod Convert.ToInt64(radix)
                q = Convert.ToInt64(Math.Floor(q / Convert.ToInt64(radix)))
                tmp = Mid(BASE36, Convert.ToInt32(r) + 1, 1)
                arr = arr & tmp
            End While
            tmp = Mid(BASE36, Convert.ToInt32(q) + 1, 1)
            arr = arr & tmp
            If isNegative Then
                arr = arr & "-"
            End If

            ret = ""
            For j As Integer = 0 To arr.Length - 1
               ret = ret & Mid(arr, arr.Length - j - 1 + 1, 1)
            Next
            ConvertItoA = ret
        End Function

        Shared Function ConvertAtoI(s As String, radix As Integer) As Int64
            Dim ret As Int64 = 0L
            Dim isNegative As Boolean = False
            Dim len As Integer = s.Length
            Dim c As char
            Dim i As Integer
            Dim val As Int64 = 0L

            c = s(0)
            If c = "-"c Then
                isNegative = True
            ElseIf c >= "0"c And c <= "9"c Then
                ret = Convert.ToInt64(c) - Convert.ToInt64("0"c)
            ElseIf c >= "A"c And c <= "Z"c Then
                ret = Convert.ToInt64(c) - Convert.ToInt64("A"c) + 10L
            ElseIf c >= "a"c And c <= "z"c Then
                ret = Convert.ToInt64(c) - Convert.ToInt64("a"c) + 10L
            End If
            If (ret >= Convert.ToInt64(radix)) Then
                Console.WriteLine("        Invalid character!")
                ConvertAtoI = ret
               Return ret
            End If

            For i = 1 To len - 1
                c = s(i)
                ret = ret * radix
                If c >= "0"c And c <= "9"c Then
                    val = Convert.ToInt64(c) - Convert.ToInt64("0"c)
                ElseIf c >= "A"c And c <= "Z"c Then
                    val = Convert.ToInt64(c) - Convert.ToInt64("A"c) + 10L
                ElseIf c >= "a"c And c <= "z"c Then
                    val = Convert.ToInt64(c) - Convert.ToInt64("a"c) + 10L
                End If
                If (val >= Convert.ToInt64(radix)) Then
                    Console.WriteLine("        Invalid character!")
                    ConvertAtoI = ret
                   Return ret
                End If
                ret = ret + val    ' numerical addition
            Next

            If isNegative Then
             ret = -ret
            End If
            ConvertAtoI = ret
            return ret
        End Function

       Shared Dim asc() As String = New String() { _
            "NUL", "SOH", "STX", "ETX", "EOT",  _
            "ENQ", "ACK", "BEL", "BS", "HT",  _
            "LF", "VT", "FF", "CR", "SO",  _
            "SI", "DLE", "DC1", "DC2", "DC3",  _
            "DC4", "NAK", "SYN", "ETB", "CAN",  _
            "EM", "SUB", "ESC", "FS", "GS",  _
            "RS", "US", "Spc"  _
        }

        Shared Dim control() As String = New String() {  _
            "NUL (null)",   _
            "SOH (start of heading)",   _
            "STX (start of text)",   _
            "ETX (end of text)",   _
            "EOT (end of transmission)",   _
            "ENQ (enquiry)",   _
            "ACK (acknowledge)",   _
            "BEL (bell)",   _
            "BS  (backspace)",   _
            "TAB (horizontal tab)",   _
            "LF  (line feed, NL new line)",   _
            "VT  (vertical tab)",   _
            "FF  (form feed, NP new page)",   _
            "CR  (carriage return)",   _
            "SO  (shift out)",   _
            "SI  (shift in)",   _
            "DLE (data link escape)",   _
            "DC1 (device control 1)",   _
            "DC2 (device control 2)",   _
            "DC3 (device control 3)",   _
            "DC4 (device control 4)",   _
            "NAK (negative acknowledge)",   _
            "SYN (synchronous idle)",   _
            "ETB (end of trans. block)",   _
            "CAN (cancel)",   _
            "EM  (end of medium)",   _
            "SUB (substitute, EOF end of file)",   _
            "ESC (escape)",   _
            "FS  (file separator)",   _
            "GS  (group separator)",   _
            "RS  (record separator)",   _
            "US  (unit separator)"   _
        }

        Shared Sub MakeTable()
            Dim sbuf As String = ""
            Dim abuf As String = ""
            Dim tbuf As String = ""
            Dim i As Integer
            Dim j As Integer
            Dim c As char

            print("    ")
            For i = 0 To 7
                print("+----")
            Next
            print("+")
            println("")

            print("    ")
            print("| 0- ")
            print("| 1- ")
            print("| 2- ")
            print("| 3- ")
            print("| 4- ")
            print("| 5- ")
            print("| 6- ")
            print("| 7- ")
            print("|")
            println("")

            print("+---")
            For i = 0 To 7
                print("+----")
            Next
            print("+")
            println("")

            For i = 0 To 15
                tbuf = ""
                sbuf = ConvertItoA(i, 16)
                tbuf = tbuf + "| " & sbuf & " "
                For j = 0 To 7
                    If j*16 + i <= 32 Then
                       abuf = String.Format("| {0, -3}", asc(j*16 + i))
                    ElseIf j*16 + i = 127 Then
                        abuf = String.Format("| {0, -3}", "DEL")
                    Else
                        c = Convert.ToChar(j*16 + i)
                        abuf = String.Format("| {0, 2} ", c)
                    End if
                    tbuf = tbuf & abuf
                Next
                tbuf = tbuf & "|"
                println(tbuf)
            Next

            print("+---")
            For i = 0 To 7
                print("+----")
            Next
            print("+")
            println("")
            println("")

            For i = 0 To 15
                sbuf = String.Format("{0, -30}",  control(i))
                tbuf = String.Format("  {0, -34}",  control(i+16))
                print(sbuf)
                println(tbuf)
            Next
        End Sub

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args() As String)
            If args.Length = 0 Then
                 '
            ElseIf args.Length > 0 And "-h" = args(0) Then
                PrintUsage()
                Environment.Exit(1)
            End If
            MakeTable()
        End Sub
    End Class
End Namespace

    +----+----+----+----+----+----+----+----+
    | 0- | 1- | 2- | 3- | 4- | 5- | 6- | 7- |
+---+----+----+----+----+----+----+----+----+
| 0 | NUL| DLE| Spc|  0 |  @ |  P |  ` |  p |
| 1 | SOH| DC1|  ! |  1 |  A |  Q |  a |  q |
| 2 | STX| DC2|  " |  2 |  B |  R |  b |  r |
| 3 | ETX| DC3|  # |  3 |  C |  S |  c |  s |
| 4 | EOT| DC4|  $ |  4 |  D |  T |  d |  t |
| 5 | ENQ| NAK|  % |  5 |  E |  U |  e |  u |
| 6 | ACK| SYN|  & |  6 |  F |  V |  f |  v |
| 7 | BEL| ETB|  ' |  7 |  G |  W |  g |  w |
| 8 | BS | CAN|  ( |  8 |  H |  X |  h |  x |
| 9 | HT | EM |  ) |  9 |  I |  Y |  i |  y |
| A | LF | SUB|  * |  : |  J |  Z |  j |  z |
| B | VT | ESC|  + |  ; |  K |  [ |  k |  { |
| C | FF | FS |  , |  < |  L |  \ |  l |  | |
| D | CR | GS |  - |  = |  M |  ] |  m |  } |
| E | SO | RS |  . |  > |  N |  ^ |  n |  ~ |
| F | SI | US |  / |  ? |  O |  _ |  o | DEL|
+---+----+----+----+----+----+----+----+----+

NUL (null)                      DLE (data link escape)
SOH (start of heading)          DC1 (device control 1)
STX (start of text)             DC2 (device control 2)
ETX (end of text)               DC3 (device control 3)
EOT (end of transmission)       DC4 (device control 4)
ENQ (enquiry)                   NAK (negative acknowledge)
ACK (acknowledge)               SYN (synchronous idle)
BEL (bell)                      ETB (end of trans. block)
BS  (backspace)                 CAN (cancel)
TAB (horizontal tab)            EM  (end of medium)
LF  (line feed, NL new line)    SUB (substitute, EOF end of file)
VT  (vertical tab)              ESC (escape)
FF  (form feed, NP new page)    FS  (file separator)
CR  (carriage return)           GS  (group separator)
SO  (shift out)                 RS  (record separator)
SI  (shift in)                  US  (unit separator)

'  Filename: MakeRadixTableApp.bas
'            Show the radix table with 10-, 2-, 8-, 16-radices.
'
'  Compile: vbc MakeRadixTableApp.bas
'  Execute: MakeRadixTableApp
'
'      Date:  2009/02/14
'    Author:  PH Kim   [ pkim (AT) scripts.pe.kr ]

Imports System

Namespace MyTestApplication1

    Class MakeRadixTableApp

        Shared Sub println(s As String)
            Console.WriteLine(s)
        End Sub

        Shared Sub print(s As String)
            Console.Write(s)
        End Sub

        Shared Sub PrintUsage()
            println("Usage: MakeRadixTableApp")
            println("Show the radix table with 10-, 2-, 8-, 16-radices.")
        End Sub

        Shared Dim BASE36 As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

        Shared Function ConvertItoA(num As Int64, radix As Int32) As String
            Dim tmp As String
            Dim ret As String
            Dim arr As String
            Dim q As Int64
            Dim r As Int64
            Dim isNegative As Boolean = False
            If num < 0L Then
                isNegative = True
                num = -num
            End If
            arr = ""
            q = num
            r = 0L

            While q >= Convert.ToInt64(radix)
                r = q Mod Convert.ToInt64(radix)
                q = Convert.ToInt64(Math.Floor(q / Convert.ToInt64(radix)))
                tmp = Mid(BASE36, Convert.ToInt32(r) + 1, 1)
                arr = arr & tmp
            End While
            tmp = Mid(BASE36, Convert.ToInt32(q) + 1, 1)
            arr = arr & tmp
            If isNegative Then
                arr = arr & "-"
            End If

            ret = ""
            For j As Integer = 0 To arr.Length - 1
               ret = ret & Mid(arr, arr.Length - j - 1 + 1, 1)
            Next
            ConvertItoA = ret
        End Function

        Shared Function ConvertAtoI(s As String, radix As Integer) As Int64
            Dim ret As Int64 = 0L
            Dim isNegative As Boolean = False
            Dim len As Integer = s.Length
            Dim c As char
            Dim i As Integer
            Dim val As Int64 = 0L

            c = s(0)
            If c = "-"c Then
                isNegative = True
            ElseIf c >= "0"c And c <= "9"c Then
                ret = Convert.ToInt64(c) - Convert.ToInt64("0"c)
            ElseIf c >= "A"c And c <= "Z"c Then
                ret = Convert.ToInt64(c) - Convert.ToInt64("A"c) + 10L
            ElseIf c >= "a"c And c <= "z"c Then
                ret = Convert.ToInt64(c) - Convert.ToInt64("a"c) + 10L
            End If
            If (ret >= Convert.ToInt64(radix)) Then
                Console.WriteLine("        Invalid character!")
                ConvertAtoI = ret
               Return ret
            End If

            For i = 1 To len - 1
                c = s(i)
                ret = ret * radix
                If c >= "0"c And c <= "9"c Then
                    val = Convert.ToInt64(c) - Convert.ToInt64("0"c)
                ElseIf c >= "A"c And c <= "Z"c Then
                    val = Convert.ToInt64(c) - Convert.ToInt64("A"c) + 10L
                ElseIf c >= "a"c And c <= "z"c Then
                    val = Convert.ToInt64(c) - Convert.ToInt64("a"c) + 10L
                End If
                If (val >= Convert.ToInt64(radix)) Then
                    Console.WriteLine("        Invalid character!")
                    ConvertAtoI = ret
                   Return ret
                End If
                ret = ret + val    ' numerical addition
            Next

            If isNegative Then
             ret = -ret
            End If
            ConvertAtoI = ret
            return ret
        End Function

        Shared Sub MakeTable()
            Dim sbuf As String = ""
            Dim abuf As String = ""
            Dim tbuf As String = ""
            Dim i As Integer
            Dim tab As Char = Chr(9)

            For i = 0 To 3
                print("+-------")
            Next
            print("+")
            println("")

            print("|  Dec")
            print(tab & "|   Bin")
            print(tab & "|  Oct")
            print(tab & "|  Hex  |")
            println("")

            For i = 0 To 3
                print("+-------")
            Next
            print("+")
            println("")

            For i = 0 To 15
                sbuf = String.Format("|   {0, 2}", i)
                abuf = ConvertItoA(i, 2)
                tbuf = String.Format(tab & "|  {0, 4}", abuf)
                sbuf = sbuf & tbuf
                abuf = ConvertItoA(i, 8)
                tbuf = String.Format(tab & "|   {0, 2}", abuf)
                sbuf = sbuf & tbuf
                abuf = ConvertItoA(i, 16)
                tbuf = String.Format(tab & "|    {0, -2} |", abuf)
                sbuf = sbuf & tbuf
                println(sbuf)
            Next

            For i = 0 To 3
                print("+-------")
            Next
            print("+")
            println("")
        End Sub

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args() As String)
            If args.Length = 0 Then
                 '
            ElseIf args.Length > 0 And "-h" = args(0) Then
                PrintUsage()
                Environment.Exit(1)
            End If
            MakeTable()
        End Sub
    End Class
End Namespace

+-------+-------+-------+-------+
|  Dec  |   Bin |  Oct  |  Hex  |
+-------+-------+-------+-------+
|    0  |     0 |    0  |    0  |
|    1  |     1 |    1  |    1  |
|    2  |    10 |    2  |    2  |
|    3  |    11 |    3  |    3  |
|    4  |   100 |    4  |    4  |
|    5  |   101 |    5  |    5  |
|    6  |   110 |    6  |    6  |
|    7  |   111 |    7  |    7  |
|    8  |  1000 |   10  |    8  |
|    9  |  1001 |   11  |    9  |
|   10  |  1010 |   12  |    A  |
|   11  |  1011 |   13  |    B  |
|   12  |  1100 |   14  |    C  |
|   13  |  1101 |   15  |    D  |
|   14  |  1110 |   16  |    E  |
|   15  |  1111 |   17  |    F  |
+-------+-------+-------+-------+

'  Filename: testStringReverse.bas
'
'  Compile: vbc testStringReverse.bas
'  Execute: testStringReverse

Imports System

Class StringReverseApp
    Shared Sub Main(ByVal args() As String)
        Dim a As String, b As String
        a = "Hello, world!"
        b = "안녕하세요?"
        Dim arr() As Char = a.ToCharArray()
        Array.Reverse(arr)
        Console.WriteLine(New String(arr))
        arr = b.ToCharArray()
        Array.Reverse(arr)
        Console.WriteLine(New String(arr))
    End Sub
End Class
' ===================
' Expected result:
' !dlrow ,olleH
' ?요세하녕안
' ===================

'  Filename: TestCTimeApp.bas
'
'  Compile: vbc TestCTimeApp.bas
'  Execute: TestCTimeApp

Imports System

Namespace MyTestApplication1

    Class TestCTimeApp
        Shared Dim weekNames() As String = New String() { _
                      "일", "월", "화", "수", "목", "금", "토"  _
                  }

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args() As String)
            Dim now As DateTime = DateTime.Now
            Dim StartOfEpoch As DateTime = New DateTime(1970, 1, 1)

            ' 1970년 1월 1일 0시 0분 0초부터 시작하여 현재까지의 초
            ' Console.WriteLine("UTC: " & (now.ToUniversalTime / 1000L) + "초")
            ' Console.WriteLine("UTC: " & DateTime.UtcNow + "초")
            ' Console.WriteLine("UTC: " & TimeZoneInfo.ConvertTimeToUTC(now) + "초")
            ' Console.WriteLine("UniversalTime  :" & System.TimeZone.CurrentTimeZone.ToUniversalTime(now))
            ' Console.WriteLine("UniversalTime  :" & (DateTime.UtcNow - StartOfEpoch).TotalMilliseconds)
            Console.WriteLine("UTC: " & Convert.ToInt64((DateTime.UtcNow - StartOfEpoch).TotalMilliseconds / 1000L) & "초")

            ' 현재 시각 표시: 20xx년 xx월 xx일 (x요일) xx시 xx분 xx초
            Console.Write(now.Year & "년 ")
            Console.Write(now.Month & "월 ")   ' Not 1 + now.Month !!
            Console.Write(now.Day & "일 ")
            Console.Write("(" + weekNames(Int(now.DayOfWeek)) & "요일) ")
            Console.Write(now.Hour & "시 ")
            Console.Write(now.Minute & "분 ")
            Console.WriteLine(now.Second & "초")

            ' 1월 1일은 1, 1월 2일은 2
            Console.Write("올해 몇 번째 날: " & now.DayOfYear & ", ")

            ' True 이면 서머타임 있음
            Dim tmp As String
            If Not now.IsDaylightSavingTime() Then tmp = "안함" Else tmp = "함"
            Console.WriteLine("서머타임 적용 여부: " & tmp)
        End Sub
    End Class
End Namespace

'  Filename: TestWhileLoop.bas
'
'  Purpose:  Example using the while loop syntax
'                while ....
'
'  Compile: vbc TestWhileLoop.bas
'  Execute: TestWhileLoop -200 300

Imports System

Namespace MyTestApplication1

    Class TestWhileLoop

        ' 사용법 표시
        Shared Sub PrintUsage()
            Console.WriteLine("Using: TestWhileLoop [integer1] [integer2]")
            Console.WriteLine("This finds the greatest common divisor of the given two integers.")
        End Sub

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args() As String)
            If args.Length <> 2 Then
                PrintUsage()
                Environment.Exit(1)
            End If

            ' ---------------------------------------------
            ' 명령행 인자의 두 스트링을 가져와서
            ' 긴정수(Long) 즉 Int64 타입으로 변환하여
            ' 변수 val1과 val2에 저장한다.
            Dim val1 As Int64 = Convert.ToInt64(args(0))
            Dim val2 As Int64 = Convert.ToInt64(args(1))
            Dim a As Int64
            Dim b As Int64
            Dim q As Int64    ' q는 몫
            Dim r As Int64    ' r은 나머지
            Dim gcd As Int64

            ' a는 |val1|, |val2| 중 큰 값
            a = Math.Abs(val1)
            b = Math.Abs(val2)
            If a < b Then
                a = Math.Abs(val2)
                b = Math.Abs(val1)
            End If

            If b = 0 Then
                Console.WriteLine("GCD(" & val1 & ", " & val2 & ") = " & a)
                Environment.Exit(1)
            End If

            ' ------------------------------------
            ' Euclidean 알고리즘의 시작
            '
            ' a를 b로 나누어 몫은 q에, 나머지는 r에 저장
            q = Int(a / b)
            r = a Mod b

            ' --------------------------------------------------------
            ' Euclidean 알고리즘의 반복 (나머지 r이 0이 될 때 까지)
            While r <> 0L
                a = b
                b = r
                q = Int(a / b)
                r = a Mod b
            End While

            ' 나머지가 0이면 그 때 나눈 수(제수) b가 최대공약수(GCD)이다.
            gcd = b

            ' 최대공약수(GCD)를 출력한다.
            Console.WriteLine("GCD(" & val1 & ", " & val2 & ") = " & gcd)
        End Sub
    End Class
End Namespace

'  Filename: TestForForApp.bas
'
'  Compile:  vbc TestForForApp.bas
'  Execute:  TestForForApp
'
'  Date:  2009. 2. 14.
 
Imports System

Namespace MyTestApplication1

    Class TestForForApp

        ' Shared 선언자가 없으므로 이 메소드는 인스턴스 메소드이다.
        ' 인스턴스 메소드는 Shared 메소드에서는 직접 호출되지 않는다.
        ' 반드시 생성된 객체를 거쳐서 호출되어 진다.
        Function GetDan(dan As Integer) As String()
            Dim t(19) As String
            Dim sa As String
            Dim sb As String
            Dim sval As String
            For j As Integer = 0 To 18
                sa = "" & dan
                If sa.Length < 2 Then
                    sa = " " & sa
                End If
                sb = "" & (j + 1)
                If sb.Length < 2 Then
                    sb = " " & sb
                End If
                sval = "" & (dan*(j + 1))
                If sval.Length < 2 Then
                    sval = "  " & sval
                ElseIf sval.Length < 3 Then
                    sval = " " & sval
                End If
                t(j) = sa & " x " & sb & " = " & sval
            Next
            GetDan = t
        End Function

        ' 19단표를 모두 80컬럼 컨솔에 출력한다.
        '
        ' (static 선언자가 없는) 인스턴스 메소드이므로,
        ' 반드시 생성된 객체를 거쳐서 호출되어 진다.
        Sub PrintAllNineteenDan()
            Dim arr()() As String = New String(18)()  {}  ' not [18][19] but [18][] in C#
            For i As Integer = 2 To 19
                arr(i - 2) = GetDan(i)
            Next
            Dim d() As Integer = New Integer() { 2, 7, 11, 16 }        ' 각 줄단위 블럭의 첫단
            Dim Counter() As Integer = New Integer() { 5, 4, 5, 4 }    ' 각 줄단위 블럭에 속한 단의 개수
            Dim lines(19) As String

            For k As Integer = 0 To d.Length - 1
                ' 8-바이트 길이의 한 줄씩 완성
                For i As Integer = 0 To 18
                    lines(i) = arr(d(k)-2)(i)
                    For j As Integer = 1 To Counter(k) - 1
                        lines(i) = lines(i) & "   " & arr(d(k)-2+j)(i)
                    Next
                Next

                ' 80 바이트 길이의 한 줄씩 출력
                For i As Integer = 0 To 18
                    Console.WriteLine(lines(i))
                Next
                Console.WriteLine()
            Next
        End Sub

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args As String())
            Dim app As TestForForApp = new TestForForApp()  ' 객체를 생성한다.
            app.PrintAllNineteenDan()    ' 객체에 속하는 메소드 printDan()을 호출한다.
        End Sub
    End Class
End Namespace

Imports System

Namespace MyTestApplication1

    public class TestArguments

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args As String())
            Dim sum As Double = 0.0    ' 초기화

            ' 명령행 인자(command-line argument) 개수 출력
            Console.WriteLine("Count of arguments: " & args.Length)

            For i As Integer = 0 To args.Length - 1
                ' 스트링을 배정밀도 부동소수점수로 변환하여 누적
                sum = sum + Convert.ToDouble(args(i))
            Next

            ' 출력 값이 ".0"으로 끝나는 경우 꼬리 제거하기
            Dim strSum As string = "" & sum
            If strSum.EndsWith(".0") Then
                strSum = Mid(strSum, 0, strSum.Length - 2)
            End If

            ' 누적된 값을 출력한다.
            Console.WriteLine("The sum of arguments is " & strSum)
        End Sub

    End Class
       
End Namespace

' ---------------------------------------------------------
'  Filename: TestSyntheticMethod.bas
'
'  Purpose:  Find the quotient and remainder when some polynomial is
'            divided by a monic polynomial of the first degree.
'
'  Compile: vbc TestSyntheticMethod.bas
'
'  Execute: TestSyntheticMethod -2 1 3 3 1
' ---------------------------------------------------------

Imports System

Public Class SyntheticMethod

        ' 사용법 표시
        Shared Sub PrintUsage()
             Console.WriteLine("사용법: TestSyntheticMethod [수] [피제식의 계수들]")
             Console.WriteLine("조립제법(synthetic method)에 의한 다항식 나눗셈 결과를 보여준다.")
        End Sub

        ' 부동소수점수의 표현이 .0 으로 끝나는 경우 이를 잘라낸다.
        Shared Function Simplify0(v As Double) As String
            Dim t As String = "" & v
            If t.EndsWith(".0") Then
                t = Mid(t, 0, Len(t) - 2)
            End If
            Simplify0 = t
        End Function

        ' 부동소수점수의 표현이 .0 으로 끝나는 경우 이를 잘라낸다.
        ' 전체 문자열 표시 너비는 매개변수 width 로 전달받아 처리한다.
        Shared Function Simplify(v As Double, width As Integer) As String
            Dim t As String = "" & v
            If t.EndsWith(".0") Then
                t = Mid(t, 1, t.Length - 2)
            End If
            Dim len As Integer = t.Length
            if (len < width)
                t = Mid("               ", 1, width - len) & t
            End If
            Simplify = t
        End Function

        ' 다항식을 내림차순의 스트링 표현으로 반환
        Shared Function ToPolyString(ByVal c() As Double) As String
            Dim t As String = ""
            Dim i As Integer
            If c.Length > 2 Then
                If Simplify0(c(0)) = "1" Then
                    t = t & "x^" & (c.Length-1)
                ElseIf Simplify0(c(0)) = "-1" Then
                    t = t & "-x^" & (c.Length-1)
                Else
                    t = t & Simplify0(c(0)) & " x^" & (c.Length-1)
                End If
            ElseIf c.Length = 2 Then
                If Simplify0(c(0)) = "1" Then
                    t = t & "x"
                ElseIf Simplify0(c(0)) = "-1" Then
                    t = t & "-x"
                Else
                    t = t & Simplify0(c(0)) + " x"
                End If
            ElseIf c.Length = 1 Then
                t = t & Simplify0(c(0))
            End If

            For i = 1 To c.Length - 1
                If c.Length - 1 - i > 1 Then
                    If c(i) > 0.0 Then
                        If Simplify0(c(i)) = "1" Then
                            t = t & " + " & "x^" & (c.Length - 2 - i)
                        Else
                            t = t & " + " & Simplify0(c(i)) & " x^" & (c.Length - 2 - i)
                        End If
                    ElseIf c(i) < 0.0 Then
                        If Simplify0(c(i)) = "-1" Then
                            t = t & " - " & "x^" & (c.Length - 2 - i)
                        Else
                            t = t & " - " & Simplify0(Math.Abs(c(i))) & " x^" & (c.Length - 2 - i)
                        End If
                    End If
                ElseIf c.Length - 1 - i = 1 Then
                    If c(i) > 0.0 Then
                        If Simplify0((i)) = "1" Then
                            t = t &  " + " & Simplify0(c(i)) & "x"
                        Else
                            t = t &  " + " & Simplify0(c(i)) & " x"
                        End If
                    ElseIf c(i) < 0.0 Then
                        If Simplify0(c(i)) = "-1" Then
                            t = t &  " - " & "x"
                        Else
                            t = t &  " - " & Simplify0(Math.Abs(c(i))) & " x"
                        End If
                    End If
                ElseIf c.Length - 1 - i = 0 Then
                    If c(i) > 0.0 Then
                        t = t & " + " & Simplify0(c(i))
                    ElseIf c(i) < 0.0 Then
                        t = t & " - " & Simplify0(Math.Abs(c(i)))
                    End If
                End If
            Next
            ToPolyString = t
        End Function

        ' 다항식 나눗셈 결과를
        '     (피제식) = (제식)(몫) + (나마지)
        ' 형태로 출력
        Shared Sub PrintDivisionResult(a As Double, c() As Double, b() As Double)

            Console.WriteLine("  " & ToPolyString(c))
            Console.WriteLine()
            Console.Write("    = ( " & ToPolyString( New Double() {1.0, -a} ) & " )")

            Dim tmp(b.Length -  2) As Double
            For i = 0 To tmp.Length - 1
                tmp(i) = b(i)
            Next
            Console.Write("( " & ToPolyString(tmp) & " )")

            Dim r As Double = b(b.Length - 1)
            If r > 0.0 Then
                Console.Write(" + " & Simplify0(r))
            ElseIf r < 0.0 Then
                Console.Write(" - " & Simplify0(Math.Abs(r)))
            End If

            Console.WriteLine()
        End Sub

        ' 조립제법 계산표 출력 메쏘드
        Shared Sub PrintSyntheticTable(a As Double, c() As Double, s() As Double, q() As Double)
            Console.Write("       | ")
            Console.Write(Simplify(c(0), 6))
            For i = 1 To c.Length - 1
                Console.Write("  " & Simplify(c(i), 6))
            Next
            Console.WriteLine()

            Console.Write(Simplify(a, 6) & " | ")
            Console.Write("        ")
            Console.Write(Simplify(s(1), 6))
            For i = 2 To s.Length - 1
                Console.Write("  " & Simplify(s(i), 6))
            Next
            Console.WriteLine()

            Console.Write("       |-")
            For i = 0 To q.Length - 1
                Console.Write("--------")
            Next
            Console.WriteLine("")

            Console.Write("         ")
            Console.Write(Simplify(q(0), 6))
            For i = 1 To q.Length - 1
                Console.Write("  " & Simplify(q(i), 6))
            Next
            Console.WriteLine()
        End Sub

        ' Java 언어의 main 메소드에 해당하는 Visual Basic 언어의 Main
        Shared Sub Main(ByVal args As String())
            If args.Length < 3 Then
                PrintUsage()
                Return
            End If

            ' ----------------------------------------------------
            '  피제식은 c_0 x^n +  c_1 x^(n -1) + &. + c_n
            '  제식은 x -  a
            Dim a As Double = Convert.ToDouble(args(0))
            Dim c(args.Length-2) As Double
            Dim s(args.Length-2) As Double
            Dim b(args.Length-2) As Double
            For i = 0 To c.Length - 1
                c(i) = Convert.ToDouble(args(i+1))
            Next

            ' ----------------------------------------------------
            ' 조립제법의 주요 부분
            s(0) = 0.0
            b(0) = c(0)
            For i = 1 To c.Length - 1
                s(i) = b(i-1)*a
                b(i) = c(i) + s(i)
            Next i

            ' -----------------------------------------
            ' 몫의 계수와 나머지를 출력한다.
            Console.Write("몫의 계수는 ")
            For i = 0 To b.Length - 3
                 Console.Write(Simplify0(b(i)) & ", " )
            Next
            Console.Write(Simplify0(b(b.Length - 2)))
            Console.WriteLine(" 이고, 나머지는 " & Simplify0(b(b.Length - 1)) & " 이다.")
            Console.WriteLine()

            ' -----------------------------------------
            ' 조립제법 표를 출력한다.
            PrintSyntheticTable(a, c, s, b)
            Console.WriteLine()

            ' -----------------------------------------
            ' (피제식) = (제식) x (몫) + (나머지)
            PrintDivisionResult(a, c, b)
       End Sub
End Class

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\froman\fcharset0 Times New Roman;}{\f1\froman\fcharset0 unknown;}{\f2\froman\fcharset0 Arial;}}{\colortbl\red0\green0\blue0;\red255\green255\blue255;}{\stylesheet {\style\s2 \ql\fi0\li0\ri0\f2\fs28\b\i\cf0 heading 2;}{\style\s3 \ql\fi0\li0\ri0\f2\fs26\b\cf0 heading 3;}{\style\s1 \ql\fi0\li0\ri0\f2\fs32\b\cf0 heading 1;}{\style\s0 \ql\fi0\li0\ri0\f2\fs24\cf0 Normal;}}{\*\listtable}{\*\listoverridetable}{\*\generator iText 2.1.4 (by lowagie.com)}{\info}\paperw11907\paperh16840\margl720\margr720\margt720\margb720\pgwsxn11907\pghsxn16840\marglsxn720\margrsxn720\margtsxn720\margbsxn720\pard\plain\s0\fi0\li0\ri0\plain\f1 Hello, \u-10916?\u-20992?!\par}

Option Strict On
Imports System.IO

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

Imports System.Text
Imports Microsoft.VisualBasic

public class RichTextBoxSaveReadFile
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
    Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
    Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
    Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    Friend WithEvents btnChangeColor As System.Windows.Forms.Button
    Friend WithEvents btnChangeFont As System.Windows.Forms.Button
    Friend WithEvents btnSaveRTF As System.Windows.Forms.Button
    Friend WithEvents btnOpenRTF As System.Windows.Forms.Button
    Friend WithEvents btnWriteControls As System.Windows.Forms.Button
    Friend WithEvents btnReadControls As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Text = "RTF Reader and Writer"
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
        Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
        Me.FontDialog1 = New System.Windows.Forms.FontDialog()
        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.btnChangeColor = New System.Windows.Forms.Button()
        Me.btnChangeFont = New System.Windows.Forms.Button()
        Me.btnSaveRTF = New System.Windows.Forms.Button()
        Me.btnOpenRTF = New System.Windows.Forms.Button()
        Me.btnWriteControls = New System.Windows.Forms.Button()
        Me.btnReadControls = New System.Windows.Forms.Button()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'Panel1
        '
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnReadControls, Me.btnWriteControls, Me.btnOpenRTF, Me.btnSaveRTF, Me.btnChangeFont, Me.btnChangeColor})
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.Panel1.Location = New System.Drawing.Point(0, 222)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(656, 64)
        Me.Panel1.TabIndex = 0
        '
        'RichTextBox1
        '
        Me.RichTextBox1.Location = New System.Drawing.Point(16, 8)
        Me.RichTextBox1.Name = "RichTextBox1"
        Me.RichTextBox1.Size = New System.Drawing.Size(336, 176)
        Me.RichTextBox1.TabIndex = 1
        Me.RichTextBox1.Text = "Mr. and Mrs. Dursley, of number four, Privet Drive, were proud to say that they w" & _
        "ere perfectly normal, thank you very much."
        '
        'btnChangeColor
        '
        Me.btnChangeColor.Location = New System.Drawing.Point(24, 24)
        Me.btnChangeColor.Name = "btnChangeColor"
        Me.btnChangeColor.Size = New System.Drawing.Size(88, 32)
        Me.btnChangeColor.TabIndex = 0
        Me.btnChangeColor.Text = "Change Color"
        '
        'btnChangeFont
        '
        Me.btnChangeFont.Location = New System.Drawing.Point(128, 24)
        Me.btnChangeFont.Name = "btnChangeFont"
        Me.btnChangeFont.Size = New System.Drawing.Size(88, 32)
        Me.btnChangeFont.TabIndex = 1
        Me.btnChangeFont.Text = "Change Font"
        '
        'btnSaveRTF
        '
        Me.btnSaveRTF.Location = New System.Drawing.Point(232, 24)
        Me.btnSaveRTF.Name = "btnSaveRTF"
        Me.btnSaveRTF.Size = New System.Drawing.Size(88, 32)
        Me.btnSaveRTF.TabIndex = 2
        Me.btnSaveRTF.Text = "Save RTF"
        '
        'btnOpenRTF
        '
        Me.btnOpenRTF.Location = New System.Drawing.Point(336, 24)
        Me.btnOpenRTF.Name = "btnOpenRTF"
        Me.btnOpenRTF.Size = New System.Drawing.Size(88, 32)
        Me.btnOpenRTF.TabIndex = 3
        Me.btnOpenRTF.Text = "Open RTF"
        '
        'btnWriteControls
        '
        Me.btnWriteControls.Location = New System.Drawing.Point(440, 24)
        Me.btnWriteControls.Name = "btnWriteControls"
        Me.btnWriteControls.Size = New System.Drawing.Size(88, 32)
        Me.btnWriteControls.TabIndex = 4
        Me.btnWriteControls.Text = "Write Controls"
        '
        'btnReadControls
        '
        Me.btnReadControls.Location = New System.Drawing.Point(544, 24)
        Me.btnReadControls.Name = "btnReadControls"
        Me.btnReadControls.Size = New System.Drawing.Size(88, 32)
        Me.btnReadControls.TabIndex = 5
        Me.btnReadControls.Text = "Read Controls"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(400, 24)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(232, 20)
        Me.TextBox1.TabIndex = 2
        Me.TextBox1.Text = "TextBox1"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(400, 68)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(232, 20)
        Me.TextBox2.TabIndex = 3
        Me.TextBox2.Text = "TextBox2"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(400, 112)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(232, 20)
        Me.TextBox3.TabIndex = 4
        Me.TextBox3.Text = "TextBox3"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(656, 286)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox3, Me.TextBox2, Me.TextBox1, Me.RichTextBox1, Me.Panel1})
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub btnSaveRTF_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnSaveRTF.Click
        SaveFileDialog1.InitialDirectory = Application.ExecutablePath
        SaveFileDialog1.DefaultExt = "rtf"
        SaveFileDialog1.FileName = "NewFile"
        SaveFileDialog1.Filter = "Rich Text Files (*.rtf)|*.rtf|All Files (*.*) | *.*"
        SaveFileDialog1.ShowDialog()
        RichTextBox1.SaveFile(SaveFileDialog1.FileName)

    End Sub

    Private Sub btnOpenRTF_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnOpenRTF.Click
        OpenFileDialog1.InitialDirectory = Application.ExecutablePath
        OpenFileDialog1.DefaultExt = "rtf"
        OpenFileDialog1.FileName = "NewFile"
        OpenFileDialog1.Filter = "Rich Text Files (*.rtf)|*.rtf|All Files (*.*) | *.*"
        OpenFileDialog1.ShowDialog()

        RichTextBox1.LoadFile(OpenFileDialog1.FileName)
    End Sub

    Private Sub btnChangeFont_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnChangeFont.Click
        Dim theFont As System.Drawing.Font
        FontDialog1.ShowDialog()
        theFont = FontDialog1.Font

        btnChangeFont.Font = theFont
        RichTextBox1.SelectionFont = theFont
    End Sub

    Private Sub btnChangeColor_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnChangeColor.Click
        Dim theColor As System.Drawing.Color
        ColorDialog1.AllowFullOpen = True
        ColorDialog1.AnyColor = True
        ColorDialog1.ShowDialog()
        theColor = ColorDialog1.Color

        btnChangeColor.ForeColor = theColor
        RichTextBox1.SelectionColor = theColor
    End Sub
End Class