home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / smartsketch_le / Samples / FG_MathCadSamples / Mathcad / Ditch / MathCAD.bas < prev   
BASIC Source File  |  1999-11-02  |  813b  |  33 lines
  1.  
  2. Function GetC(D, BW, TW, SideLength)
  3.  
  4.     varareal = D
  5.     varbreal = BW
  6.     varcreal = TW
  7.     vardreal = SideLength
  8.  
  9.  
  10.     varaimag = 0
  11.     varbimag = 0
  12.     varcimag = 0
  13.     vardimag = 0
  14.     flowimag = 0
  15.     
  16.   
  17.     ' Get a reference to SmartSketch
  18.     Set objSmartSketch = GetObject(, "SmartSketch.Application")
  19.  
  20.     ' Get a reference to the Mathcad object
  21.     Set objmathcad = objSmartSketch.ActiveDocument.ActiveSheet.SmartFrames2d(1).object
  22.    
  23.     Call objmathcad.SetComplex("in0", varareal, 0)
  24.     Call objmathcad.SetComplex("in1", varbreal, 0)
  25.     Call objmathcad.SetComplex("in2", varcreal, 0)
  26.     Call objmathcad.SetComplex("in3", vardreal, 0)
  27.     Call objmathcad.Recalculate
  28.     Call objmathcad.GetComplex("out0", flowreal, flowimag)
  29.  
  30.     GetC = flowreal
  31.  
  32. End Function
  33.