pcsoft.fr.windevCopyright 2026, PC SOFT20 Jun 2019 09:18:36 Z20 Jun 2019 09:18:36 ZBonjour, J'essaie d'utiliser une dll écrite en VB.NET avec Visual Studio Express 12. j'obtiens l'erreur ci-dessous https://hostimage.windev.io/images/Capture_3017f1458c88521b6038bb5c02e313ee.PNG Voici mon code CalcEVAP_Eurocoil est une Description d'API CalcEVAP_Eurocoil..NomDLL = "euCalcDLL" CalcEVAP_Eurocoil..NomFonction = "CalcEVAP_Eurocoil" CalcEVAP_Eurocoil..TypeRetour = apiEntier_4 CalcEVAP_Eurocoil..Paramètre[1]..Type = apiChaîneUnicode CalcEVAP_Eurocoil..Paramètre[2]..Type = apiChaîneUnicode CalcEVAP_Eurocoil..Paramètre[3]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[4]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[5]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[6]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[7]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[8]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[9]..Type = apiChaîneUnicode CalcEVAP_Eurocoil..Paramètre[10]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[11]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[12]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[13]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[14]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[15]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[16]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[17]..Type = apiRéel_4 CalcEVAP_Eurocoil..Paramètre[18]..Type = apiRéel_4 ////////////////////////////////// // CALCUL DE LA BATTERIE EVAPORADTION // ////////////////////////////////// Qa, VA, DPA, TUA, UUA, QTOT, QSEN, Qrefr, DPR, Tpr1, A1 sont des réels sur 4 octets Geom1 est une chaîne resultat est un entier hInstTrianon est entier gRepfournisseurs est une chaîne = "E:\FOURNISSEURS" fRepEnCours(gRepfournisseurs + "\TRIANON\") ChargeDLL(gRepfournisseurs + "\TRIANON\euCalcDLL.dll") resultat=CalcEVAP_Eurocoil("12", "10", 320, 640, 2.1, 4, 10,0,"A",24,50,0,2000,5,40,5,40,"R410A", Qa, VA, DPA, TUA, UUA, QTOT, QSEN, Qrefr, DPR, Geom1, Tpr1, A1) Ci dessous le code vb.net qui fonctionne La dll est ajoutée comme une référence Public Class Form1 Public Calculation As New euCalcDLL.euCalcDLL Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' INPUT DATA Dim flgDim As Boolean = 0 Dim Geometry$ = txtGeometry.Text Dim Tube$ = txtTube.Text Dim A! = Val(txtA.Text) Dim L! = Val(txtL.Text) Dim NR! = Val(txtNR.Text) Dim FinSpa! = Val(txtFinSpa.Text) Dim NC% = Val(txtNC.Text) Dim TS% = Val(txtTS.Text) Dim Fins$ = txtFins.Text ' Dim TSA1! = Val(txtTia.Text) Dim ULREL1% = Val(txtUia.Text) Dim FlagQaVa! = Val(txtFlagQaVa.Text) Dim QaVa! = Val(txtQaVa.Text) Dim TW1! = Val(txtTwi.Text) Dim FlagTuwQwVw! = Val(txtFlagTwuQwVw.Text) Dim TuwQwVw! = Val(txtTwuQwVw.Text) Dim Glic% = Val(txtGlic.Text) ' OUTPUT DATA Dim QA! Dim VA! Dim DPA! Dim TUA! Dim UUA! Dim QTOT! Dim QSEN! Dim QW! Dim VW! Dim DPW! Dim TUW! Dim LAMIN$ = Nothing Dim GEOM$ = Nothing Dim TPR1! Dim A1! Dim Errore% = Calculation.CalcCOOL_Eurocoil(Geometry, Tube, A, L, NR, FinSpa, NC, TS, Fins, _ TSA1, ULREL1, FlagQaVa, QaVa, TW1, FlagTuwQwVw, TuwQwVw, Glic, _ QA, VA, DPA, TUA, UUA, QTOT, QSEN, QW, VW, DPW, TUW, LAMIN, GEOM, TPR1, A1) If Errore = -1 Then lblQA.Text = Format(QA, "0") lblVA.Text = Format(VA, "0.0") lblDPA.Text = Format(DPA, "0") lblTUA.Text = Format(TUA, "0.0") lblUUA.Text = Format(UUA, "0") lblQTOT.Text = Format(QTOT, "0.00") lblQSEN.Text = Format(QSEN, "0.00") lblQW.Text = Format(QW, "0") lblVW.Text = Format(VW, "0.0") lblDPW.Text = Format(DPW, "0") lblTWU.Text = Format(TUW, "0.0") lblLAMIN.Text = LAMIN End If End Sub End Class Quelqu'un peut il m'aider ?30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/230963-reference-dll-net/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)