Math.sin( )メソッドについて (ID:145852)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

最初の子の書き込みがないね。
僕は中2レベルの算数しかできないけど。
sinとかのアレはクラスでしょ。たぶん。
コレ以前に作ったんで、遊んでね。
Option Strict On
'VisualBasic2008
Public Class Form1
    Sub New()
        ' この呼び出しは、Windows フォーム デザイナで必要です。
        InitializeComponent()
        ' InitializeComponent() 呼び出しの後で初期化を追加します。
        'PIは3.14159です
        StartPosition = FormStartPosition.CenterScreen
        Size = New Size(300, 300)
    End Sub
    Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Timer1.Interval = 300
        Timer1.Start()
    End Sub

Sub 針です(ByVal g As Graphics, _
          ByVal 針の長さ As Integer, _
          ByVal 角度 As Integer, _
        ByVal 色 As Pen)
        Dim x As Integer = CInt(針の長さ * Math.Cos(角度 * Math.PI / 180))
        Dim y As Integer = CInt(針の長さ * Math.Sin(角度 * Math.PI / 180))
        g.DrawLine(色, CInt(Width / 2), CInt(Height / 2), CInt(Width / 2 + x), CInt(Height / 2 + y))
    End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim 針の長さ As Integer
        '秒針
        針の長さ = Now.Second * 6 + 270
        針です(e.Graphics, CInt(Height / 3), 針の長さ, Pens.Black)
        '分針
        針の長さ = Now.Minute * 6 + 270
        針です(e.Graphics, CInt(Height / 4), 針の長さ, Pens.Aqua)
        '時針
        Dim 時針 As Integer = Now.Hour
        針の長さ = (時針 * 30 + 270) + 時針 \ 2
        針です(e.Graphics, CInt(Height / 6), 針の長さ, Pens.Red)
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Timer1をフォームにドラッグしてね
        Me.Invalidate()
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る