معادل این کد qb تو vb چی می تونه باشه؟

[karim.20]

تعریف و مقدار دهی تابع توسط کاربر
input"f(x)=",function$
open "a.bas" for output as #3
print #3,"def fnf(x)="+function$
print #3,"print fnf(a)"
close #3
run "a.bas"

[zerobit-ltd]

به سایت برنامه نویس خوش اومدید.
لطفا کد خودتون رو داخل تگ code قرار بدید تا خوانا باشه.

[zerobit-ltd]

به جای فرستادن پاسخ سریع، حالت پیشرفته رو انتخاب کن و بعدش روی # کلیک کن تا تگش اضافه شه. کدت رو بین تگ قرار بده.

[karim.20]

input "f(x)=",function$
open "a.bas" for output as #3
print #3,"def fnf(x)="+function$
print #3,"print fnf(a)"
close #3
run "a.bas"

[حامد مصافی]

سلام
کریم جان از اینکه به جمع ما در این سایت پیوستید خوشحالیم.

این یک برنامه نوشته شده به زبان یسیک کنسولی است.
دو عامل باعث می شود تا شما نتوانید این برنامه را در محیط VB پیاده سازی کنید

1. بیسیک کنسولی بود و این برنامه در خط اول یک پارامتر را از کاربر می گیرد (که در این مثال یک تابع است)

2. برنامه های بیسیک با اگر در کنار فایل اجرایی بیسیک قرار داشتند توسط مفسر آن اجرا می شدند. اگر قرار است این برنامه را ترجمه کنید باید امکان اجرای فایل ساخته شده را فراهم کنید.

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

- در خط اول از کاربر (با نمایش رشته "f(x)=" ) یک مقدار رشته ای گرفته می شود (با توجه به علامت $)
- در خط دوم یک فایل با نام a.bas (پسوند بیسیک ) باز می شود
- در خط سوم عبارت ,"def fnf(x)=" سپس تابع گرفته شده از کاربر نوشته می شود.
- در خط چهارم عبارت print fnf(a)" (به منظور چاپ نتیجه برگشتی روی صفحه نمایش) نوشته می شود
- در خط پنجم فایل بسته می شود.
- در خط ششم فایل ساخته شده اجرا می شود.

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

[MM_Mofidi]

این همون کلکی بود که برای اجرای توابع کاربر بکار میبردیم هزینه نوشتن مفسر رو هم بی خیال میشدیم. کلی حال میداد.
یادش بخیر الان بهتره از activex های نوشته شده برای اینکار استفاده کنی