home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Compass_Co1866243212005.psc / @PSC_ReadMe_59560_1.txt next >
Text File  |  2005-03-21  |  725b  |  16 lines
  1. Title: Compass Control
  2. Description: Custom Compass control, will show direction or degrees. 
  3. Private Sub Text1_Change()
  4. 'some basic error checking
  5.  If Val(Text1.Text) > 359 Then
  6.   Text1.Text = (Val(Text1.Text) - 360)
  7.  End If
  8. 'call the control
  9.  Compass.Value = Text1.Text
  10. End Sub
  11. Easy example of using sin in graphics applications.
  12. This file came from Planet-Source-Code.com...the home millions of lines of source code
  13. You can view comments on this code/and or vote on it at: http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=59560&lngWId=1
  14.  
  15. The author may have retained certain copyrights to this code...please observe their request and the law by reviewing all copyright conditions at the above URL.
  16.