Nomograms

From CaisisWiki

(Difference between revisions)
Jump to: navigation, search
m
Line 11: Line 11:
<code>
<code>
Public Function TestMe()
Public Function TestMe()
-
 
 
     Dim score As Double
     Dim score As Double
-
     Dim prp As ProstatePreRPNew
+
     Dim prp As Caisis_Nomogram.ProstatePreRPNew
-
   
+
     Set prp = New Caisis_Nomogram.ProstatePreRPNew
-
     Set prp = New ProstatePreRPNew
+
     With prp
-
      
+
        .NAHormones = False
-
    prp.NAHormones = False
+
        .NAXRT = False
-
    prp.NAXRT = False
+
        .psa = 2#
-
    prp.psa = 2#
+
        .TStage = "T2a"
-
    prp.TStage = "T2a"
+
        .PrimaryGleason = 2
-
    prp.PrimaryGleason = 2
+
        .SecondaryGleason = 3
-
    prp.SecondaryGleason = 3
+
        .PositiveCores = 10
-
    prp.PositiveCores = 10
+
        .NegativeCores = 3
-
    prp.NegativeCores = 3
+
        .PredMonths = 120
-
    prp.PredMonths = 120
+
        score = .Calculate
-
   
+
     End With
-
    score = prp.Calculate
+
-
      
+
     TestMe = score
     TestMe = score
-
 
End Function
End Function
</code>
</code>
 +
 +
To unregister this DLL if you make a mistake...

Revision as of 20:21, 20 December 2007

Download the following 3 files:

  • Caisis.Nomogram.dll
  • Caisis.Nomogram.reg
  • Caisis.Nomogram.tlb


  1. Double-click the Caisis.Nomogram.reg file to register this DLL
  2. Open a VBA Module in the Export Analysis Utility
  3. Click Tools, References, Browse and open the Caisis.Nomogram.tlb file

Public Function TestMe()

   Dim score As Double
   Dim prp As Caisis_Nomogram.ProstatePreRPNew
   Set prp = New Caisis_Nomogram.ProstatePreRPNew
   With prp
       .NAHormones = False
       .NAXRT = False
       .psa = 2#
       .TStage = "T2a"
       .PrimaryGleason = 2
       .SecondaryGleason = 3
       .PositiveCores = 10
       .NegativeCores = 3
       .PredMonths = 120
       score = .Calculate
   End With
   TestMe = score

End Function

To unregister this DLL if you make a mistake...

Personal tools