Discussion :

[cpattin]

'appel procédure calcul
Call calcul(resultatcalculrow, frmEmballage.txtLong.Text, frmEmballage.txtLarg.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)

'appel procédure calcul avec longueur et largeur séparateur inversée
Call calcul(resultatcalculrow2, frmEmballage.txtLarg.Text, frmEmballage.txtLong.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)

'recherche de la valeur la moins chère afin de l'insérer dans coutTotalMetre de la table ResultatCalcul
if
'je dois pouvoir récupérer les valeur des 2 lignes de procédures séparément afin de pouvoir les comparer ... et là ... je nage ...
end if

[Thomas Lebrun]

C'est quoi ? Du VB ? du VB.NET ? du C# ? du VBA ?

[cpattin]

vb net

[davidou2001]

Peux-tu exprimer ton probleme de facon plus claire ?

[davidou2001]

les procedures ne renvoient rien. si tu veux un resultat, utilise une fonction avec un type de retour

[cpattin]

les valeurs résultant des appels de la procédure doivent pouvoir être récupérées afin d'être en mesure de les comparer

[cpattin]

l'appel est effectué ds une fonction

[Pol63]

utiliser byref pour des types non objet


public sub test(byref a as string)
a = "val2"
end sub


appel :

dim a as string = "val1"
test(a)
'a est normalement egal à "val2" maintenant

[Aspic]

'appel procédure calcul
Call calcul(resultatcalculrow, frmEmballage.txtLong.Text, frmEmballage.txtLarg.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)

'appel procédure calcul avec longueur et largeur séparateur inversée
Call calcul(resultatcalculrow2, frmEmballage.txtLarg.Text, frmEmballage.txtLong.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)

'recherche de la valeur la moins chère afin de l'insérer dans coutTotalMetre de la table ResultatCalcul
if
'je dois pouvoir récupérer les valeur des 2 lignes de procédures séparément afin de pouvoir les comparer ... et là ... je nage ...
end if

C'est pas très clair mais créés des fonctions :

Code :

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

1
2
3
4
5
6
7
 
'exemple bidon de fonction
Private Function Test(ByVal Arguments as String) As Integer 
   'cette fonction va te retourner un integer
   Dim Nombre as integer = Cint(Arguments)
   Return Nombre
End Function

Pour l'appel :

Code :

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

Dim Var as Integer = Test("12") 'donc Var va contenir la valeur 12 en integer

Cdl

[cpattin]

jpeux difficilement être plus claire


Public Class calculClass

Public Function résultatCalculs(ByVal longueurSep As System.Double, ByVal largeurSep As System.Double, ByVal epaisseurSep As System.Double) As Emballage_DS.ResultatCalculDataTable

Dim dt As New Emballage_DS.ResultatCalculDataTable
Dim dsParam As New Emballage_DS
résultatCalculs(frmEmballage.txtLong.Text, frmEmballage.txtLarg.Text, frmEmballage.txtEp.Text)
dsParam.ReadXml("F:\dotnet\paramDatas.xml")

For Each cartonRow As Emballage_DS.CartonsRow In dsParam.Cartons.Rows

For Each intercalaireRow As Emballage_DS.IntercalairesRow In dsParam.Intercalaires.Rows

Dim resultatcalculrow As Emballage_DS.ResultatCalculRow = dt.NewResultatCalculRow
Dim resultatcalculrow2 As Emballage_DS.ResultatCalculRow = dt.NewResultatCalculRow

dt.AddResultatCalculRow(resultatcalculrow)
dt.AddResultatCalculRow(resultatcalculrow2)

'appel procédure calcul
Call calcul(resultatcalculrow, frmEmballage.txtLong.Text, frmEmballage.txtLarg.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)

'appel procédure calcul avec longueur et largeur séparateur inversée
Call calcul(resultatcalculrow2, frmEmballage.txtLarg.Text, frmEmballage.txtLong.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)

