15 Январь 2011

Как сделать движущийся график

Мультимедиа |  Таги: ,

Как сделать движущийся график

Option Explicit
Const Pi As Single = 3.14159265358979

Private Sub Timer1_Timer()
Static i As Single

  Picture2.PaintPicture Picture1.Image, -Screen.TwipsPerPixelX * 2, 0
  Picture1.PaintPicture Picture2.Image, 0, 0
  Picture1.PSet (Picture1.ScaleWidth - Screen.TwipsPerPixelX, (Sin(i) + 1) * Picture1.ScaleHeight / 2)

  i = i + 10 * Pi / 180
End Sub

Запись опубликована on 15.01.2011 at 12:36 и размещена в рубрике: Мультимедиа. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.