[Visual Basic 6.0] 三角函數波形繪製 (Sin、Cos、Tan、Cot、Sec、Csc)

2013-11-13

12398
0
Visual Basic 6.0
2013-11-14

摘要:[Visual Basic 6.0] 三角函數波形繪製 (Sin、Cos、Tan、Cot、Sec、Csc)


'# [Visual Basic 6.0] 三角函數波形繪製 (Sin、Cos、Tan、Cot、Sec、Csc)
'# 0xDe
Private Sub Command1_Click(Index As Integer)
    Cls
    PictureShow (Index)
End Sub

Sub PictureShow(Tag)
'-----(X,Y)
Line (1000, 6000)-(1000, 1000)
Print "Y"
Line (1000, 3500)-(8000, 3500)
Print "X"
'-----(X,Y)


For i = 0 To 6.28 Step 0.01
    Select Case Tag
        Case "0"
            PSet (i * 1000 + 1000, -Sin(i) * 1000 + 3500)
        Case "1"
            PSet (i * 1000 + 1000, -Cos(i) * 1000 + 3500)
        Case "2"
            PSet (i * 1000 + 1000, -Tan(i) * 1000 + 3500)
        Case "3"
            PSet (i * 1000 + 1000, Tan(i) * 1000 + 3500)
        Case "4"
            PSet (i * 1000 + 1000, Cos(i) * 1000 + 3500)
        Case "5"
            PSet (i * 1000 + 1000, Sin(i) * 1000 + 3500)
        Case Else
            PSet (i * 1000 + 1000, -Sin(i) * 1000 + 3500)
            PSet (i * 1000 + 1000, -Cos(i) * 1000 + 3500)
            PSet (i * 1000 + 1000, -Tan(i) * 1000 + 3500)
            PSet (i * 1000 + 1000, Tan(i) * 1000 + 3500)
            PSet (i * 1000 + 1000, Cos(i) * 1000 + 3500)
            PSet (i * 1000 + 1000, Sin(i) * 1000 + 3500)
    End Select
Next i

End Sub

Private Sub Command2_Click()
    PictureShow (-1)
End Sub

[Visual Basic 6.0] 三角函數波形繪製 (Sin、Cos、Tan、Cot、Sec、Csc).rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