kgdecaen
Messages postés38Date d'inscriptiondimanche 5 novembre 2000StatutMembreDernière intervention16 décembre 2009 24 janv. 2008 à 20:02
tenpis je suis en train de créer un client irc qui traduit automatiquement les gens qui parle english en francais et quand je parle de francais à english auto hihi et pis je me demande si je le posterais ici il pourrais etre supprimer ici et sinon j'ai un autre truc qui me sert à controler mon pc à distance par ligne de commande irc mais pareil jle garde sinon il va etre supprimer !
cs_windob
Messages postés225Date d'inscriptiondimanche 19 octobre 2003StatutMembreDernière intervention25 août 2008 24 janv. 2008 à 19:48
Déja, c'est un snippet plutot qu'un code mais en plus, sans vouloir etre méchant, ça n'avance a rien.
En plus l'"algorithme" fait peur.
Un simple :
For I = 1 to 255
text1.text = text1.text & chr(i)
Next I
aurait suffit et ce plus simplement, car tu contournerais la lenteur de l'utilisation d'un textbox temporaire.
En plus, meme si tu voulais absolument stocker le numero de ton caractere quelquepart, tu aurais pu utiliser une variable.
Pour finir, comme précisé par le commentaire précédent, le timer est a proscrire pour ce genre d'uilisation. Si tu avais vraiment voulu temporiser l'affciahge des caracteres uns par uns avec un interval conséquent, d'accord mais un timer pour mettre un interval de 10ms, autant faire une boucle qui est faite pour
Vraiment, ce n'est pas a prendre mal mais tu ne peux pas poster ici tous tes petits programmes tests de 4 lignes de codes !
Bonne continuation quand meme :)
kgdecaen
Messages postés38Date d'inscriptiondimanche 5 novembre 2000StatutMembreDernière intervention16 décembre 2009 24 janv. 2008 à 19:39
moi ca marche good ta mon site en title si tu veux
ghuysmans99
Messages postés2496Date d'inscriptionjeudi 14 juillet 2005StatutContributeurDernière intervention 5 juin 20161 24 janv. 2008 à 19:34
Dim t As Boolean
Dim i As Byte
Dim m As String 'le message
Do
m = m & i & " -> " & Chr(i) & vbCrLf
i = i + 1
If i > 255 Then t = True
DoEvents
Loop While Not (t)
MsgBox m
Même chose mais sans timer (c'est totalement déconseillé d'en utiliser un dans ce cas-ci) ...
24 janv. 2008 à 20:02
24 janv. 2008 à 19:48
# text1.Text = text1.Text & vbCrLf & "Chr(" & num.Text & ") : " & Chr(num.Text)# If num.Text 255 Then Timer1.Enabled False
Est-ce une blague ??
Déja, c'est un snippet plutot qu'un code mais en plus, sans vouloir etre méchant, ça n'avance a rien.
En plus l'"algorithme" fait peur.
Un simple :
For I = 1 to 255
text1.text = text1.text & chr(i)
Next I
aurait suffit et ce plus simplement, car tu contournerais la lenteur de l'utilisation d'un textbox temporaire.
En plus, meme si tu voulais absolument stocker le numero de ton caractere quelquepart, tu aurais pu utiliser une variable.
Pour finir, comme précisé par le commentaire précédent, le timer est a proscrire pour ce genre d'uilisation. Si tu avais vraiment voulu temporiser l'affciahge des caracteres uns par uns avec un interval conséquent, d'accord mais un timer pour mettre un interval de 10ms, autant faire une boucle qui est faite pour
Vraiment, ce n'est pas a prendre mal mais tu ne peux pas poster ici tous tes petits programmes tests de 4 lignes de codes !
Bonne continuation quand meme :)
24 janv. 2008 à 19:39
24 janv. 2008 à 19:34
Dim i As Byte
Dim m As String 'le message
Do
m = m & i & " -> " & Chr(i) & vbCrLf
i = i + 1
If i > 255 Then t = True
DoEvents
Loop While Not (t)
MsgBox m
Même chose mais sans timer (c'est totalement déconseillé d'en utiliser un dans ce cas-ci) ...