       .  5:     Visual Basic ( 1)
  


                    ()  -     ,   ,           .    Visual Basic   XVIII ,      4, 5  6.    5   VIII.              .  19.               . 19.1.     . 19.2.  . 19.3.    ..    VB     .                 VB    Visual Studio.





 

       .  5:     Visual Basic ( 1)








                                  , ,      ,        Visual Basic         Microsoft ().

  ()     ,    ,   ,         .     , ,      ,    ,      -    .  ,         .           .      , ,     ,   ,      ,        .            .

  (, , ) Visual Studio (  VS)   -               ,             .  ,    VS      ,       ,       (    )            Visual C#, Visual Basic  Visual C++.      (   )    ,     ,              .

       ,      .           Visual Basic        VB.     ,        (          ZharkovPress.ru     )    ,         .           ,            VB,      ;       ,           Visual Basic     .    ,        ,    ,   (   ,     ,       ),      ,     .         ,           .     .           (        ,    )      ( : ,  )           VS.               (      )        .                       ZharkovPress.ru (    Help  Visual Studio,  ,      ),       , ,     (   )   , , , , ,      (  )     .                 VS  (  ),            ,        .

    XVIII     4, 5  6     Visual Basic. .  I.   Visual Basic.  1.   .  2.         .  3.              .  II.         .  4.      .  5.   ,       .  6.    .  7.   ,      .  8.       .  9.         .  10.       ,         .  11.      .  III.       .  12.            .  IV.            .  13.               .  V.        ,    .  14.        ,           ,    .  15.        ,           ,    .  VI.               .  16.               12 .  17.               7      ,     .  VII.        -       .  18.        -.  VIII.              .  19.               .  IX.               .  20.           .  21.           5     .  X.        .  22.                .  XI.               . 23.                .  XII.       .  24.                  .  XIII.        .  25.              .  XIV.         ,   .  26.          ,          .  XV.       .  27.         .  XVI.                .  28.         .  29.    .  30.  .  XVII.          .  31.    .  XVIII. ,          .  32.     . .  .

   5    ,      , . .  VIII.              .  19.               . .  .

        ,    Microsoft,      Microsof.                   ,        .     ,        (              ZharkovPress.ru)  ,                ,                 ,            .

                      ,    (  )    Visual Basic     , ,   ,                           .      ,   ,      , , , ,    .

    (     )         .

,          email  :

ZharkovPress.ru




 VIII.              







 19.               







19.1.      




              .        ,     .

             1-   .  (   1) ,      .    ,     ,     .    (   2)       .    ,          .      ,  ,    .        .

       ,   Hang Man  Ibrahim  1.3.2005   www.planet-source-code.com,        Visual Studio.

,  ,      Button     .      (   Enter)    ,    ,       ,     .  ,           (    )    ,           .

 .

1.        (. 19.1).  ,   TextBox  ,   1  .

  1      ,     (   Shift)      TextBox, ,  exception ().     , ,  ,    .

       2,    ( ), . 19.2.   1   2,      (  )    ,    .

    (. 19.3).

2.  2               (       ).

,  2     O.      .                    (. 19.4).     .








. 19.1.  .




. 19.2.  1  .








. 19.3.  1   .




. 19.4.  2   .

3. , ,  2     .      .                10      (. 19.5).     .








. 19.5.       .

4. , ,  2     E.      .       E                (. 19.6).     .

5.         ,   .  . 19.7 ,        ,     10   10   . ,         F,    .

  11-    .

6.    MessageBox      . (. 19.8).

  ,     OK    Enter.

7.   2 ,      1 (    1   ,      2),  2   .

8.    MessageBox   Exception (. 19.9).

             ( ).

,      2,  10    .

9.            (. 19.10).








. 19.6.    E  .




. 19.7.    10-    .







. 19.8.       .. . 19.9.  .








. 19.10.      .

10.      . ,   1      ,     (   Shift)      TextBox, ,  thanks ().

       2,    ( ), . 19.11.   1   2,      (  )    ,    .    .  2              (       ).                   ,     10     .      ,    .








. 19.11.  10    .

11. ,   10    .

   ,     ,    2.

12.           .

13.         .

14.    MessageBox      (. 19.12).

  ,     OK    Enter.

15.    MessageBox        (. 19.13).















. 19.12.  MessageBox  . . 19.13.  MessageBox  .

      Yes  No     .

16.   No,      .

   ( ) , ,  ,      .      ,   ,       .

17.   Yes,  .             Close.

18.      ,         ,      (. 19.14).








. 19.14.

   .

       ,        .




19.2.   




    : VS   New Project   Project types    Visual Basic, Windows,   Templates   Windows Forms Application,   Name    , , HangMan   OK.  ,   Form1      (. 19.15).      ,        . ,   Properties   Font   Times New Roman, 14, Bold.

C   Toolbox    (    )   .

 Label    Name (..       )   1.  :.

  TextBox,     Properties:   Name = Word_in,     MaxLenght = 20,      ( ) PasswordChar = *.

 Label    Name (..       )   2. ٸ:.

 Button,     Properties   Name = Done   Text = .

 LinkLabel,     Properties   Name = check_answer ( )   Text = .

  Label,     Properties   Name = Chr1, Chr2, Chr3, , Chr20 (     )   Text         _.








. 19.15.  Form1   .

  Label,     Properties   Name = dash1, dash2, dash3, , dash20 (     )   Text         _.

 Label    Name (..       )     10   :.

                PictureBox,     Properties   BackColor   , , ControlText.

        Label,     Properties   Name = f_chr1, f_chr2, f_chr3, , f_chr12 (     )    Text    11 .   11     11 ,   ForeColor  11     Red.       Name = f_chr12   Text  - , ,   _,    BackColor   , , ControlText ( ,     ,    ).

 Label    Name (..       )   3.   :.

  (     )  Button,     Properties      , Name = A, B, C, D, Er, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z (     )   Text,    (   ). ,   Visual Basic    ,    e,    E    . ,      e,    System.EventArgs   -  ,    Name = E,      Name = Er.

       PictureBox,     Properties   Name = effects.       Size = 125; 314.       (  )   :  Properties (  )   Image (. 19.16)     ,    Select Resource   Local resource,   Import,    Open  (,       )     2.jpg    Open (      ).        PictureBox (. ).








. 19.16.  SE  Properties.

     PictureBox  ,     ,     PictureBox,     Properties     : Name = pic_sad, BackColor = ControlLightLight, SizeMode = StretchImage, Visible = False.      Size = 58; 46.         ( )   :  Properties (  )   Image     ,    Select Resource   Local resource,   Import,    Open  (,       )     sad_face.jpg    Open (      ).        PictureBox.

     PictureBox  ,     ,     PictureBox,     Properties     : Name = pic_happy, BackColor = ControlLightLight, SizeMode = StretchImage, Visible = False.      Size = 58; 46.         ( )   :  Properties (  )   Image     ,    Select Resource   Local resource,   Import,    Open  (,       )     happy_face.jpg    Open (      ).        PictureBox (. ).

    PictureBox           .         (  ),    (  ).

, ,     PictureBox,    SizeMode = StretchImage           ,   .

     MenuStrip       ,   . ٸ    menuStrip1,    Form1   .   Form1     Type Here ( ),        (   ): Game, New Game, Exit; Help, How to, About.    Properties (     )   Text      ,  . 19.17  19.18.















. 19.17.   . . 19.18.   .

     ,         , , Sounds.      ,   Solution Explorer      ,     Add, New Folder,            Enter.         :       ,     Add, Existing Item,   Add Existing Item   Files of type  All Files,     (,       )     Ctrl       Add.   Solution Explorer     (.  ).

      (  )   Project  Add Windows Form,   Add New Item         Add.   VS    Form2     Solution Explorer   Form2.vb. ,  ,    (. 19.18),       Size (420; 420).          TextBox,     Properties   Multiline   True (  ).    Button   Text = .








. 19.18.

 Form2.




19.3.    




  Form1.vb (,  : File, Open, File)    Form1     .

 19.1.   .

'     20 ( ) 

'  0,1,2,3,,19:

Dim str(19) As String

Dim nums As Integer

   Form1        Button            Name = A (   Properties      Events      ).

         .

 19.2. -  .

Private Sub A_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles A.Click

A.Enabled = False

nums = Len(Word_in.Text)

Try

str(0) = Mid(Word_in.Text, nums, 1)

str(1) = Mid(Word_in.Text, nums  1, 1)

str(2) = Mid(Word_in.Text, nums  2, 1)

str(3) = Mid(Word_in.Text, nums  3, 1)

str(4) = Mid(Word_in.Text, nums  4, 1)

str(5) = Mid(Word_in.Text, nums  5, 1)

str(6) = Mid(Word_in.Text, nums  6, 1)

str(7) = Mid(Word_in.Text, nums  7, 1)

str(8) = Mid(Word_in.Text, nums  8, 1)

str(9) = Mid(Word_in.Text, nums  9, 1)

str(10) = Mid(Word_in.Text, nums  10, 1)

str(11) = Mid(Word_in.Text, nums  11, 1)

str(12) = Mid(Word_in.Text, nums  12, 1)

str(13) = Mid(Word_in.Text, nums  13, 1)

str(14) = Mid(Word_in.Text, nums  14, 1)

str(15) = Mid(Word_in.Text, nums  15, 1)

str(16) = Mid(Word_in.Text, nums  16, 1)

str(17) = Mid(Word_in.Text, nums  17, 1)

str(18) = Mid(Word_in.Text, nums  18, 1)

str(19) = Mid(Word_in.Text, nums  19, 1)

Catch ex As Exception

End Try

If Word_in.TextLength = 1 Then

If str(0) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 2 Then

If str(1) = "a" Then

Chr1.Text = "A"

End If

If str(0) = "a" Then

Chr2.Text = "A"

End If

ElseIf Word_in.TextLength = 3 Then

If str(0) = "a" Then

Chr3.Text = "A"

End If

If str(1) = "a" Then

Chr2.Text = "A"

End If

If str(2) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 4 Then

If str(0) = "a" Then

Chr4.Text = "A"

End If

If str(1) = "a" Then

Chr3.Text = "A"

End If

If str(2) = "a" Then

Chr2.Text = "A"

End If

If str(3) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 5 Then

If str(0) = "a" Then

Chr5.Text = "A"

End If

If str(1) = "a" Then

Chr4.Text = "A"

End If

If str(2) = "a" Then

Chr3.Text = "A"

End If

If str(3) = "a" Then

Chr2.Text = "A"

End If

If str(4) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 6 Then

If str(0) = "a" Then

Chr6.Text = "A"

End If

If str(1) = "a" Then

Chr5.Text = "A"

End If

If str(2) = "a" Then

Chr4.Text = "A"

End If

If str(3) = "a" Then

Chr3.Text = "A"

End If

If str(4) = "a" Then

Chr2.Text = "A"

End If

If str(5) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 7 Then

If str(0) = "a" Then

Chr7.Text = "A"

End If

If str(1) = "a" Then

Chr6.Text = "A"

End If

If str(2) = "a" Then

Chr5.Text = "A"

End If

If str(3) = "a" Then

Chr4.Text = "A"

End If

If str(4) = "a" Then

Chr3.Text = "A"

End If

If str(5) = "a" Then

Chr2.Text = "A"

End If

If str(6) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 8 Then

If str(0) = "a" Then

Chr8.Text = "A"

End If

If str(1) = "a" Then

Chr7.Text = "A"

End If

If str(2) = "a" Then

Chr6.Text = "A"

End If

If str(3) = "a" Then

Chr5.Text = "A"

End If

If str(4) = "a" Then

Chr4.Text = "A"

End If

If str(5) = "a" Then

Chr3.Text = "A"

End If

If str(6) = "a" Then

Chr2.Text = "A"

End If

If str(7) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 9 Then

If str(0) = "a" Then

Chr9.Text = "A"

End If

If str(1) = "a" Then

Chr8.Text = "A"

End If

If str(2) = "a" Then

Chr7.Text = "A"

End If

If str(3) = "a" Then

Chr6.Text = "A"

End If

If str(4) = "a" Then

Chr5.Text = "A"

End If

If str(5) = "a" Then

Chr4.Text = "A"

End If

If str(6) = "a" Then

Chr3.Text = "A"

End If

If str(7) = "a" Then

Chr2.Text = "A"

