اشكال در ويژوال بيسيك

[iLove]

چه طور مي توان در ويژوال بيسيك نمودارهاي سينوسي و كسينوسي را رسم كرد.

 

[the_king]

چه طور مي توان در ويژوال بيسيك نمودارهاي سينوسي و كسينوسي را رسم كرد.

مثال :

Private Const pi As Double = 3.14159265358979

Private Sub Form_Load()
    Dim x As Long, y As Long, t As Double
    AutoRedraw = True
    Scale (0, 1100)-(2000, -1100)
    For x = 0 To ScaleWidth
        t = 2 * pi * (x / ScaleWidth)
        y = 1000 * Sin(t)
        PSet (x, y), vbBlack
    Next
End Sub