Compass Control
Custom Compass control, will show direction or degrees. Private Sub Text1_Change() 'some basic error checking If Val(Text1.Text) > 359 Then Text1.Text = (Val(Text1.Text) - 360) End If 'call the control Compass.Value = Text1.Text End Sub Easy example of using sin in graphics applications.
AI
Tóm tắt bởi AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Mã nguồn
Upload
Bình luận gốc (3)
Được khôi phục từ Wayback Machine