Ajouter
saveourssouls
Messages postés
46
Date d'inscription
vendredi 12 décembre 2003
Statut
Membre
Dernière intervention
18 mars 2005
-
3 févr. 2005 à 19:52
saveourssouls Messages postés 46 Date d'inscription vendredi 12 décembre 2003 Statut Membre Dernière intervention 18 mars 2005 - 4 févr. 2005 à 21:55
saveourssouls Messages postés 46 Date d'inscription vendredi 12 décembre 2003 Statut Membre Dernière intervention 18 mars 2005 - 4 févr. 2005 à 21:55
7 réponses
fg10
Messages postés
34
Date d'inscription
samedi 26 avril 2003
Statut
Membre
Dernière intervention
24 mai 2010
1
3 févr. 2005 à 22:01
3 févr. 2005 à 22:01
ca devrait ressembler a:
Dim La_table(63)
Dim Cpt_Timer
Dim Le_Mot
Private Sub Form_Load()
La_table(1) = " "
For i = 1 To 26
La_table(i + 1) = Chr(96 + i)
Next
For i = 1 To 26
La_table(27 + i) = Chr(64 + i)
Next
For i = 0 To 9
La_table(54 + i) = Chr(48 + i)
Next
Le_Mot = "a"
List1.AddItem Cpt_Timer & "= " & Le_Mot
List1.AddItem "-----"
Cpt_Timer = 1
End Sub
Private Sub Timer1_Timer()
Dim Index1
Dim Index2
If Cpt_Timer < 64 Then
Le_Mot = La_table(Cpt_Timer)
List1.AddItem Cpt_Timer & "= " & Le_Mot
Else
Index1 = Cpt_Timer Mod 63
Index2 = Cpt_Timer \ 63
Le_Mot = La_table(Index2) & La_table(Index1)
List1.AddItem Cpt_Timer & "=" & Le_Mot
End If
Cpt_Timer = Cpt_Timer + 1
'il faut arreter a une valeur If Cpt_Timer 300 Then Timer1.Enabled False
End Sub
Dim La_table(63)
Dim Cpt_Timer
Dim Le_Mot
Private Sub Form_Load()
La_table(1) = " "
For i = 1 To 26
La_table(i + 1) = Chr(96 + i)
Next
For i = 1 To 26
La_table(27 + i) = Chr(64 + i)
Next
For i = 0 To 9
La_table(54 + i) = Chr(48 + i)
Next
Le_Mot = "a"
List1.AddItem Cpt_Timer & "= " & Le_Mot
List1.AddItem "-----"
Cpt_Timer = 1
End Sub
Private Sub Timer1_Timer()
Dim Index1
Dim Index2
If Cpt_Timer < 64 Then
Le_Mot = La_table(Cpt_Timer)
List1.AddItem Cpt_Timer & "= " & Le_Mot
Else
Index1 = Cpt_Timer Mod 63
Index2 = Cpt_Timer \ 63
Le_Mot = La_table(Index2) & La_table(Index1)
List1.AddItem Cpt_Timer & "=" & Le_Mot
End If
Cpt_Timer = Cpt_Timer + 1
'il faut arreter a une valeur If Cpt_Timer 300 Then Timer1.Enabled False
End Sub
saveourssouls
Messages postés
46
Date d'inscription
vendredi 12 décembre 2003
Statut
Membre
Dernière intervention
18 mars 2005
3 févr. 2005 à 22:15
3 févr. 2005 à 22:15
Je vé etudier ca de près > si je comrepnds pas un élement je te poserai la question.
Merci encore.
Merci encore.
saveourssouls
Messages postés
46
Date d'inscription
vendredi 12 décembre 2003
Statut
Membre
Dernière intervention
18 mars 2005
3 févr. 2005 à 23:21
3 févr. 2005 à 23:21
Heu il y a plusieurs problèmes.
1.il ne dépasse pas une limite (il buggue erreur 6)
2.tout se passe dans une liste.list mais je voudraiq eu se soit dans un textbox donc quil renouvelle a chaque fois le mot.
3.il y a des nombres a cotés des mots augmentés > est-il possible de lenlever.
j'ai essayer de modifier moi m^m mais ca a merder donc je me rends a ton inteligence.
1.il ne dépasse pas une limite (il buggue erreur 6)
2.tout se passe dans une liste.list mais je voudraiq eu se soit dans un textbox donc quil renouvelle a chaque fois le mot.
3.il y a des nombres a cotés des mots augmentés > est-il possible de lenlever.
j'ai essayer de modifier moi m^m mais ca a merder donc je me rends a ton inteligence.
fg10
Messages postés
34
Date d'inscription
samedi 26 avril 2003
Statut
Membre
Dernière intervention
24 mai 2010
1
4 févr. 2005 à 09:30
4 févr. 2005 à 09:30
Pour avoir dans un textbox il faut remplacer :
List1.AddItem Cpt_Timer & "=" & Le_Mot
par textbox= Le_Mot
A quelle limite il buggue ?
List1.AddItem Cpt_Timer & "=" & Le_Mot
par textbox= Le_Mot
A quelle limite il buggue ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
saveourssouls
Messages postés
46
Date d'inscription
vendredi 12 décembre 2003
Statut
Membre
Dernière intervention
18 mars 2005
4 févr. 2005 à 21:54
4 févr. 2005 à 21:54
Merci bc de te préocupé de moi.
En faite tout marche (m^m avec le changement du textbox).
Le seul truc ui marche pas c'est que après 6i je crois il met cette erreur :
erreur9
erreur dindice
et il me renvoie vers cette ligne :
Le_Mot = La_table(Index2) & La_table(Index1)
En faite tout marche (m^m avec le changement du textbox).
Le seul truc ui marche pas c'est que après 6i je crois il met cette erreur :
erreur9
erreur dindice
et il me renvoie vers cette ligne :
Le_Mot = La_table(Index2) & La_table(Index1)
saveourssouls
Messages postés
46
Date d'inscription
vendredi 12 décembre 2003
Statut
Membre
Dernière intervention
18 mars 2005
4 févr. 2005 à 21:55
4 févr. 2005 à 21:55
Merci bc de te préocupé de moi.
En faite tout marche (m^m avec le changement du textbox).
Le seul truc ui marche pas c'est que après 6i je crois il met cette erreur :
erreur9
erreur dindice
et il me renvoie vers cette ligne :
Le_Mot = La_table(Index2) & La_table(Index1)
En faite tout marche (m^m avec le changement du textbox).
Le seul truc ui marche pas c'est que après 6i je crois il met cette erreur :
erreur9
erreur dindice
et il me renvoie vers cette ligne :
Le_Mot = La_table(Index2) & La_table(Index1)
saveourssouls
Messages postés
46
Date d'inscription
vendredi 12 décembre 2003
Statut
Membre
Dernière intervention
18 mars 2005
4 févr. 2005 à 21:55
4 févr. 2005 à 21:55
Merci bc de te préocupé de moi.
En faite tout marche (m^m avec le changement du textbox).
Le seul truc ui marche pas c'est que après 6i je crois il met cette erreur :
erreur9
erreur dindice
et il me renvoie vers cette ligne :
Le_Mot = La_table(Index2) & La_table(Index1)
En faite tout marche (m^m avec le changement du textbox).
Le seul truc ui marche pas c'est que après 6i je crois il met cette erreur :
erreur9
erreur dindice
et il me renvoie vers cette ligne :
Le_Mot = La_table(Index2) & La_table(Index1)
