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
|
Public Class Equation
'Dim a As String
'Dim b As Double
'Dim c As Double
'Dim d As Double
'Dim S As Double
Dim أ = 1
Dim ا = 1
Dim ب = 2
Dim ج = 3
Dim د = 4
Dim ه = 5
Dim و = 6
Dim ز = 7
Dim ح = 8
Dim ط = 9
Dim ي = 10
Dim ك = 20
Dim ل = 30
Dim م = 40
Dim ن = 50
Dim ص = 60
Dim ع = 70
Dim ف = 80
Dim ض = 90
Dim ق = 100
Dim ر = 200
Dim س = 300
Dim ت = 400
Dim ث = 500
Dim خ = 600
Dim ذ = 700
Dim ظ = 800
Dim غ = 900
Dim ش = 1000
Dim Tab1 As String() = {"ا" , "ب", "ج", "د", "ه", "و", "ز", "ح", "ط", "ي", "ك", "ل", "م", "ن", "ص", "ع", "ف", "ض", "ق", "ر", "س", "ت", "ث", "خ", "ذ", "ظ", "غ", "ش"}
Dim Tab2 As Integer() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000}
'Dim leMessage As String = Nbre_a.Text '"Coucou c'est moi"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tab As New Hashtable 'Une HashTable pour stocker des clé/values (ici a/1, b/2, ...)
Dim leMessage As String = Nbre_a.Text '"Coucou c'est moi"
Dim somme As Integer = 0
Dim i As Integer = 0
'For Each caractere As Char In "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'On parcourt chaque lettre de l'alphabet
'For Each caractere As Char In "أبجدهوزحط"
' tab.Add(caractere, i) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
' i += 1
'Next
'For Each caractere As Char In "يكلمنصعف"
' tab.Add(caractere, i) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
' i += 10
'Next
'For Each caractere As Char In "ضقرستثخذظغش" 'On parcourt chaque lettre de l'alphabet
' tab.Add(caractere, i) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
' i += 100
'Next
''msgbox(Tab1(2))
''tab.Add(Tab1(0), 0)
''Dim table As new HashTable()
''For i=0 To 28
'' For Each carh As Char In "أبجدهوزحطيكلمنصعفضقرستثخذظغش"
'' table.Add(carh, i)
'' i +=1
'' Next
''Next
'Dim myHash As Hashtable = CreateHashtable()
For Each caractere As Char In "أبجدهوزحطيكلمنصعفضقرستثخذظغش"
tab.Add(caractere, Tab2(i)) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
i += 1
Next
'Search an Item
'If tab.ContainsValue(Tab2(1)) Then
' MsgBox("الحرف ب موجود")
'Else
' MsgBox("الحرف ب غير موجود")
'End If
'leMessage = leMessage.ToUpper 'On met tout en majuscule car sinon le caractère ne sera pas reconnu (a =/= A)
leMessage = Replace(leMessage, " ", "")
For Each car As Char In leMessage 'on parcourt le message
'For Each k As Integer In Tab1 'on parcourt le message
If tab.ContainsKey(car) Then 'on teste que le caractère parcouru fasse parti de notre Hashtable (ainsi on ne plantera pas sur des espaces ou caractères spéciaux)
'If Tab1(k) <> "" Then 'on teste que le caractère parcouru fasse parti de notre Hashtable (ainsi on ne plantera pas sur des espaces ou caractères spéciaux)
'if inStr(leMessage,"ا") Then 'et ca retourne un variant.
'somme = somme + tab(car)
' somme = somme + Val(Tab1(0)) '+ tab(car) On recupére la valeur numérique associé à notre caractère et on l'ajoute à notre somme
' Else
somme = somme + tab(car)
'End If
End If
'somme = somme + Tab2(car)
'MsgBox(somme)
Next
'Dim kad As String = MsgBox(Mid(leMessage,1,Len(leMessage)))
'MsgBox(Tab2(0))
MsgBox(somme)
Nbre_c.Text = somme
End Sub
Private Sub Effacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Effacer.Click
Nbre_a.Text = ""
Nbre_b.Text = ""
Nbre_c.Text = ""
' Nbre_x.Text = ""
' Nbre_x3.Text = ""
End Sub
Private Sub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quitter.Click
End
End Sub
Private Sub Equation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Visible = False
Me.Hide()
'Accueil.ShowDialog()
End Sub
Private Sub BtnResoudre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnResoudre.Click
'pour le test ... pas encore
End Sub
Sub equation(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByRef x1 As Single, ByVal x2 As Single)
'pour le test ... pas encore
'For Each caractere As Char In "يكلمنصعف"
' tab.Add(caractere, i) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
' i += 10
'Next
''Dim somme As Integer = 0
''Dim test As Integer
''for Each test In Tab
'' somme = somme + Val(test)
''next
'MsgBox(Tab(5))
Nbre_b.Text = MsgBox(Tab2(5))
End Sub
End Class |
Question de Karirovax
Envoyé par karirovax
Bonjour,
Répondre avec citation
( bouton en bas )
)
il faut sélectionner le TextBox1, 
Partager