End If

If str(8) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 10 Then

If str(0) = "a" Then

Chr10.Text = "A"

End If

If str(1) = "a" Then

Chr9.Text = "A"

End If

If str(2) = "a" Then

Chr8.Text = "A"

End If

If str(3) = "a" Then

Chr7.Text = "A"

End If

If str(4) = "a" Then

Chr6.Text = "A"

End If

If str(5) = "a" Then

Chr5.Text = "A"

End If

If str(6) = "a" Then

Chr4.Text = "A"

End If

If str(7) = "a" Then

Chr3.Text = "A"

End If

If str(8) = "a" Then

Chr2.Text = "A"

End If

If str(9) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 11 Then

If str(0) = "a" Then

Chr11.Text = "A"

End If

If str(1) = "a" Then

Chr10.Text = "A"

End If

If str(2) = "a" Then

Chr9.Text = "A"

End If

If str(3) = "a" Then

Chr8.Text = "A"

End If

If str(4) = "a" Then

Chr7.Text = "A"

End If

If str(5) = "a" Then

Chr6.Text = "A"

End If

If str(6) = "a" Then

Chr5.Text = "A"

End If

If str(7) = "a" Then

Chr4.Text = "A"

End If

If str(8) = "a" Then

Chr3.Text = "A"

End If

If str(9) = "a" Then

Chr2.Text = "A"

End If

If str(10) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 12 Then

If str(0) = "a" Then

Chr12.Text = "A"

End If

If str(1) = "a" Then

Chr11.Text = "A"

End If

If str(2) = "a" Then

Chr10.Text = "A"

End If

If str(3) = "a" Then

Chr9.Text = "A"

End If

If str(4) = "a" Then

Chr8.Text = "A"

End If

If str(5) = "a" Then

Chr7.Text = "A"

End If

If str(6) = "a" Then

Chr6.Text = "A"

End If

If str(7) = "a" Then

Chr5.Text = "A"

End If

If str(8) = "a" Then

Chr4.Text = "A"

End If

If str(9) = "a" Then

Chr3.Text = "A"

End If

If str(10) = "a" Then

Chr2.Text = "A"

End If

If str(11) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 13 Then

If str(0) = "a" Then

Chr13.Text = "A"

End If

If str(1) = "a" Then

Chr12.Text = "A"

End If

If str(2) = "a" Then

Chr11.Text = "A"

End If

If str(3) = "a" Then

Chr10.Text = "A"

End If

If str(4) = "a" Then

Chr9.Text = "A"

End If

If str(5) = "a" Then

Chr8.Text = "A"

End If

If str(6) = "a" Then

Chr7.Text = "A"

End If

If str(7) = "a" Then

Chr6.Text = "A"

End If

If str(8) = "a" Then

Chr5.Text = "A"

End If

If str(9) = "a" Then

Chr4.Text = "A"

End If

If str(10) = "a" Then

Chr3.Text = "A"

End If

If str(11) = "a" Then

Chr2.Text = "A"

End If

If str(12) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 14 Then

If str(0) = "a" Then

Chr14.Text = "A"

End If

If str(1) = "a" Then

Chr13.Text = "A"

End If

If str(2) = "a" Then

Chr12.Text = "A"

End If

If str(3) = "a" Then

Chr11.Text = "A"

End If

If str(4) = "a" Then

Chr10.Text = "A"

End If

If str(5) = "a" Then

Chr9.Text = "A"

End If

If str(6) = "a" Then

Chr8.Text = "A"

End If

If str(7) = "a" Then

Chr7.Text = "A"

End If

If str(8) = "a" Then

Chr6.Text = "A"

End If

If str(9) = "a" Then

Chr5.Text = "A"

End If

If str(10) = "a" Then

Chr4.Text = "A"

End If

If str(11) = "a" Then

Chr3.Text = "A"

End If

If str(12) = "a" Then

Chr2.Text = "A"

End If

If str(13) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 15 Then

If str(0) = "a" Then

Chr15.Text = "A"

End If

If str(1) = "a" Then

Chr14.Text = "A"

End If

If str(2) = "a" Then

Chr13.Text = "A"

End If

If str(3) = "a" Then

Chr12.Text = "A"

End If

If str(4) = "a" Then

Chr11.Text = "A"

End If

If str(5) = "a" Then

Chr10.Text = "A"

End If

If str(6) = "a" Then

Chr9.Text = "A"

End If

If str(7) = "a" Then

Chr8.Text = "A"

End If

If str(8) = "a" Then

Chr7.Text = "A"

End If

If str(9) = "a" Then

Chr6.Text = "A"

End If

If str(10) = "a" Then

Chr5.Text = "A"

End If

If str(11) = "a" Then

Chr4.Text = "A"

End If

If str(12) = "a" Then

Chr3.Text = "A"

End If

If str(13) = "a" Then

Chr2.Text = "A"

End If

If str(14) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 16 Then

If str(0) = "a" Then

Chr16.Text = "A"

End If

If str(1) = "a" Then

Chr15.Text = "A"

End If

If str(2) = "a" Then

Chr14.Text = "A"

End If

If str(3) = "a" Then

Chr13.Text = "A"

End If

If str(4) = "a" Then

Chr12.Text = "A"

End If

If str(5) = "a" Then

Chr11.Text = "A"

End If

If str(6) = "a" Then

Chr10.Text = "A"

End If

If str(7) = "a" Then

Chr9.Text = "A"

End If

If str(8) = "a" Then

Chr8.Text = "A"

End If

If str(9) = "a" Then

Chr7.Text = "A"

End If

If str(10) = "a" Then

Chr6.Text = "A"

End If

If str(11) = "a" Then

Chr5.Text = "A"

End If

If str(12) = "a" Then

Chr4.Text = "A"

End If

If str(13) = "a" Then

Chr3.Text = "A"

End If

If str(14) = "a" Then

Chr2.Text = "A"

End If

If str(15) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 17 Then

If str(0) = "a" Then

Chr17.Text = "A"

End If

If str(1) = "a" Then

Chr16.Text = "A"

End If

If str(2) = "a" Then

Chr15.Text = "A"

End If

If str(3) = "a" Then

Chr14.Text = "A"

End If

If str(4) = "a" Then

Chr13.Text = "A"

End If

If str(5) = "a" Then

Chr12.Text = "A"

End If

If str(6) = "a" Then

Chr11.Text = "A"

End If

If str(7) = "a" Then

Chr10.Text = "A"

End If

If str(8) = "a" Then

Chr9.Text = "A"

End If

If str(9) = "a" Then

Chr8.Text = "A"

End If

If str(10) = "a" Then

Chr7.Text = "A"

End If

If str(11) = "a" Then

Chr6.Text = "A"

End If

If str(12) = "a" Then

Chr5.Text = "A"

End If

If str(13) = "a" Then

Chr4.Text = "A"

End If

If str(14) = "a" Then

Chr3.Text = "A"

End If

If str(15) = "a" Then

Chr2.Text = "A"

End If

If str(16) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 18 Then

If str(0) = "a" Then

Chr18.Text = "A"

End If

If str(1) = "a" Then

Chr17.Text = "A"

End If

If str(2) = "a" Then

Chr16.Text = "A"

End If

If str(3) = "a" Then

Chr15.Text = "A"

End If

If str(4) = "a" Then

Chr14.Text = "A"

End If

If str(5) = "a" Then

Chr13.Text = "A"

End If

If str(6) = "a" Then

Chr12.Text = "A"

End If

If str(7) = "a" Then

Chr11.Text = "A"

End If

If str(8) = "a" Then

Chr10.Text = "A"

End If

If str(9) = "a" Then

Chr9.Text = "A"

End If

If str(10) = "a" Then

Chr8.Text = "A"

End If

If str(11) = "a" Then

Chr7.Text = "A"

End If

If str(12) = "a" Then

Chr6.Text = "A"

End If

If str(13) = "a" Then

Chr5.Text = "A"

End If

If str(14) = "a" Then

Chr4.Text = "A"

End If

If str(15) = "a" Then

Chr3.Text = "A"

End If

If str(16) = "a" Then

Chr2.Text = "A"

End If

If str(17) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 19 Then

If str(0) = "a" Then

Chr19.Text = "A"

End If

If str(1) = "a" Then

Chr18.Text = "A"

End If

If str(2) = "a" Then

Chr17.Text = "A"

End If

If str(3) = "a" Then

Chr16.Text = "A"

End If

If str(4) = "a" Then

Chr15.Text = "A"

End If

If str(5) = "a" Then

Chr14.Text = "A"

End If

If str(6) = "a" Then

Chr13.Text = "A"

End If

If str(7) = "a" Then

Chr12.Text = "A"

End If

If str(8) = "a" Then

Chr11.Text = "A"

End If

If str(9) = "a" Then

Chr10.Text = "A"

End If

If str(10) = "a" Then

Chr9.Text = "A"

End If

If str(11) = "a" Then

Chr8.Text = "A"

End If

If str(12) = "a" Then

Chr7.Text = "A"

End If

If str(13) = "a" Then

Chr6.Text = "A"

End If

If str(14) = "a" Then

Chr5.Text = "A"

End If

If str(15) = "a" Then

Chr4.Text = "A"

End If

If str(16) = "a" Then

Chr3.Text = "A"

End If

If str(17) = "a" Then

Chr2.Text = "A"

End If

If str(18) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 20 Then

If str(0) = "a" Then

Chr20.Text = "A"

End If

If str(1) = "a" Then

Chr19.Text = "A"

End If

If str(2) = "a" Then

Chr18.Text = "A"

End If

If str(3) = "a" Then

Chr17.Text = "A"

End If

If str(4) = "a" Then

Chr16.Text = "A"

End If

If str(5) = "a" Then

Chr15.Text = "A"

End If

If str(6) = "a" Then

Chr14.Text = "A"

End If

If str(7) = "a" Then

Chr13.Text = "A"

End If

If str(8) = "a" Then

Chr12.Text = "A"

End If

If str(9) = "a" Then

Chr11.Text = "A"

End If

If str(10) = "a" Then

Chr10.Text = "A"

End If

If str(11) = "a" Then

Chr9.Text = "A"

End If

If str(12) = "a" Then

Chr8.Text = "A"

End If

If str(13) = "a" Then

Chr7.Text = "A"

End If

If str(14) = "a" Then

Chr6.Text = "A"

End If

If str(15) = "a" Then

Chr5.Text = "A"

End If

If str(16) = "a" Then

Chr4.Text = "A"

End If

If str(17) = "a" Then

Chr3.Text = "A"

End If

If str(18) = "a" Then

Chr2.Text = "A"

End If

If str(19) = "a" Then

Chr1.Text = "A"

End If

End If

If InStr(Word_in.Text, "a", CompareMethod.Text) = 0 Then

If f_chr1.Text = "" Then

f_chr1.Text = "A"

ElseIf f_chr2.Text = "" Then

f_chr2.Text = "A"

ElseIf f_chr3.Text = "" Then

f_chr3.Text = "A"

ElseIf f_chr4.Text = "" Then

f_chr4.Text = "A"

ElseIf f_chr5.Text = "" Then

f_chr5.Text = "A"

ElseIf f_chr6.Text = "" Then

f_chr6.Text = "A"

ElseIf f_chr7.Text = "" Then

f_chr7.Text = "A"

ElseIf f_chr8.Text = "" Then

f_chr8.Text = "A"

ElseIf f_chr9.Text = "" Then

f_chr9.Text = "A"

ElseIf f_chr10.Text = "" Then

f_chr10.Text = "A"

ElseIf f_chr11.Text = "" Then

f_chr11.Text = "A"

End If

End If

End Sub

    Button    2-   Name = B.          .

 19.3. -  .

Private Sub B_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles B.Click

B.Enabled = False

nums = Len(Word_in.Text)

Try

str(0) = Mid(Word_in.Text, nums, 1)

str(1) = Mid(Word_in.Text, nums  1, 1)

str(2) = Mid(Word_in.Text, nums  2, 1)

str(3) = Mid(Word_in.Text, nums  3, 1)

str(4) = Mid(Word_in.Text, nums  4, 1)

str(5) = Mid(Word_in.Text, nums  5, 1)

str(6) = Mid(Word_in.Text, nums  6, 1)

str(7) = Mid(Word_in.Text, nums  7, 1)

