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

خطا صغيرون في برنامج بسييييييييط ...يا ريت مساعده

مغلق
بدأه نوراء في 8 فبراير 2003 · 4 رد · 779 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله وبركاته

شباب عندي سؤال صغيرون ...

عندي فورم تحتوي على 2 تكست بوكس و كومند بوتن ... احد اللست بكوس يستقبل قيمه من المستخدم ...والتكست بوكس الثاني يظهر قيمه تلقائيا بمجرد اختيار شي من لست بوكس موجود على نفس الفورم ...

عندما نضغط على الكومند بوتن المفروض ان البرنامج يضرب القيم الموجوده في اللتكست بوكسات ويطلعها في ليبل ...

انا خليت الكود هدا عشان تسوي عمليه الضرب

Private Sub cmdTotal_Click()

lbl.Caption = Val(txtPrice.Text) * Val(txtAmount.Text)

End Sub

المشكله هني ان ما يضرى يسوي العمليه ... يعطيني ارر مسج ..

ممكن احد يساعدني لو سمحتون ...

وشكرا ...

انا ارفقت البرنامج للتوضيح ...

noor.zip

#2

غيرت الكود ليعمل إن شاء الله بشكل صحيح

بتعريف متغيرات لنوع البيانات المطلوبة والتعامل معها افضل

Private Sub cmdTotal_Click()

Dim Num1 As Integer

Dim Num2 As Integer

Dim Total As Integer

    Num1 = Me.txtPrice.Value

    Num2 = Me.txtAmount.Value

    Total = Num1 * Num2

  lbl.Caption = Total

End Sub

وفقك الله

#3

:D

صورة
صورة

حسابي في الفيس بوك
http://goo.gl/XIzwL

حسابي في تويتر
http://goo.gl/6p4e3

 

 
 
#4

الأخت الكريمة

السلام عليكم

ضعي الكود التالي في حدث عند النقر للزر

  Me.lbl.Caption = Me.txtPrice * Me.txtAmount

تحياتي

#5

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

مشكورين شباب وما قصرتوون ...

شكرا لك اخي الشهري على المساعده ...ما قصرت والله ...تسلم ...الكود يعمل بشكل صحيح :D:D:D

أخي ابو هاجر تسلم ... شنو هلكرم والاخلاق ... الله يخليك للمنتدى يا رب ويكثر من امثالك ... انت فعلا انسان رائع وطيب ...(gift)(gift)

شكرا مره ثانيه ...

(f)(f)(f)

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…