Nomograms
From CaisisWiki
(Difference between revisions)
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 | |
- | + | .NAXRT = False | |
- | + | .psa = 2# | |
- | + | .TStage = "T2a" | |
- | + | .PrimaryGleason = 2 | |
- | + | .SecondaryGleason = 3 | |
- | + | .PositiveCores = 10 | |
- | + | .NegativeCores = 3 | |
- | + | .PredMonths = 120 | |
- | + | score = .Calculate | |
- | + | End With | |
- | + | ||
- | + | ||
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
- Double-click the Caisis.Nomogram.reg file to register this DLL
- Open a VBA Module in the Export Analysis Utility
- 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...