str(8) = Mid(Word_in.Text, nums  8, 1)

str(9) = Mid(Word_in.Text, nums  9, 1)

str(10) = Mid(Word_in.Text, nums  10, 1)

str(11) = Mid(Word_in.Text, nums  11, 1)

str(12) = Mid(Word_in.Text, nums  12, 1)

str(13) = Mid(Word_in.Text, nums  13, 1)

str(14) = Mid(Word_in.Text, nums  14, 1)

str(15) = Mid(Word_in.Text, nums  15, 1)

str(16) = Mid(Word_in.Text, nums  16, 1)

str(17) = Mid(Word_in.Text, nums  17, 1)

str(18) = Mid(Word_in.Text, nums  18, 1)

str(19) = Mid(Word_in.Text, nums  19, 1)

Catch ex As Exception

End Try

If Word_in.TextLength = 1 Then

If str(0) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 2 Then

If str(1) = "b" Then

Chr1.Text = "B"

End If

If str(0) = "b" Then

Chr2.Text = "B"

End If

ElseIf Word_in.TextLength = 3 Then

If str(0) = "b" Then

Chr3.Text = "B"

End If

If str(1) = "b" Then

Chr2.Text = "B"

End If

If str(2) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 4 Then

If str(0) = "b" Then

Chr4.Text = "B"

End If

If str(1) = "b" Then

Chr3.Text = "B"

End If

If str(2) = "b" Then

Chr2.Text = "B"

End If

If str(3) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 5 Then

If str(0) = "b" Then

Chr5.Text = "B"

End If

If str(1) = "b" Then

Chr4.Text = "B"

End If

If str(2) = "b" Then

Chr3.Text = "B"

End If

If str(3) = "b" Then

Chr2.Text = "B"

End If

If str(4) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 6 Then

If str(0) = "b" Then

Chr6.Text = "B"

End If

If str(1) = "b" Then

Chr5.Text = "B"

End If

If str(2) = "b" Then

Chr4.Text = "B"

End If

If str(3) = "b" Then

Chr3.Text = "B"

End If

If str(4) = "b" Then

Chr2.Text = "B"

End If

If str(5) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 7 Then

If str(0) = "b" Then

Chr7.Text = "B"

End If

If str(1) = "b" Then

Chr6.Text = "B"

End If

If str(2) = "b" Then

Chr5.Text = "B"

End If

If str(3) = "b" Then

Chr4.Text = "B"

End If

If str(4) = "b" Then

Chr3.Text = "B"

End If

If str(5) = "b" Then

Chr2.Text = "B"

End If

If str(6) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 8 Then

If str(0) = "b" Then

Chr8.Text = "B"

End If

If str(1) = "b" Then

Chr7.Text = "B"

End If

If str(2) = "b" Then

Chr6.Text = "B"

End If

If str(3) = "b" Then

Chr5.Text = "B"

End If

If str(4) = "b" Then

Chr4.Text = "B"

End If

If str(5) = "b" Then

Chr3.Text = "B"

End If

If str(6) = "b" Then

Chr2.Text = "B"

End If

If str(7) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 9 Then

If str(0) = "b" Then

Chr9.Text = "B"

End If

If str(1) = "b" Then

Chr8.Text = "B"

End If

If str(2) = "b" Then

Chr7.Text = "B"

End If

If str(3) = "b" Then

Chr6.Text = "B"

End If

If str(4) = "b" Then

Chr5.Text = "B"

End If

If str(5) = "b" Then

Chr4.Text = "B"

End If

If str(6) = "b" Then

Chr3.Text = "B"

End If

If str(7) = "b" Then

Chr2.Text = "B"

End If

If str(8) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 10 Then

If str(0) = "b" Then

Chr10.Text = "B"

End If

If str(1) = "b" Then

Chr9.Text = "B"

End If

If str(2) = "b" Then

Chr8.Text = "B"

End If

If str(3) = "b" Then

Chr7.Text = "B"

End If

If str(4) = "b" Then

Chr6.Text = "B"

End If

If str(5) = "b" Then

Chr5.Text = "B"

End If

If str(6) = "b" Then

Chr4.Text = "B"

End If

If str(7) = "b" Then

Chr3.Text = "B"

End If

If str(8) = "b" Then

Chr2.Text = "B"

End If

If str(9) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 11 Then

If str(0) = "b" Then

Chr11.Text = "B"

End If

If str(1) = "b" Then

Chr10.Text = "B"

End If

If str(2) = "b" Then

Chr9.Text = "B"

End If

If str(3) = "b" Then

Chr8.Text = "B"

End If

If str(4) = "b" Then

Chr7.Text = "B"

End If

If str(5) = "b" Then

Chr6.Text = "B"

End If

If str(6) = "b" Then

Chr5.Text = "B"

End If

If str(7) = "b" Then

Chr4.Text = "B"

End If

If str(8) = "b" Then

Chr3.Text = "B"

End If

If str(9) = "b" Then

Chr2.Text = "B"

End If

If str(10) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 12 Then

If str(0) = "b" Then

Chr12.Text = "B"

End If

If str(1) = "b" Then

Chr11.Text = "B"

End If

If str(2) = "b" Then

Chr10.Text = "B"

End If

If str(3) = "b" Then

Chr9.Text = "B"

End If

If str(4) = "b" Then

Chr8.Text = "B"

End If

If str(5) = "b" Then

Chr7.Text = "B"

End If

If str(6) = "b" Then

Chr6.Text = "B"

End If

If str(7) = "b" Then

Chr5.Text = "B"

End If

If str(8) = "b" Then

Chr4.Text = "B"

End If

If str(9) = "b" Then

Chr3.Text = "B"

End If

If str(10) = "b" Then

Chr2.Text = "B"

End If

If str(11) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 13 Then

If str(0) = "b" Then

Chr13.Text = "B"

End If

If str(1) = "b" Then

Chr12.Text = "B"

End If

If str(2) = "b" Then

Chr11.Text = "B"

End If

If str(3) = "b" Then

Chr10.Text = "B"

End If

If str(4) = "b" Then

Chr9.Text = "B"

End If

If str(5) = "b" Then

Chr8.Text = "B"

End If

If str(6) = "b" Then

Chr7.Text = "B"

End If

If str(7) = "b" Then

Chr6.Text = "B"

End If

If str(8) = "b" Then

Chr5.Text = "B"

End If

If str(9) = "b" Then

Chr4.Text = "B"

End If

If str(10) = "b" Then

Chr3.Text = "B"

End If

If str(11) = "b" Then

Chr2.Text = "B"

End If

If str(12) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 14 Then

If str(0) = "b" Then

Chr14.Text = "B"

End If

If str(1) = "b" Then

Chr13.Text = "B"

End If

If str(2) = "b" Then

Chr12.Text = "B"

End If

If str(3) = "b" Then

Chr11.Text = "B"

End If

If str(4) = "b" Then

Chr10.Text = "B"

End If

If str(5) = "b" Then

Chr9.Text = "B"

End If

If str(6) = "b" Then

Chr8.Text = "B"

End If

If str(7) = "b" Then

Chr7.Text = "B"

End If

If str(8) = "b" Then

Chr6.Text = "B"

End If

If str(9) = "b" Then

Chr5.Text = "B"

End If

If str(10) = "b" Then

Chr4.Text = "B"

End If

If str(11) = "b" Then

Chr3.Text = "B"

End If

If str(12) = "b" Then

Chr2.Text = "B"

End If

If str(13) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 15 Then

If str(0) = "b" Then

Chr15.Text = "B"

End If

If str(1) = "b" Then

Chr14.Text = "B"

End If

If str(2) = "b" Then

Chr13.Text = "B"

End If

If str(3) = "b" Then

Chr12.Text = "B"

End If

If str(4) = "b" Then

Chr11.Text = "B"

End If

If str(5) = "b" Then

Chr10.Text = "B"

End If

If str(6) = "b" Then

Chr9.Text = "B"

End If

If str(7) = "b" Then

Chr8.Text = "B"

End If

If str(8) = "b" Then

Chr7.Text = "B"

End If

If str(9) = "b" Then

Chr6.Text = "B"

End If

If str(10) = "b" Then

Chr5.Text = "B"

End If

If str(11) = "b" Then

Chr4.Text = "B"

End If

If str(12) = "b" Then

Chr3.Text = "B"

End If

If str(13) = "b" Then

Chr2.Text = "B"

End If

If str(14) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 16 Then

If str(0) = "b" Then

Chr16.Text = "B"

End If

If str(1) = "b" Then

Chr15.Text = "B"

End If

If str(2) = "b" Then

Chr14.Text = "B"

End If

If str(3) = "b" Then

Chr13.Text = "B"

End If

If str(4) = "b" Then

Chr12.Text = "B"

End If

If str(5) = "b" Then

Chr11.Text = "B"

End If

If str(6) = "b" Then

Chr10.Text = "B"

End If

If str(7) = "b" Then

Chr9.Text = "B"

End If

If str(8) = "b" Then

Chr8.Text = "B"

End If

If str(9) = "b" Then

Chr7.Text = "B"

End If

If str(10) = "b" Then

Chr6.Text = "B"

End If

If str(11) = "b" Then

Chr5.Text = "B"

End If

If str(12) = "b" Then

Chr4.Text = "B"

End If

If str(13) = "b" Then

Chr3.Text = "B"

End If

If str(14) = "b" Then

Chr2.Text = "B"

End If

If str(15) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 17 Then

If str(0) = "b" Then

Chr17.Text = "B"

End If

If str(1) = "b" Then

Chr16.Text = "B"

End If

If str(2) = "b" Then

Chr15.Text = "B"

End If

If str(3) = "b" Then

Chr14.Text = "B"

End If

If str(4) = "b" Then

Chr13.Text = "B"

End If

If str(5) = "b" Then

Chr12.Text = "B"

End If

If str(6) = "b" Then

Chr11.Text = "B"

End If

If str(7) = "b" Then

Chr10.Text = "B"

End If

If str(8) = "b" Then

Chr9.Text = "B"

End If

If str(9) = "b" Then

Chr8.Text = "B"

End If

If str(10) = "b" Then

Chr7.Text = "B"

End If

If str(11) = "b" Then

Chr6.Text = "B"

End If

If str(12) = "b" Then

Chr5.Text = "B"

End If

If str(13) = "b" Then

Chr4.Text = "B"

End If

If str(14) = "b" Then

Chr3.Text = "B"

End If

If str(15) = "b" Then

Chr2.Text = "B"

End If

If str(16) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 18 Then

If str(0) = "b" Then

Chr18.Text = "B"

End If

If str(1) = "b" Then

Chr17.Text = "B"

End If

If str(2) = "b" Then

Chr16.Text = "B"

End If

If str(3) = "b" Then

Chr15.Text = "B"

End If

If str(4) = "b" Then

Chr14.Text = "B"

End If

If str(5) = "b" Then

Chr13.Text = "B"

End If

If str(6) = "b" Then

Chr12.Text = "B"

End If

If str(7) = "b" Then

Chr11.Text = "B"

End If

If str(8) = "b" Then

Chr10.Text = "B"

End If

If str(9) = "b" Then

Chr9.Text = "B"

End If

If str(10) = "b" Then

Chr8.Text = "B"

End If

If str(11) = "b" Then

Chr7.Text = "B"

End If

If str(12) = "b" Then

Chr6.Text = "B"

End If

If str(13) = "b" Then

Chr5.Text = "B"

End If

If str(14) = "b" Then

Chr4.Text = "B"

End If

If str(15) = "b" Then

Chr3.Text = "B"

End If

If str(16) = "b" Then

Chr2.Text = "B"

End If

If str(17) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 19 Then

If str(0) = "b" Then

Chr19.Text = "B"

End If

If str(1) = "b" Then

Chr18.Text = "B"

End If

If str(2) = "b" Then

Chr17.Text = "B"

End If

If str(3) = "b" Then

Chr16.Text = "B"

End If

If str(4) = "b" Then

Chr15.Text = "B"

End If

If str(5) = "b" Then

Chr14.Text = "B"

End If

If str(6) = "b" Then

Chr13.Text = "B"

End If

If str(7) = "b" Then

Chr12.Text = "B"

End If

If str(8) = "b" Then

Chr11.Text = "B"

End If

If str(9) = "b" Then

Chr10.Text = "B"

End If

If str(10) = "b" Then

