Exercice VB: Programme Conjugaison des verbes

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

Public Class Form1
    Dim i, position, er As Int16
    Private Sub conjuger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pers() As String = {"je", "tu", "il/elle", "nous", "vous", "ils/elles"}
        Dim term() As String = {"e", "es", "e", "ons", "ez", "ent"}
        Dim terminison() As String = {"is", "is", "it", "ssons", "ssez", "ssent"}
        Dim w(6), v, x, verbe As String
 
        verbe = TextBox1.Text
        v = verbe.Substring(verbe.Length - 2, 2)
 
        If String.Equals(v, "er") Then
 
            x = verbe.Replace("er", "")
            MsgBox("ce verbe est du 1er groupe")
 
            For i = 0 To 5
                w(i) = (pers(i) + "  " + x + term(i))
                ListBox1.Items.Add(w(i))
            Next
        Else
            MsgBox(" ce verbe n'est pas du 1èr groupe")
        End If
        If String.Equals(v, "ir") Then
            x = verbe.Replace("ir", "")
            MsgBox("ce verbe est du 2eme groupe")
            For i = 0 To 5
                w(i) = (pers(i) + "  " + x + terminison(i))
                ListBox1.Items.Add(w(i))
            Next
        Else
            MsgBox(" ce verbe n'est pas du 2eme groupe")
        End If
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
    End Sub
End Class