home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / smartsketch_le / Samples / FG_MathCadSamples / Mathcad / Beam / Module1.bas < prev   
BASIC Source File  |  1999-11-02  |  725b  |  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.