home *** CD-ROM | disk | FTP | other *** search
/ Chip: Windows 2000 Professional Resource Kit / W2KPRK.iso / apps / smartsketch_le / Samples / FG_MathCadSamples / Mathcad / Beam / Module1.bas < prev   
Encoding:
BASIC Source File  |  1999-11-02  |  725 b   |  26 lines
  1.  
  2. Function GetC(L , a1 , PLoad , DLoad) 
  3.    
  4.     Lreal = L
  5.     a1real = a1
  6.     PLoadreal = PLoad
  7.     DLoadreal = DLoad
  8.         
  9.  
  10.     ' Get a reference to SmartSketch
  11.     Set objSmartSketch = GetObject(, "SmartSketch.Application")
  12.  
  13.     ' Get a reference to the Mathcad object
  14.     Set objmathcad = objSmartSketch.ActiveDocument.ActiveSheet.SmartFrames2d(1).object
  15.    
  16.     Call objmathcad.SetComplex("in0", Lreal, 0)
  17.     Call objmathcad.SetComplex("in1", a1real, 0)
  18.     Call objmathcad.SetComplex("in2", PLoadreal, 0)
  19.     Call objmathcad.SetComplex("in3", DLoadreal, 0)
  20.  
  21.     Call objmathcad.Recalculate
  22.     Call objmathcad.GetComplex("out0", flowreal, flowimag)
  23.     GetC = flowreal
  24.       
  25.  End Function
  26.