رسم بياني مع الزمن

السلام عليكم

ابي ارسم مثلا دالة مع الزمن تتغير احداثيات حسب القيم الناتجة

وجدت برنامج من تصميم اخي رغيد

Private Sub Form_Load()
	picBox.FillStyle = vbSolid

  ' تحديد ابعاد الرسم :
  ' من سالب 12 الى موجب 12 على المحور س
  ' و من سالب 140 الى موجب 140 على المحور ص
	picBox.Scale (-12, -140)-(12, 140)
End Sub

Sub DrawEquation()
	Dim X As Single
	Dim Y As Single

	picBox.ForeColor = vbRed

  ' الذهبا الى اول نقطة في الرسم
	X = -10
	Y = (X ^ 2 + 2 * X + 1) ' يمكنك تغيير الدالة
	picBox.CurrentX = X
	picBox.CurrentY = -Y

  ' رسم المنحى كاملاً
	For X = -10 To 10 Step 0.1
		Y = (X ^ 2 + 2 * X + 1) ' يمكنك تغيير الدالة
		picBox.Line -(X, -Y)
	Next

End Sub

Sub DrawAxis()
	Dim I As Integer

  ' رسم الخط الافقي و العمودي
	picBox.Line (-12, 0)-(12, 0), vbBlack
	picBox.Line (0, -140)-(0, 140), vbBlack

  ' إظهار الارقام الافقية
	For I = -10 To 10 Step 2
		picBox.Circle (I, 0), 0.1

		picBox.CurrentX = I
		picBox.CurrentY = 1

		picBox.Print I
	Next

  ' إظهار الارقام العمودية
	For I = -120 To -20 Step 20
		picBox.Circle (0, I), 0.1

		picBox.CurrentX = -1.2
		picBox.CurrentY = I - 3

		picBox.Print I
	Next
End Sub

احتاج الى تعديل الاحداثيات تكون لحظية علشان ابسط المسالة

رسم دلة Round مع خط الزمن

احداثي الصادي (0,1)

احداثي السيني في البداية (0,10) يعني من صفر الى 10 ثواني

اذاوصل الى 10 ثواني يزيد 5 مع الاحتفاظ بحجم الرسم البياني ولكن تغير مقياس الرسم لجميع القيم السابقة