Afficher chaîne de caractères dans MsgBox

Version imprimable

Bonjour/Bonsoir,

Voila, depuis ce matin, j'ai dans l'idée de me faire un chrono, pour tester mes performances au Rubik's Cube ;).

Donc,j'ai réussi a faire, un bouton pour lancer le chrono, un autre pour l’arrêter et enfin un dernier pour remettre a ZérO.
Un label avec le temps, mais je n'arrive pas, à: Générer une chaîne de 20 caractères.
J'ai déjà la fonction pour la chaîne, mais, je n'arrive pas a la faire apparaître en MsgBox,

Voila mon code:

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
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
 
Public Class FormMain
    Dim ChronoStarted As Boolean = False
    Dim temps2 As Date
    Dim TempsDepart As New Date
    Dim TempsFin As New Date
 
 
    Function CreateAleatoire(ByVal StrTaille)
 
        Dim l, s, i, Dictionnaire
        If StrTaille = 20 Then
 
        End If
        Exit Function
 
        Dictionnaire = "F F' F2 B B' B2 L L' L2 R R' R2 U U' U2 D D' D2"
 
        l = len(Dictionnaire)
        For i = 0 To StrTaille - 1
            randomize()
            s = s & mid(Dictionnaire, int(rnd * l) + 1, 1)
        Next
        CreateAleatoire = s
 
    End Function
 
    Private Sub FormMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ChronoStarted = False
        TimerChrono.Enabled = True
        TimerChrono.Interval = 1
        LabelCompteur.Text = "00:00:00:0000000"
        TempsDepart = Now
        TempsFin = Now
        ButtonReset.Enabled = False
 
 
    End Sub
    Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStart.Click
        If ChronoStarted Then
            ChronoStarted = False
            ButtonStart.Text = "Start"
            ButtonReset.Enabled = True
        Else
            ChronoStarted = True
            ButtonStart.Text = "Stop"
            TempsDepart = Now
            ButtonReset.Enabled = False
        End If
 
    End Sub
    Private Sub TimerChrono_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerChrono.Tick
        If ChronoStarted Then
            TempsFin = Now
            LabelCompteur.Text = (TempsFin - TempsDepart).ToString
            LabelCompteur.Refresh()
        End If
    End Sub
    Private Sub ButtonReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonReset.Click
        LabelCompteur.Text = "00:00:00:0000000"
 
    End Sub
 
End Class

22/07/2011, 08h10
Pol63

c'est messagebox.show() qu'il te manque ?

tu as des variables non typées
et pour le random dans un string, il aurait été plus propre d'utiliser une collection
22/07/2011, 08h45
narutobaka
Bonjour,

J'avoue que je n'ai pas compris l'interet de ta fonction

Code:

Function CreateAleatoire(ByVal StrTaille)

A quoi va te servir l'affichage de la msgbox?

parce que la je ne vois pas d'instruction de type :

Code:

Msgbox("Mon message que je veux affiche"+Valeur_de_type_string)

Si tu souhaites récupérer la valeur de ton label ca donne ceci normallement :
Code:

1 2 3 4 5 6 Dim AffichageTimer as string AffichageTimer = LabelCompteur.Text MsgBox("Temps : " + AffichageTimer)
22/07/2011, 12h50
DoRiiAn

Ben, la fonction CreateAleatoire sert a générer 20 lettres/chiffres pour mélanger mon rubik's cube, et je voudrais que, les 20 lettres/chiffres apparaissent dans un MsgBox
22/07/2011, 13h17
bakman
Ceci ?
Code:

1 2 msgbox(CreateAleatoire(20))
Ta fonction CreateAleatoire doit retourné un string bien évidement ;)

J'ai modifié ta fonction pour qu'elle renvoi une chaine de caractère

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
 
    Private Function CreateAleatoire(ByVal StrTaille) As String
 
        Dim l, s, i, Dictionnaire
        If StrTaille > 20 Then
            Exit Function
        ElseIf StrTaille <= 0 Then
            Exit Function
        End If
 
 
        Dictionnaire = "F F' F2 B B' B2 L L' L2 R R' R2 U U' U2 D D' D2"
 
        l = Len(Dictionnaire)
        For i = 0 To StrTaille - 1
            Randomize()
            s = s & Mid(Dictionnaire, Int(Rnd() * l) + 1, 1)
        Next
        Return s
 
    End Function
 
sub monSub()
 msgbox(CreateAleatoire(20))
end sub

La fonction ne reçois n'accepte q'une valeur inférieur ou égale à 20, 0 étant exclu! ;)

22/07/2011, 13h50
DoRiiAn

Merci, sa marche, mais pas tellement comme je le voudrais :s.
Car, sa affiche par exemple: L R L '2 FB' 2'
mais je voudrais que sa affiche, pas exemple: B2 F2 D' B2 L R D U' B D' B L2 U2 F2 L2 R D2 R' B' L' R2 D2 L U' L .

C'est que je voudrais que "F'" soit 1 seul caractère ...

Désolé, je ne suis pas très clair ...
22/07/2011, 17h13
bakman

Sorry mais je comprend pas trop ou tu veux en venir!
Pourrait tu un peu plus rentré dans le détail j'ai pas compris pourquoi tu veux que "F" soit un seul caractère.
Comment tu veux trié ton dictionnaire (je présume qu'il à un ordre logique)
Il faut que tu regarde du coté de ta fonction de tirage aléatoire.
Tu peux toujours utilisé les fonctions de la classe string pour lui donné le format qu'il te conviens.
22/07/2011, 22h51
DoRiiAn

Désolé de ma non-clarté mais, je voudrais en fait, que, au lieu de générer 20 caractères(espace compris) donc, que sa fasse,
en premier caractère:F'
après: L
ensuite:D
comme sa jusqu'a 20 caractères ...
comprends-tu ?
25/07/2011, 16h21
bakman

Dans ce cas je pense qu'il te faut faire un tableau contenant contenant tout les caractères que tu veux puis avec une fonction de random tu tire aléatoirement un caractere via l'indice correspondante du tableau. une fois le caractere tiré tu concatene dans ta variable "s" tu met le tout dans une boucle "for i = 0 to StrTaille" pour avoir le nombre de caractere que tu souhaite est voilou ;)
26/07/2011, 00h41
DoRiiAn

Merci du conseil, je vais googler pour trouver sa ^^
j'vous tient au courant