الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

TEXTسؤال فى ال

بدأه اسلام الكبابى في 2 مارس 2012 · 3 رد · 413 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

New Folder.rar كيف أكتب هذه البيانات فى صورة دالة رياضية

أريد تعديل الكود الموضح بحيث تظهر كل البيانات فى سطر واحد باللغة الرياضية العادية

مثلآ ( 390X +23.4x2 +15.9x3 -3x4 +950) 

Dim X(9)
Private Sub Command1_Click()
For I = 1 To 5
X(I) = InputBox("أدخل المعامل")
Next I

For I = 1 To 4
Print X(I) & " X^" & I
Next I
Print X(5)

End Sub

Private Sub Command2_Click()
X(1) = 5
X(2) = 24
X(3) = -13.8
X(4) = 68.7
X(5) = 91

For I = 1 To 4
Print X(I) & " X^" & I
Next I
Print X(5)

End Sub

وطبعآ قد يلزم ذلك تعديل هيكل الفورم نفسها لوضع Label أو Text

ولكم ألف شكر

#2

طب ياريت حد يقول لى

هل كلامى غير مفهوم

أم السؤال صعب أو مستحيل

#3

السلام عليكم...

الأمر يحتاج إلى RichTextBox و معالجة برمجية موسعة بعض الشيء لمعالجة الأسس و المؤشرات السفلية و غيرها.

لكن إذا كان الغرض هو عرض المعادلات في البرنامج فإنه يمكنك استعمال المكون Microsoft Equation المخصص لهذا الغرض بالذات، و فيه كافة إمكانيات و رموز المعادلات.

لاستعماله في برنامجك اختر الأمر Components من القائمة Project (أو اضغط Ctrl+T). في نافذة الـ Components بدل إلى الصفحة Insertable Objects، ثم ابحث في اللائحة عن البند Microsoft Equation 3.0. قم بتحديد هذا البند (ضع إشارة صح بجانبه) ثم انقر OK.

سيضاف رمز جديد إلى صندوق الأدوات اسمه Equation. أضف منه واحداً إلى الـ Form.

بمجرد إضافته، و أثناء التصميم سيصبح المكون قابلاً للكتابة (يظهر به مؤشر الكتابة) و يظهر شريط أدوات خاص بالمعادلات و مليء بالأزرار. عندما تنقر على أي زر تفتح قائمة بالرموز ذات العلاقة، حيث يمكنك إدراج الرمز الذي تريده مثل الجذور و الأسس و الكسور الاعتيادية (بسط و مقام)... إلخ.

و طبعاً يمكنك كتابة الحروف و الأرقام و الإشارات الحسابية العادية مباشرة من لوحة المفاتيح.

بعد الانتهاء من كتابة المعادلة اضغط المفتاح Excape أو انقر خارج مربع المعادلة لإيقاف عملية التحرير و تثبيت المعادلة.

إذا أردت العودة إلى المعادلة لتعديلها فانقر عليها بالزر الأيمن للفأرة و اختر الأمر "تحرير" (Edit)، كما يمكنك فتح المحرر الكامل للمعادلة في نافذة مستقلة باختيار الأمر "فتح" (Open) أيضاً من القائمة التي تظهر بالزر الأيمن للفأرة على مربع المعادلة.

* أمر آخر يجب أن تنتبه له هو أن هذا المكون ليس لديه الكثير من الخصائص، مثلاً لا يملك خاصية Enabled أو ReadOnly مثلاً، حيث يمكن للمستخدم أثنا تشغيل البرنامج أن ينقر نقراً مزدوجاً على مربع المعادلة فيظهر له شريط الأدوات الخاص بالمعادلات، بل و أيضاً يضاف شريط قوائم خاص بالمعادلات إلى النافذة.

و لهذا، و لمنع المستخدم من تغيير المعادلة يمكن أن نضعها في Frame أو PictureBox مع ضبط الخاصية Enabled له على False.

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#4

جزاك الله خيرآ وبارك الله فيك

هذه فعلا هى الطريقة التى أريد بها كتابة المعادلة

ولكنى لاأريدها ثابتة بجميع أرقامها على الفورم

وانما أريد التحكم فى أرقامها عن طريق الكود

والمثال الآتى يوضح ذلك

بفرض أن المستخدم سيدخل رقمين اثنين

ومطلوب من البرنامج كتابة الدالة بوضع أحدهما معامل للX ووضع الآخر أس فوقها

Private Sub Command1_Click()
A = InputBox("INSERT COEFFITIONT")
P = InputBox("NSERT POWER")
Print A & " X ^" & P
End Sub