Results 1 to 2 of 2

Thread: vb.net number to kanji

  1. May 18th, 2011, 04:58 PM #1
    moti barski
    moti barski is offline

    Thread Starter
    Banned
    Join Date
    Mar 2009
    Posts
    764

    vb.net number to kanji

    part 1 of 2 of walkthrough :

    created by moti barski
    the following code was written on vb.net express 2010
    the program reads the number in the textbox in japanese
    controls :
    textbox : maxlength : 16
    label

    to show the picture of the kanji in the select case make the respectivs kanji display in a picturebox

    Code:
    Imports System.Math
Public Class Form1
    Function toKanji(ByVal N As ULong) As String
        Dim kanji As String
        kanji = "enter a number"
        Select Case N.ToString.Length()
            Case 1
                Select Case N
                    Case 1
                        kanji = "ichi"
                    Case 2
                        kanji = "ni"
                    Case 3
                        kanji = "san"
                    Case 4
                        kanji = "yon"
                    Case 5
                        kanji = "go"
                    Case 6
                        kanji = "roku"
                    Case 7
                        kanji = "nana"
                    Case 8
                        kanji = "hachi"
                    Case 9
                        kanji = "kyu"
                    Case Else
                        kanji = ""
                End Select
            Case 2
                Select Case N \ 10
                    Case 1
                        kanji = "ju" & " " & toKanji(N Mod 10)
                    Case 2
                        kanji = "ni-ju" & " " & toKanji(N Mod 10)
                    Case 3
                        kanji = "san-ju" & " " & toKanji(N Mod 10)
                    Case 4
                        kanji = "yon-ju" & " " & toKanji(N Mod 10)
                    Case 5
                        kanji = "go-ju" & " " & toKanji(N Mod 10)
                    Case 6
                        kanji = "roku-ju" & " " & toKanji(N Mod 10)
                    Case 7
                        kanji = "nana-ju" & " " & toKanji(N Mod 10)
                    Case 8
                        kanji = "hachi-ju" & " " & toKanji(N Mod 10)
                    Case 9
                        kanji = "kyu-ju" & " " & toKanji(N Mod 10)
                    Case Else
                        kanji = ""
                End Select
            Case 3
                Select Case N \ 100
                    Case 1
                        kanji = "hyaku" & " " & toKanji(N Mod 100)
                    Case 2
                        kanji = "ni-hyaku" & " " & toKanji(N Mod 100)
                    Case 3
                        kanji = "sanbyaku" & " " & toKanji(N Mod 100)
                    Case 4
                        kanji = "yon-hyaku" & " " & toKanji(N Mod 100)
                    Case 5
                        kanji = "go-hyaku" & " " & toKanji(N Mod 100)
                    Case 6
                        kanji = "roppyaku" & " " & toKanji(N Mod 100)
                    Case 7
                        kanji = "nana-hyaku" & " " & toKanji(N Mod 100)
                    Case 8
                        kanji = "happyaku" & " " & toKanji(N Mod 100)
                    Case 9
                        kanji = "kyu-hyaku" & toKanji(N Mod 100)
                    Case Else
                        kanji = ""
                End Select
            Case 4
                Select Case N \ 1000
                    Case 1
                        kanji = "sen" & " " & toKanji(N Mod 1000)
                    Case 2
                        kanji = "ni-sen" & " " & toKanji(N Mod 1000)
                    Case 3
                        kanji = "san-zen" & " " & toKanji(N Mod 1000)
                    Case 4
                        kanji = "yon-sen" & " " & toKanji(N Mod 1000)
                    Case 5
                        kanji = "go-sen" & " " & toKanji(N Mod 1000)
                    Case 6
                        kanji = "roku-sen" & " " & toKanji(N Mod 1000)
                    Case 7
                        kanji = "nana-sen" & " " & toKanji(N Mod 1000)
                    Case 8
                        kanji = "hassen" & " " & toKanji(N Mod 1000)
                    Case 9
                        kanji = "kyu-sen" & toKanji(N Mod 1000)
                    Case Else
                        kanji = ""
                End Select
            Case 5
                Select Case N \ 10000
                    Case 1
                        kanji = "ichi-man" & " " & toKanji(N Mod 10000)
                    Case 2
                        kanji = "ni-man" & " " & toKanji(N Mod 10000)
                    Case 3
                        kanji = "san-man" & " " & toKanji(N Mod 10000)
                    Case 4
                        kanji = "yon-man" & " " & toKanji(N Mod 10000)
                    Case 5
                        kanji = "go-man" & " " & toKanji(N Mod 10000)
                    Case 6
                        kanji = "roku-man" & " " & toKanji(N Mod 10000)
                    Case 7
                        kanji = "nana-man" & " " & toKanji(N Mod 10000)
                    Case 8
                        kanji = "hachi-man" & " " & toKanji(N Mod 10000)
                    Case 9
                        kanji = "kyu-man" & toKanji(N Mod 10000)
                    Case Else
                        kanji = ""
                End Select
            Case 6
                Select Case N \ 100000
                    Case 1
                        kanji = "ju" & " " & toKanji(N Mod 100000)
                    Case 2
                        kanji = "ni-ju" & " " & toKanji(N Mod 100000)
                    Case 3
                        kanji = "san-ju" & " " & toKanji(N Mod 100000)
                    Case 4
                        kanji = "yon-ju" & " " & toKanji(N Mod 100000)
                    Case 5
                        kanji = "go-ju" & " " & toKanji(N Mod 100000)
                    Case 6
                        kanji = "roku-ju" & " " & toKanji(N Mod 100000)
                    Case 7
                        kanji = "nana-ju" & " " & toKanji(N Mod 100000)
                    Case 8
                        kanji = "hachi-ju" & " " & toKanji(N Mod 100000)
                    Case 9
                        kanji = "kyu-ju" & toKanji(N Mod 100000)
                    Case Else
                        kanji = ""
                End Select
            Case 7
                Select Case N \ 1000000
                    Case 1
                        kanji = "hyaku" & " " & toKanji(N Mod 1000000)
                    Case 2
                        kanji = "ni-hyaku" & " " & toKanji(N Mod 1000000)
                    Case 3
                        kanji = "san-hyaku" & " " & toKanji(N Mod 1000000)
                    Case 4
                        kanji = "yon-hyaku" & " " & toKanji(N Mod 1000000)
                    Case 5
                        kanji = "go-hyaku" & " " & toKanji(N Mod 1000000)
                    Case 6
                        kanji = "roku-hyaku" & " " & toKanji(N Mod 1000000)
                    Case 7
                        kanji = "nana-hyaku" & " " & toKanji(N Mod 1000000)
                    Case 8
                        kanji = "hachi-hyaku" & " " & toKanji(N Mod 1000000)
                    Case 9
                        kanji = "kyu-hyaku" & toKanji(N Mod 1000000)
                    Case Else
                        kanji = ""
                End Select
            Case 8
                Select Case N \ 10000000
                    Case 1
                        kanji = "sen" & " " & toKanji(N Mod 10000000)
                    Case 2
                        kanji = "ni-sen" & " " & toKanji(N Mod 10000000)
                    Case 3
                        kanji = "sanzen" & " " & toKanji(N Mod 10000000)
                    Case 4
                        kanji = "yon-sen" & " " & toKanji(N Mod 10000000)
                    Case 5
                        kanji = "go-sen" & " " & toKanji(N Mod 10000000)
                    Case 6
                        kanji = "roku-sen" & " " & toKanji(N Mod 10000000)
                    Case 7
                        kanji = "nana-sen" & " " & toKanji(N Mod 10000000)
                    Case 8
                        kanji = "hachi-sen" & " " & toKanji(N Mod 10000000)
                    Case 9
                        kanji = "kyu-sen" & toKanji(N Mod 10000000)
                    Case Else
                        kanji = ""
                End Select
            Case 9
                Select Case N \ 100000000
                    Case 1
                        kanji = "ichi-oku" & " " & toKanji(N Mod 100000000)
                    Case 2
                        kanji = "ni-oku" & " " & toKanji(N Mod 100000000)
                    Case 3
                        kanji = "san-oku" & " " & toKanji(N Mod 100000000)
                    Case 4
                        kanji = "yon-oku" & " " & toKanji(N Mod 100000000)
                    Case 5
                        kanji = "go-oku" & " " & toKanji(N Mod 100000000)
                    Case 6
                        kanji = "roku-oku" & " " & toKanji(N Mod 100000000)
                    Case 7
                        kanji = "nana-oku" & " " & toKanji(N Mod 100000000)
                    Case 8
                        kanji = "hachi-oku" & " " & toKanji(N Mod 100000000)
                    Case 9
                        kanji = "kyu-oku" & toKanji(N Mod 100000000)
                    Case Else
                        kanji = ""
                End Select
    Last edited by moti barski; May 18th, 2011 at 05:02 PM.
    Reply With Quote Reply With Quote
  2. May 18th, 2011, 04:59 PM #2
    moti barski
    moti barski is offline

    Thread Starter
    Banned
    Join Date
    Mar 2009
    Posts
    764

    Re: vb.net number to kanji

    part 2 of 2 of walkthrough
    Code:
     Case 10
                Select Case N \ 1000000000
                    Case 1
                        kanji = "ju" & " " & toKanji(N Mod 1000000000)
                    Case 2
                        kanji = "ni-ju" & " " & toKanji(N Mod 1000000000)
                    Case 3
                        kanji = "san-ju" & " " & toKanji(N Mod 1000000000)
                    Case 4
                        kanji = "yon-ju" & " " & toKanji(N Mod 1000000000)
                    Case 5
                        kanji = "go-ju" & " " & toKanji(N Mod 1000000000)
                    Case 6
                        kanji = "roku-ju" & " " & toKanji(N Mod 1000000000)
                    Case 7
                        kanji = "nana-ju" & " " & toKanji(N Mod 1000000000)
                    Case 8
                        kanji = "hachi-ju" & " " & toKanji(N Mod 1000000000)
                    Case 9
                        kanji = "kyu-ju" & toKanji(N Mod 1000000000)
                    Case Else
                        kanji = ""
                End Select
            Case 11
                Select Case N \ 10000000000
                    Case 1
                        kanji = "hyaku" & " " & toKanji(N Mod 10000000000)
                    Case 2
                        kanji = "ni-hyaku" & " " & toKanji(N Mod 10000000000)
                    Case 3
                        kanji = "sanbyaku" & " " & toKanji(N Mod 10000000000)
                    Case 4
                        kanji = "yon-hyaku" & " " & toKanji(N Mod 10000000000)
                    Case 5
                        kanji = "go-hyaku" & " " & toKanji(N Mod 10000000000)
                    Case 6
                        kanji = "roku-hyaku" & " " & toKanji(N Mod 10000000000)
                    Case 7
                        kanji = "nana-hyaku" & " " & toKanji(N Mod 10000000000)
                    Case 8
                        kanji = "hapyaku" & " " & toKanji(N Mod 10000000000)
                    Case 9
                        kanji = "kyu-hyaku" & toKanji(N Mod 10000000000)
                    Case Else
                        kanji = ""
                End Select
            Case 12
                Select Case N \ 100000000000
                    Case 1
                        kanji = "sen" & " " & toKanji(N Mod 100000000000)
                    Case 2
                        kanji = "ni-sen" & " " & toKanji(N Mod 100000000000)
                    Case 3
                        kanji = "sanzen" & " " & toKanji(N Mod 100000000000)
                    Case 4
                        kanji = "yon-sen" & " " & toKanji(N Mod 100000000000)
                    Case 5
                        kanji = "go-sen" & " " & toKanji(N Mod 100000000000)
                    Case 6
                        kanji = "roku-sen" & " " & toKanji(N Mod 100000000000)
                    Case 7
                        kanji = "nana-sen" & " " & toKanji(N Mod 100000000000)
                    Case 8
                        kanji = "hassen" & " " & toKanji(N Mod 100000000000)
                    Case 9
                        kanji = "kyu-sen" & toKanji(N Mod 100000000000)
                    Case Else
                        kanji = ""
                End Select
            Case 13
                Select Case N \ 1000000000000
                    Case 1
                        kanji = "itcho" & " " & toKanji(N Mod 1000000000000)
                    Case 2
                        kanji = "ni-cho" & " " & toKanji(N Mod 1000000000000)
                    Case 3
                        kanji = "san-cho" & " " & toKanji(N Mod 1000000000000)
                    Case 4
                        kanji = "yon-cho" & " " & toKanji(N Mod 1000000000000)
                    Case 5
                        kanji = "go-cho" & " " & toKanji(N Mod 1000000000000)
                    Case 6
                        kanji = "roku-cho" & " " & toKanji(N Mod 1000000000000)
                    Case 7
                        kanji = "nana-cho" & " " & toKanji(N Mod 1000000000000)
                    Case 8
                        kanji = "hatcho" & " " & toKanji(N Mod 1000000000000)
                    Case 9
                        kanji = "kyu-cho" & toKanji(N Mod 1000000000000)
                    Case Else
                        kanji = ""
                End Select
            Case 14
                Select Case N \ 10000000000000
                    Case 1
                        kanji = "ju" & " " & toKanji(N Mod 10000000000000)
                    Case 2
                        kanji = "ni-ju" & " " & toKanji(N Mod 10000000000000)
                    Case 3
                        kanji = "san-ju" & " " & toKanji(N Mod 10000000000000)
                    Case 4
                        kanji = "yon-ju" & " " & toKanji(N Mod 10000000000000)
                    Case 5
                        kanji = "go-ju" & " " & toKanji(N Mod 10000000000000)
                    Case 6
                        kanji = "roku-ju" & " " & toKanji(N Mod 10000000000000)
                    Case 7
                        kanji = "nana-ju" & " " & toKanji(N Mod 10000000000000)
                    Case 8
                        kanji = "hachi-ju" & " " & toKanji(N Mod 10000000000000)
                    Case 9
                        kanji = "kyu-ju" & toKanji(N Mod 10000000000000)
                    Case Else
                        kanji = ""
                End Select
            Case 15
                Select Case N \ 100000000000000
                    Case 1
                        kanji = "hyaku" & " " & toKanji(N Mod 100000000000000)
                    Case 2
                        kanji = "ni-hyaku" & " " & toKanji(N Mod 100000000000000)
                    Case 3
                        kanji = "sanbyaku" & " " & toKanji(N Mod 100000000000000)
                    Case 4
                        kanji = "yon-hyaku" & " " & toKanji(N Mod 100000000000000)
                    Case 5
                        kanji = "go-hyaku" & " " & toKanji(N Mod 100000000000000)
                    Case 6
                        kanji = "roku-hyaku" & " " & toKanji(N Mod 100000000000000)
                    Case 7
                        kanji = "nana-hyaku" & " " & toKanji(N Mod 100000000000000)
                    Case 8
                        kanji = "hapyaku" & " " & toKanji(N Mod 100000000000000)
                    Case 9
                        kanji = "kyu-hyaku" & toKanji(N Mod 100000000000000)
                    Case Else
                        kanji = ""
                End Select
            Case 16
                Select Case N \ 1000000000000000
                    Case 1
                        kanji = "sen" & " " & toKanji(N Mod 1000000000000000)
                    Case 2
                        kanji = "ni-sen" & " " & toKanji(N Mod 1000000000000000)
                    Case 3
                        kanji = "sanzen" & " " & toKanji(N Mod 1000000000000000)
                    Case 4
                        kanji = "yon-sen" & " " & toKanji(N Mod 1000000000000000)
                    Case 5
                        kanji = "go-sen" & " " & toKanji(N Mod 1000000000000000)
                    Case 6
                        kanji = "roku-sen" & " " & toKanji(N Mod 1000000000000000)
                    Case 7
                        kanji = "nana-sen" & " " & toKanji(N Mod 1000000000000000)
                    Case 8
                        kanji = "hassen" & " " & toKanji(N Mod 1000000000000000)
                    Case 9
                        kanji = "kyu-sen" & toKanji(N Mod 1000000000000000)
                    Case Else
                        kanji = ""
                End Select
            Case Else

        End Select


        Return kanji
    End Function
    Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        Try
            Dim dnum As ULong
            dnum = TextBox1.Text
            If dnum = 0 Then
                Label1.Text = "rei"
            Else
                Label1.Text = toKanji(dnum)
            End If
        Catch ex As Exception
            MsgBox("enter an integer up to 16 digits , text length : " & TextBox1.Text.Length())
        End Try
    End Sub
End Class
    http://japan-cc.com/countjp.htm
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width