View previous topic :: View next topic |
Author |
Message |
sajadkk مهمون يكي دو روزه
Joined: 11 Jul 2005 Posts: 18
|
Posted: Tue Aug 30, 2005 9:06 am Post subject: A textbox can give a math formula. |
|
|
سلام دوستان
بعد از مدت ها تحقیق درباره کادر متنی که میتواند یک فرمول
ریاضی را بگیرد به نتایج جالبی رسیدم
بهترین ابزار را همین وی بی خودمون دم دستمون
قرارداده ،آب در کوزه است و ما...
بگذریم اون ابزار
microsoft script control 1.0
موجود است component که در قسمت
وبرای اضافه کردن به فرم باید روی یکی ازابزارکلیک راست کنید
با این ابزار فرمول که جای خود حتی خود دستورات ویژوال بیسیک
را از ورودی میشود گرفت
یک مثال که فرمول و (ایکس) راازکادرمتن میگیرد ونتیجه راتوی
کادرمتن دیگری نشان میدهد
و command bottomو یک textboxسه تا
بهmicrosoft script control 1.0
فرم اضافه کنید وبعد کدهای زیر را در قسمت کد کپی کنید
| Private Sub Form_Load()
text1.Text = "4*x-3"
text2.Text = 5
text3.Text = "result of f(x)="
End Sub
'(((((((((((((((((()))))))))))))))))))
Private Sub Command1_Click()
Dim func As String
func = "function f(x)" & vbCrLf & "f=" & text1.Text & vbCrLf & "end function"
ScriptControl1.AddCode func
text3.Text = ScriptControl1.Run("f", Val(text2.Text))
End Sub | اگر سوالی داشتید بپرسیدوالسلام. |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Wed Aug 31, 2005 12:07 am Post subject: |
|
|
سلام
کدت جالب بود ولی این از امکانات vbscript هست.
تازه با تابع های دیگه هم فکر کنم کار کنه چون تو اکسس هم یه جورایی از همین روش برای محاسبات استفاده می شه |
|
Back to top |
|
|
sajadkk مهمون يكي دو روزه
Joined: 11 Jul 2005 Posts: 18
|
Posted: Wed Aug 31, 2005 9:15 am Post subject: |
|
|
قابلی نداشت.ولی داداش تو رو خدا اینقدر تو ذوق ما نزن آخه ما هم جوونیم.
ولی به نظر من این از امکانات ms control 1.0است که توش میشه از vbscript و javascript استفاده کرد .
تابعد. |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Wed Aug 31, 2005 1:55 pm Post subject: |
|
|
نه آقا من چاکرتم
خیلی توپ بود
بابا جون! |
|
Back to top |
|
|
vahid بي تو هرگز
Joined: 26 Nov 2004 Posts: 3067 Location: Tehran
|
Posted: Wed Aug 31, 2005 4:42 pm Post subject: |
|
|
آقا دستت درد نكنه بزودي به دردم خواهد خورد . |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Wed Aug 31, 2005 6:56 pm Post subject: |
|
|
بوی پروژه میاد... |
|
Back to top |
|
|
sajadkk مهمون يكي دو روزه
Joined: 11 Jul 2005 Posts: 18
|
Posted: Wed Aug 31, 2005 9:45 pm Post subject: |
|
|
اونم چه جورم. |
|
Back to top |
|
|
vahid بي تو هرگز
Joined: 26 Nov 2004 Posts: 3067 Location: Tehran
|
Posted: Thu Sep 01, 2005 7:15 am Post subject: |
|
|
مشترك مورد نظر در دسترس نميباشد |
|
Back to top |
|
|
|