From 754d24c118483f009ee82edc3e36519c65525702 Mon Sep 17 00:00:00 2001 From: Elad Salomons Date: Thu, 21 Jul 2016 17:04:29 +0300 Subject: [PATCH] Small fix to VB header file and consistency in ENgetcurve function call --- include/epanet2.bas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/include/epanet2.bas b/include/epanet2.bas index 321f4f3..adb5d70 100644 --- a/include/epanet2.bas +++ b/include/epanet2.bas @@ -221,7 +221,7 @@ Global Const EN_CUSTOM = 2 ' user-defined custom curve Declare Function ENsetoption Lib "epanet2.dll" (ByVal Code As Long, ByVal Value As Single) As Long Declare Function ENsetstatusreport Lib "epanet2.dll" (ByVal Code As Long) As Long Declare Function ENsetqualtype Lib "epanet2.dll" (ByVal QualCode As Long, ByVal ChemName As String, ByVal ChemUnits As String, ByVal TraceNode As String) As Long - Declare Function ENgetqualinfo Lib "epanet2.dll" (QualCode As Long, ChemName As String, ChemUnits As String, TraceNode As Long) As Long + Declare Function ENgetqualinfo Lib "epanet2.dll" (QualCode As Long, ByVal ChemName As String, ByVal ChemUnits As String, TraceNode As Long) As Long Declare Function ENsetbasedemand Lib "epanet2.dll" (ByVal NodeIndex As Long, ByVal DemandIndex As Long, ByVal BaseDemand As Single) As Long Declare Function ENgetcurveindex Lib "epanet2.dll" (ByVal ID As String, Index As Long) As Long