مشاكل و خواطر واجهتني في تطبيق مشروع فيجول

[تمر سكري]

السلام عليكم ورحمة الله و بركاته،،،،،،،،،،،،،،،،،،
اولا: لما اسوي مثلا OPTION1.VALUE القائمة اللي بعد الدوت ما تجي اللي Value انما تظهر قائمة قصيرة تقريبا في اربع كلمات منها اذكر كلمة count ايش السبب وكيف اخلي القائمة الطويلة اللي فيه value تظهر!!!
في مشروع مساحات و حسابات عندما اخترت نوع المتغير INTEGER عدد صحيح ,, في وقت التطبيق لما اقوم بادخال عددين عشريين مثل 2.5 و 4.5 يقبلها ويعطيني النتيجة واحيانا تكون النتيجة عشرية؟؟؟ مع انه المفروض على ما فهمت انه لا يقبل الا الاعداد الصحيحة !!!!!!!
ثانيا: ليس من اللازم كتابة الخاصية للاداة يعيني كفاية اكتب كذا A = TEXT1 وايضا TEXT3=A*B
واشتغل البرنامج !!!!!! طيب الكتاب ليش مصر عليها؟؟
بالنسبة للـ Sheck . value = 1 لاحظت لما اضع 2 يسمح بوضع علامة الصح في المربع يعني تكون منشطة وعند ضغط على زر الامر حساب ما يعطيني اي نتيجة سواء العمليات اللي اشرت عليها او التي لم اؤشر عليها ؟؟؟
ايضا احيانا في جهازي عند حفظ المشروع تظهر رسالة add this project to sourc safe? ايش معناها؟؟؟؟دائما اختار no

اتمنى ان تفيدوني وشكرا

[دموع تبتسم]

اهلين فيك ..

بالنسبة لاستفساركـ ..

"في مشروع مساحات و حسابات عندما اخترت نوع المتغير INTEGER عدد صحيح ,, في وقت التطبيق لما اقوم بادخال عددين عشريين مثل 2.5 و 4.5 يقبلها ويعطيني النتيجة واحيانا تكون النتيجة عشرية؟؟؟ مع انه المفروض على ما فهمت انه لا يقبل الا الاعداد الصحيحة !!!!!!!"




هذا يعتمد ع طريقة تعريفك لازم كل متغير بسطر مستقل او اذا جمعتيهم سوا لازم تحطين As وتحددين النوع بعد المتغير

ونوهت لهالشي بهالموضوع ..
http://www.7asabco.com/showthread.php?t=8089


"ثانيا: ليس من اللازم كتابة الخاصية للاداة يعيني كفاية اكتب كذا A = TEXT1 وايضا TEXT3=A*B
واشتغل البرنامج !!!!!! طيب الكتاب ليش مصر عليها؟؟"




صحيح مو لازم الخاصية ..

"بالنسبة للـ Check . value = 1 لاحظت لما اضع 2 يسمح بوضع علامة الصح في المربع يعني تكون منشطة وعند ضغط على زر الامر حساب ما يعطيني اي نتيجة سواء العمليات اللي اشرت عليها او التي لم اؤشر عليها ؟؟؟"





ياليت تكتبين لنا الكود وين حطيتي 2 علشان نعرف نفيدك ,, بس تأكدي لما تكسبينها قيمة 2 لا يمكن ان تظهر لك النتيجة على الاطلاق .. وتجي غير نشطة .. وانا تو مجربتها لعيونك ولا تطلع النتيجة لمربع الاختيار الغير نشط .. :)

موفقه اتمنى افدتك ولاتنسينا من صالح الدعاء

[تمر سكري]

شكرا لك يا دموع على الرد واقول الله ينور عليك ,,
صحيح دحين فهمتها في برنامج حساب مساحة المستطيل
لما اكتب الكود بهذا الشكل
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 ماهي موجودة يعني ما اقدر اختارها من القائمة وانما اكتبها وحتى لما اكتبها بشكل صحيح ما يتنفذ البرنامج ،، وين المشكلة؟؟

[متميزه]

ياتمر

If Check1.Value = 2 Then Text3.Text = a + b

معنى العباره

اذا كانت قيمه الاداة Check1 =2 فاجعل باداة النص يظهر مجموع a+b

فاذا اخترتيها بوضع علامه صح تأخذ قيمه (1)

اذا لم يتحقق الشرط فالا ينفذ الإجراء ولا يظهر شيء باداة مربع النص

[متميزه]

القائمة اللي بعد الدوت ما تجي طويله /

صراحة ماعندي خلفيه عن الموضوع

وللقافه اقترح تعيدي التنصيب من جديد او تختاري اصلاح من اضافة او ازاله برامج

ويمكن يحل معه مشكلة الحفظ

[تمر سكري]

شكرا يا متميزة على الرد
انا اقصد ان في الكتاب مكتوب ان عند اختيار 2 يكون المربع غير منشط للاختيار
ولما جربت من باب اللقافة رقم 2 لا حظت ان المربع من الممكن اختياره يعني يكون منشط بس ما يعطين اجابة في مربع النص ،، مع اني كنت متوقعه انه يكون غير منشط
وعلى فكرة جربت 1 وطلع زي ما قلتي ما في اي مشكلة ..
بالنسبة للقائمة اعتقد المشكلة تاتي بسبب النسخ واللصق للاداة .. اكتشتفها مؤخرا بس ما ادري اذا في سبب آخر ؟؟

[متميزه]

اسمعي القيمه الاختيار 2

تكون اذا ضبتيه من الخصائص Value = 2

أو عن طريق كتابة الاوامر

Check1.Value = 2

يعني تكتبينها قبل جمل If

استاذتي

في جمل If تشرطين ان المستخدم يختار رقم 2

وهذا لايمكن ان يحدث

فالمستخدم اما ان يختار (1 )او لايختار (0)

لان الخيار (2) يمنع المستخدم من اختيار الخاصيه

لذلك يجب ان تكتيب قبل جمل الشرط

Check1.Value = 2

ثم اكتبي

If Check1.Value = 1 Then Text3.Text = a + b

تجيدينها لاتعمل

[تمر سكري]

شكرا لك وزادك **** علما ونفع بك