|
| Iniciado por dadapub, 20,jun. 2019 09:18 - No hay respuesta |
| |
| | | |
|
| |
Miembro registrado
2 mensajes |
|
| Publicado el 20,junio 2019 - 09:18 |
Bonjour,
J'essaie d'utiliser une dll écrite en VB.NET avec Visual Studio Express 12. j'obtiens l'erreur ci-dessous
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 ? |
| |
| |
| | | |
|
| | | | |
| | |
|