محاسبه انتگرال و رسم توابع

[jamungo]

سلام دوستان یه برنامه جمع کردم برای رسم توابع و محاسبه انتگرال . ولی فقط برای یه تابع میشه ازش استفاده کرد . میخوام بینم هیچ راهی نداره که بشه تابع مورد استفاده رو از تکست باکس گرفت . تو رو خدا کمکم کنید کارم به خاطر این خیلی گیره!
این هم کد برنامه :



Private Sub Command1_Click()


Form1.Scale (-100, 100)-(100, -100)

Form1.Line (-100, 0)-(100, 0)

Form1.Line (0, -100)-(0, 100)

For i = -10 To 10 Step 0.0001

p = 4 * Atn(1)

x = i * 180 / p

y = Cos(x)

Form1.PSet (x * 10, y * 10), QBColor(10)

Next i

End Sub



:41::41::41::41::41::41:

[sadeghbarout]

راهی که من به نظرم میرسه اینه که از if استفاده کنی
مثلا اگه توی تکست باکس نوشته بود sin فلان دستور و اگه نوشته بود cos فلان دستور رو انجام بده
یا از option button استفاده کن

[afceaglee2013]

من شاید بتونم کمکتون کنم اگه خواستین دقیقا لیست توابع و چیزایی که میخواین رو بگید تا راهنمایی کنم ..