home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD94308302000.psc / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-08-30  |  29.3 KB  |  671 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Kana Entry"
  5.    ClientHeight    =   4155
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   7335
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   4155
  13.    ScaleWidth      =   7335
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.TextBox Text3 
  16.       Height          =   285
  17.       Left            =   120
  18.       TabIndex        =   6
  19.       Text            =   "katakana.ini"
  20.       Top             =   3240
  21.       Width           =   2055
  22.    End
  23.    Begin VB.CommandButton Command2 
  24.       Caption         =   "Load Font Info"
  25.       Height          =   495
  26.       Left            =   120
  27.       TabIndex        =   5
  28.       Top             =   3600
  29.       Width           =   2055
  30.    End
  31.    Begin VB.CommandButton Command1 
  32.       Caption         =   "Copy Kana To Clipboard"
  33.       Height          =   495
  34.       Left            =   5160
  35.       TabIndex        =   4
  36.       Top             =   3600
  37.       Width           =   2055
  38.    End
  39.    Begin VB.TextBox Text2 
  40.       BackColor       =   &H00E0E0E0&
  41.       Enabled         =   0   'False
  42.       BeginProperty Font 
  43.          Name            =   "Arial"
  44.          Size            =   9.75
  45.          Charset         =   0
  46.          Weight          =   700
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   1815
  52.       Left            =   120
  53.       TabIndex        =   1
  54.       Top             =   1320
  55.       Width           =   7095
  56.    End
  57.    Begin VB.TextBox Text1 
  58.       BeginProperty Font 
  59.          Name            =   "Arial"
  60.          Size            =   9.75
  61.          Charset         =   0
  62.          Weight          =   700
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       Height          =   615
  68.       Left            =   120
  69.       TabIndex        =   0
  70.       Top             =   360
  71.       Width           =   7095
  72.    End
  73.    Begin VB.Label lblWarning 
  74.       Caption         =   "Font map ini not loaded!"
  75.       BeginProperty Font 
  76.          Name            =   "MS Sans Serif"
  77.          Size            =   8.25
  78.          Charset         =   0
  79.          Weight          =   700
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       ForeColor       =   &H000000C0&
  85.       Height          =   375
  86.       Left            =   2280
  87.       TabIndex        =   7
  88.       Top             =   3840
  89.       Width           =   2535
  90.    End
  91.    Begin VB.Label Label2 
  92.       Caption         =   "Western:"
  93.       Height          =   255
  94.       Left            =   120
  95.       TabIndex        =   3
  96.       Top             =   120
  97.       Width           =   2535
  98.    End
  99.    Begin VB.Label Label1 
  100.       Caption         =   "Kana:"
  101.       Height          =   255
  102.       Left            =   120
  103.       TabIndex        =   2
  104.       Top             =   1080
  105.       Width           =   2535
  106.    End
  107. Attribute VB_Name = "Form1"
  108. Attribute VB_GlobalNameSpace = False
  109. Attribute VB_Creatable = False
  110. Attribute VB_PredeclaredId = True
  111. Attribute VB_Exposed = False
  112. Dim FontINI As New INI
  113. Dim str1, str2, str3, str4, str5, str6, str7, str8, str9, str0 As String
  114. Dim strA, strE, strI, strO, strU, strDot As String
  115. Dim strSmallA, strSmallE, strSmallI, strSmallO, strSmallU As String
  116. Dim strSmallTSU, strLength As String
  117. Dim strBA, strBE, strBI, strBO, strBU As String
  118. Dim strKA, strKE, strKI, strKO, strKU As String
  119. Dim strGA, strGE, strGI, strGO, strGU As String
  120. Dim strHA, strHE, strHI, strHO, strHU As String
  121. Dim strMA, strME, strMI, strMO, strMU As String
  122. Dim strNA, strNE, strNI, strNO, strNU, strN As String
  123. Dim strPA, strPE, strPI, strPO, strPU As String
  124. Dim strRA, strRE, strRI, strRO, strRU As String
  125. Dim strSA, strSE, strSHI, strSO, strSU As String
  126. Dim strTA, strTE, strCHI, strTO, strTSU As String
  127. Dim strDA, strDE, strDI, strDO, strDU As String
  128. Dim strYA, strYO, strYU As String
  129. Dim strSmallYA, strSmallYO, strSmallYU As String
  130. Dim strZA, strZE, strZI, strZO, strZU As String
  131. Dim strWA, strWO As String
  132. Dim INILoaded As Boolean
  133. Private Sub Command1_Click()
  134. Clipboard.Clear
  135. Clipboard.SetText (Text2.Text)
  136. End Sub
  137. Private Sub Command2_Click()
  138. If Dir(App.Path & "\" & Text3.Text) = "" Then
  139.     MsgBox ("Fortune cookie say:  Font map ini file: '" & Text3.Text & "' does not exist.")
  140.     Exit Sub
  141. End If
  142. FontINI.inifile = App.Path & "\" & Text3.Text
  143. Text2.Font.Name = FontINI.ReadINI("Font", "Name")
  144. Text2.Font.Size = FontINI.ReadINI("Font", "Size")
  145. str1 = FontINI.ReadINI("Numbers", "1")
  146. str2 = FontINI.ReadINI("Numbers", "2")
  147. str3 = FontINI.ReadINI("Numbers", "3")
  148. str4 = FontINI.ReadINI("Numbers", "4")
  149. str5 = FontINI.ReadINI("Numbers", "5")
  150. str6 = FontINI.ReadINI("Numbers", "6")
  151. str7 = FontINI.ReadINI("Numbers", "7")
  152. str8 = FontINI.ReadINI("Numbers", "8")
  153. str9 = FontINI.ReadINI("Numbers", "9")
  154. str0 = FontINI.ReadINI("Numbers", "0")
  155. strDot = FontINI.ReadINI("Numbers", "Dot")
  156. strA = FontINI.ReadINI("Vowels", "A")
  157. strE = FontINI.ReadINI("Vowels", "E")
  158. strI = FontINI.ReadINI("Vowels", "I")
  159. strO = FontINI.ReadINI("Vowels", "O")
  160. strU = FontINI.ReadINI("Vowels", "U")
  161. strSmallA = FontINI.ReadINI("Vowels", "SmallA")
  162. strSmallE = FontINI.ReadINI("Vowels", "SmallE")
  163. strSmallI = FontINI.ReadINI("Vowels", "SmallI")
  164. strSmallO = FontINI.ReadINI("Vowels", "SmallO")
  165. strSmallU = FontINI.ReadINI("Vowels", "SmallU")
  166. strSmallTSU = FontINI.ReadINI("Vowels", "SmallTSU")
  167. strLength = FontINI.ReadINI("Vowels", "Length")
  168. strBA = FontINI.ReadINI("B", "BA")
  169. strBE = FontINI.ReadINI("B", "BE")
  170. strBI = FontINI.ReadINI("B", "BI")
  171. strBO = FontINI.ReadINI("B", "BO")
  172. strBU = FontINI.ReadINI("B", "BU")
  173. strDA = FontINI.ReadINI("D", "DA")
  174. strDE = FontINI.ReadINI("D", "DE")
  175. strDI = FontINI.ReadINI("D", "DI")
  176. strDO = FontINI.ReadINI("D", "DO")
  177. strDU = FontINI.ReadINI("D", "DU")
  178. strGA = FontINI.ReadINI("G", "GA")
  179. strGE = FontINI.ReadINI("G", "GE")
  180. strGI = FontINI.ReadINI("G", "GI")
  181. strGO = FontINI.ReadINI("G", "GO")
  182. strGU = FontINI.ReadINI("G", "GU")
  183. strHA = FontINI.ReadINI("H", "HA")
  184. strHE = FontINI.ReadINI("H", "HE")
  185. strHI = FontINI.ReadINI("H", "HI")
  186. strHO = FontINI.ReadINI("H", "HO")
  187. strHU = FontINI.ReadINI("H", "HU")
  188. strKA = FontINI.ReadINI("K", "KA")
  189. strKE = FontINI.ReadINI("K", "KE")
  190. strKI = FontINI.ReadINI("K", "KI")
  191. strKO = FontINI.ReadINI("K", "KO")
  192. strKU = FontINI.ReadINI("K", "KU")
  193. strMA = FontINI.ReadINI("M", "MA")
  194. strME = FontINI.ReadINI("M", "ME")
  195. strMI = FontINI.ReadINI("M", "MI")
  196. strMO = FontINI.ReadINI("M", "MO")
  197. strMU = FontINI.ReadINI("M", "MU")
  198. strNA = FontINI.ReadINI("N", "NA")
  199. strNE = FontINI.ReadINI("N", "NE")
  200. strNI = FontINI.ReadINI("N", "NI")
  201. strNO = FontINI.ReadINI("N", "NO")
  202. strNU = FontINI.ReadINI("N", "NU")
  203. strN = FontINI.ReadINI("N", "N")
  204. strPA = FontINI.ReadINI("P", "PA")
  205. strPE = FontINI.ReadINI("P", "PE")
  206. strPI = FontINI.ReadINI("P", "PI")
  207. strPO = FontINI.ReadINI("P", "PO")
  208. strPU = FontINI.ReadINI("P", "PU")
  209. strRA = FontINI.ReadINI("R", "RA")
  210. strRE = FontINI.ReadINI("R", "RE")
  211. strRI = FontINI.ReadINI("R", "RI")
  212. strRO = FontINI.ReadINI("R", "RO")
  213. strRU = FontINI.ReadINI("R", "RU")
  214. strSA = FontINI.ReadINI("S", "SA")
  215. strSE = FontINI.ReadINI("S", "SE")
  216. strSHI = FontINI.ReadINI("S", "SHI")
  217. strSO = FontINI.ReadINI("S", "SO")
  218. strSU = FontINI.ReadINI("S", "SU")
  219. strTA = FontINI.ReadINI("T", "TA")
  220. strTE = FontINI.ReadINI("T", "TE")
  221. strCHI = FontINI.ReadINI("T", "CHI")
  222. strTO = FontINI.ReadINI("T", "TO")
  223. strTSU = FontINI.ReadINI("T", "TSU")
  224. strWA = FontINI.ReadINI("W", "WA")
  225. strWO = FontINI.ReadINI("W", "WO")
  226. strYA = FontINI.ReadINI("Y", "YA")
  227. strYO = FontINI.ReadINI("Y", "YO")
  228. strYU = FontINI.ReadINI("Y", "YU")
  229. strSmallYA = FontINI.ReadINI("Y", "SmallYA")
  230. strSmallYO = FontINI.ReadINI("Y", "SmallYO")
  231. strSmallYU = FontINI.ReadINI("Y", "SmallYU")
  232. strZA = FontINI.ReadINI("Z", "ZA")
  233. strZE = FontINI.ReadINI("Z", "ZE")
  234. strZI = FontINI.ReadINI("Z", "ZI")
  235. strZO = FontINI.ReadINI("Z", "ZO")
  236. strZU = FontINI.ReadINI("Z", "ZU")
  237. lblWarning.Visible = False
  238. Call Text1_Change
  239. End Sub
  240. Private Sub Form_Load()
  241. Call Command2_Click
  242. End Sub
  243. Private Sub Text1_Change()
  244. Dim strCur
  245. Dim strPrev
  246. Dim strNext
  247. Dim strNextNext
  248. Dim strLetter
  249. Dim strNew
  250.     For i = 1 To Len(Text1.Text)
  251.         strCur = UCase(Mid(Text1.Text, i, 1))
  252.         
  253.         If i > 1 Then
  254.             strPrev = UCase(Mid(Text1.Text, i - 1, 1))
  255.         Else
  256.             strPrev = ""
  257.         End If
  258.         
  259.         If i < Len(Text1.Text) Then
  260.             strNext = UCase(Mid(Text1.Text, i + 1, 1))
  261.         Else
  262.             strNext = ""
  263.         End If
  264.         
  265.         If i < Len(Text1.Text) - 1 Then
  266.             strNextNext = UCase(Mid(Text1.Text, i + 2, 1))
  267.         Else
  268.             strNextNext = ""
  269.         End If
  270.         
  271.         If strCur = "B" Then
  272.             If strNext = "Y" Then
  273.                 If strNextNext = "A" Then strLetter = "BYA": i = i + 2
  274.                 If strNextNext = "U" Then strLetter = "BYU": i = i + 2
  275.                 If strNextNext = "O" Then strLetter = "BYO": i = i + 2
  276.             End If
  277.             If strNext = "A" Then strLetter = "BA": i = i + 1
  278.             If strNext = "E" Then strLetter = "BE": i = i + 1
  279.             If strNext = "I" Then strLetter = "BI": i = i + 1
  280.             If strNext = "O" Then strLetter = "BO": i = i + 1
  281.             If strNext = "U" Then strLetter = "BU": i = i + 1
  282.             If strNext = "B" Then strLetter = "Q"
  283.         End If
  284.         If strCur = "C" Then
  285.             If strNext = "Y" Then
  286.                 If strNextNext = "A" Then strLetter = "KYA": i = i + 2
  287.                 If strNextNext = "U" Then strLetter = "KYU": i = i + 2
  288.                 If strNextNext = "O" Then strLetter = "KYO": i = i + 2
  289.             End If
  290.             If strNext = "H" Then
  291.                 If strNextNext = "A" Then strLetter = "CHA": i = i + 2
  292.                 If strNextNext = "E" Then strLetter = "CHE": i = i + 2
  293.                 If strNextNext = "I" Then strLetter = "CHI": i = i + 2
  294.                 If strNextNext = "O" Then strLetter = "CHO": i = i + 2
  295.                 If strNextNext = "U" Then strLetter = "CHU": i = i + 2
  296.             End If
  297.             If strNext = "A" Then strLetter = "KA": i = i + 1
  298.             If strNext = "E" Then strLetter = "KE": i = i + 1
  299.             If strNext = "I" Then strLetter = "KI": i = i + 1
  300.             If strNext = "O" Then strLetter = "KO": i = i + 1
  301.             If strNext = "U" Then strLetter = "KU": i = i + 1
  302.             If strNext = "C" Then strLetter = "Q"
  303.             If strNext = "K" Then strLetter = "Q"
  304.         End If
  305.         If strCur = "D" Then
  306.             If strNext = "Y" Then
  307.                 If strNextNext = "A" Then strLetter = "DYA": i = i + 2
  308.                 If strNextNext = "E" Then strLetter = "DYE": i = i + 2
  309.                 If strNextNext = "I" Then strLetter = "DI": i = i + 2
  310.                 If strNextNext = "O" Then strLetter = "DYO": i = i + 2
  311.                 If strNextNext = "U" Then strLetter = "DYU": i = i + 2
  312.             End If
  313.             If strNext = "A" Then strLetter = "DA": i = i + 1
  314.             If strNext = "E" Then strLetter = "DE": i = i + 1
  315.             If strNext = "I" Then strLetter = "DI": i = i + 1
  316.             If strNext = "O" Then strLetter = "DO": i = i + 1
  317.             If strNext = "U" Then strLetter = "DU": i = i + 1
  318.             If strNext = "D" Then strLetter = "Q"
  319.         End If
  320.         If strCur = "F" Then
  321.             If strNext = "U" Then strLetter = "HU": i = i + 1
  322.         End If
  323.         If strCur = "G" Then
  324.             If strNext = "Y" Then
  325.                 If strNextNext = "A" Then strLetter = "GYA": i = i + 2
  326.                 If strNextNext = "U" Then strLetter = "GYU": i = i + 2
  327.                 If strNextNext = "O" Then strLetter = "GYO": i = i + 2
  328.             End If
  329.             If strNext = "A" Then strLetter = "GA": i = i + 1
  330.             If strNext = "E" Then strLetter = "GE": i = i + 1
  331.             If strNext = "I" Then strLetter = "GI": i = i + 1
  332.             If strNext = "O" Then strLetter = "GO": i = i + 1
  333.             If strNext = "U" Then strLetter = "GU": i = i + 1
  334.             If strNext = "G" Then strLetter = "Q"
  335.         End If
  336.         If strCur = "H" Then
  337.             If strNext = "Y" Then
  338.                 If strNextNext = "A" Then strLetter = "HYA": i = i + 2
  339.                 If strNextNext = "U" Then strLetter = "HYU": i = i + 2
  340.                 If strNextNext = "O" Then strLetter = "HYO": i = i + 2
  341.             End If
  342.             If strNext = "A" Then strLetter = "HA": i = i + 1
  343.             If strNext = "E" Then strLetter = "HE": i = i + 1
  344.             If strNext = "I" Then strLetter = "HI": i = i + 1
  345.             If strNext = "O" Then strLetter = "HO": i = i + 1
  346.             If strNext = "U" Then strLetter = "HU": i = i + 1
  347.             If strNext = "G" Then strLetter = "Q"
  348.         End If
  349.         If strCur = "J" Then
  350.             If strNext = "A" Then strLetter = "ZYA": i = i + 1
  351.             If strNext = "E" Then strLetter = "ZYE": i = i + 1
  352.             If strNext = "I" Then strLetter = "ZI": i = i + 1
  353.             If strNext = "O" Then strLetter = "ZYO": i = i + 1
  354.             If strNext = "U" Then strLetter = "ZYU": i = i + 1
  355.             If strNext = "J" Then strLetter = "Q"
  356.         End If
  357.         If strCur = "K" Then
  358.             If strNext = "Y" Then
  359.                 If strNextNext = "A" Then strLetter = "KYA": i = i + 2
  360.                 If strNextNext = "U" Then strLetter = "KYU": i = i + 2
  361.                 If strNextNext = "O" Then strLetter = "KYO": i = i + 2
  362.             End If
  363.             If strNext = "A" Then strLetter = "KA": i = i + 1
  364.             If strNext = "E" Then strLetter = "KE": i = i + 1
  365.             If strNext = "I" Then strLetter = "KI": i = i + 1
  366.             If strNext = "O" Then strLetter = "KO": i = i + 1
  367.             If strNext = "U" Then strLetter = "KU": i = i + 1
  368.             If strNext = "K" Then strLetter = "Q"
  369.             If strNext = "C" Then strLetter = "Q"
  370.         End If
  371.         If strCur = "L" Or strCur = "R" Then
  372.             If strNext = "Y" Then
  373.                 If strNextNext = "A" Then strLetter = "RYA": i = i + 2
  374.                 If strNextNext = "U" Then strLetter = "RYU": i = i + 2
  375.                 If strNextNext = "O" Then strLetter = "RYO": i = i + 2
  376.             End If
  377.             If strNext = "A" Then strLetter = "RA": i = i + 1
  378.             If strNext = "E" Then strLetter = "RE": i = i + 1
  379.             If strNext = "I" Then strLetter = "RI": i = i + 1
  380.             If strNext = "O" Then strLetter = "RO": i = i + 1
  381.             If strNext = "U" Then strLetter = "RU": i = i + 1
  382.             If strNext = "R" Then strLetter = "Q"
  383.             If strNext = "L" Then strLetter = "Q"
  384.         End If
  385.         If strCur = "M" Then
  386.             If strNext = "Y" Then
  387.                 If strNextNext = "A" Then strLetter = "MYA": i = i + 2
  388.                 If strNextNext = "U" Then strLetter = "MYU": i = i + 2
  389.                 If strNextNext = "O" Then strLetter = "MYO": i = i + 2
  390.             End If
  391.             If strNext = "A" Then strLetter = "MA": i = i + 1
  392.             If strNext = "E" Then strLetter = "ME": i = i + 1
  393.             If strNext = "I" Then strLetter = "MI": i = i + 1
  394.             If strNext = "O" Then strLetter = "MO": i = i + 1
  395.             If strNext = "U" Then strLetter = "MU": i = i + 1
  396.             If strNext = "M" Then strLetter = "Q"
  397.             If strNext = "P" Then strLetter = "N"
  398.             If strNext = "B" Then strLetter = "N"
  399.         End If
  400.         If strCur = "N" Then
  401.             If strNext = "Y" Then
  402.                 If strNextNext = "A" Then strLetter = "NYA": i = i + 2
  403.                 If strNextNext = "U" Then strLetter = "NYU": i = i + 2
  404.                 If strNextNext = "O" Then strLetter = "NYO": i = i + 2
  405.             End If
  406.             If strNext = "A" Then strLetter = "NA": i = i + 1
  407.             If strNext = "E" Then strLetter = "NE": i = i + 1
  408.             If strNext = "I" Then strLetter = "NI": i = i + 1
  409.             If strNext = "O" Then strLetter = "NO": i = i + 1
  410.             If strNext = "U" Then strLetter = "NU": i = i + 1
  411.             If strNext = "N" Then strLetter = "N": i = i + 1
  412.             If strLetter = "" Then strLetter = "N"
  413.         End If
  414.         If strCur = "P" Then
  415.             If strNext = "Y" Then
  416.                 If strNextNext = "A" Then strLetter = "PYA": i = i + 2
  417.                 If strNextNext = "U" Then strLetter = "PYU": i = i + 2
  418.                 If strNextNext = "O" Then strLetter = "PYO": i = i + 2
  419.             End If
  420.             If strNext = "A" Then strLetter = "PA": i = i + 1
  421.             If strNext = "E" Then strLetter = "PE": i = i + 1
  422.             If strNext = "I" Then strLetter = "PI": i = i + 1
  423.             If strNext = "O" Then strLetter = "PO": i = i + 1
  424.             If strNext = "U" Then strLetter = "PU": i = i + 1
  425.             If strNext = "P" Then strLetter = "Q"
  426.         End If
  427.         If strCur = "Q" Then strLetter = "Q"
  428.         If strCur = "S" Then
  429.             If strNext = "H" Then
  430.                 If strNextNext = "A" Then strLetter = "SHA": i = i + 2
  431.                 If strNextNext = "E" Then strLetter = "SHE": i = i + 2
  432.                 If strNextNext = "I" Then strLetter = "SHI": i = i + 2
  433.                 If strNextNext = "O" Then strLetter = "SHO": i = i + 2
  434.                 If strNextNext = "U" Then strLetter = "SHU": i = i + 2
  435.             End If
  436.             If strNext = "Y" Then
  437.                 If strNextNext = "A" Then strLetter = "SHA": i = i + 2
  438.                 If strNextNext = "E" Then strLetter = "SHE": i = i + 2
  439.                 If strNextNext = "I" Then strLetter = "SHI": i = i + 2
  440.                 If strNextNext = "O" Then strLetter = "SHO": i = i + 2
  441.                 If strNextNext = "U" Then strLetter = "SHU": i = i + 2
  442.             End If
  443.             If strNext = "A" Then strLetter = "SA": i = i + 1
  444.             If strNext = "E" Then strLetter = "SE": i = i + 1
  445.             If strNext = "I" Then strLetter = "SHI": i = i + 1
  446.             If strNext = "O" Then strLetter = "SO": i = i + 1
  447.             If strNext = "U" Then strLetter = "SU": i = i + 1
  448.             If strNext = "P" Then strLetter = "Q"
  449.         End If
  450.         If strCur = "T" Then
  451.             If strNext = "Y" Then
  452.                 If strNextNext = "A" Then strLetter = "CHA": i = i + 2
  453.                 If strNextNext = "E" Then strLetter = "CHE": i = i + 2
  454.                 If strNextNext = "I" Then strLetter = "CHI": i = i + 2
  455.                 If strNextNext = "O" Then strLetter = "CHO": i = i + 2
  456.                 If strNextNext = "U" Then strLetter = "CHU": i = i + 2
  457.             End If
  458.             If strNext = "A" Then strLetter = "TA": i = i + 1
  459.             If strNext = "E" Then strLetter = "TE": i = i + 1
  460.             If strNext = "I" Then strLetter = "CHI": i = i + 1
  461.             If strNext = "O" Then strLetter = "TO": i = i + 1
  462.             If strNext = "U" Then strLetter = "TSU": i = i + 1
  463.             If strNext = "S" And strNextNext = "U" Then strLetter = "TSU": i = i + 2
  464.             If strNext = "T" Then strLetter = "Q"
  465.             If strNext = "C" And strNextNext = "H" Then strLetter = "Q"
  466.         End If
  467.         If strCur = "W" Then
  468.             If strNext = "A" Then strLetter = "WA": i = i + 1
  469.             If strNext = "O" Then strLetter = "WO": i = i + 1
  470.             If strNext = "WU" Then strLetter = "U": i = i + 1
  471.             If strNext = "W" Then strLetter = "Q"
  472.         End If
  473.         If strCur = "Y" Then
  474.             If strNext = "A" Then strLetter = "YA": i = i + 1
  475.             If strNext = "O" Then strLetter = "YO": i = i + 1
  476.             If strNext = "U" Then strLetter = "YU": i = i + 1
  477.             If strNext = "Y" Then strLetter = "Q"
  478.         End If
  479.         If strCur = "Z" Then
  480.             If strNext = "Y" Then
  481.                 If strNextNext = "A" Then strLetter = "ZYA": i = i + 2
  482.                 If strNextNext = "E" Then strLetter = "ZYE": i = i + 2
  483.                 If strNextNext = "I" Then strLetter = "ZI": i = i + 2
  484.                 If strNextNext = "O" Then strLetter = "ZYO": i = i + 2
  485.                 If strNextNext = "U" Then strLetter = "ZYU": i = i + 2
  486.             End If
  487.             If strNext = "A" Then strLetter = "ZA": i = i + 1
  488.             If strNext = "E" Then strLetter = "ZE": i = i + 1
  489.             If strNext = "I" Then strLetter = "ZI": i = i + 1
  490.             If strNext = "O" Then strLetter = "ZO": i = i + 1
  491.             If strNext = "U" Then strLetter = "ZU": i = i + 1
  492.             If strNext = "Z" Then strLetter = "Q"
  493.         End If
  494.         If strCur = "A" Then
  495.             If strNext = "A" Then strLetter = "A-": i = i + 1
  496.             If strPrev = "A" Then strLetter = "-"
  497.             If strLetter = "" Then strLetter = "A"
  498.         End If
  499.         If strCur = "E" Then
  500.             If strNext = "E" Then strLetter = "E-": i = i + 1
  501.             If strPrev = "E" Then strLetter = "-"
  502.             If strLetter = "" Then strLetter = "E"
  503.         End If
  504.         If strCur = "I" Then
  505.             If strNext = "I" Then strLetter = "I-": i = i + 1
  506.             If strPrev = "I" Then strLetter = "i"
  507.             If strLetter = "" Then strLetter = "I"
  508.         End If
  509.         If strCur = "O" Then
  510.             If strNext = "O" Then strLetter = "O-": i = i + 1
  511.             If strPrev = "O" Then strLetter = "-"
  512.             If strLetter = "" Then strLetter = "O"
  513.         End If
  514.         If strCur = "U" Then
  515.             If strNext = "U" Then strLetter = "U-": i = i + 1
  516.             If strPrev = "U" Then strLetter = "-"
  517.             If strLetter = "" Then strLetter = "U"
  518.         End If
  519.     If strCur = "-" Then strLetter = "-"
  520.     If strCur = "1" Then strLetter = "1"
  521.     If strCur = "2" Then strLetter = "2"
  522.     If strCur = "3" Then strLetter = "3"
  523.     If strCur = "4" Then strLetter = "4"
  524.     If strCur = "5" Then strLetter = "5"
  525.     If strCur = "6" Then strLetter = "6"
  526.     If strCur = "7" Then strLetter = "7"
  527.     If strCur = "8" Then strLetter = "8"
  528.     If strCur = "9" Then strLetter = "9"
  529.     If strCur = "0" Then strLetter = "0"
  530.     If strCur = "." Then strLetter = "."
  531.     If strCur = " " Then strLetter = " "
  532.     If strLetter = "A" Then strLetter = strA
  533.     If strLetter = "E" Then strLetter = strE
  534.     If strLetter = "I" Then strLetter = strI
  535.     If strLetter = "O" Then strLetter = strO
  536.     If strLetter = "U" Then strLetter = strU
  537.     If strLetter = "a" Then strLetter = strSmallA
  538.     If strLetter = "e" Then strLetter = strSmallE
  539.     If strLetter = "i" Then strLetter = strSmallI
  540.     If strLetter = "o" Then strLetter = strSmallO
  541.     If strLetter = "u" Then strLetter = strSmallU
  542.     If strLetter = "A-" Then strLetter = strA & strLength
  543.     If strLetter = "E-" Then strLetter = strE & strLength
  544.     If strLetter = "I-" Then strLetter = strI & strSmallI
  545.     If strLetter = "O-" Then strLetter = strO & strSmallU
  546.     If strLetter = "U-" Then strLetter = strU & strLength
  547.     If strLetter = "BA" Then strLetter = strBA
  548.     If strLetter = "BE" Then strLetter = strBE
  549.     If strLetter = "BI" Then strLetter = strBI
  550.     If strLetter = "BO" Then strLetter = strBO
  551.     If strLetter = "BU" Then strLetter = strBU
  552.     If strLetter = "BYA" Then strLetter = strBI & strSmallYA
  553.     If strLetter = "BYO" Then strLetter = strBI & strSmallYO
  554.     If strLetter = "BYU" Then strLetter = strBI & strSmallYU
  555.     If strLetter = "DA" Then strLetter = strDA
  556.     If strLetter = "DE" Then strLetter = strDE
  557.     If strLetter = "DI" Then strLetter = strDI
  558.     If strLetter = "DO" Then strLetter = strDO
  559.     If strLetter = "DU" Then strLetter = strDU
  560.     If strLetter = "DYA" Then strLetter = strDI & strSmallYA
  561.     If strLetter = "DYO" Then strLetter = strDI & strSmallYO
  562.     If strLetter = "DYU" Then strLetter = strDI & strSmallYU
  563.     If strLetter = "DYE" Then strLetter = strDI & strSmallE
  564.     If strLetter = "GA" Then strLetter = strGA
  565.     If strLetter = "GE" Then strLetter = strGE
  566.     If strLetter = "GI" Then strLetter = strGI
  567.     If strLetter = "GO" Then strLetter = strGO
  568.     If strLetter = "GU" Then strLetter = strGU
  569.     If strLetter = "GYA" Then strLetter = strGI & strSmallYA
  570.     If strLetter = "GYO" Then strLetter = strGI & strSmallYO
  571.     If strLetter = "GYU" Then strLetter = strGI & strSmallYU
  572.     If strLetter = "HA" Then strLetter = strHA
  573.     If strLetter = "HE" Then strLetter = strHE
  574.     If strLetter = "HI" Then strLetter = strHI
  575.     If strLetter = "HO" Then strLetter = strHO
  576.     If strLetter = "HU" Then strLetter = strHU
  577.     If strLetter = "HYA" Then strLetter = strHI & strSmallYA
  578.     If strLetter = "HYO" Then strLetter = strHI & strSmallYO
  579.     If strLetter = "HYU" Then strLetter = strHI & strSmallYU
  580.     If strLetter = "KA" Then strLetter = strKA
  581.     If strLetter = "KE" Then strLetter = strKE
  582.     If strLetter = "KI" Then strLetter = strKI
  583.     If strLetter = "KO" Then strLetter = strKO
  584.     If strLetter = "KU" Then strLetter = strKU
  585.     If strLetter = "KYA" Then strLetter = strKI & strSmallYA
  586.     If strLetter = "KYO" Then strLetter = strKI & strSmallYO
  587.     If strLetter = "KYU" Then strLetter = strKI & strSmallYU
  588.     If strLetter = "MA" Then strLetter = strMA
  589.     If strLetter = "ME" Then strLetter = strME
  590.     If strLetter = "MI" Then strLetter = strMI
  591.     If strLetter = "MO" Then strLetter = strMO
  592.     If strLetter = "MU" Then strLetter = strMU
  593.     If strLetter = "MYA" Then strLetter = strMI & strSmallYA
  594.     If strLetter = "MYO" Then strLetter = strMI & strSmallYO
  595.     If strLetter = "MYU" Then strLetter = strMI & strSmallYU
  596.     If strLetter = "NA" Then strLetter = strNA
  597.     If strLetter = "NE" Then strLetter = strNE
  598.     If strLetter = "NI" Then strLetter = strNI
  599.     If strLetter = "NO" Then strLetter = strNO
  600.     If strLetter = "NU" Then strLetter = strNU
  601.     If strLetter = "NYA" Then strLetter = strNI & strSmallYA
  602.     If strLetter = "NYO" Then strLetter = strNI & strSmallYO
  603.     If strLetter = "NYU" Then strLetter = strNI & strSmallYU
  604.     If strLetter = "N" Then strLetter = strN
  605.     If strLetter = "PA" Then strLetter = strPA
  606.     If strLetter = "PE" Then strLetter = strPE
  607.     If strLetter = "PI" Then strLetter = strPI
  608.     If strLetter = "PO" Then strLetter = strPO
  609.     If strLetter = "PU" Then strLetter = strPU
  610.     If strLetter = "PYA" Then strLetter = strPI & strSmallYA
  611.     If strLetter = "PYO" Then strLetter = strPI & strSmallYO
  612.     If strLetter = "PYU" Then strLetter = strPI & strSmallYU
  613.     If strLetter = "Q" Then strLetter = strSmallTSU
  614.     If strLetter = "RA" Then strLetter = strRA
  615.     If strLetter = "RE" Then strLetter = strRE
  616.     If strLetter = "RI" Then strLetter = strRI
  617.     If strLetter = "RO" Then strLetter = strRO
  618.     If strLetter = "RU" Then strLetter = strRU
  619.     If strLetter = "RYA" Then strLetter = strRI & strSmallYA
  620.     If strLetter = "RYO" Then strLetter = strRI & strSmallYO
  621.     If strLetter = "RYU" Then strLetter = strRI & strSmallYU
  622.     If strLetter = "SA" Then strLetter = strSA
  623.     If strLetter = "SE" Then strLetter = strSE
  624.     If strLetter = "SO" Then strLetter = strSO
  625.     If strLetter = "SU" Then strLetter = strSU
  626.     If strLetter = "SHA" Then strLetter = strSHI & strSmallYA
  627.     If strLetter = "SHE" Then strLetter = strSHI & strSmallE
  628.     If strLetter = "SHI" Then strLetter = strSHI
  629.     If strLetter = "SHO" Then strLetter = strSHI & strSmallYO
  630.     If strLetter = "SHU" Then strLetter = strSHI & strSmallYU
  631.     If strLetter = "TA" Then strLetter = strTA
  632.     If strLetter = "TE" Then strLetter = strTE
  633.     If strLetter = "TO" Then strLetter = strTO
  634.     If strLetter = "TSU" Then strLetter = strTSU
  635.     If strLetter = "CHA" Then strLetter = strCHI & strSmallYA
  636.     If strLetter = "CHE" Then strLetter = strCHI & strSmallE
  637.     If strLetter = "CHI" Then strLetter = strCHI
  638.     If strLetter = "CHO" Then strLetter = strCHI & strSmallYO
  639.     If strLetter = "CHU" Then strLetter = strCHI & strSmallYU
  640.     If strLetter = "WA" Then strLetter = strWA
  641.     If strLetter = "WO" Then strLetter = strWO
  642.     If strLetter = "YA" Then strLetter = strYA
  643.     If strLetter = "YO" Then strLetter = strYO
  644.     If strLetter = "YU" Then strLetter = strYU
  645.     If strLetter = "ZA" Then strLetter = strZA
  646.     If strLetter = "ZE" Then strLetter = strZE
  647.     If strLetter = "ZI" Then strLetter = strZI
  648.     If strLetter = "ZO" Then strLetter = strZO
  649.     If strLetter = "ZU" Then strLetter = strZU
  650.     If strLetter = "ZYA" Then strLetter = strZI & strSmallYA
  651.     If strLetter = "ZYO" Then strLetter = strZI & strSmallYO
  652.     If strLetter = "ZYU" Then strLetter = strZI & strSmallYU
  653.     If strLetter = "ZYE" Then strLetter = strZI & strSmallE
  654.     If strLetter = "-" Then strLetter = strLength
  655.     If strLetter = "1" Then strLetter = str1
  656.     If strLetter = "2" Then strLetter = str2
  657.     If strLetter = "3" Then strLetter = str3
  658.     If strLetter = "4" Then strLetter = str4
  659.     If strLetter = "5" Then strLetter = str5
  660.     If strLetter = "6" Then strLetter = str6
  661.     If strLetter = "7" Then strLetter = str7
  662.     If strLetter = "8" Then strLetter = str8
  663.     If strLetter = "9" Then strLetter = str9
  664.     If strLetter = "0" Then strLetter = str0
  665.     If strLetter = "." Then strLetter = strDot
  666.     strNew = strNew & strLetter
  667.     strLetter = ""
  668.     Next
  669. Text2.Text = strNew
  670. End Sub
  671.