recherche algorithme VBA plans de découpe

Question

Bonjour, 
VOici le probleme : on part d'une bobine d'appro avec une certaine largeur (en mm) et une certaine longueur (en m). J'ai un certain nombre de bobinos à produire avec eux aussi une largeur et longueur. Je veux savoir combien de bobines d'appros il me faut pour produire l'ensemble des bobinos et les restes éventuels sur chaque bobine d'appro. Il faut donc minimiser les chutes. Quelqu'un aurait une idée sur un algo en VBA? 


ex : bobine d'appro : largeur 1300 (en mm) ; longueur : 479 (en m)
     bobinos à produire : 
3 de largeur 441 et longueur 339
                          1 de largeur 441 et longueur 215
                          16 de largeur 172 et longueur 479
                          10 de largeur 143 et longueur 479
De combien de bobines d'appro ai je besoin pour produire l'ensemble des bobinos? Quels sont les pertes sur chaque bobine d'appro? 

MERCI

4u4me4us · Answer

Juste une question. As-tu une taille minimale de bobinos à produire. Par exemple les bobino ne peuvent pas être plus petit que 100 en largeur et  100 en longueur.

4u4me4us · Answer

Oublie ma question  donne moi encore 30 min

4u4me4us · Answer

Tu as un adresse perso. pour que je t'envoie un fichier. J pas encore fini mais je vois que cela va être chaud de te l'envoyer par le site

cs_aruna62190 · Answer

Slt oui voici mon adresse : utakaman62@hotmail.com
Je te remercie.

4u4me4us · Answer

Ok g une analyse a te montrer mais là g une urgence je te l'envoie soire.

4u4me4us · Answer

