Discussion :

[Naruseb]

Bonjour,

J'ai plusieurs modules .bas.

Le module Mysql.bas contient QUE des fonctions déclarée en private.

Est-il posible d'inclure ce module dans un autre module Alias.bas pour pouvoir appelé les fonctions private de Mysql.bas?

Elles sont private car on ne veux avoir accès à ces fonctions QUE depuis Alias.bas et pas des autres modules. La solution du public n'est donc pas possible.

[Megaxel]

Je dirais que le mieux est d'ajouter dans le module MySql.bas des fonctions "Public" qui utilisent les fonctions Private et te retournent leur résultat.
C'est (un peu, je crois) le principe de l'encapsulation en langage objet.
(Ça pète, les mots de 5 syllabes, hein?)

[Naruseb]

Oui, on connait cette solution mais je ne veux pas mettre de module public dans Mysql.bas.

Si je n'ai pas le choix, je ferais ca mais je prefererais une autre solution.

[méphistopheles]

non, je ne cris pas, mais tu peux créer une fonction d'appel des autre fonction dans ton module mysql du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
public function fonctiondappel(nom as string, paramstr() as string )
'si une de tes fonctions ne demande un control, tu peut utiliser la methode de recherche du control par le nom
' de ce fait, la methode de parametres string fonctionne dans l plupart des cas
if nom = "nomfonction" then call nonfonction (paramstr(1),paramstr(2)....)
 
if nom = nomfonction2 then call nonfonction (paramstr(1),paramstr(2)....)
 
.
.
.
ext...
end function

je dois reconnaitre que c'est une methode un peut longue mais je vois pas des masses d'autre solutions.

salut

[Megaxel]

En fait, je ne comprend plus la question(ni surtout l'intérêt d'avoir des fonctions qu'on ne peut utiliser que depuis un module et pas depuis les autres)
Et du coup, je n'ai plus de solution...
Désolé.

[méphistopheles]

En fait, je ne comprend plus la question(ni surtout l'intérêt d'avoir des fonctions qu'on ne peut utiliser que depuis un module et pas depuis les autres)
Et du coup, je n'ai plus de solution...
Désolé.

la question est: comment avoir acces à un module sans déclarer toutes ses fonctions publiques
l'interet est: dans un gros projet ou beaucoups de noms de fonctions et de variables se recoupent d'éviter d'avoir à se casser la tête pour en inventer de nouvelle ou d'avoir des noms à rallonge. (à partir de plus de 250 variables et fonctions publiques, ça devient difficile à gérer, même ent les affublant toutes d'un commentaire à la déclaration)
je me souviens avoir passé un jours sur un bug de recoupement d'une variable et d'une fonction.

bref, soit il fait un nouveau prog avec des parametres d'appels, soit il trouve une fonction pour passer ses variables en private, soit il invente de nouveauxnoms pour toutes celles-ci

salut

[Megaxel]

Mouais... D'accord... Enfin, bof, quoi...

[Naruseb]

Alors j'explique l'interet

Les fonctions private sont des fonctions avec beaucoup de paramètres (pour la connection de la base).

Et les fonctions dans alias.bas sont des fonctions quasi sans parametres.

Par exple, dans alias.bas on a :

public function ConnectionBase1()
connectionBase(Base1param1, Base1Param2, ...)
end function

public function ConnectionBase2()
connectionBase(Base2param1, Base2Param2, ...)
end function

public function ConnectionBase3()
connectionBase(Base3param1, Base3Param2, ...)
end function

public function ConnectionBase4()
connectionBase(Base4param1, Base4Param2, ...)
end function

et dans Mysql.bas on a la fonction générale : "private function ConnectionBase(param1, param2, param3, ...)" avec les paramètres qui vont bien.

Et pour que les programmeurs ne grugent pas et n'appellent pas directement la fonction général avec les paramètres, j'aurais voulu rendre la fonction générale private.

[Naruseb]

Et pour que les modules ai un sens, j'aurais voulu séparer mes fonctions générales de mes alias dans 2 modules.bas.

[Megaxel]

Haaaaa, Ok, là, je comprend mieux!! Tu bosses avec des petits renards...

La meilleure solution: les coups de règle en fer sur les doigts de ceux qui ne respectent pas les règles de développement!!! Nomdidiou!!!

[Naruseb]

Oui ca peut eventuellement etre une solution mais c'est vrai que j'aurais préféré un truc du style de l'include en C à mettre dans Alias.bas pour accéder aux fonctions private de Mysql.bas

Mais si ca n'existe pas .....

[méphistopheles]

Mais si ca n'existe pas .....

peut-être que si, ne te décourage pas si vite

[Naruseb]

Alors, personne d'autres n'a de solutions?

[méphistopheles]

ha oui, n'oublie pas que tu peux obtenir la liste des fonctions avec leurs arguments rapidement en ouvrant ton .bas comme un .Txt

tu met le texte dans la variable "tontext" et tu execute ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 dim i as long
dim tontext as string
dim var() as string
dim numfunc as long
var()=split(tontext,vbcrlf)
dim functionlist(Ubound(var,1)/2) as string 'ça ne peut pas être plus gros
for i= 0 to Ubound(var,1)
  if replace(var(i),"Private Sub", "")<>var(i) then
      functionlist(numfunc)=replace(var(i),"Private Sub", "")
      numfunc=numfunc+1
   end if
   if replace(var(i),"Private Funtion", "")<>var(i) then
      functionlist(numfunc)=replace(var(i),"Private Funtion", "")
      numfunc=numfunc+1
   end if
next i
'ta liste est donc dans function list
'pour tout mettre dans un texte:
dim list as string
 for i=0 to numfunc
   list=list+var(i)
 next i

bonne chance