[TRNSYS-users] query about creating the new components

[mahdi shahrestani]

Hello everybody
 
I have a problem in creating the new components.
Regarding to item 1.8 of first chapter (getting start) I followed the procedure to making new component but there is some thing wrong.
 
1-First I installed the Compaq visual basic in my system.
2-in simulation studio I made a new component setting one input, one output and one parameter.
3-I saved it on studio/Performa and then exported it as FORTRAN and save it on my project folder.
4- After appearing a dialog box automatically Compaq visual FORTRAN comes up.
5- I set the equation output=input*mult on the source FORTRAN file.
6- After setting the “Release DLL” I pushed the F7 to make the DLL
 
But the problem is instead of generation of DLL lots of error comes up (30 errors, 0 warnings).
I am sure that I followed the steps right according to mentioned instruction in pages 1-65 to 1-70 but the new component is not generated 
The list of errors has been mentioned below.
 
I was wondering if you could give me an instruction to solve it.
 
Regards
Mehdi Shahrestani
 
 
 
 
 
 
--------------------Configuration: Type201Lib - Win32 Release--------------------
C:\Trnsys17\MyProjects\type201.for(44): Could not find the file TrnsysConstants.mod.
C:\Trnsys17\MyProjects\type201.for(45): Could not find the file TrnsysFunctions.mod.
C:\Trnsys17\MyProjects\type201.for(47): Could not find the file TrnsysData.mod.
Compiling Fortran...
C:\Trnsys17\MyProjects\type201.for
C:\Trnsys17\MyProjects\type201.for(44) : Error: Error in opening the Library module file.   [TRNSYSCONSTANTS]
      Use TrnsysConstants
----------^
C:\Trnsys17\MyProjects\type201.for(45) : Error: Error in opening the Library module file.   [TRNSYSFUNCTIONS]
      Use TrnsysFunctions
----------^
C:\Trnsys17\MyProjects\type201.for(47) : Error: Error in opening the Library module file.   [TRNSYSDATA]
      Use TrnsysData, Only:LastCallofSimulation, ConvergenceReached,
----------^
C:\Trnsys17\MyProjects\type201.for(77) : Error: This name does not have a type, and must have an explicit type.   [GETSIMULATIONTIME]
      Time=getSimulationTime()
-----------^
C:\Trnsys17\MyProjects\type201.for(78) : Error: This name does not have a type, and must have an explicit type.   [GETSIMULATIONTIMESTEP]
      Timestep=getSimulationTimeStep()
---------------^
C:\Trnsys17\MyProjects\type201.for(83) : Error: Conflicting attributes or multiple declaration of name.   [VERSIONSIGNINGTIME]
      If(VersionSigningTime) Then
---------^
C:\Trnsys17\MyProjects\type201.for(83) : Error: A logical data type is required in this context.   [VERSIONSIGNINGTIME]
      If(VersionSigningTime) Then
---------^
C:\Trnsys17\MyProjects\type201.for(91) : Error: Conflicting attributes or multiple declaration of name.   [LASTCALLOFSIMULATION]
      If(LastCallofSimulation) Then
---------^
C:\Trnsys17\MyProjects\type201.for(91) : Error: A logical data type is required in this context.   [LASTCALLOFSIMULATION]
      If(LastCallofSimulation) Then
---------^
C:\Trnsys17\MyProjects\type201.for(98) : Error: Conflicting attributes or multiple declaration of name.   [CONVERGENCEREACHED]
      If(ConvergenceReached) Then
---------^
C:\Trnsys17\MyProjects\type201.for(98) : Error: A logical data type is required in this context.   [CONVERGENCEREACHED]
      If(ConvergenceReached) Then
---------^
C:\Trnsys17\MyProjects\type201.for(105) : Error: Conflicting attributes or multiple declaration of name.   [FIRSTCALLOFSIMULATION]
      If(FirstCallofSimulation) Then
---------^
C:\Trnsys17\MyProjects\type201.for(105) : Error: A logical data type is required in this context.   [FIRSTCALLOFSIMULATION]
      If(FirstCallofSimulation) Then
---------^
C:\Trnsys17\MyProjects\type201.for(123) : Error: Conflicting attributes or multiple declaration of name.   [FIRSTTIMESTEP]
      If (FirstTimestep) Then
----------^
C:\Trnsys17\MyProjects\type201.for(123) : Error: A logical data type is required in this context.   [FIRSTTIMESTEP]
      If (FirstTimestep) Then
----------^
C:\Trnsys17\MyProjects\type201.for(125) : Error: This name does not have a type, and must have an explicit type.   [GETPARAMETERVALUE]
      mult = getParameterValue(1)
-------------^
C:\Trnsys17\MyProjects\type201.for(127) : Error: This name does not have a type, and must have an explicit type.   [GETINPUTVALUE]
      iput = GetInputValue(1)
-------------^
C:\Trnsys17\MyProjects\type201.for(156) : Error: Conflicting attributes or multiple declaration of name.   [REREADPARAMETERS]
      If(ReReadParameters) Then
---------^
C:\Trnsys17\MyProjects\type201.for(156) : Error: A logical data type is required in this context.   [REREADPARAMETERS]
      If(ReReadParameters) Then
---------^
C:\Trnsys17\MyProjects\type201.for(171) : Error: This name does not have a type, and must have an explicit type.   [ERRORFOUND]
      If(ErrorFound()) Return
---------^
C:\Trnsys17\MyProjects\type201.for(171) : Error: A logical data type is required in this context.   [ERRORFOUND]
      If(ErrorFound()) Return
---------^
C:\Trnsys17\MyProjects\type201.for(205) : Error: This name does not have a type, and must have an explicit type.   [OPUT]
 oput=iput*mult
--------^
C:\Trnsys17\MyProjects\type201.for(47) : Error: Name in only-list does not exist.   [LASTCALLOFSIMULATION]
      Use TrnsysData, Only:LastCallofSimulation, ConvergenceReached,
---------------------------^
C:\Trnsys17\MyProjects\type201.for(47) : Error: Name in only-list does not exist.   [CONVERGENCEREACHED]
      Use TrnsysData, Only:LastCallofSimulation, ConvergenceReached,
-------------------------------------------------^
C:\Trnsys17\MyProjects\type201.for(48) : Error: Name in only-list does not exist.   [FIRSTCALLOFSIMULATION]
     1FirstCallofSimulation, FirstTimestep, ReReadParameters, 
------^
C:\Trnsys17\MyProjects\type201.for(48) : Error: Name in only-list does not exist.   [FIRSTTIMESTEP]
     1FirstCallofSimulation, FirstTimestep, ReReadParameters, 
-----------------------------^
C:\Trnsys17\MyProjects\type201.for(48) : Error: Name in only-list does not exist.   [REREADPARAMETERS]
     1FirstCallofSimulation, FirstTimestep, ReReadParameters, 
--------------------------------------------^
C:\Trnsys17\MyProjects\type201.for(49) : Error: Name in only-list does not exist.   [VERSIONSIGNINGTIME]
     1VersionSigningTime, CurrentUnit, CurrentType
------^
C:\Trnsys17\MyProjects\type201.for(49) : Error: Name in only-list does not exist.   [CURRENTUNIT]
     1VersionSigningTime, CurrentUnit, CurrentType
--------------------------^
C:\Trnsys17\MyProjects\type201.for(49) : Error: Name in only-list does not exist.   [CURRENTTYPE]
     1VersionSigningTime, CurrentUnit, CurrentType
---------------------------------------^
(229) : Severe: Too many errors, exiting
Error executing df.exe.
 
type201.dll - 30 error(s), 0 warning(s)