Increment & Decrement des mots

Version imprimable

Bonjour,

j'arrive pas faire listé ma list de mot en cliquant sur 2 bouton pour défiler un par un.

Code:

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
Dim CharLetters As String() = {"autres", "un", "Bar", "coin", "dormir"}....etc
Label1.Text = GetMot(CharLetters, " -1") <= decrement du mot un par un
        If Label1.Text = "autres" Then
            Button1.Enabled = False
        Else
            Button1.Enabled = True
        End If
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Label1.Text = GetMot(CharLetters, " 1") <= increment du mot un par un
        If Label1.Text = "dormir" Then
            Button2.Enabled = False
        Else
            Button2.Enabled = True
        End If
    End Sub
 
    Private Function GetMot(CharLetters As String(), counter As String) As String
        Dim arr As String() = New String(CharLetters.Length - 1) {}
        Dim j As Integer = 0
        For i = 0 To CharLetters.Length - 1
            arr(i) = CharLetters(j)
            j += counter
        Next
        Return arr(counter)
    End Function

pouvez-vous m'aider faire défiler un par un ma list de mot avec deux boutons? merci d'avance

26/06/2022, 13h01
Thumb down
Bonjour,
pour info un if test si une condition est vraie ou fausse True/False il n'est pas utile de la tester pour en affecter un Boolean de la même valeur ou de son contraire Not True!
Code:

1 2 Button1.Enabled = Label1.Text <> "autres"
pour le reste je ne comprends pas ce qu'est sensé faire la fonction GetMot!
26/06/2022, 13h43
Miska59

Bonjour, merci d'avoir répondu

Citation:

pour le reste je ne comprends pas ce qu'est sensé faire la fonction GetMot!

le but c'est faire défiler la list de mot un par un dans CharLetters en cliquant sur les boutons.

exemple suivant en affichant sur label1 : autres aprés un aprés bar ....etc

exemple arrière en affichant sur label1 : bar aprés un aprés autres. <=fin

es ce que vous avez compris?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim CharLetters As String() = {"autres", "un", "Bar", "coin", "dormir"} '....etc
    Dim Itm As Integer=0
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)  Handles Button1.Click
       Label1.Text = GetMot(CharLetters, Itm, -1)   ' <= decrement du mot un par un
      End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) ' Handles Button2.Click
        Label1.Text = GetMot(CharLetters, Itm, 1)    
    End Sub
 
    Private Function GetMot(CharLetters As String(), ByRef Itm As Integer, IncreM As Integer) As String
        Itm+=IncreM
        Button1.Enabled = CharLetters(Itm) <> "autres"
        Button2.Enabled = CharLetters(Itm) <> "dormir"
        Return CharLetters(Itm)
    End Function

26/06/2022, 15h08
Miska59

merci pour ton aide Thumb down ça fonctionne très bien. merci encore pour ton soutien:bravo::bravo:

Sérieusement !

Code:

1
2
Button1.Enabled = CharLetters(Itm) <> "autres"
Button2.Enabled = CharLetters(Itm) <> "dormir"

Tester des valeurs en dur, ce n'est pas très malin.

Code:

1
2
Button1.Enabled = CharLetters(Itm) <> CharLetters.First()
Button2.Enabled = CharLetters(Itm) <> CharLetters.Last()

27/06/2022, 12h58
Thumb down

Bonjour,
Effectivement popo , j'ai simplifié le code originel mais j'ai pas pensé à ça !