'recherche de la valeur la moins chère afin de l'insérer dans coutTotalMetre de la table ResultatCalcul
If
'
'
'
End If
Next
Next
Return dt

End Function





Public Sub calcul(ByRef resultatcalculrow As Emballage_DS.ResultatCalculRow, ByVal longueurSep As System.Double, ByVal largeurSep As System.Double, ByVal epaisseurSep As System.Double, ByVal Cartons As Emballage_DS.CartonsRow, ByVal Intercalaires As Emballage_DS.IntercalairesRow)

longueurSep = frmEmballage.txtLong.Text
largeurSep = frmEmballage.txtLarg.Text
epaisseurSep = frmEmballage.txtEp.Text

Dim cartonRow As Emballage_DS.CartonsRow
Dim intercalaireRow As Emballage_DS.IntercalairesRow
Dim loLibre, laLibre, nbIntHor, nbIntVer, nbIntLibreLo, nbIntLibreLa, nbIntTotal As System.Double
Dim sensIntercalaire As System.Double
Dim demiInt As System.Boolean

'nb de séparateurs en longueur
Dim nbSepLo As System.Double = Decimal.Truncate((cartonRow.longueur - My.Settings.paramJeu) / longueurSep)

'nb de séparateurs en largeur
Dim nbSepLa As System.Double = Decimal.Truncate((cartonRow.largeur - My.Settings.paramJeu) / largeurSep)

'nb de séparateurs en hauteur
Dim nbSepHaut As System.Double = Decimal.Truncate((cartonRow.epaisseur - My.Settings.paramJeu) / epaisseurSep)

Do

'espace libre en longueur
loLibre = (cartonRow.longueur - My.Settings.paramJeu) - (nbSepLo * longueurSep) - ((nbSepLo - 1) - intercalaireRow.epaisseur)

'espace libre en largeur
laLibre = (cartonRow.largeur - My.Settings.paramJeu) - (nbSepLa * largeurSep) - ((nbSepLa - 1) - intercalaireRow.epaisseur)

If loLibre < 0 Then
nbSepLo -= 1
End If

If laLibre < 0 Then
nbSepLa -= 1
End If

Loop While loLibre < 0 And laLibre < 0

'sens de disposition de l'intercalaire
If intercalaireRow.longueur > cartonRow.epaisseur Then
sensIntercalaire = intercalaireRow.longueur

'nb d'intercalaires horizontaux à mettre selon le sens de disposition
nbIntHor = Decimal.Truncate(cartonRow.longueur - My.Settings.paramJeu) / sensIntercalaire

Else

sensIntercalaire = intercalaireRow.largeur
'nb d'intercalaires verticaux à mettre
nbIntVer = Decimal.Truncate(cartonRow.largeur - My.Settings.paramJeu) / sensIntercalaire

End If

'demi intercalaire pour séparer le séparateur en longueur ou non
If sensIntercalaire > largeurSep Then
demiInt = True
Else
demiInt = False
End If

'nb d'intercalaires à mettre ds l'espace libre en longueur
nbIntLibreLo = Decimal.Truncate(loLibre / intercalaireRow.epaisseur)

'nb d'intercalaires à mettre ds l'espace libre en largeur
nbIntLibreLa = Decimal.Truncate(laLibre / intercalaireRow.epaisseur)
'nb d'intercalaires totaux
nbIntTotal = (nbIntLibreLo + nbSepLo - 1) * nbIntVer + (nbIntLibreLa + nbSepLa - 1) * nbIntHor

End Sub

End Class

[Aspic]

Salut,

Utilise la balise code ([Code]....[\CODE]) please car je n'y vois rien !

[Pol63]

tu ne t'y prends pas comme y faut
efface tout et recommence en réfléchissant differrement
des subs pour récupérer des données en passant des textbox.text c'est du nimp

[Aspic]

En gros, y'a deux types majeurs de procédures :

- Les Sub : qui ne retourne aucune valeur
- Les Function : qui retourne une valeur de ton choix (Integer, String, Date...)

Utilise cela et tu y arriveras sans doute