تبلیغات
تبلیغات متنی
محبوبترینها
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1837132636
رسم تابع با ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: رسم تابع با ویژوال بیسیک m_mx2009 20 آبان 1389, 00:05سلام دوستان یه برنامه با راهنمایی یکی از دوستان نوشتم که تابع رسم میکنه ولی متاسفانه فقط برای یه تابع میشه ازش استفاده کرد و نمیشه تابع مورد رسم رو از تکست باکس گرفت ممنون میشم اگه کمکم کنین! این هم کد برنامه : Private Sub Command 1_Click() Dim i As Double, pi As Double, x As Double, y As Double Form1.AutoRedraw = True Form1.Scale (-100, 100)-(100, -100) Form1.Line (-100, 0)-(100, 0) Form1.Line (0, -100)-(0, 100) pi = 4 * Atn(1) For i = -10 To 10 Step 0.001 x = i * 180 / pi y = Cos(x) Form1.PSet (x * 10, y * 10), QBColor(10) Next i End Sub میشه کاری کرد که تابع رو از تکست باکس گرفت؟؟ دوستان اگه میتونن امتحان کنن و جوابم رو بدن ! the_king 20 آبان 1389, 12:42فقط به کمی معلومات ریاضی و گرافیک کامپیوتری نیاز دارید. مخصوصا که در هنگام ترسیم نمودار بایستی ابتدا ابعاد نمودار را بدست بیاورید تا در هنگام ترسیم از کادر صفحه خارج نشوید. نمونه پیوستی رو بررسی کنید. مثلا : x : t y : sin(x) t : -10 * pi to 10 * pi مثلا : x : sin(y) y : -2 * pi to 2 * pi t : مثلا : x : sin(t) y : sin(t) * cos(t) t : -pi to pi x : sin(t) * t y : cos(t) * t t : -6 to 1.5 ^ 4 کد کامل پروژه ضمیمه این پست می باشد. m_mx2009 20 آبان 1389, 19:37دوست عزیز خیلی ممنون کارم رو راه انداختی!:oops: یه سوال دیگه هم داشتم چه جوری میشه یه متغیر تعریف کرد که تو کل پروژه و حتی در حلقه هایی مثل for هم بشه ازش استفاده کرد؟ من خودم با public a as varient که a متن داخل تکست باکس هستش در قسمت General فرم امتحان کردم ولی تو حلقه شناخته نمیشه! ممنون میشم اگه در این مورد هم کمکم کنین! مثلا اگه بشه کاری کرد که در همین کدهایی که اول صفحه نوشتم متن داخل تکست باکس رو جلوی y وارد کنه خیلی خوب میشه !! چون این کدهایی که اینجا نوشتم آسونه و من ازش سر در میارم ولی برنامه شما رو نتونستم خوب آنالیز کنم! the_king 20 آبان 1389, 20:20یه سوال دیگه هم داشتم چه جوری میشه یه متغیر تعریف کرد که تو کل پروژه و حتی در حلقه هایی مثل for هم بشه ازش استفاده کرد؟ من خودم با public a as varient که a متن داخل تکست باکس هستش در قسمت General فرم امتحان کردم ولی تو حلقه شناخته نمیشه! متاسفانه متوجه منظورتون نشدم، شما می توانید در یک Module مثل Module1 یک متغیر عمومی تعریف کنید مثلا : Public EValValue As Double حالا این متغیر EValValue در کل پروژه و در تمامی بخش ها قابل دسترسی است. ممنون میشم اگه در این مورد هم کمکم کنین! مثلا اگه بشه کاری کرد که در همین کدهایی که اول صفحه نوشتم متن داخل تکست باکس رو جلوی y وارد کنه خیلی خوب میشه !! چون این کدهایی که اینجا نوشتم آسونه و من ازش سر در میارم ولی برنامه شما رو نتونستم خوب آنالیز کنم! کد داخل فرم تان را با این کد ها جایگزین کنید : Private Declare Function EbExecuteLine Lib "vba 6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long Public x As Double, y As Double Private Sub Command 1_Click() Dim i As Double, pi As Double Dim Text As String Form1.AutoRedraw = True Form1.Scale (-100, 100)-(100, -100) Form1.Line (-100, 0)-(100, 0) Form1.Line (0, -100)-(0, 100) pi = 4 * Atn(1) For i = -10 To 10 Step 0.001 x = i * 180 / pi Text = "Form1.y = " & Replace(Text1.Text, "x", "Form1.x") EbExecuteLine StrPtr(Text), 0, 0, False Form1.PSet (x * 10, y * 10), QBColor(10) Next i End Sub m_mx2009 21 آبان 1389, 22:43آقا سلام! من بازم به مشکل خوردم . با همین کدی که اینجا نوشتید یه برنامه نوشتم که با جمع ریمان انتگرال تقریبی یه تابع رو حساب کنه ولی بعضی وقتا جواب رو درست بدست میاره بعضی وقتا هم غلط . دیگه نمیدونم چیکار کنم! در ضمن ویژوال بیسیک 6 با ویندوز سون سازگاری داره ؟ چون من همین برنامه انتگرال رو وقتی کامپایل میکنم موقع اجرا پیغام : vba 6.dll not found رو میده! خواهشا کمک کنید:cry: the_king 22 آبان 1389, 06:24آقا سلام! من بازم به مشکل خوردم . با همین کدی که اینجا نوشتید یه برنامه نوشتم که با جمع ریمان انتگرال تقریبی یه تابع رو حساب کنه ولی بعضی وقتا جواب رو درست بدست میاره بعضی وقتا هم غلط . دیگه نمیدونم چیکار کنم! در ضمن ویژوال بیسیک 6 با ویندوز سون سازگاری داره ؟ چون من همین برنامه انتگرال رو وقتی کامپایل میکنم موقع اجرا پیغام : vba 6.dll not found رو میده! خواهشا کمک کنید:cry: پیدا نکردن فایل vba 6.dll مربوط به سازگاری با ویندوز نیست، فایل vba 6.dll در یک مسیر عمومی مثل C:WindowsSystem32 قرار نداره، به همین جهت سیستم عامل موقع اجرا کردن فایل exe پیداش نمی کنه. فایل vba 6.dll رو از مسیر C:Program FilesMicrosoft Visual StudioVB 98 کنار فایل exe پروژه تان کپی کنید. m_mx2009 22 آبان 1389, 13:57پیدا نکردن فایل vba 6.dll مربوط به سازگاری با ویندوز نیست، فایل vba 6.dll در یک مسیر عمومی مثل C:WindowsSystem32 قرار نداره، به همین جهت سیستم عامل موقع اجرا کردن فایل exe پیداش نمی کنه. فایل vba 6.dll رو از مسیر C:Program FilesMicrosoft Visual StudioVB 98 کنار فایل exe پروژه تان کپی کنید. من باز هم به یاری سبزتان نیازمندم! سلام همین کاری که گفتید رو انجام دادم. ایندفعه دیگه اون پیغام رو نمیده ولی وقتی میخواد انتگرال رو حساب کنه یه پیغام : end program میده! دیگه کلافه شدم . آخه چرا این ویژوال بیسیک نمیتونه حتی چند خط کد رو درست و حسابی کامپایل کنه!:?::?::?: the_king 22 آبان 1389, 16:58من باز هم به یاری سبزتان نیازمندم! سلام همین کاری که گفتید رو انجام دادم. ایندفعه دیگه اون پیغام رو نمیده ولی وقتی میخواد انتگرال رو حساب کنه یه پیغام : End program میده! دیگه کلافه شدم . آخه چرا این ویژوال بیسیک نمیتونه حتی چند خط کد رو درست و حسابی کامپایل کنه!:?::?::?: قطعا اشکال از کد شما است، وگرنه ویژوال بیسیک که خودش برای محاسبه کردن انتگرال قابلیتی ارائه نکرده که درست کار کنه یا نکنه. m_mx2009 24 آبان 1389, 15:00قطعا اشکال از کد شما است، وگرنه ویژوال بیسیک که خودش برای محاسبه کردن انتگرال قابلیتی ارائه نکرده که درست کار کنه یا نکنه. سلام. میدونم ولی آخه چرا موقع کامپایل کردن هیچ پیغامی نمیده و موقع اجراشدن فایل exe ارور میده ولی تو محیط ویژوال بیسیک هیچ مشکلی نداره! the_king 24 آبان 1389, 19:47سلام. میدونم ولی آخه چرا موقع کامپایل کردن هیچ پیغامی نمیده و موقع اجراشدن فایل exe ارور میده ولی تو محیط ویژوال بیسیک هیچ مشکلی نداره! متاسفم، به نظر میاد که این تابع با برنامه های کامپایل شده سازگار نیست. سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 4364]
-
گوناگون
پربازدیدترینها