Chr9.Text = "B"

End If

If str(11) = "b" Then

Chr8.Text = "B"

End If

If str(12) = "b" Then

Chr7.Text = "B"

End If

If str(13) = "b" Then

Chr6.Text = "B"

End If

If str(14) = "b" Then

Chr5.Text = "B"

End If

If str(15) = "b" Then

Chr4.Text = "B"

End If

If str(16) = "b" Then

Chr3.Text = "B"

End If

If str(17) = "b" Then

Chr2.Text = "B"

End If

If str(18) = "b" Then

Chr1.Text = "B"

End If

ElseIf Word_in.TextLength = 20 Then

If str(0) = "b" Then

Chr20.Text = "B"

End If

If str(1) = "b" Then

Chr19.Text = "B"

End If

If str(2) = "b" Then

Chr18.Text = "B"

End If

If str(3) = "b" Then

Chr17.Text = "B"

End If

If str(4) = "b" Then

Chr16.Text = "B"

End If

If str(5) = "b" Then

Chr15.Text = "B"

End If

If str(6) = "b" Then

Chr14.Text = "B"

End If

If str(7) = "b" Then

Chr13.Text = "B"

End If

If str(8) = "b" Then

Chr12.Text = "B"

End If

If str(9) = "b" Then

Chr11.Text = "B"

End If

If str(10) = "b" Then

Chr10.Text = "B"

End If

If str(11) = "b" Then

Chr9.Text = "B"

End If

If str(12) = "b" Then

Chr8.Text = "B"

End If

If str(13) = "b" Then

Chr7.Text = "B"

End If

If str(14) = "b" Then

Chr6.Text = "B"

End If

If str(15) = "b" Then

Chr5.Text = "B"

End If

If str(16) = "b" Then

Chr4.Text = "B"

End If

If str(17) = "b" Then

Chr3.Text = "B"

End If

If str(18) = "b" Then

Chr2.Text = "B"

End If

If str(19) = "b" Then

Chr1.Text = "B"

End If

End If

If InStr(Word_in.Text, "b", CompareMethod.Text) = 0 Then

If f_chr1.Text = "" Then

f_chr1.Text = "B"

ElseIf f_chr2.Text = "" Then

f_chr2.Text = "B"

ElseIf f_chr3.Text = "" Then

f_chr3.Text = "B"

ElseIf f_chr4.Text = "" Then

f_chr4.Text = "B"

ElseIf f_chr5.Text = "" Then

f_chr5.Text = "B"

ElseIf f_chr6.Text = "" Then

f_chr6.Text = "B"

ElseIf f_chr7.Text = "" Then

f_chr7.Text = "B"

ElseIf f_chr8.Text = "" Then

f_chr8.Text = "B"

ElseIf f_chr9.Text = "" Then

f_chr9.Text = "B"

ElseIf f_chr10.Text = "" Then

f_chr10.Text = "B"

ElseIf f_chr11.Text = "" Then

f_chr11.Text = "B"

End If

End If

End Sub

    Button   Name  3-  C.          .

 19.4. -  .

Private Sub C_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles C.Click

C.Enabled = False

nums = Len(Word_in.Text)

Try

str(0) = Mid(Word_in.Text, nums, 1)

str(1) = Mid(Word_in.Text, nums  1, 1)

str(2) = Mid(Word_in.Text, nums  2, 1)

str(3) = Mid(Word_in.Text, nums  3, 1)

str(4) = Mid(Word_in.Text, nums  4, 1)

str(5) = Mid(Word_in.Text, nums  5, 1)

str(6) = Mid(Word_in.Text, nums  6, 1)

str(7) = Mid(Word_in.Text, nums  7, 1)

str(8) = Mid(Word_in.Text, nums  8, 1)

str(9) = Mid(Word_in.Text, nums  9, 1)

str(10) = Mid(Word_in.Text, nums  10, 1)

str(11) = Mid(Word_in.Text, nums  11, 1)

str(12) = Mid(Word_in.Text, nums  12, 1)

str(13) = Mid(Word_in.Text, nums  13, 1)

str(14) = Mid(Word_in.Text, nums  14, 1)

str(15) = Mid(Word_in.Text, nums  15, 1)

str(16) = Mid(Word_in.Text, nums  16, 1)

str(17) = Mid(Word_in.Text, nums  17, 1)

str(18) = Mid(Word_in.Text, nums  18, 1)

str(19) = Mid(Word_in.Text, nums  19, 1)

Catch ex As Exception

End Try

If Word_in.TextLength = 1 Then

If str(0) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 2 Then

If str(1) = "c" Then

Chr1.Text = "C"

End If

If str(0) = "c" Then

Chr2.Text = "C"

End If

ElseIf Word_in.TextLength = 3 Then

If str(0) = "c" Then

Chr3.Text = "C"

End If

If str(1) = "c" Then

Chr2.Text = "C"

End If

If str(2) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 4 Then

If str(0) = "c" Then

Chr4.Text = "C"

End If

If str(1) = "c" Then

Chr3.Text = "C"

End If

If str(2) = "c" Then

Chr2.Text = "C"

End If

If str(3) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 5 Then

If str(0) = "c" Then

Chr5.Text = "C"

End If

If str(1) = "c" Then

Chr4.Text = "C"

End If

If str(2) = "c" Then

Chr3.Text = "C"

End If

If str(3) = "c" Then

Chr2.Text = "C"

End If

If str(4) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 6 Then

If str(0) = "c" Then

Chr6.Text = "C"

End If

If str(1) = "c" Then

Chr5.Text = "C"

End If

If str(2) = "c" Then

Chr4.Text = "C"

End If

If str(3) = "c" Then

Chr3.Text = "C"

End If

If str(4) = "c" Then

Chr2.Text = "C"

End If

If str(5) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 7 Then

If str(0) = "c" Then

Chr7.Text = "C"

End If

If str(1) = "c" Then

Chr6.Text = "C"

End If

If str(2) = "c" Then

Chr5.Text = "C"

End If

If str(3) = "c" Then

Chr4.Text = "C"

End If

If str(4) = "c" Then

Chr3.Text = "C"

End If

If str(5) = "c" Then

Chr2.Text = "C"

End If

If str(6) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 8 Then

If str(0) = "c" Then

Chr8.Text = "C"

End If

If str(1) = "c" Then

Chr7.Text = "C"

End If

If str(2) = "c" Then

Chr6.Text = "C"

End If

If str(3) = "c" Then

Chr5.Text = "C"

End If

If str(4) = "c" Then

Chr4.Text = "C"

End If

If str(5) = "c" Then

Chr3.Text = "C"

End If

If str(6) = "c" Then

Chr2.Text = "C"

End If

If str(7) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 9 Then

If str(0) = "c" Then

Chr9.Text = "C"

End If

If str(1) = "c" Then

Chr8.Text = "C"

End If

If str(2) = "c" Then

Chr7.Text = "C"

End If

If str(3) = "c" Then

Chr6.Text = "C"

End If

If str(4) = "c" Then

Chr5.Text = "C"

End If

If str(5) = "c" Then

Chr4.Text = "C"

End If

If str(6) = "c" Then

Chr3.Text = "C"

End If

If str(7) = "c" Then

Chr2.Text = "C"

End If

If str(8) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 10 Then

If str(0) = "c" Then

Chr10.Text = "C"

End If

If str(1) = "c" Then

Chr9.Text = "C"

End If

If str(2) = "c" Then

Chr8.Text = "C"

End If

If str(3) = "c" Then

Chr7.Text = "C"

End If

If str(4) = "c" Then

Chr6.Text = "C"

End If

If str(5) = "c" Then

Chr5.Text = "C"

End If

If str(6) = "c" Then

Chr4.Text = "C"

End If

If str(7) = "c" Then

Chr3.Text = "C"

End If

If str(8) = "c" Then

Chr2.Text = "C"

End If

If str(9) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 11 Then

If str(0) = "c" Then

Chr11.Text = "C"

End If

If str(1) = "c" Then

Chr10.Text = "C"

End If

If str(2) = "c" Then

Chr9.Text = "C"

End If

If str(3) = "c" Then

Chr8.Text = "C"

End If

If str(4) = "c" Then

Chr7.Text = "C"

End If

If str(5) = "c" Then

Chr6.Text = "C"

End If

If str(6) = "c" Then

Chr5.Text = "C"

End If

If str(7) = "c" Then

Chr4.Text = "C"

End If

If str(8) = "c" Then

Chr3.Text = "C"

End If

If str(9) = "c" Then

Chr2.Text = "C"

End If

If str(10) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 12 Then

If str(0) = "c" Then

Chr12.Text = "C"

End If

If str(1) = "c" Then

Chr11.Text = "C"

End If

If str(2) = "c" Then

Chr10.Text = "C"

End If

If str(3) = "c" Then

Chr9.Text = "C"

End If

If str(4) = "c" Then

Chr8.Text = "C"

End If

If str(5) = "c" Then

Chr7.Text = "C"

End If

If str(6) = "c" Then

Chr6.Text = "C"

End If

If str(7) = "c" Then

Chr5.Text = "C"

End If

If str(8) = "c" Then

Chr4.Text = "C"

End If

If str(9) = "c" Then

Chr3.Text = "C"

End If

If str(10) = "c" Then

Chr2.Text = "C"

End If

If str(11) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 13 Then

If str(0) = "c" Then

Chr13.Text = "C"

End If

If str(1) = "c" Then

Chr12.Text = "C"

End If

If str(2) = "c" Then

Chr11.Text = "C"

End If

If str(3) = "c" Then

Chr10.Text = "C"

End If

If str(4) = "c" Then

Chr9.Text = "C"

End If

If str(5) = "c" Then

Chr8.Text = "C"

End If

If str(6) = "c" Then

Chr7.Text = "C"

End If

If str(7) = "c" Then

Chr6.Text = "C"

End If

If str(8) = "c" Then

Chr5.Text = "C"

End If

If str(9) = "c" Then

Chr4.Text = "C"

End If

If str(10) = "c" Then

Chr3.Text = "C"

End If

If str(11) = "c" Then

Chr2.Text = "C"

End If

If str(12) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 14 Then

If str(0) = "c" Then

Chr14.Text = "C"

End If

If str(1) = "c" Then

Chr13.Text = "C"

End If

If str(2) = "c" Then

Chr12.Text = "C"

End If

If str(3) = "c" Then

Chr11.Text = "C"

End If

If str(4) = "c" Then

Chr10.Text = "C"

End If

If str(5) = "c" Then

Chr9.Text = "C"

End If

If str(6) = "c" Then

Chr8.Text = "C"

End If

If str(7) = "c" Then

Chr7.Text = "C"

End If

If str(8) = "c" Then

Chr6.Text = "C"

End If

If str(9) = "c" Then

Chr5.Text = "C"

End If

If str(10) = "c" Then

Chr4.Text = "C"

End If

If str(11) = "c" Then

Chr3.Text = "C"

End If

If str(12) = "c" Then

Chr2.Text = "C"

End If

If str(13) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 15 Then

If str(0) = "c" Then

Chr15.Text = "C"

End If

If str(1) = "c" Then

Chr14.Text = "C"

End If

If str(2) = "c" Then

Chr13.Text = "C"

End If

If str(3) = "c" Then

Chr12.Text = "C"

End If

If str(4) = "c" Then

Chr11.Text = "C"

End If

If str(5) = "c" Then

Chr10.Text = "C"

End If

If str(6) = "c" Then

Chr9.Text = "C"

End If

If str(7) = "c" Then

Chr8.Text = "C"

End If

If str(8) = "c" Then

Chr7.Text = "C"

End If

If str(9) = "c" Then

Chr6.Text = "C"

End If

If str(10) = "c" Then

Chr5.Text = "C"

End If

If str(11) = "c" Then

Chr4.Text = "C"

End If

If str(12) = "c" Then

Chr3.Text = "C"

End If

If str(13) = "c" Then

Chr2.Text = "C"

End If

If str(14) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 16 Then

If str(0) = "c" Then

Chr16.Text = "C"

End If

If str(1) = "c" Then

Chr15.Text = "C"

End If

If str(2) = "c" Then

Chr14.Text = "C"

End If

If str(3) = "c" Then

Chr13.Text = "C"

End If

If str(4) = "c" Then

Chr12.Text = "C"

End If

If str(5) = "c" Then

