BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019
-
16 août 2005 à 21:26
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013
-
16 août 2005 à 21:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 16 août 2005 à 21:31
Aucun intérêt dans cette source :
If Bynarie.Text1.Text = "1" Then
Bynarie.Text2.Text = "0001"
End If
If Bynarie.Text1.Text = "2" Then
Bynarie.Text2.Text = "0010"
End If
If Bynarie.Text1.Text = "3" Then
Bynarie.Text2.Text = "0011"
End If
If Bynarie.Text1.Text = "4" Then
Bynarie.Text2.Text = "0100"
End If
If Bynarie.Text1.Text = "5" Then
Bynarie.Text2.Text = "0101"
End If
If Bynarie.Text1.Text = "6" Then
Bynarie.Text2.Text = "0110"
End If
If Bynarie.Text1.Text = "7" Then
Bynarie.Text2.Text = "0111"
End If
If Bynarie.Text1.Text = "8" Then
Bynarie.Text2.Text = "1000"
End If
If Bynarie.Text1.Text = "9" Then
Bynarie.Text2.Text = "1001"
End If
C'est bizarre, ca me donne un goût de déjà vu cà...
BruNews, je te laisse la supprimer ;)
DarK Sidious
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 16 août 2005 à 21:26
un minimum de description SVP:
- but à atteindre.
- moyens mis en oeuvre.
16 août 2005 à 21:31
If Bynarie.Text1.Text = "1" Then
Bynarie.Text2.Text = "0001"
End If
If Bynarie.Text1.Text = "2" Then
Bynarie.Text2.Text = "0010"
End If
If Bynarie.Text1.Text = "3" Then
Bynarie.Text2.Text = "0011"
End If
If Bynarie.Text1.Text = "4" Then
Bynarie.Text2.Text = "0100"
End If
If Bynarie.Text1.Text = "5" Then
Bynarie.Text2.Text = "0101"
End If
If Bynarie.Text1.Text = "6" Then
Bynarie.Text2.Text = "0110"
End If
If Bynarie.Text1.Text = "7" Then
Bynarie.Text2.Text = "0111"
End If
If Bynarie.Text1.Text = "8" Then
Bynarie.Text2.Text = "1000"
End If
If Bynarie.Text1.Text = "9" Then
Bynarie.Text2.Text = "1001"
End If
C'est bizarre, ca me donne un goût de déjà vu cà...
BruNews, je te laisse la supprimer ;)
DarK Sidious
16 août 2005 à 21:26
- but à atteindre.
- moyens mis en oeuvre.
Ne sera pas conservé dans cet état après 23h.