| 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 |
|
|
|
Profile 
Log in to check your private messages | 
FAQ 
Search 
Memberlist 
Usergroups 
Log in
Register
