|
-
May 18th, 2011, 04:58 PM
#1
Thread Starter
Banned
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.
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
|
Reply With Quote