fikriiii
Messages postés27Date d'inscriptionmardi 10 avril 2007StatutMembreDernière intervention11 mai 2007
-
2 mai 2007 à 15:17
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 2014
-
2 mai 2007 à 18:20
Bonjour à toutes et à tous!
(Sous VBAXL) le fait d'écrire tout le code uniquement dans un seul et m^me module, est-il gênant?
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 2 mai 2007 à 15:21
Heu...
la TOTALITE ?
Il va bien falloir que tu pointes vers une routine ou une fonction à unb moment ou à l'autre, quand même ... et celà se fait également par code...
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 20072 2 mai 2007 à 15:27
Bonjour,
Au niveau fonctionnel je ne pense pas que ça soit génant.
Mais sur le plan purement organisationnel, il est préférable
de regrouper les procédures et les fonctions selon,justement,
leur fonctionnalité. On s' y retrouve plus facilement...
VB23
Messages postés46Date d'inscriptionmercredi 4 avril 2007StatutMembreDernière intervention10 décembre 2007 2 mai 2007 à 15:28
non mais les modules servent juste a rendre plus lisible ton programme pour le decouper en sous partie
en bref c comme un livre avec une seule page ton programme :)
voila bisous
Atteutiou qnaud même !
Certaius (dout moi) passeut dn jardiu an clavier, lequel a pen à pen ses tonches qni devienneut illisibles et ils se trompreut eutre le u et le n ou le n et le u ....
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 2 mai 2007 à 18:20
Private Sub Command1_Click()
toto = "1101001011101110"
For i = 1 To Len(toto) Step 8
titine = titine & Chr(couic(Val(Mid(toto, i, 8)))) & vbCrLf
Next i
MsgBox "représentations mâle et femelle : " & vbCrLf & vbCrLf & titine
End Sub
Public Function couic(bisous As String) As Long
For i = 1 To Len(bisous)
B = Val(Mid(bisous, i, 1))
Deci = Deci + B * 2 ^ (Len(bisous) - i)
Next i
couic = Deci
End Function