برامج

الرجاء المساعدة في الفجوال بيسك [الأرشيف] - برامج نت

المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : الرجاء المساعدة في الفجوال بيسك


Alrayah
05-21-2008, 09:40 PM
السلام عليكم

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

وهذه صورة توضيحية :
http://img2.freeimagehosting.net/uploads/th.abf637ca20.jpg (http://img2.freeimagehosting.net/image.php?abf637ca20.jpg)
على العلم انه مشروع تخرج

Al-Raisi
05-24-2008, 05:20 AM
أسمح لي أخي على التأخير
في Visual Baisc 2005 بستخدم خاصية (Substring) أي أني آخذ من جزء من النص في موقع محدد

ولكن السؤال يكون هل جميع العناصر الكيميائية تحتوي على رمزين فقط؟

Ala2 VB
05-26-2008, 09:59 AM
في VB6 هناك الدالة Split لتقوم بفصل النص إلى أجزاء حسب المسافات أو أي فاصل آخر , وهذا مثال لها :

Private Sub Form_Load()
Dim strAnimals As String
Dim iCounter As Integer
Dim arrAnimals() As String
strAnimals = "Cats,Dogs,Horses,Birds"
'replace the "," below with your delimiter
arrAnimals = Split(strAnimals, ",")
For iCounter = LBound(arrAnimals) To UBound(arrAnimals)
MsgBox arrAnimals(iCounter)
Next
End Sub