home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / NorthDlg.frm < prev    next >
Text File  |  1999-08-17  |  4KB  |  166 lines
  1. VERSION 5.00
  2. Begin VB.Form NorthDlg 
  3.    Caption         =   "Nordrichtung einstellen"
  4.    ClientHeight    =   2205
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2205
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox Radius 
  13.       Height          =   405
  14.       Left            =   1800
  15.       TabIndex        =   9
  16.       Text            =   "Text1"
  17.       Top             =   1680
  18.       Width           =   1215
  19.    End
  20.    Begin VB.TextBox yPos 
  21.       Height          =   405
  22.       Left            =   2280
  23.       TabIndex        =   7
  24.       Text            =   "Text1"
  25.       Top             =   720
  26.       Width           =   735
  27.    End
  28.    Begin VB.TextBox xPos 
  29.       Height          =   405
  30.       Left            =   600
  31.       TabIndex        =   5
  32.       Text            =   "Text1"
  33.       Top             =   720
  34.       Width           =   735
  35.    End
  36.    Begin VB.TextBox Angle 
  37.       Height          =   405
  38.       Left            =   1080
  39.       TabIndex        =   3
  40.       Text            =   "Text1"
  41.       Top             =   120
  42.       Width           =   2055
  43.    End
  44.    Begin VB.CommandButton DoUpdate 
  45.       Caption         =   "Aktualisieren"
  46.       Height          =   375
  47.       Left            =   3360
  48.       TabIndex        =   1
  49.       Top             =   720
  50.       Width           =   1215
  51.    End
  52.    Begin VB.CommandButton Quit 
  53.       Caption         =   "Beenden"
  54.       Height          =   375
  55.       Left            =   3360
  56.       TabIndex        =   0
  57.       Top             =   240
  58.       Width           =   1215
  59.    End
  60.    Begin VB.Label Label4 
  61.       Caption         =   "Radius:"
  62.       Height          =   255
  63.       Left            =   120
  64.       TabIndex        =   8
  65.       Top             =   1755
  66.       Width           =   1095
  67.    End
  68.    Begin VB.Label Label3 
  69.       Caption         =   "y:"
  70.       Height          =   255
  71.       Left            =   1680
  72.       TabIndex        =   6
  73.       Top             =   795
  74.       Width           =   255
  75.    End
  76.    Begin VB.Label Label2 
  77.       Caption         =   "x:"
  78.       Height          =   255
  79.       Left            =   120
  80.       TabIndex        =   4
  81.       Top             =   795
  82.       Width           =   255
  83.    End
  84.    Begin VB.Label Label1 
  85.       Caption         =   "Winkel:"
  86.       Height          =   255
  87.       Left            =   120
  88.       TabIndex        =   2
  89.       Top             =   195
  90.       Width           =   735
  91.    End
  92. End
  93. Attribute VB_Name = "NorthDlg"
  94. Attribute VB_GlobalNameSpace = False
  95. Attribute VB_Creatable = False
  96. Attribute VB_PredeclaredId = True
  97. Attribute VB_Exposed = False
  98. Option Explicit
  99.  
  100. Const PI As Single = 3.1415926
  101. Dim exe As ArCon.ArCon
  102.  
  103. Private Sub Angle_Change()
  104.     Dim phi As Single, x As Single, y As Single, rad As Single
  105.     exe.GetCompas False, phi, x, y, rad
  106.     On Error GoTo done
  107.     phi = CDbl(Angle.Text) * PI / 180
  108.     exe.SetCompas False, phi, x, y, rad
  109. done:
  110. End Sub
  111.  
  112. Private Sub Radius_Change()
  113.     Dim phi As Single, x As Single, y As Single, rad As Single
  114.     exe.GetCompas False, phi, x, y, rad
  115.     On Error GoTo done
  116.     rad = CDbl(Radius.Text)
  117.     exe.SetCompas False, phi, x, y, rad
  118. done:
  119. End Sub
  120.  
  121. Private Sub DoUpdate_Click()
  122.     UpdateData
  123. End Sub
  124.  
  125. Private Sub Form_Load()
  126.     Set exe = New ArCon.ArCon
  127.     exe.StartMe hWnd, ""
  128.     UpdateData
  129. End Sub
  130.  
  131. Private Sub Form_Unload(Cancel As Integer)
  132.     exe.EndMe
  133.     Set exe = Nothing
  134. End Sub
  135.  
  136. Private Sub Quit_Click()
  137.     Unload Me
  138. End Sub
  139.  
  140. Private Sub UpdateData()
  141.     Dim phi As Single, x As Single, y As Single, rad As Single
  142.     exe.GetCompas False, phi, x, y, rad
  143.     Angle.Text = CStr(phi * 180 / PI)
  144.     xPos.Text = CStr(x)
  145.     yPos.Text = CStr(y)
  146.     Radius.Text = CStr(rad)
  147. End Sub
  148.  
  149. Private Sub xPos_Change()
  150.     Dim phi As Single, x As Single, y As Single, rad As Single
  151.     exe.GetCompas False, phi, x, y, rad
  152.     On Error GoTo done
  153.     x = CDbl(xPos.Text)
  154.     exe.SetCompas False, phi, x, y, rad
  155. done:
  156. End Sub
  157.  
  158. Private Sub yPos_Change()
  159.     Dim phi As Single, x As Single, y As Single, rad As Single
  160.     exe.GetCompas False, phi, x, y, rad
  161.     On Error GoTo done
  162.     y = CDbl(yPos.Text)
  163.     exe.SetCompas False, phi, x, y, rad
  164. done:
  165. End Sub
  166.