[TRNSYS-users] query about creating the new components

Fri May 28 08:09:42 PDT 2010

Stefan

Many thanks for your swift reply.
It is strange, I followed the steps that you mentioned but when the CVF comes up automatically and I press F7 only some errors appears without any thing else. (same as before)

Two other things that I want to confirm, first I have Trnsys 17 which is installed on C\Trnsys 17 ( you was mentioned that it should be on C\Program files\Trnasys) and the second I have CVF 6.6 ( you was mentioned CVF6.6b) which is installed on C\Program file\. Do you thing these two could be the reason. I think it is not reasonable. 

Your effort would be highly appreciated
Mehdi 

----- Original Message ----
From: "thiemann.stefan at vdi.de" <thiemann.stefan at vdi.de>
To: mahdi shahrestani <mahdishahrestani at yahoo.com>
Sent: Fri, May 28, 2010 2:27:30 PM
Subject: Re: [TRNSYS-users] query about creating the new components

Hi,

I dont know what you exactly did but you should regard some points:
-use compaq visual fortran 6.6 b
-At the beginning it is quite useful to use only the fortran workspace
which was created by the "export as fortran" function.
-Just start wiht one input and one output as you did and try:
Out(1)=2*Input1 or something like this

Just trying this should work at once.

For the beginning you can even try like this:
In the simulation studio open a new component, export and save it,
press F7. This should create an empty dll.

For the correct function of all components Trnsys should be installed
in the folder:
C:\Programs\Trnsys_16_1
and your compiler files should be saved in:
C:\Programme\Trnsys16_1\Compilers\Cvf66

If you have special questions dont hesitate to ask

Stefan

-------------
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)

_______________________________________________
TRNSYS-users mailing list
TRNSYS-users at cae.wisc.edu
https://www-old.cae.wisc.edu/mailman/listinfo/trnsys-users