Finalement c plus simple que je le tape là et tu ferra un copier coller. tab et un tableau 3 dimension que je vois ainsi tab[enregistrement][nombre de appro][surface] Case [surface] en m2 Je tape les fonction majuscule tu devras en créer d'autres ainsi que les "instructions" (boucles, teste, etc) et var pour variable. début du code : var_aire_ma_bobine = l'aire de la bobine de référence. Don ton exemple c'est 1.3 * 479 R E saisie du nombre de appro et des dimension P calculé la sur face de l'appro en m2 T mettre le tout dans tab[var_x][nombre de appro][calculé la sur face du appro en m2] E additionnée var_x de un R TANT QUE l'utilisateur entre des données TRIER_TAB(fonction qui doit trier la tab de la plus grande à la plus plus petite surface. retourne rien) var_enre = APPRO_A_GÉRÉ(prend tab en paramètre et retourne la première case ou [nombre de appro]>0 si aucun retourne -1 ) TANT QUE var_enre > ou = à 0 R SI var_reste = 0 SI tab[var_enre][nombre de appro] * tab[var_enre][surface] < ou = var_aire_ma_bobine var_reste = var_aire_ma_bobine - tab[var_enre][nombre de appro]] * tab[var_enre][surface] SI var_rest 0 donc var_bobine var_bobine + 1 E SI NON var_nbfois =COMBIEN_DE_FOIS(paramètre tab[var_enre][nombre de appro]] * tab[var_enre][surface] et var_aire_ma_bobine) var_reste = (tab[var_enre][nombre de appro]] * tab[var_enre][surface]) - (var_aire_ma_bobine * var_nbfois) SI var_reste = 0 var_bobine = var_bobine + var_nbfois P SI NON var_bobine = var_bobine + var_nbfois - 1 FIN DU TESTE var_reste = 0 tab[var_enre][nombre de appro] = 0 FIN DU TESTE tab[var_enre][nombre de appro]] * tab[var_enre][surface] < ou = var_aire_ma_bobine T SI NON var_reste > 0 var_enr=RESTE_SUFFISANT(cherche dans tab l'enre qui à une surface < ou = à var_reste et la retourne si non retourne -1) TANT QUE var_enr > ou = 0 ou var_reste > 0 R var_nbfois = COMBIEN_DE_FOIS(prend tab[var_enre][surface] et var_reste) E var_reste = var_reste - tab[var_enre][surface] * var_nbfois E P tab[var_enre][nombre de appro] = tab[var_enre][nombre de appro] - var_nbfois T SI var_reste > 0 donc var_enr = RESTE_SUFFISANT(...) E R SI var_reste > 0 var_perte = var_perte + var_reste var_reste = 0 FIN DU TESTE var_reste > 0 FIN DU TEST var_reste = 0 R var_enre = APPRO_A_GÉRÉ(prend tab en paramètre et retourne la première case ou [nombre de appro]>0 si aucun retourne -1 ) AFFICHER_RESULTATS(prend var_bobine et var_perte et les affiche à l'écran Fin du code : Voila. Bien sur rien n'est à prendre comme du pain béni et je vais ouvrir un nouveau poste pour savoir ce que pense les internaute de mon analyse +

4u4me4us · Answer

ça m'énerve !!! Vraiment P%&2" fais C8+U** il n'a pas pris en compte les espaces pour faire les blocs d'instructions!!! Je me suis donné la pêne de les faire vraiment suis déçus!!!
!

4u4me4us · Answer

Voila c comme ça que je voulais que tu le lises. tien moi au courant début du code : var_aire_ma_bobine = l'aire de la bobine de référence. Don ton exemple c'est 1.3 * 479 R E saisie du nombre de appro et des dimension P calculé la sur face de l'appro en m2 T mettre le tout dans tab[var_x][nombre de appro][calculé la sur face du appro en m2] E additionnée var_x de un R TANT QUE l'utilisateur entre des données TRIER_TAB(fonction qui doit trier la tab de la plus grande à la plus plus petite surface. retourne rien) var_enre = APPRO_A_GÉRÉ(prend tab en paramètre et retourne la première case ou [nombre de appro]>0 si aucun retourne -1 ) TANT QUE var_enre > ou = à 0 R SI var_reste = 0 SI tab[var_enre][nombre de appro] * tab[var_enre][surface] < ou = var_aire_ma_bobine var_reste = var_aire_ma_bobine - tab[var_enre][nombre de appro]] * tab[var_enre][surface] SI var_rest 0 donc var_bobine var_bobine + 1 E SI NON var_nbfois =COMBIEN_DE_FOIS(paramètre tab[var_enre][nombre de appro]] * tab[var_enre][surface] et var_aire_ma_bobine) var_reste = (tab[var_enre][nombre de appro]] * tab[var_enre][surface]) - (var_aire_ma_bobine * var_nbfois) SI var_reste = 0 var_bobine = var_bobine + var_nbfois P SI NON var_bobine = var_bobine + var_nbfois - 1 FIN DU TESTE var_reste = 0 tab[var_enre][nombre de appro] = 0 FIN DU TESTE tab[var_enre][nombre de appro]] * tab[var_enre][surface] < ou = var_aire_ma_bobine T SI NON var_reste > 0 var_enr=RESTE_SUFFISANT(cherche dans tab l'enre qui à une surface < ou = à var_reste et la retourne si non retourne -1) TANT QUE var_enr > ou = 0 ou var_reste > 0 R var_nbfois = COMBIEN_DE_FOIS(prend tab[var_enre][surface] et var_reste) E var_reste = var_reste - tab[var_enre][surface] * var_nbfois P P tab[var_enre][nombre de appro] = tab[var_enre][nombre de appro] - var_nbfois T SI var_reste > 0 donc var_enr = RESTE_SUFFISANT(...) E R E SI var_reste > 0 var_perte = var_perte + var_reste var_reste = 0 FIN DU TESTE var_reste > 0 FIN DU TEST var_reste = 0 R var_enre = APPRO_A_GÉRÉ(prend tab en paramètre et retourne la première case ou [nombre de appro]>0 si aucun retourne -1 ) AFFICHER_RESULTATS(prend var_bobine et var_perte et les affiche à l'écran Fin du code :

cs_aruna62190 · Answer

Merci bcp. Je décortique tout ça au plus vite et te tiens au courant!

4u4me4us · Answer

Je viens de voir un truc.

la fonction que j'ai appelé COMBIEN_DE_FOIS dois aussi prendre tab[var_enre][nombre de appro]. Car quand on l'utilise  avec les var_reste COMBIEN_DE_FOIS(prend tab[var_enre][surface] et var_reste) si il nous retourne une valeur supérieur à [nombre de appro] cela va créer des erreurs

cs_aruna62190 · Answer

Dsl pour la reponse tardive mais je n'ai pas eu le temps de regarder plus tot. 
Si je prends le debut de l'algorithme, on a bien var_aire qui corresopond à l'aire de la bobine d'appro. Ensuite, on a la saisie du nombre de appro mais à quoi correspond cela? au nombre de bobinos à produire? Par rapport à mon exemple, ça correspond à quoi? 
merci

4u4me4us · Answer

Dans ton exemple "3 de largeur 441 et longueur 339"
3 vaut nombre de appro
et 0.441 X 339 ar_aire  en m2

cs_aruna62190 · Answer

ok d'accord. Si je prends la suite :
tab[var_x][nombre de appro][calculé la sur face du appro en m2] est bien un tableau de 3 colonnes ou var_x variera de 1 au nombre de lignes du tablea(donc au nombre de format largeur/longueur différent à produire)?
Ensuite, j'ai compris que l'on trie ce tableau dans l'ordre décroissant des surfaces. 
Ensuite, la variable var_enre est le numéro de la 1ere ligne du tableau où nombre de appro >=0 ?
A quoi sert la variable var_bobine? 

merci

4u4me4us · Answer

[var_x] va de 0 à n en fonction du nombre d'enregistrement que l'utilisateur entre. Si je prend ton exemple :

3 de largeur 441 et longueur 339
1 de largeur 441 et longueur 215
16 de largeur 172 et longueur 479
10 de largeur 143 et longueur 479 

le tableau tab[var_x][nombre de appro][calculé la sur face du appro en m2] aurait les valeur suivante 

Premier saisie
tab[0][0][0] = 3
tab[0][0][1] = 0.441 X 339

deuxièeme saisie
tab[1][0][0] = 1
tab[1][0][1] = 0.441 X 215

troisième saisie
tab[2][0][0] = 16
tab[2][0][1] = 0.172 X 479

Quatrième saisie
tab[3][0][0] = 10 
tab[3][0][1] = 0.143 X 479

etc.

cs_aruna62190 · Answer

Ce n'est pas plutot :

Premier saisie 
tab[0][1][0] =  3 
tab[0][0][1] = 0.441 X 339 

deuxièeme saisie 
tab[1][ 1 ][0]  = 1 
tab[1][0][1] =  0.441 X 215 

troisième saisie 
tab[2][ 1 ][0]  = 16 
tab[2][0][1] =  0.172 X 479 

Quatrième saisie 
tab[3][ 1 ][0]  = 10 
tab[3][0][1] = 0.143 X 479 

A quoi sert la variable var_bobine? 

Peux tu m'expliquer aussi comment fonctionne la fonction COMBIEN_DE_FOIS(paramètre tab[var_enre][nombre de appro]] * tab[var_enre][surface] et var_aire_ma_bobine)

merci

4u4me4us · Answer

Tu dis "Ce n'est pas plutot : tab[0][1][0]" non et oui!! En vb6 tu est libre de faire commencer la case de ton tableau depuis la valeur que tu veux que ce soit 0, 1,2 etc mais la logique veut que toutes les cellules parte de depuis le même poin de départ et que ce point de départ soit 0. En effet comme tout les variable commence par 0 ( ou empety qui vaut 0) tu pourra plus facilement faire une boucle. Tu n'aura pas à faire une instruction à 2 fr variable = 1!??!

var_aire_ma_bobine et la surface de référencée du tissu que tu as. C la variable qui représente la situation quand tu dis "on part d'une bobine d'appro avec une certaine largeur (en mm) et une certaine longueur" et "bobine d'appro : largeur 1300 (en mm) ; longueur : 479 (en m) "

Il s'agit de la surface de référence dans le qu'elle on va coupé pour faire le autre surfaces.  

var_aire_ma_bobine = l'aire de la bobine de référence. Don ton exemple c'est 1.3 * 479

cs_aruna62190 · Answer

Ok pour les tableaux.

Donc dans ton code, je vois 2 variables différentes : var_bobine et var_aire_ma_bobine, c'est la meme chose? 

J'ai du mal avec la synthaxe du code. Je travaille en VBA sur excel...

Je n'arrive pas à comprendre la fonction COMBIEN_DE_FOIS(paramètre tab[var_enre][nombre de appro]] * tab[var_enre][surface] et var_aire_ma_bobine) :
par exemple on a nombre de appro =3 et surface = 0,441 x 339=150 et var_aire_ma_bobine = 1,3 x 479=622,7. Quel calcul est effectué avec ces données?

merci

4u4me4us · Answer

Tout d'abord j'ai corriger l'alignement de l'algoritme vu qu'il manqué des espaces et ensuite je te répond début du code : var_aire_ma_bobine = l'aire de la bobine de référence. Don ton exemple c'est 1.3 * 479 R E saisie du nombre de appro et des dimension P calculé la sur face de l'appro en m2 T mettre le tout dans tab[var_x][nombre de appro][calculé la sur face du appro en m2] E additionnée var_x de un R TANT QUE l'utilisateur entre des données TRIER_TAB(fonction qui doit trier la tab de la plus grande à la plus plus petite surface. retourne rien) var_enre = APPRO_A_GÉRÉ(prend tab en paramètre et retourne la première case ou [nombre de appro]>0 si aucun retourne -1 ) TANT QUE var_enre > ou = à 0 R SI var_reste = 0 SI tab[var_enre][nombre de appro] * tab[var_enre][surface] < ou = var_aire_ma_bobine var_reste = var_aire_ma_bobine - tab[var_enre][nombre de appro]] * tab[var_enre][surface] SI var_rest 0 donc var_bobine var_bobine + 1 E SI NON var_nbfois=COMBIEN_DE_FOIS(paramètre tab[var_enre][nombre de appro]] * tab[var_enre][surface] et var_aire_ma_bobine) var_reste = (tab[var_enre][nombre de appro]] * tab[var_enre][surface]) - (var_aire_ma_bobine * var_nbfois) SI var_reste = 0 var_bobine = var_bobine + var_nbfois P SI NON var_bobine = var_bobine + var_nbfois - 1 FIN DU TESTE var_reste = 0 tab[var_enre][nombre de appro] = 0 FIN DU TESTE tab[var_enre][nombre de appro]] * tab[var_enre][surface] < ou = var_aire_ma_bobine T SI NON var_reste > 0 var_enr=RESTE_SUFFISANT(cherche dans tab l'enre qui à une surface < ou = à var_reste et la retourne si non retourne -1) TANT QUE var_enr > ou = 0 ou var_reste > 0 R var_nbfois = COMBIEN_DE_FOIS(prend tab[var_enre][surface] et var_reste) E var_reste = var_reste - tab[var_enre][surface] * var_nbfois P P tab[var_enre][nombre de appro] = tab[var_enre][nombre de appro] - var_nbfois T SI var_reste > 0 donc var_enr = RESTE_SUFFISANT(...) E R E SI var_reste > 0 var_perte = var_perte + var_reste var_reste = 0 FIN DU TESTE var_reste > 0 FIN DU TEST var_reste = 0 R var_enre = APPRO_A_GÉRÉ(prend tab en paramètre et retourne la première case ou [nombre de appro]>0 si aucun retourne -1 ) AFFICHER_RESULTATS(prend var_bobine et var_perte et les affiche à l'écran Fin du code :

4u4me4us · Answer

Non var_bobine et var_aire_ma_bobine ne sont pas les même choses.
var_bobine est utilisé pour répondre à la question "combien de bobines" pour tout faire.

Tu utilise VBA excel, libre a toi mais je pense que VB6 voir VBnet est bien mieux. 

La fonction COMBIEN_DE_FOIS :

Le but de cette fonction est de savoir si on a assez de tissu pour faire le nombre de pièce voulu.

Tu dis "=3 et surface = 0,441 x 339=150 et var_aire_ma_bobine = 1,3 x 479=622,7"

COMBIEN_DE_FOIS dois dire si  on peut 3 * 150 est plus petit que 622,7. 3 car on a pas besoin de plus pour le travaille voulu. Si il falais 5 de 0,441 x 339 la question serait 5 * 150 est - il plus petit que 622,7 (etc).

Si oui alors COMBIEN_DE_FOIS retourne 3

Si non COMBIEN_DE_FOIS teste si 2 fois (une fois de moins) est plus petit que 622,7 
  Si oui COMBIEN_DE_FOIS retourne 2

Si non COMBIEN_DE_FOIS teste si 1  fois (une fois de moins) est plus petit que 622,7 

etc jusque à 0

cs_aruna62190 · Answer

ok oui mais on m'oblige à le faire dans excel....
Je n'arrive pas à comprendre la fin du code ci dessous; je bloque au code écrit en rouge.
Et le code en bleu n'est-il pas mal placé car il ne fait pas parti de la boucle? 
merci

T SI NON var_reste > 0
      var_enr=RESTE_SUFFISANT(cherche dans tab l'enre qui à une surface < ou = à var_reste et la retourne si non retourne -1)
      TANT QUE var_enr > ou = 0 ou var_reste > 0
      R var_nbfois = COMBIEN_DE_FOIS(prend tab[var_enre][surface] et var_reste)
      E var_reste = var_reste - tab[var_enre][surface] * var_nbfois
      P P tab[var_enre][nombre de appro] = tab[var_enre][nombre de appro] - var_nbfois
      T SI var_reste > 0 donc var_enr = RESTE_SUFFISANT(...)      E
      R
  E   SI var_reste > 0        
var_perte = var_perte + var_reste
        var_reste = 0
      FIN DU TESTE var_reste > 0
    FIN DU TEST var_reste = 0
  R var_enre = APPRO_A_GÉRÉ(prend tab en paramètre et retourne la première case ou [nombre de appro]>0 si aucun retourne -1 )  
AFFICHER_RESULTATS(prend var_bobine et var_perte et les affiche à l'écran

4u4me4us · Answer

Le but dans cette partie et d'utiliser tout le reste de tissu que l'on a pour avoir le moins de déchet possible. Autrement dis en vas faire en sorte de ne pas ouvrir une nouvelle bobine.

Avant la boucle en vérifier si il y a assez de reste rien que pour une surface qu'il reste à faire.
var_enr=RESTE_SUFFISANT(cherche dans tab l'enre qui à une surface < ou = à var_reste et la retourne si non retourne -1)

Si var_enr vaut -1 cela veut dire que la surface qui reste est inutilisable et donc il faut la jetter var_perte = var_perte+var_reste

Si non on fais la coupe en réduit le reste et en continu à chercher. C'est pour quoi 
RESTE_SUFFISANT(...) et de nouveau appellé dans la boucle

APPRO_A_GÉRÉ et bien placé car si elle retourne -1 alor on quitte le progamme car tout les calculs on étaient fais. Si non on recommance.

ucfoutu · Answer

Bonjour,

Je vous confesse que je suis cette discussion depuis le tout début, dans le plus grand silence.
Mise en garde : lorsque vous serez parvenus à quelque chose d'acceptable avec du tissu totalement uni, de trame parfaitement identique en espacement dans les deux sens et sans effet (comme avec le velours, entre autres ..) de reflets différents dans un sens et dans l'autre, il vous faudra tout recommencer à zéro, avec d'autres paramètres supplémentaires, pour du tissu à motifs, du velours (entre autres), du trefil, etc ...
Et ce sera très très très complexe à gérer.
Je vous laisse maintenant à vos réflexions, en vous demandant d'excuser mon incursion, dont le seul motif est cette mise en garde.
Bonne continuation.



____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

cs_aruna62190 · Answer

bjr,
Il est vrai que 4u4me4us a parlé de tissu mais les bobines dont il est question sont en acier...
Par contre, je me demande avec cet algorithme en prenant les aires comme reference, est ce que la contrainte des largeurs est bien respectée. 
Par ex, sur une bobine d'appro il reste comme metal 100mm de large et 1000m de long, ce qui fait 100m² de surface. On doit produire un bobino de 120mm de large et 500m de long soit 60m². Cet algo dira que l'on pourra faire ce bobino dans la bobine d'appro alors qu'en realité non car la largeur à produire est > à celle de la bobine d'appro donc on a bien besoin d'une bobine d'appro supplémentaire pour faire ce bobino.
Vous m'avez compris?

merci

4u4me4us · Answer

Tout d'abod je fais de mon mieux  et j'ais exprè ouvert un nouveau poste pour que qui concque me corrige mais personne ne ma répondu  .

Bref, aruna62190 tu as raisons, je n'ai pas pris en compte ce cas de figure. Aussi je te propose de créer une sous fonction à RESTE_SUFFISANT qui justement prend en compte les dim. de largeur et de longeur. 

ucfoutu, Ta remarque me laisse sengeure. As-tu un algorithme sur ce sujet ? Tu m'as laire bien au courant!

cs_aruna62190 · Answer

Je n'ai pas bien compris la remarque de ucfoutu mais de toute façon elle est hors sujet car ce sont des bobines d'acier. 

Pour bien vous expliquer, au depart le client commande une largeur, un poids, et indique un poids mini bobine et un poids maxi bobine. De plus, l'entreprise peut lui expédier plus ou moins 10% du poids commandé. On a donc un poids cdé, poids mini cde, poids maxi cde, poids mini bobine et poids maxi bobine. 
ex : le client xxxx commande 10T en 1000mm de large avec un poids mini bobine de 2T et maxi 5T. Donc poids mini cde 9T et maxi 11T.
Dans un premier temps, j'ai converti tous les poids en longueur(à l'aide d'une formule savante)et j'ai fait un algo me permettant de déterminer le nombre de bobinos à produire dans un format largeur/longueur pour satisfaire la commande en prenant en compte toutes les tolerances min et max.
Pour cet ex, selon les regles que j'ai mises, l'algo dira qu'il faudra produire par exemple 5 bobinos de 2T ou alors 2 de 5T, ce qui fera au total 10T. 
A la fin, j'ai un tableau récapitulatif du nombre de bobinos à produire dans un format largeur/longueur pour satisfaire toutes les commandes. 
Maintenant, je cherche un algo qui va me déterminer le nombre de bobines d'appro (elle aussi avec une certaine largeur et longueur)qu'il me faut pour produire l'ensemble des bobinos et je veux savoir la perte sur chaque bobine d'appro. 
Voilà

Il y a de l'idée dans ce que tu as fait 4u4me4us. Je te remercie bcp pour ton aide depuis le debut. Ne peut-on pas travailler seulement avec des largeurs et longueurs? plutot que des aires.

4u4me4us · Answer

Oui, il est possible de travailler longeur largeur, je vois une solution à cela (Bien sur n'importe qui peut en ajouter)

Je pense qu'il faut convertir v_aire_ma_bobine, var_reste et le tableau en string.

Comme cela on a pas besoin de doublé les varibales pour calculé la longeur ou la largeur. 

exemple : trois bobine  120mm de large et 500m 
 dans le tableau serra mémorisé insi

tab[nombe] = "3"
tab[surface m2] = "0,120_500"

var_reste = "0.8_50"

Ainsi dans les fonction il suffira de faire les convertion string à int pour faire les calcules et les comparaisons puis mémoriser les nouvelles valeurs en les reconvertisants int à string.

Par exemble je veux soustraire 0.1 et 10 à var reste.

sub form_load()
Var_reste = Exemble_Soustraction_Var_reste(Var_reste)
end sub
function Exemble_Soustraction_Var_reste(reste as string) as string
  dim largeur as int
  dim longeur as int
  dim v_retour as string
  
  largeur = cint(mid(reste,1,instr(1,rest,"_")-1)
  longeur = cint(mid(reste,instr(1,rest,"_")+)
  longeur = longeur - 10
  largeur = largeur - 0,1
  Exemble_Soustraction_Var_reste = cstr(largeur) & "_" & cstr(longeur)
end function


Tu vois l'idées?

ucfoutu · Answer

à 4u4me4us
ucfoutu, Ta remarque me laisse sengeure. As-tu un algorithme sur ce sujet ? Tu m'as laire bien au courant! 
salut,

J'ai abandonné depuis longtemps toutes tentatives dans ce domaine. En effet et sauf à se contenter de peu, tous mes essais se sont montrés moins performants que le simple résultat de tâtonnements à la fois visuels et réfléchis.
Mais je te conseille d'aller lire ce qu'en dit, dans la discussion dont le lien suit, mon "frère jumeau" :
http://www.vbfrance.com/forum/sujet-ALGORYTHME-OPTIMISATION-DECOUPE-RECTANGULAIRE_1377947.aspx

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

4u4me4us · Answer

ucfoutu, j'ai vu le forum que tu as mentionné. Perso. je trouve qu'ils ont vite jeté l'éponge. Je pense que mon algo est un bon début. Si tu as des élément à y ajouter il serait intéressant que tu le fasse.

 aruna62190 Je confirme que le projet et tjs viable en longueur et largeur. Il faut juste faire passé les variable en string et que tout les fonction utilise les fonction mid instr cint cstr pour les conversions. Moi suis tjs près à passer du temps dessus si toi tu n&#8217;abandonne pas.

cs_aruna62190 · Answer

ok moi j'ai vraiment envie de trouver un algo qui optimise au mieux les plans de decoupe mais je sais bien qu'il n'y a pas de solution optimale, il faut juste se rapprocher de la realité.
Dans le code que tu as mis pour convertir de string en int et de int en string, est ce vraiment utile de faire tout cela? Ne peut on pas faire simplement un tableau avec le var_x, nombre de appro, largeur, longueur? ou alors je n'ai pas compris l'utilité de cette conversion.
Mais il y a une erreur ds ton code, je n'arrive pas a la trouver, je ne maitrise pas ces fonctions de conversion. 

Si l'on convertit a chaque fois, comment va fonctionner par ex la fonction "COMBIEN DE FOIS"?

Est ce que tu pourrais mettre le code de l'algo en VB stp?

Au debut de l'algo, je propose de mettre que : 
si largeur bobine appro largeur bobino et longueur bobine appro longueur bobino alors on devra commander nombre de bobinos et perte = 0

merci

4u4me4us · Answer

Le but de conversion de int en string et inversement est de ne pas à avoir 6 ou 10 variable de plus. Le fonction de conversion sont simple et vb. Mais il nécessite de la rigueur. Dans la cas d'une coupe de (l)0.20m X (L)5m. Il faut que la largeur et la longueur soient séparés  par un caractère précis. Ici je vais prendre le "_". Dans dans  le tableau l'information sera "0.20_5". 
Si nous voulons la largeur
  Comme la largeur est avant le "_" là il suffit de coupé la chaine (fonction mid("0.20_5"))
  depuis le premier caractère (mid("0.20_5",1))
  il faut savoir ou est le "_" (instr(1,"0.20_5","_"))
  pour finir de couper avant le "_" (mid("0.20_5",1,instr(1,"0.20_5","_")-1)) 
  puis en la converti en nom nombre dans x (x = cint(mid("0.20_5",1,instr(1,"0.20_5","_")-1)))
Si nous voulons la longeur
  Comme la largeur est après le "_" là il suffit de coupé la chaine (fonction mid("0.20_5"))
  depuis le premier caractère après "-" (mid("0.20_5",instr(1,"0.20_5","_")+1)) 
  pas besoin d&#8217;arrêter la coupe vu que la longueur fini le texte
  puis en la converti en nom nombre dans y (y = cint(mid("0.20_5",instr(1,"0.20_5","_")+1)))

Tu peux ajouter des variable (C ton projet tu peux tout faire) mais la gestion serra plus difficile. Avec les string tu as a créer une fonction que tu appelle au début de chaque fonction et basta. Avec les variables il va faloire gérer les indexes. 

Tu dis  "ais il y a une erreur ds ton code, je n'arrive pas a la trouver", oui bien sur qu'il y a des erreur. Je le tape de mémoire. Je me dis que tu regardera dans l'aide(touche F1) ou sur le net les info sur le fonction.

Tu dis "Est ce que tu pourrais mettre le code de l'algo en VB stp? ". Je ne vois pas ce que tu veux dire par là. l'algo. qui est publier est basé sur du "le Nassi-Schneiderman "

Tu dis "Au debut de l'algo, je propose de mettre que :
si largeur bobine appro largeur bobino et longueur bobine appro longueur bobino alors on devra commander nombre de bobinos et perte = 0" Cela est la raison du tri du plus grand au plus petit. Perso plus un algo. est large mieux il est car sans la savoir il prend en charge les imprévus.

cs_aruna62190 · Answer

ok d'accord j'ai compris pour la conversion.
L'algo que je voulais que tu fasses en VB est l'algo général, tout simplement car tu seras 1000 fois plus rapide que moi et il y a 1000 fois moins de risque d'erreur lol

En ce moment, je suis trés pris sur un autre projet... Je te tiens au courant de l'avancement mais si de ton coté tu peux essayer de faire qq chose en VB, ce serai super sympa. 

merci

Recherche algorithme VBA plans de découpe

31 réponses

Votre réponse

Discussions similaires