Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Beginner
Date of registration: Sep 26th 2011
Location: Preveza
Occupation: Photographer - Programmer
Beginner
Date of registration: Sep 26th 2011
Location: Preveza
Occupation: Photographer - Programmer
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 |
Private Sub Command1_Click() Text1(1).Text = "" Dim a As String = "" Dim c As String = Text1(0).Text ' here you define c Dim b As String = "" c = "" ' and here you makes the string empty Dim E As String = "" Dim k As Boolean = False If Text1(0).Text <> "" Then Dim mtop As Integer = Len(Text1(0).Text) Dim i As Integer = 0 While i < mtop k = False i = i + 1 e = Mid$(Text1(0).Text, i, 1) a = LCase(e) k = Not (a = e) Select Case a Case "a" If i < mtop Then If LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Or LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Then i = i + 1 b = "e" ElseIf LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Or LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Then If i < mtop - 1 Then Select Case LCase$(Mid$(Text1(0).Text, i + 2, 1)) Case "?", "p", "t", "?", "f", "?", "s", "?", " " b = "af" Case Else b = "av" End Select Else b = "af" End If i = i + 1 Else b = "a" End If Else b = "a" End If Case "?" b = "a" Case "ß" b = "v" Case "?" If i < mtop Then If Mid$(Text1(0).Text, i + 1, 1) = "?" Then i = i + 1 b = "gq" Else b = "g" End If Else b = "g" End If Case "d" b = "d" Case "e" If i < mtop Then If LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Or LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Then i = i + 1 b = "i" ElseIf LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Or LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Then If i < mtop - 1 Then Select Case LCase$(Mid$(Text1(0).Text, i + 2, 1)) Case "?", "p", "t", "?", "f", "?", "s", "?", " " b = "ef" Case Else b = "ev" End Select Else b = "ef" End If i = i + 1 Else b = "e" End If Else b = "e" End If Case "?" b = "e" Case "?" b = "x" Case "?", "?", "?", "?", "?", "?", "?", "?", "?", "?" b = "i" Case "?" If i < mtop Then If LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Or LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Then i = i + 1 b = "i" ElseIf LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Or LCase$(Mid$(Text1(0).Text, i + 1, 1)) = "?" Then i = i + 1 b = "u" Else b = "?" End If Else b = "?" End If Case "?", "?", "?" b = "?" Case "?" If i < mtop Then If Mid$(Text1(0).Text, i + 1, 1) = "?" Then i = i + 1 End If End If b = "r" Case "s", "?" If i < mtop Then If Mid$(Text1(0).Text, i + 1, 1) = "s" Then i = i + 1 End If End If b = "s" Case "?" If i < mtop Then If Mid$(Text1(0).Text, i + 1, 1) = "?" Then i = i + 1 End If End If b = "l" Case "µ" If i < mtop Then If Mid$(Text1(0).Text, i + 1, 1) = "µ" Then i = i + 1 End If End If b = "m" Case "?" If i < mtop Then If Mid$(Text1(0).Text, i + 1, 1) = "?" Then i = i + 1 End If End If b = "n" Case "p" If i < mtop Then If Mid$(Text1(0).Text, i + 1, 1) = "p" Then i = i + 1 End If End If b = "p" Case "?" If i < mtop Then If Mid$(Text1(0).Text, i + 1, 1) = "?" Then i = i + 1 End If End If b = "q" Case "?" b = "z" Case "?" b = "j" Case "t" b = "t" Case "f" b = "f" Case "?" b = "k" Case "?" b = "c" Case Else b = a End Select If k Then c = c + UCase$(Left$(b, 1)) + Mid$(b, 2) Else c = c + b End If Wend Text1(1).Text = c End If End Sub |
This post has been edited 1 times, last edit by "theuserbl" (Sep 26th 2011, 6:58pm)
Beginner
Date of registration: Sep 26th 2011
Location: Preveza
Occupation: Photographer - Programmer