- Code/Resource
- Windows Develop
- Linux-Unix program
- Internet-Socket-Network
- Web Server
- Browser Client
- Ftp Server
- Ftp Client
- Browser Plugins
- Proxy Server
- Email Server
- Email Client
- WEB Mail
- Firewall-Security
- Telnet Server
- Telnet Client
- ICQ-IM-Chat
- Search Engine
- Sniffer Package capture
- Remote Control
- xml-soap-webservice
- P2P
- WEB(ASP,PHP,...)
- TCP/IP Stack
- SNMP
- Grid Computing
- SilverLight
- DNS
- Cluster Service
- Network Security
- Communication-Mobile
- Game Program
- Editor
- Multimedia program
- Graph program
- Compiler program
- Compress-Decompress algrithms
- Crypt_Decrypt algrithms
- Mathimatics-Numerical algorithms
- MultiLanguage
- Disk/Storage
- Java Develop
- assembly language
- Applications
- Other systems
- Database system
- Embeded-SCM Develop
- FlashMX/Flex
- source in ebook
- Delphi VCL
- OS Develop
- MiddleWare
- MPI
- MacOS develop
- LabView
- ELanguage
- Software/Tools
- E-Books
- Artical/Document
ROTATE.FRM
Package: MSDN_VC98.zip [view]
Upload User: bangxh
Upload Date: 2007-01-31
Package Size: 42235k
Code Size: 6k
Category:
Windows Develop
Development Platform:
Visual C++
- VERSION 4.00
- Begin VB.Form RotateControl
- Caption = "Rotation Controller"
- ClientHeight = 1695
- ClientLeft = 7920
- ClientTop = 3030
- ClientWidth = 3795
- BeginProperty Font
- name = "MS Sans Serif"
- charset = 1
- weight = 700
- size = 8.25
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- Height = 2100
- Left = 7860
- LinkTopic = "Form1"
- ScaleHeight = 1695
- ScaleWidth = 3795
- Top = 2685
- Width = 3915
- Begin VB.CommandButton Animate
- Caption = "&Animate..."
- Height = 495
- Left = 240
- TabIndex = 4
- Top = 960
- Width = 1095
- End
- Begin VB.TextBox Radius
- Alignment = 1 'Right Justify
- Height = 375
- Left = 2640
- TabIndex = 2
- Text = "100"
- Top = 1140
- Width = 735
- End
- Begin VB.TextBox Theta
- Alignment = 1 'Right Justify
- Height = 375
- Left = 2640
- TabIndex = 3
- Text = "0"
- Top = 600
- Width = 735
- End
- Begin VB.TextBox Declination
- Alignment = 1 'Right Justify
- Height = 375
- Left = 2640
- TabIndex = 1
- Text = "0"
- Top = 120
- Width = 735
- End
- Begin VB.CommandButton Draw
- Caption = "&Draw"
- Default = -1 'True
- Height = 495
- Left = 240
- TabIndex = 0
- Top = 240
- Width = 1095
- End
- Begin Spin.SpinButton RadiusSpin
- Height = 375
- Left = 3360
- TabIndex = 8
- Top = 1140
- Width = 255
- _version = 65536
- _extentx = 450
- _extenty = 661
- _stockprops = 73
- forecolor = -2147483640
- backcolor = -2147483643
- delay = 0
- End
- Begin Spin.SpinButton ThetaSpin
- Height = 375
- Left = 3360
- TabIndex = 9
- Top = 600
- Width = 255
- _version = 65536
- _extentx = 450
- _extenty = 661
- _stockprops = 73
- forecolor = -2147483640
- backcolor = -2147483643
- delay = 0
- End
- Begin Spin.SpinButton DeclineSpin
- Height = 375
- Left = 3360
- TabIndex = 10
- Top = 120
- Width = 255
- _version = 65536
- _extentx = 450
- _extenty = 661
- _stockprops = 73
- forecolor = -2147483640
- backcolor = -2147483643
- delay = 0
- End
- Begin VB.Label RadiusText
- Alignment = 1 'Right Justify
- Caption = "&Radius"
- Height = 255
- Left = 1440
- TabIndex = 7
- Top = 1200
- Width = 1095
- End
- Begin VB.Label TText
- Alignment = 1 'Right Justify
- Caption = "&Theta"
- Height = 255
- Left = 1440
- TabIndex = 6
- Top = 660
- Width = 1095
- End
- Begin VB.Label DText
- Alignment = 2 'Center
- Caption = "&Declination"
- Height = 255
- Left = 1440
- TabIndex = 5
- Top = 180
- Width = 1155
- End
- End
- Attribute VB_Name = "RotateControl"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Private Sub Animate_Click()
- AnimateForm.Show
- End Sub
- Private Sub Declination_Change()
- d = Val(Declination.Text)
- Square.Declination = d / 57.29577951
- Square.Draw
- End Sub
- Private Sub DeclineSpin_SpinDown()
- d = Val(Declination.Text) - 1
- If (d < 0) Then
- d = 0
- End If
- Declination.Text = Str$(d)
- End Sub
- Private Sub DeclineSpin_SpinUp()
- d = Val(Declination.Text) + 1
- If (d > 180) Then
- d = 180
- End If
- Declination.Text = Str$(d)
- End Sub
- Private Sub Draw_Click()
- Square.Declination = Val(Declination.Text) / 57.29577951
- Square.Theta = Val(Theta.Text) / 57.29577951
- Square.Radius = Val(Radius.Text)
- Square.Draw
- End Sub
- Private Sub Form_Load()
- Set Square = CreateObject("SphereSquare.Object")
- Declination.Text = Str$(Square.Declination)
- Theta.Text = Str$(Square.Theta)
- Radius.Text = Str$(Square.Radius)
- Square.BackColor = RGB(0, 0, 0)
- Square.LineColorPositive = RGB(255, 255, 0)
- Square.LineColorNegative = RGB(0, 255, 0)
- Square.SetWindowPosition 100, 100
- Square.SetWindowSize 300, 300
- Square.ShowWindow (SW_SHOW)
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Set Square = Nothing
- End Sub
- Private Sub Radius_Change()
- r = Val(Radius.Text)
- Square.Radius = r
- Square.Draw
- End Sub
- Private Sub RadiusSpin_SpinDown()
- r = Val(Radius.Text) - 1
- If (r < 0) Then
- r = 0
- End If
- Radius.Text = Str$(r)
- 'Square.Radius = r
- 'Square.Draw
- End Sub
- Private Sub RadiusSpin_SpinUp()
- r = Val(Radius.Text) + 1
- If (r > 500) Then
- r = 500
- End If
- Radius.Text = Str$(r)
- 'Square.Radius = r
- 'Square.Draw
- End Sub
- Private Sub Theta_Change()
- th = Val(Theta.Text)
- Square.Theta = th / 57.29577951
- Square.Draw
- End Sub
- Private Sub ThetaSpin_SpinDown()
- th = Val(Theta.Text) - 1
- If (th < 0) Then
- th = 359
- End If
- Theta.Text = Str$(th)
- End Sub
- Private Sub ThetaSpin_SpinUp()
- th = Val(Theta.Text) + 1
- If (th > 359) Then
- th = 0
- End If
- Theta.Text = Str$(th)
- End Sub