Chr11.Text = "C"

End If

If str(6) = "c" Then

Chr10.Text = "C"

End If

If str(7) = "c" Then

Chr9.Text = "C"

End If

If str(8) = "c" Then

Chr8.Text = "C"

End If

If str(9) = "c" Then

Chr7.Text = "C"

End If

If str(10) = "c" Then

Chr6.Text = "C"

End If

If str(11) = "c" Then

Chr5.Text = "C"

End If

If str(12) = "c" Then

Chr4.Text = "C"

End If

If str(13) = "c" Then

Chr3.Text = "C"

End If

If str(14) = "c" Then

Chr2.Text = "C"

End If

If str(15) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 17 Then

If str(0) = "c" Then

Chr17.Text = "C"

End If

If str(1) = "c" Then

Chr16.Text = "C"

End If

If str(2) = "c" Then

Chr15.Text = "C"

End If

If str(3) = "c" Then

Chr14.Text = "C"

End If

If str(4) = "c" Then

Chr13.Text = "C"

End If

If str(5) = "c" Then

Chr12.Text = "C"

End If

If str(6) = "c" Then

Chr11.Text = "C"

End If

If str(7) = "c" Then

Chr10.Text = "C"

End If

If str(8) = "c" Then

Chr9.Text = "C"

End If

If str(9) = "c" Then

Chr8.Text = "C"

End If

If str(10) = "c" Then

Chr7.Text = "C"

End If

If str(11) = "c" Then

Chr6.Text = "C"

End If

If str(12) = "c" Then

Chr5.Text = "C"

End If

If str(13) = "c" Then

Chr4.Text = "C"

End If

If str(14) = "c" Then

Chr3.Text = "C"

End If

If str(15) = "c" Then

Chr2.Text = "C"

End If

If str(16) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 18 Then

If str(0) = "c" Then

Chr18.Text = "C"

End If

If str(1) = "c" Then

Chr17.Text = "C"

End If

If str(2) = "c" Then

Chr16.Text = "C"

End If

If str(3) = "c" Then

Chr15.Text = "C"

End If

If str(4) = "c" Then

Chr14.Text = "C"

End If

If str(5) = "c" Then

Chr13.Text = "C"

End If

If str(6) = "c" Then

Chr12.Text = "C"

End If

If str(7) = "c" Then

Chr11.Text = "C"

End If

If str(8) = "c" Then

Chr10.Text = "C"

End If

If str(9) = "c" Then

Chr9.Text = "C"

End If

If str(10) = "c" Then

Chr8.Text = "C"

End If

If str(11) = "c" Then

Chr7.Text = "C"

End If

If str(12) = "c" Then

Chr6.Text = "C"

End If

If str(13) = "c" Then

Chr5.Text = "C"

End If

If str(14) = "c" Then

Chr4.Text = "C"

End If

If str(15) = "c" Then

Chr3.Text = "C"

End If

If str(16) = "c" Then

Chr2.Text = "C"

End If

If str(17) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 19 Then

If str(0) = "c" Then

Chr19.Text = "C"

End If

If str(1) = "c" Then

Chr18.Text = "C"

End If

If str(2) = "c" Then

Chr17.Text = "C"

End If

If str(3) = "c" Then

Chr16.Text = "C"

End If

If str(4) = "c" Then

Chr15.Text = "C"

End If

If str(5) = "c" Then

Chr14.Text = "C"

End If

If str(6) = "c" Then

Chr13.Text = "C"

End If

If str(7) = "c" Then

Chr12.Text = "C"

End If

If str(8) = "c" Then

Chr11.Text = "C"

End If

If str(9) = "c" Then

Chr10.Text = "C"

End If

If str(10) = "c" Then

Chr9.Text = "C"

End If

If str(11) = "c" Then

Chr8.Text = "C"

End If

If str(12) = "c" Then

Chr7.Text = "C"

End If

If str(13) = "c" Then

Chr6.Text = "C"

End If

If str(14) = "c" Then

Chr5.Text = "C"

End If

If str(15) = "c" Then

Chr4.Text = "C"

End If

If str(16) = "c" Then

Chr3.Text = "C"

End If

If str(17) = "c" Then

Chr2.Text = "C"

End If

If str(18) = "c" Then

Chr1.Text = "C"

End If

ElseIf Word_in.TextLength = 20 Then

If str(0) = "c" Then

Chr20.Text = "C"

End If

If str(1) = "c" Then

Chr19.Text = "C"

End If

If str(2) = "c" Then

Chr18.Text = "C"

End If

If str(3) = "c" Then

Chr17.Text = "C"

End If

If str(4) = "c" Then

Chr16.Text = "C"

End If

If str(5) = "c" Then

Chr15.Text = "C"

End If

If str(6) = "c" Then

Chr14.Text = "C"

End If

If str(7) = "c" Then

Chr13.Text = "C"

End If

If str(8) = "c" Then

Chr12.Text = "C"

End If

If str(9) = "c" Then

Chr11.Text = "C"

End If

If str(10) = "c" Then

Chr10.Text = "C"

End If

If str(11) = "c" Then

Chr9.Text = "C"

End If

If str(12) = "c" Then

Chr8.Text = "C"

End If

If str(13) = "c" Then

Chr7.Text = "C"

End If

If str(14) = "c" Then

Chr6.Text = "C"

End If

If str(15) = "c" Then

Chr5.Text = "C"

End If

If str(16) = "c" Then

Chr4.Text = "C"

End If

If str(17) = "c" Then

Chr3.Text = "C"

End If

If str(18) = "c" Then

Chr2.Text = "C"

End If

If str(19) = "c" Then

Chr1.Text = "C"

End If

End If

If InStr(Word_in.Text, "c", CompareMethod.Text) = 0 Then

If f_chr1.Text = "" Then

f_chr1.Text = "C"

ElseIf f_chr2.Text = "" Then

f_chr2.Text = "C"

ElseIf f_chr3.Text = "" Then

f_chr3.Text = "C"

ElseIf f_chr4.Text = "" Then

f_chr4.Text = "C"

ElseIf f_chr5.Text = "" Then

f_chr5.Text = "C"

ElseIf f_chr6.Text = "" Then

f_chr6.Text = "C"

ElseIf f_chr7.Text = "" Then

f_chr7.Text = "C"

ElseIf f_chr8.Text = "" Then

f_chr8.Text = "C"

ElseIf f_chr9.Text = "" Then

f_chr9.Text = "C"

ElseIf f_chr10.Text = "" Then

f_chr10.Text = "C"

ElseIf f_chr11.Text = "" Then

f_chr11.Text = "C"

End If

End If

End Sub

    Button   Name  4-  D.          .

 19.5. -  .

Private Sub D_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles D.Click

D.Enabled = False

nums = Len(Word_in.Text)

Try

str(0) = Mid(Word_in.Text, nums, 1)

str(1) = Mid(Word_in.Text, nums  1, 1)

str(2) = Mid(Word_in.Text, nums  2, 1)

str(3) = Mid(Word_in.Text, nums  3, 1)

str(4) = Mid(Word_in.Text, nums  4, 1)

str(5) = Mid(Word_in.Text, nums  5, 1)

str(6) = Mid(Word_in.Text, nums  6, 1)

str(7) = Mid(Word_in.Text, nums  7, 1)

str(8) = Mid(Word_in.Text, nums  8, 1)

str(9) = Mid(Word_in.Text, nums  9, 1)

str(10) = Mid(Word_in.Text, nums  10, 1)

str(11) = Mid(Word_in.Text, nums  11, 1)

str(12) = Mid(Word_in.Text, nums  12, 1)

str(13) = Mid(Word_in.Text, nums  13, 1)

str(14) = Mid(Word_in.Text, nums  14, 1)

str(15) = Mid(Word_in.Text, nums  15, 1)

str(16) = Mid(Word_in.Text, nums  16, 1)

str(17) = Mid(Word_in.Text, nums  17, 1)

str(18) = Mid(Word_in.Text, nums  18, 1)

str(19) = Mid(Word_in.Text, nums  19, 1)

Catch ex As Exception

End Try

If Word_in.TextLength = 1 Then

If str(0) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 2 Then

If str(1) = "d" Then

Chr1.Text = "D"

End If

If str(0) = "d" Then

Chr2.Text = "D"

End If

ElseIf Word_in.TextLength = 3 Then

If str(0) = "d" Then

Chr3.Text = "D"

End If

If str(1) = "d" Then

Chr2.Text = "D"

End If

If str(2) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 4 Then

If str(0) = "d" Then

Chr4.Text = "D"

End If

If str(1) = "d" Then

Chr3.Text = "D"

End If

If str(2) = "d" Then

Chr2.Text = "D"

End If

If str(3) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 5 Then

If str(0) = "d" Then

Chr5.Text = "D"

End If

If str(1) = "d" Then

Chr4.Text = "D"

End If

If str(2) = "d" Then

Chr3.Text = "D"

End If

If str(3) = "d" Then

Chr2.Text = "D"

End If

If str(4) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 6 Then

If str(0) = "d" Then

Chr6.Text = "D"

End If

If str(1) = "d" Then

Chr5.Text = "D"

End If

If str(2) = "d" Then

Chr4.Text = "D"

End If

If str(3) = "d" Then

Chr3.Text = "D"

End If

If str(4) = "d" Then

Chr2.Text = "D"

End If

If str(5) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 7 Then

If str(0) = "d" Then

Chr7.Text = "D"

End If

If str(1) = "d" Then

Chr6.Text = "D"

End If

If str(2) = "d" Then

Chr5.Text = "D"

End If

If str(3) = "d" Then

Chr4.Text = "D"

End If

If str(4) = "d" Then

Chr3.Text = "D"

End If

If str(5) = "d" Then

Chr2.Text = "D"

End If

If str(6) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 8 Then

If str(0) = "d" Then

Chr8.Text = "D"

End If

If str(1) = "d" Then

Chr7.Text = "D"

End If

If str(2) = "d" Then

Chr6.Text = "D"

End If

If str(3) = "d" Then

Chr5.Text = "D"

End If

If str(4) = "d" Then

Chr4.Text = "D"

End If

If str(5) = "d" Then

Chr3.Text = "D"

End If

If str(6) = "d" Then

Chr2.Text = "D"

End If

If str(7) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 9 Then

If str(0) = "d" Then

Chr9.Text = "D"

End If

If str(1) = "d" Then

Chr8.Text = "D"

End If

If str(2) = "d" Then

Chr7.Text = "D"

End If

If str(3) = "d" Then

Chr6.Text = "D"

End If

If str(4) = "d" Then

Chr5.Text = "D"

End If

If str(5) = "d" Then

Chr4.Text = "D"

End If

If str(6) = "d" Then

Chr3.Text = "D"

End If

If str(7) = "d" Then

Chr2.Text = "D"

End If

If str(8) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 10 Then

If str(0) = "d" Then

Chr10.Text = "D"

End If

If str(1) = "d" Then

Chr9.Text = "D"

End If

If str(2) = "d" Then

Chr8.Text = "D"

End If

If str(3) = "d" Then

Chr7.Text = "D"

End If

If str(4) = "d" Then

Chr6.Text = "D"

End If

If str(5) = "d" Then

Chr5.Text = "D"

End If

If str(6) = "d" Then

Chr4.Text = "D"

End If

If str(7) = "d" Then

Chr3.Text = "D"

End If

If str(8) = "d" Then

Chr2.Text = "D"

End If

If str(9) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 11 Then

If str(0) = "d" Then

Chr11.Text = "D"

End If

If str(1) = "d" Then

Chr10.Text = "D"

End If

If str(2) = "d" Then

Chr9.Text = "D"

End If

If str(3) = "d" Then

Chr8.Text = "D"

End If

If str(4) = "d" Then

Chr7.Text = "D"

End If

If str(5) = "d" Then

Chr6.Text = "D"

End If

If str(6) = "d" Then

Chr5.Text = "D"

End If

If str(7) = "d" Then

Chr4.Text = "D"

End If

If str(8) = "d" Then

Chr3.Text = "D"

End If

If str(9) = "d" Then

Chr2.Text = "D"

End If

If str(10) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 12 Then

If str(0) = "d" Then

Chr12.Text = "D"

End If

If str(1) = "d" Then

Chr11.Text = "D"

End If

If str(2) = "d" Then

Chr10.Text = "D"

End If

