مشاركة: مشاكل و خواطر واجهتني في تطبيق مشروع فيجول
شكرا لك يا دموع على الرد واقول الله ينور عليك ,,
صحيح دحين فهمتها في برنامج حساب مساحة المستطيل
لما اكتب الكود بهذا الشكل
Dim a As Integer
Dim b As Integer
a = Text1
b = Text2
Text3 = a * b
وادخل رقمين مثلا 1.5 و2 يطلع الناتج 4 يعني يقرب 1.5 الى 2 لانه ما يقبل الاعداد العشرية يعني ياخذ الرقم العشري بس يعمل تقريب للعدد الصحيح يعني يقرب 1.5 الى 2 ويضربها في 2 اذن الناتج يساوي 4
لكن لما اكتب بهذا الشكل Dim a,b As Integer
وادخل نفس العددين يطلع الناتج 3
وبالطبع لما اكتب بهذا الشكل Dim a,b As single يطلع الناتج 3
وايضا Dim a As Single
Dim b As Single
يطلع الناتج 3
بالنسبة للجزئية الثانية هذه طريقة كتابتي للكود وجربتها مرة ثانية على نموذج حسابات استطيع وضع علامة الصح بس ما تطلع نتيجة في text3
Dim a, b As Integer
a = Text1.Text
b = Text2.Text
If Check1.Value = 2 Then Text3.Text = a + b
باقي الجزيئة الاولى الا وهي كيف اخلي القائمة الطويلة اللي في خاصية الاداة تظهر لان بعض الاجهزة ما تجي الا القائمة القصيرة واللي فيها خمس اوست كلمات منها count بينما text , value ماهي موجودة يعني ما اقدر اختارها من القائمة وانما اكتبها وحتى لما اكتبها بشكل صحيح ما يتنفذ البرنامج ،، وين المشكلة؟؟
|