home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / V4 / tcw.z / hworld.bas < prev    next >
Encoding:
BASIC Source File  |  1997-09-29  |  816 b   |  35 lines
  1. 'Hello World in TurboCAD
  2. Sub Main()
  3.         Dim hDrawing As Long
  4.         Dim hGraphic As Long
  5.         Dim Result As Long
  6.         Dim e As String
  7.         Dim measure As double
  8.         Dim es1 As Long
  9.         Dim es As double
  10.  
  11. measure = Abs(TCWViewExtentsGetY2() - TCWViewExtentsGetY1())/8.5    
  12.       es1=50*measure
  13.       es=es1/100
  14.  
  15.         'Must have a drawing active
  16.         hDrawing = TCWDrawingActive()
  17.         If (hDrawing = 0) Then
  18.             TCWLastErrorGet(e)
  19.             MsgBox e
  20.             Stop
  21.         End If
  22.  
  23.         'Create a graphic that has the text "hello world"  
  24.         'TCWText takes 6 parameters: X, Y, Z, string, font size, and
  25.         'angle to print text
  26.         hGraphic = TCWText(2#*measure, 2#*measure, 0#, "Hello World!",es, 0#)
  27.         'hGraphic should how have a handle to our text graphic
  28.         If (hGraphic = 0) Then
  29.             TCWLastErrorGet(e)    
  30.             MsgBox e
  31.             Stop
  32.         End If
  33. End Sub
  34.  
  35.