If str(3) = "d" Then

Chr9.Text = "D"

End If

If str(4) = "d" Then

Chr8.Text = "D"

End If

If str(5) = "d" Then

Chr7.Text = "D"

End If

If str(6) = "d" Then

Chr6.Text = "D"

End If

If str(7) = "d" Then

Chr5.Text = "D"

End If

If str(8) = "d" Then

Chr4.Text = "D"

End If

If str(9) = "d" Then

Chr3.Text = "D"

End If

If str(10) = "d" Then

Chr2.Text = "D"

End If

If str(11) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 13 Then

If str(0) = "d" Then

Chr13.Text = "D"

End If

If str(1) = "d" Then

Chr12.Text = "D"

End If

If str(2) = "d" Then

Chr11.Text = "D"

End If

If str(3) = "d" Then

Chr10.Text = "D"

End If

If str(4) = "d" Then

Chr9.Text = "D"

End If

If str(5) = "d" Then

Chr8.Text = "D"

End If

If str(6) = "d" Then

Chr7.Text = "D"

End If

If str(7) = "d" Then

Chr6.Text = "D"

End If

If str(8) = "d" Then

Chr5.Text = "D"

End If

If str(9) = "d" Then

Chr4.Text = "D"

End If

If str(10) = "d" Then

Chr3.Text = "D"

End If

If str(11) = "d" Then

Chr2.Text = "D"

End If

If str(12) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 14 Then

If str(0) = "d" Then

Chr14.Text = "D"

End If

If str(1) = "d" Then

Chr13.Text = "D"

End If

If str(2) = "d" Then

Chr12.Text = "D"

End If

If str(3) = "d" Then

Chr11.Text = "D"

End If

If str(4) = "d" Then

Chr10.Text = "D"

End If

If str(5) = "d" Then

Chr9.Text = "D"

End If

If str(6) = "d" Then

Chr8.Text = "D"

End If

If str(7) = "d" Then

Chr7.Text = "D"

End If

If str(8) = "d" Then

Chr6.Text = "D"

End If

If str(9) = "d" Then

Chr5.Text = "D"

End If

If str(10) = "d" Then

Chr4.Text = "D"

End If

If str(11) = "d" Then

Chr3.Text = "D"

End If

If str(12) = "d" Then

Chr2.Text = "D"

End If

If str(13) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 15 Then

If str(0) = "d" Then

Chr15.Text = "D"

End If

If str(1) = "d" Then

Chr14.Text = "D"

End If

If str(2) = "d" Then

Chr13.Text = "D"

End If

If str(3) = "d" Then

Chr12.Text = "D"

End If

If str(4) = "d" Then

Chr11.Text = "D"

End If

If str(5) = "d" Then

Chr10.Text = "D"

End If

If str(6) = "d" Then

Chr9.Text = "D"

End If

If str(7) = "d" Then

Chr8.Text = "D"

End If

If str(8) = "d" Then

Chr7.Text = "D"

End If

If str(9) = "d" Then

Chr6.Text = "D"

End If

If str(10) = "d" Then

Chr5.Text = "D"

End If

If str(11) = "d" Then

Chr4.Text = "D"

End If

If str(12) = "d" Then

Chr3.Text = "D"

End If

If str(13) = "d" Then

Chr2.Text = "D"

End If

If str(14) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 16 Then

If str(0) = "d" Then

Chr16.Text = "D"

End If

If str(1) = "d" Then

Chr15.Text = "D"

End If

If str(2) = "d" Then

Chr14.Text = "D"

End If

If str(3) = "d" Then

Chr13.Text = "D"

End If

If str(4) = "d" Then

Chr12.Text = "D"

End If

If str(5) = "d" Then

Chr11.Text = "D"

End If

If str(6) = "d" Then

Chr10.Text = "D"

End If

If str(7) = "d" Then

Chr9.Text = "D"

End If

If str(8) = "d" Then

Chr8.Text = "D"

End If

If str(9) = "d" Then

Chr7.Text = "D"

End If

If str(10) = "d" Then

Chr6.Text = "D"

End If

If str(11) = "d" Then

Chr5.Text = "D"

End If

If str(12) = "d" Then

Chr4.Text = "D"

End If

If str(13) = "d" Then

Chr3.Text = "D"

End If

If str(14) = "d" Then

Chr2.Text = "D"

End If

If str(15) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 17 Then

If str(0) = "d" Then

Chr17.Text = "D"

End If

If str(1) = "d" Then

Chr16.Text = "D"

End If

If str(2) = "d" Then

Chr15.Text = "D"

End If

If str(3) = "d" Then

Chr14.Text = "D"

End If

If str(4) = "d" Then

Chr13.Text = "D"

End If

If str(5) = "d" Then

Chr12.Text = "D"

End If

If str(6) = "d" Then

Chr11.Text = "D"

End If

If str(7) = "d" Then

Chr10.Text = "D"

End If

If str(8) = "d" Then

Chr9.Text = "D"

End If

If str(9) = "d" Then

Chr8.Text = "D"

End If

If str(10) = "d" Then

Chr7.Text = "D"

End If

If str(11) = "d" Then

Chr6.Text = "D"

End If

If str(12) = "d" Then

Chr5.Text = "D"

End If

If str(13) = "d" Then

Chr4.Text = "D"

End If

If str(14) = "d" Then

Chr3.Text = "D"

End If

If str(15) = "d" Then

Chr2.Text = "D"

End If

If str(16) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 18 Then

If str(0) = "d" Then

Chr18.Text = "D"

End If

If str(1) = "d" Then

Chr17.Text = "D"

End If

If str(2) = "d" Then

Chr16.Text = "D"

End If

If str(3) = "d" Then

Chr15.Text = "D"

End If

If str(4) = "d" Then

Chr14.Text = "D"

End If

If str(5) = "d" Then

Chr13.Text = "D"

End If

If str(6) = "d" Then

Chr12.Text = "D"

End If

If str(7) = "d" Then

Chr11.Text = "D"

End If

If str(8) = "d" Then

Chr10.Text = "D"

End If

If str(9) = "d" Then

Chr9.Text = "D"

End If

If str(10) = "d" Then

Chr8.Text = "D"

End If

If str(11) = "d" Then

Chr7.Text = "D"

End If

If str(12) = "d" Then

Chr6.Text = "D"

End If

If str(13) = "d" Then

Chr5.Text = "D"

End If

If str(14) = "d" Then

Chr4.Text = "D"

End If

If str(15) = "d" Then

Chr3.Text = "D"

End If

If str(16) = "d" Then

Chr2.Text = "D"

End If

If str(17) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 19 Then

If str(0) = "d" Then

Chr19.Text = "D"

End If

If str(1) = "d" Then

Chr18.Text = "D"

End If

If str(2) = "d" Then

Chr17.Text = "D"

End If

If str(3) = "d" Then

Chr16.Text = "D"

End If

If str(4) = "d" Then

Chr15.Text = "D"

End If

If str(5) = "d" Then

Chr14.Text = "D"

End If

If str(6) = "d" Then

Chr13.Text = "D"

End If

If str(7) = "d" Then

Chr12.Text = "D"

End If

If str(8) = "d" Then

Chr11.Text = "D"

End If

If str(9) = "d" Then

Chr10.Text = "D"

End If

If str(10) = "d" Then

Chr9.Text = "D"

End If

If str(11) = "d" Then

Chr8.Text = "D"

End If

If str(12) = "d" Then

Chr7.Text = "D"

End If

If str(13) = "d" Then

Chr6.Text = "D"

End If

If str(14) = "d" Then

Chr5.Text = "D"

End If

If str(15) = "d" Then

Chr4.Text = "D"

End If

If str(16) = "d" Then

Chr3.Text = "D"

End If

If str(17) = "d" Then

Chr2.Text = "D"

End If

If str(18) = "d" Then

Chr1.Text = "D"

End If

ElseIf Word_in.TextLength = 20 Then

If str(0) = "d" Then

Chr20.Text = "D"

End If

If str(1) = "d" Then

Chr19.Text = "D"

End If

If str(2) = "d" Then

Chr18.Text = "D"

End If

If str(3) = "d" Then

Chr17.Text = "D"

End If

If str(4) = "d" Then

Chr16.Text = "D"

End If

If str(5) = "d" Then

Chr15.Text = "D"

End If

If str(6) = "d" Then

Chr14.Text = "D"

End If

If str(7) = "d" Then

Chr13.Text = "D"

End If

If str(8) = "d" Then

Chr12.Text = "D"

End If

If str(9) = "d" Then

Chr11.Text = "D"

End If

If str(10) = "d" Then

Chr10.Text = "D"

End If

If str(11) = "d" Then

Chr9.Text = "D"

End If

If str(12) = "d" Then

Chr8.Text = "D"

End If

If str(13) = "d" Then

Chr7.Text = "D"

End If

If str(14) = "d" Then

Chr6.Text = "D"

End If

If str(15) = "d" Then

Chr5.Text = "D"

End If

If str(16) = "d" Then

Chr4.Text = "D"

End If

If str(17) = "d" Then

Chr3.Text = "D"

End If

If str(18) = "d" Then

Chr2.Text = "D"

End If

If str(19) = "d" Then

Chr1.Text = "D"

End If

End If

If InStr(Word_in.Text, "d", CompareMethod.Text) = 0 Then

If f_chr1.Text = "" Then

f_chr1.Text = "D"

ElseIf f_chr2.Text = "" Then

f_chr2.Text = "D"

ElseIf f_chr3.Text = "" Then

f_chr3.Text = "D"

ElseIf f_chr4.Text = "" Then

f_chr4.Text = "D"

ElseIf f_chr5.Text = "" Then

f_chr5.Text = "D"

ElseIf f_chr6.Text = "" Then

f_chr6.Text = "D"

ElseIf f_chr7.Text = "" Then

f_chr7.Text = "D"

ElseIf f_chr8.Text = "" Then

f_chr8.Text = "D"

ElseIf f_chr9.Text = "" Then

f_chr9.Text = "D"

ElseIf f_chr10.Text = "" Then

f_chr10.Text = "D"

ElseIf f_chr11.Text = "" Then

f_chr11.Text = "D"

End If

End If

End Sub

    Button   Name  5-  Er (,    E,  Er,  ).          .

 19.6. -  .

Private Sub E_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Er.Click

Er.Enabled = False

nums = Len(Word_in.Text)

Try

str(0) = Mid(Word_in.Text, nums, 1)

str(1) = Mid(Word_in.Text, nums  1, 1)

str(2) = Mid(Word_in.Text, nums  2, 1)

str(3) = Mid(Word_in.Text, nums  3, 1)

str(4) = Mid(Word_in.Text, nums  4, 1)

str(5) = Mid(Word_in.Text, nums  5, 1)

str(6) = Mid(Word_in.Text, nums  6, 1)

str(7) = Mid(Word_in.Text, nums  7, 1)

str(8) = Mid(Word_in.Text, nums  8, 1)

str(9) = Mid(Word_in.Text, nums  9, 1)

str(10) = Mid(Word_in.Text, nums  10, 1)

str(11) = Mid(Word_in.Text, nums  11, 1)

str(12) = Mid(Word_in.Text, nums  12, 1)

str(13) = Mid(Word_in.Text, nums  13, 1)

str(14) = Mid(Word_in.Text, nums  14, 1)

str(15) = Mid(Word_in.Text, nums  15, 1)

str(16) = Mid(Word_in.Text, nums  16, 1)

str(17) = Mid(Word_in.Text, nums  17, 1)

str(18) = Mid(Word_in.Text, nums  18, 1)

str(19) = Mid(Word_in.Text, nums  19, 1)

Catch ex As Exception

End Try

If Word_in.TextLength = 1 Then

If str(0) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 2 Then

If str(1) = "e" Then

Chr1.Text = "E"

End If

If str(0) = "e" Then

Chr2.Text = "E"

End If

ElseIf Word_in.TextLength = 3 Then

If str(0) = "e" Then

Chr3.Text = "E"

End If

If str(1) = "e" Then

Chr2.Text = "E"

End If

If str(2) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 4 Then

If str(0) = "e" Then

Chr4.Text = "E"

End If

If str(1) = "e" Then

Chr3.Text = "E"

End If

If str(2) = "e" Then

Chr2.Text = "E"

End If

If str(3) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 5 Then

If str(0) = "e" Then

