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
AI-sammanfattning: 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.
Källkod
Upload
Originalkommentarer (3)
Återställd från Wayback Machine