طبعا انا كان طرحت الموضوع بتاع جمع الاعداد المدخلة لو تزكرون
هذا الكود اشتغل معى
فى general
Dim no() As Integer
Private Sub Command4_Click()
Static i As Integer
ReDim Preserve no(i) As Integer
no(i) = InputBox("enter the value")
i = i + 1
Private Sub Command5_Click()
Dim k As Integer, tot As Integer
For k = LBound(no) To UBound(no) Step 1
tot = tot + no(k)
Next k
Print "the sum is" & tot
لكن المشكلة بيطبع لى الناتج فى اعلى الفورم وليس فى فثءف ماذا افعل
تم تعديل هذه المشاركة بواسطة ebsom في 5 مايو 2004 في 16:19
Maverick كتب:اين تريد الناتج ان يطبع... متاسف لكن لا استطيع قراءة الكلمة "فثءف"
السلام عليكم ورحمه الله وبركاته
اعتقد ان كلمة "فثءف" =text
شكرا ااسف للاستعجال نعم text
اريد الناتج ان يظهر فى text
مشكور كثير
عملت الكودبتاع الtext
بس عدلت فى البرنامج حزفت المقطع ( ..print) السطر الاخير البرنامج ودخلت الكود الذى اعطيتنى اياه و البرنامج اتنفذ بطريقة كويسة لكن خايفة تحصل مشكلة فيه لقدام
لو سمحت كنت عايزة اعرف النتيجة لماذا كانت تكتب فى اعلى الفورم
تم تعديل هذه المشاركة بواسطة ebsom في 5 مايو 2004 في 22:14
لان print تعمل على طباعة النص على الفورم وطبعت على اعلاه لانه خواص currentX, CurrentY لديها قيمة 0,0 والذي يعني انه اعلى الفورم... لا تترتعب اذا كان الامر صعب الفهم لكن print تستعمل لل graphics واغراض اخرى ربما لن تحتاج ان تستعملها
راكان الحنيطي
Be Open Source
مشكور اخى لا اعرف ماذا اقول لكهذا اول مشروع لى ح اعزبكم معاى
شكرا ليك ان شالله لو البرنامج انتهى اعرضه ليككنت عايزة اعرف هل ممكن استخدام قواعد sql مع برنامج ربط بالفيجول والاكسس .
هذا الموضوع مغلق.