Chr5.Text = "E"

End If

If str(1) = "e" Then

Chr4.Text = "E"

End If

If str(2) = "e" Then

Chr3.Text = "E"

End If

If str(3) = "e" Then

Chr2.Text = "E"

End If

If str(4) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 6 Then

If str(0) = "e" Then

Chr6.Text = "E"

End If

If str(1) = "e" Then

Chr5.Text = "E"

End If

If str(2) = "e" Then

Chr4.Text = "E"

End If

If str(3) = "e" Then

Chr3.Text = "E"

End If

If str(4) = "e" Then

Chr2.Text = "E"

End If

If str(5) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 7 Then

If str(0) = "e" Then

Chr7.Text = "E"

End If

If str(1) = "e" Then

Chr6.Text = "E"

End If

If str(2) = "e" Then

Chr5.Text = "E"

End If

If str(3) = "e" Then

Chr4.Text = "E"

End If

If str(4) = "e" Then

Chr3.Text = "E"

End If

If str(5) = "e" Then

Chr2.Text = "E"

End If

If str(6) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 8 Then

If str(0) = "e" Then

Chr8.Text = "E"

End If

If str(1) = "e" Then

Chr7.Text = "E"

End If

If str(2) = "e" Then

Chr6.Text = "E"

End If

If str(3) = "e" Then

Chr5.Text = "E"

End If

If str(4) = "e" Then

Chr4.Text = "E"

End If

If str(5) = "e" Then

Chr3.Text = "E"

End If

If str(6) = "e" Then

Chr2.Text = "E"

End If

If str(7) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 9 Then

If str(0) = "e" Then

Chr9.Text = "E"

End If

If str(1) = "e" Then

Chr8.Text = "E"

End If

If str(2) = "e" Then

Chr7.Text = "E"

End If

If str(3) = "e" Then

Chr6.Text = "E"

End If

If str(4) = "e" Then

Chr5.Text = "E"

End If

If str(5) = "e" Then

Chr4.Text = "E"

End If

If str(6) = "e" Then

Chr3.Text = "E"

End If

If str(7) = "e" Then

Chr2.Text = "E"

End If

If str(8) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 10 Then

If str(0) = "e" Then

Chr10.Text = "E"

End If

If str(1) = "e" Then

Chr9.Text = "E"

End If

If str(2) = "e" Then

Chr8.Text = "E"

End If

If str(3) = "e" Then

Chr7.Text = "E"

End If

If str(4) = "e" Then

Chr6.Text = "E"

End If

If str(5) = "e" Then

Chr5.Text = "E"

End If

If str(6) = "e" Then

Chr4.Text = "E"

End If

If str(7) = "e" Then

Chr3.Text = "E"

End If

If str(8) = "e" Then

Chr2.Text = "E"

End If

If str(9) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 11 Then

If str(0) = "e" Then

Chr11.Text = "E"

End If

If str(1) = "e" Then

Chr10.Text = "E"

End If

If str(2) = "e" Then

Chr9.Text = "E"

End If

If str(3) = "e" Then

Chr8.Text = "E"

End If

If str(4) = "e" Then

Chr7.Text = "E"

End If

If str(5) = "e" Then

Chr6.Text = "E"

End If

If str(6) = "e" Then

Chr5.Text = "E"

End If

If str(7) = "e" Then

Chr4.Text = "E"

End If

If str(8) = "e" Then

Chr3.Text = "E"

End If

If str(9) = "e" Then

Chr2.Text = "E"

End If

If str(10) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 12 Then

If str(0) = "e" Then

Chr12.Text = "E"

End If

If str(1) = "e" Then

Chr11.Text = "E"

End If

If str(2) = "e" Then

Chr10.Text = "E"

End If

If str(3) = "e" Then

Chr9.Text = "E"

End If

If str(4) = "e" Then

Chr8.Text = "E"

End If

If str(5) = "e" Then

Chr7.Text = "E"

End If

If str(6) = "e" Then

Chr6.Text = "E"

End If

If str(7) = "e" Then

Chr5.Text = "E"

End If

If str(8) = "e" Then

Chr4.Text = "E"

End If

If str(9) = "e" Then

Chr3.Text = "E"

End If

If str(10) = "e" Then

Chr2.Text = "E"

End If

If str(11) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 13 Then

If str(0) = "e" Then

Chr13.Text = "E"

End If

If str(1) = "e" Then

Chr12.Text = "E"

End If

If str(2) = "e" Then

Chr11.Text = "E"

End If

If str(3) = "e" Then

Chr10.Text = "E"

End If

If str(4) = "e" Then

Chr9.Text = "E"

End If

If str(5) = "e" Then

Chr8.Text = "E"

End If

If str(6) = "e" Then

Chr7.Text = "E"

End If

If str(7) = "e" Then

Chr6.Text = "E"

End If

If str(8) = "e" Then

Chr5.Text = "E"

End If

If str(9) = "e" Then

Chr4.Text = "E"

End If

If str(10) = "e" Then

Chr3.Text = "E"

End If

If str(11) = "e" Then

Chr2.Text = "E"

End If

If str(12) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 14 Then

If str(0) = "e" Then

Chr14.Text = "E"

End If

If str(1) = "e" Then

Chr13.Text = "E"

End If

If str(2) = "e" Then

Chr12.Text = "E"

End If

If str(3) = "e" Then

Chr11.Text = "E"

End If

If str(4) = "e" Then

Chr10.Text = "E"

End If

If str(5) = "e" Then

Chr9.Text = "E"

End If

If str(6) = "e" Then

Chr8.Text = "E"

End If

If str(7) = "e" Then

Chr7.Text = "E"

End If

If str(8) = "e" Then

Chr6.Text = "E"

End If

If str(9) = "e" Then

Chr5.Text = "E"

End If

If str(10) = "e" Then

Chr4.Text = "E"

End If

If str(11) = "e" Then

Chr3.Text = "E"

End If

If str(12) = "e" Then

Chr2.Text = "E"

End If

If str(13) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 15 Then

If str(0) = "e" Then

Chr15.Text = "E"

End If

If str(1) = "e" Then

Chr14.Text = "E"

End If

If str(2) = "e" Then

Chr13.Text = "E"

End If

If str(3) = "e" Then

Chr12.Text = "E"

End If

If str(4) = "e" Then

Chr11.Text = "E"

End If

If str(5) = "e" Then

Chr10.Text = "E"

End If

If str(6) = "e" Then

Chr9.Text = "E"

End If

If str(7) = "e" Then

Chr8.Text = "E"

End If

If str(8) = "e" Then

Chr7.Text = "E"

End If

If str(9) = "e" Then

Chr6.Text = "E"

End If

If str(10) = "e" Then

Chr5.Text = "E"

End If

If str(11) = "e" Then

Chr4.Text = "E"

End If

If str(12) = "e" Then

Chr3.Text = "E"

End If

If str(13) = "e" Then

Chr2.Text = "E"

End If

If str(14) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 16 Then

If str(0) = "e" Then

Chr16.Text = "E"

End If

If str(1) = "e" Then

Chr15.Text = "E"

End If

If str(2) = "e" Then

Chr14.Text = "E"

End If

If str(3) = "e" Then

Chr13.Text = "E"

End If

If str(4) = "e" Then

Chr12.Text = "E"

End If

If str(5) = "e" Then

Chr11.Text = "E"

End If

If str(6) = "e" Then

Chr10.Text = "E"

End If

If str(7) = "e" Then

Chr9.Text = "E"

End If

If str(8) = "e" Then

Chr8.Text = "E"

End If

If str(9) = "e" Then

Chr7.Text = "E"

End If

If str(10) = "e" Then

Chr6.Text = "E"

End If

If str(11) = "e" Then

Chr5.Text = "E"

End If

If str(12) = "e" Then

Chr4.Text = "E"

End If

If str(13) = "e" Then

Chr3.Text = "E"

End If

If str(14) = "e" Then

Chr2.Text = "E"

End If

If str(15) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 17 Then

If str(0) = "e" Then

Chr17.Text = "E"

End If

If str(1) = "e" Then

Chr16.Text = "E"

End If

If str(2) = "e" Then

Chr15.Text = "E"

End If

If str(3) = "e" Then

Chr14.Text = "E"

End If

If str(4) = "e" Then

Chr13.Text = "E"

End If

If str(5) = "e" Then

Chr12.Text = "E"

End If

If str(6) = "e" Then

Chr11.Text = "E"

End If

If str(7) = "e" Then

Chr10.Text = "E"

End If

If str(8) = "e" Then

Chr9.Text = "E"

End If

If str(9) = "e" Then

Chr8.Text = "E"

End If

If str(10) = "e" Then

Chr7.Text = "E"

End If

If str(11) = "e" Then

Chr6.Text = "E"

End If

If str(12) = "e" Then

Chr5.Text = "E"

End If

If str(13) = "e" Then

Chr4.Text = "E"

End If

If str(14) = "e" Then

Chr3.Text = "E"

End If

If str(15) = "e" Then

Chr2.Text = "E"

End If

If str(16) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 18 Then

If str(0) = "e" Then

Chr18.Text = "E"

End If

If str(1) = "e" Then

Chr17.Text = "E"

End If

If str(2) = "e" Then

Chr16.Text = "E"

End If

If str(3) = "e" Then

Chr15.Text = "E"

End If

If str(4) = "e" Then

Chr14.Text = "E"

End If

If str(5) = "e" Then

Chr13.Text = "E"

End If

If str(6) = "e" Then

Chr12.Text = "E"

End If

If str(7) = "e" Then

Chr11.Text = "E"

End If

If str(8) = "e" Then

Chr10.Text = "E"

End If

If str(9) = "e" Then

Chr9.Text = "E"

End If

If str(10) = "e" Then

Chr8.Text = "E"

End If

If str(11) = "e" Then

Chr7.Text = "E"

End If

If str(12) = "e" Then

Chr6.Text = "E"

End If

If str(13) = "e" Then

Chr5.Text = "E"

End If

If str(14) = "e" Then

Chr4.Text = "E"

End If

If str(15) = "e" Then

Chr3.Text = "E"

End If

If str(16) = "e" Then

Chr2.Text = "E"

End If

If str(17) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 19 Then

If str(0) = "e" Then

Chr19.Text = "E"

End If

If str(1) = "e" Then

Chr18.Text = "E"

End If

If str(2) = "e" Then

Chr17.Text = "E"

End If

If str(3) = "e" Then

Chr16.Text = "E"

End If

If str(4) = "e" Then

Chr15.Text = "E"

End If

If str(5) = "e" Then

Chr14.Text = "E"

End If

If str(6) = "e" Then

Chr13.Text = "E"

End If

If str(7) = "e" Then

Chr12.Text = "E"

End If

If str(8) = "e" Then

Chr11.Text = "E"

End If

If str(9) = "e" Then

Chr10.Text = "E"

End If

If str(10) = "e" Then

Chr9.Text = "E"

End If

If str(11) = "e" Then

Chr8.Text = "E"

End If

If str(12) = "e" Then

Chr7.Text = "E"

End If

If str(13) = "e" Then

Chr6.Text = "E"

End If

If str(14) = "e" Then

Chr5.Text = "E"

End If

If str(15) = "e" Then

Chr4.Text = "E"

End If

If str(16) = "e" Then

Chr3.Text = "E"

End If

If str(17) = "e" Then

Chr2.Text = "E"

End If

If str(18) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 20 Then

If str(0) = "e" Then

Chr20.Text = "E"

End If

If str(1) = "e" Then

Chr19.Text = "E"

End If

If str(2) = "e" Then

Chr18.Text = "E"

End If

If str(3) = "e" Then

Chr17.Text = "E"

End If

If str(4) = "e" Then

Chr16.Text = "E"

End If

If str(5) = "e" Then

Chr15.Text = "E"

End If

If str(6) = "e" Then

Chr14.Text = "E"

End If

If str(7) = "e" Then

Chr13.Text = "E"

End If

If str(8) = "e" Then

Chr12.Text = "E"

End If

If str(9) = "e" Then

Chr11.Text = "E"

End If

If str(10) = "e" Then

Chr10.Text = "E"

End If

If str(11) = "e" Then

Chr9.Text = "E"

End If

If str(12) = "e" Then

Chr8.Text = "E"

End If

If str(13) = "e" Then

Chr7.Text = "E"

