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
Resumo por IA: 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.
Código fonte
Upload
Comentários originais (3)
Recuperado do Wayback Machine