End If

If str(14) = "e" Then

Chr6.Text = "E"

End If

If str(15) = "e" Then

Chr5.Text = "E"

End If

If str(16) = "e" Then

Chr4.Text = "E"

End If

If str(17) = "e" Then

Chr3.Text = "E"

End If

If str(18) = "e" Then

Chr2.Text = "E"

End If

If str(19) = "e" Then

Chr1.Text = "E"

End If

End If

If InStr(Word_in.Text, "e", CompareMethod.Text) = 0 Then

If f_chr1.Text = "" Then

f_chr1.Text = "E"

ElseIf f_chr2.Text = "" Then

f_chr2.Text = "E"

ElseIf f_chr3.Text = "" Then

f_chr3.Text = "E"

ElseIf f_chr4.Text = "" Then

f_chr4.Text = "E"

ElseIf f_chr5.Text = "" Then

f_chr5.Text = "E"

ElseIf f_chr6.Text = "" Then

f_chr6.Text = "E"

ElseIf f_chr7.Text = "" Then

f_chr7.Text = "E"

ElseIf f_chr8.Text = "" Then

f_chr8.Text = "E"

ElseIf f_chr9.Text = "" Then

f_chr9.Text = "E"

ElseIf f_chr10.Text = "" Then

f_chr10.Text = "E"

ElseIf f_chr11.Text = "" Then

f_chr11.Text = "E"

End If

End If

End Sub

    Button   Name  6-  F.          .

 19.7. -  .

Private Sub F_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles F.Click

F.Enabled = False

nums = Len(Word_in.Text)

Try

str(0) = Mid(Word_in.Text, nums, 1)

str(1) = Mid(Word_in.Text, nums  1, 1)

str(2) = Mid(Word_in.Text, nums  2, 1)

str(3) = Mid(Word_in.Text, nums  3, 1)

str(4) = Mid(Word_in.Text, nums  4, 1)

str(5) = Mid(Word_in.Text, nums  5, 1)

str(6) = Mid(Word_in.Text, nums  6, 1)

str(7) = Mid(Word_in.Text, nums  7, 1)

str(8) = Mid(Word_in.Text, nums  8, 1)

str(9) = Mid(Word_in.Text, nums  9, 1)

str(10) = Mid(Word_in.Text, nums  10, 1)

str(11) = Mid(Word_in.Text, nums  11, 1)

str(12) = Mid(Word_in.Text, nums  12, 1)

str(13) = Mid(Word_in.Text, nums  13, 1)

str(14) = Mid(Word_in.Text, nums  14, 1)

str(15) = Mid(Word_in.Text, nums  15, 1)

str(16) = Mid(Word_in.Text, nums  16, 1)

str(17) = Mid(Word_in.Text, nums  17, 1)

str(18) = Mid(Word_in.Text, nums  18, 1)

str(19) = Mid(Word_in.Text, nums  19, 1)

Catch ex As Exception

End Try

If Word_in.TextLength = 1 Then

If str(0) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 2 Then

If str(1) = "f" Then

Chr1.Text = "F"

End If

If str(0) = "f" Then

Chr2.Text = "F"

End If

ElseIf Word_in.TextLength = 3 Then

If str(0) = "f" Then

Chr3.Text = "F"

End If

If str(1) = "f" Then

Chr2.Text = "F"

End If

If str(2) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 4 Then

If str(0) = "f" Then

Chr4.Text = "F"

End If

If str(1) = "f" Then

Chr3.Text = "F"

End If

If str(2) = "f" Then

Chr2.Text = "F"

End If

If str(3) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 5 Then

If str(0) = "f" Then

Chr5.Text = "F"

End If

If str(1) = "f" Then

Chr4.Text = "F"

End If

If str(2) = "f" Then

Chr3.Text = "F"

End If

If str(3) = "f" Then

Chr2.Text = "F"

End If

If str(4) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 6 Then

If str(0) = "f" Then

Chr6.Text = "F"

End If

If str(1) = "f" Then

Chr5.Text = "F"

End If

If str(2) = "f" Then

Chr4.Text = "F"

End If

If str(3) = "f" Then

Chr3.Text = "F"

End If

If str(4) = "f" Then

Chr2.Text = "F"

End If

If str(5) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 7 Then

If str(0) = "f" Then

Chr7.Text = "F"

End If

If str(1) = "f" Then

Chr6.Text = "F"

End If

If str(2) = "f" Then

Chr5.Text = "F"

End If

If str(3) = "f" Then

Chr4.Text = "F"

End If

If str(4) = "f" Then

Chr3.Text = "F"

End If

If str(5) = "f" Then

Chr2.Text = "F"

End If

If str(6) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 8 Then

If str(0) = "f" Then

Chr8.Text = "F"

End If

If str(1) = "f" Then

Chr7.Text = "F"

End If

If str(2) = "f" Then

Chr6.Text = "F"

End If

If str(3) = "f" Then

Chr5.Text = "F"

End If

If str(4) = "f" Then

Chr4.Text = "F"

End If

If str(5) = "f" Then

Chr3.Text = "F"

End If

If str(6) = "f" Then

Chr2.Text = "F"

End If

If str(7) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 9 Then

If str(0) = "f" Then

Chr9.Text = "F"

End If

If str(1) = "f" Then

Chr8.Text = "F"

End If

If str(2) = "f" Then

Chr7.Text = "F"

End If

If str(3) = "f" Then

Chr6.Text = "F"

End If

If str(4) = "f" Then

Chr5.Text = "F"

End If

If str(5) = "f" Then

Chr4.Text = "F"

End If

If str(6) = "f" Then

Chr3.Text = "F"

End If

If str(7) = "f" Then

Chr2.Text = "F"

End If

If str(8) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 10 Then

If str(0) = "f" Then

Chr10.Text = "F"

End If

If str(1) = "f" Then

Chr9.Text = "F"

End If

If str(2) = "f" Then

Chr8.Text = "F"

End If

If str(3) = "f" Then

Chr7.Text = "F"

End If

If str(4) = "f" Then

Chr6.Text = "F"

End If

If str(5) = "f" Then

Chr5.Text = "F"

End If

If str(6) = "f" Then

Chr4.Text = "F"

End If

If str(7) = "f" Then

Chr3.Text = "F"

End If

If str(8) = "f" Then

Chr2.Text = "F"

End If

If str(9) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 11 Then

If str(0) = "f" Then

Chr11.Text = "F"

End If

If str(1) = "f" Then

Chr10.Text = "F"

End If

If str(2) = "f" Then

Chr9.Text = "F"

End If

If str(3) = "f" Then

Chr8.Text = "F"

End If

If str(4) = "f" Then

Chr7.Text = "F"

End If

If str(5) = "f" Then

Chr6.Text = "F"

End If

If str(6) = "f" Then

Chr5.Text = "F"

End If

If str(7) = "f" Then

Chr4.Text = "F"

End If

If str(8) = "f" Then

Chr3.Text = "F"

End If

If str(9) = "f" Then

Chr2.Text = "F"

End If

If str(10) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 12 Then

If str(0) = "f" Then

Chr12.Text = "F"

End If

If str(1) = "f" Then

Chr11.Text = "F"

End If

If str(2) = "f" Then

Chr10.Text = "F"

End If

If str(3) = "f" Then

Chr9.Text = "F"

End If

If str(4) = "f" Then

Chr8.Text = "F"

End If

If str(5) = "f" Then

Chr7.Text = "F"

End If

If str(6) = "f" Then

Chr6.Text = "F"

End If

If str(7) = "f" Then

Chr5.Text = "F"

End If

If str(8) = "f" Then

Chr4.Text = "F"

End If

If str(9) = "f" Then

Chr3.Text = "F"

End If

If str(10) = "f" Then

Chr2.Text = "F"

End If

If str(11) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 13 Then

If str(0) = "f" Then

Chr13.Text = "F"

End If

If str(1) = "f" Then

Chr12.Text = "F"

End If

If str(2) = "f" Then

Chr11.Text = "F"

End If

If str(3) = "f" Then

Chr10.Text = "F"

End If

If str(4) = "f" Then

Chr9.Text = "F"

End If

If str(5) = "f" Then

Chr8.Text = "F"

End If

If str(6) = "f" Then

Chr7.Text = "F"

End If

If str(7) = "f" Then

Chr6.Text = "F"

End If

If str(8) = "f" Then

Chr5.Text = "F"

End If

If str(9) = "f" Then

Chr4.Text = "F"

End If

If str(10) = "f" Then

Chr3.Text = "F"

End If

If str(11) = "f" Then

Chr2.Text = "F"

End If

If str(12) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 14 Then

If str(0) = "f" Then

Chr14.Text = "F"

End If

If str(1) = "f" Then

Chr13.Text = "F"

End If

If str(2) = "f" Then

Chr12.Text = "F"

End If

If str(3) = "f" Then

Chr11.Text = "F"

End If

If str(4) = "f" Then

Chr10.Text = "F"

End If

If str(5) = "f" Then

Chr9.Text = "F"

End If

If str(6) = "f" Then

Chr8.Text = "F"

End If

If str(7) = "f" Then

Chr7.Text = "F"

End If

If str(8) = "f" Then

Chr6.Text = "F"

End If

If str(9) = "f" Then

Chr5.Text = "F"

End If

If str(10) = "f" Then

Chr4.Text = "F"

End If

If str(11) = "f" Then

Chr3.Text = "F"

End If

If str(12) = "f" Then

Chr2.Text = "F"

End If

If str(13) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 15 Then

If str(0) = "f" Then

Chr15.Text = "F"

End If

If str(1) = "f" Then

Chr14.Text = "F"

End If

If str(2) = "f" Then

Chr13.Text = "F"

End If

If str(3) = "f" Then

Chr12.Text = "F"

End If

If str(4) = "f" Then

Chr11.Text = "F"

End If

If str(5) = "f" Then

Chr10.Text = "F"

End If

If str(6) = "f" Then

Chr9.Text = "F"

End If

If str(7) = "f" Then

Chr8.Text = "F"

End If

If str(8) = "f" Then

Chr7.Text = "F"

End If

If str(9) = "f" Then

Chr6.Text = "F"

End If

If str(10) = "f" Then

Chr5.Text = "F"

End If

If str(11) = "f" Then

Chr4.Text = "F"

End If

If str(12) = "f" Then

Chr3.Text = "F"

End If

If str(13) = "f" Then

Chr2.Text = "F"

End If

If str(14) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 16 Then

If str(0) = "f" Then

Chr16.Text = "F"

End If

If str(1) = "f" Then

Chr15.Text = "F"

End If

If str(2) = "f" Then

Chr14.Text = "F"

End If

If str(3) = "f" Then

Chr13.Text = "F"

End If

If str(4) = "f" Then

Chr12.Text = "F"

End If

If str(5) = "f" Then

Chr11.Text = "F"

End If

If str(6) = "f" Then

Chr10.Text = "F"

End If

If str(7) = "f" Then

Chr9.Text = "F"

End If

If str(8) = "f" Then

Chr8.Text = "F"

End If

If str(9) = "f" Then

Chr7.Text = "F"

End If

If str(10) = "f" Then

Chr6.Text = "F"

End If

If str(11) = "f" Then

Chr5.Text = "F"

End If

If str(12) = "f" Then

Chr4.Text = "F"

End If

If str(13) = "f" Then

Chr3.Text = "F"

End If

If str(14) = "f" Then

Chr2.Text = "F"

End If

If str(15) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 17 Then

If str(0) = "f" Then

Chr17.Text = "F"

End If

If str(1) = "f" Then

Chr16.Text = "F"

End If

If str(2) = "f" Then

Chr15.Text = "F"

End If

If str(3) = "f" Then

Chr14.Text = "F"

End If

If str(4) = "f" Then

Chr13.Text = "F"

End If

If str(5) = "f" Then

Chr12.Text = "F"

End If

If str(6) = "f" Then

Chr11.Text = "F"

End If

If str(7) = "f" Then

Chr10.Text = "F"

End If

If str(8) = "f" Then

Chr9.Text = "F"

End If

If str(9) = "f" Then

Chr8.Text = "F"




  .


   .

   ,     (https://www.litres.ru/pages/biblio_book/?art=68886006)  .

      Visa, MasterCard, Maestro,    ,   ,     ,  PayPal, WebMoney, ., QIWI ,       .


