منتديات حاسبكو المتخصصة بمادة الحاسب الآلي

منتديات حاسبكو المتخصصة بمادة الحاسب الآلي (http://www.7asabco.org/index.php)
-   الصف الثالث ثانوي (http://www.7asabco.org/forumdisplay.php?f=81)
-   -   حل مشكلة في الفيجوال (http://www.7asabco.org/showthread.php?t=13898)

LAYLA MANSOUR 12-08-2011 03:33 AM

حل مشكلة في الفيجوال
 
مرحباا

كيفكم ؟ ان شاء الله بخير

جيت لكم مرآآ ثانيه

بس بطلب جديد :$

انا زي ماقلت لكم بموضوعي القديم انو انا لقيت فكرة لمشروعي

http://www.7asabco.org/t13860.html

وهي انو المستخدم يدخل مقاس الشوز تبعه والبرنامج يحوله له بقياسات ثانيه

وكان بيكون البرنامج للرجال والنساء والاطفال ..

مركز تحميلhttp://www.qzal.net/01/2011-12/13233003741.jpg

لكن الاستاذه رفضته بشششده وقالت انو صعب علينا
ولازم نختار فئه واحده من ( رجال - نساء - اطفال )

فانا اخترت نساء وبديت البرمجه

لكن واجهت مشكله ما ادري وينها بالضبط

انا صممت الواجهه وطلعت كذا

مركز تحميلhttp://www.qzal.net/01/2011-12/13233003742.jpg

ودخلت الاوامر ولكن يوم رحت اجربه طلع لي رساله مافهمت المقصود منها

هذي الاوامر اللي كتبتها انا
If combo1.Text = "35" Then
Text1.Text = "5"
Text2.Text = "21"
Text3.Text = "2.5"
End If
If combo1.Text = "36" Then
Text1.Text = "6"
Text2.Text = "22"
Text3.Text = "3.5"
End If
If combo1.Text = "37" Then
Text1.Text = "6.5"
Text2.Text = "22.5"
Text3.Text = "4"
End If
If combo1.Text = "38" Then
Text1.Text = "7.5"
Text2.Text = "23.5"
Text3.Text = "5"
End If
If combo1.Text = "39" Then
Text1.Text = "8.5"
Text2.Text = "24.5"
Text3.Text = "6"
End If
If combo1.Text = "40" Then
Text1.Text = "9"
Text2.Text = "25"
Text3.Text = "6.5"
End If
If combo1.Text = "41" Then
Text1.Text = "9.5"
Text2.Text = "25.5"
Text3.Text = "7"
End If

تكفوون ساعدوني لازم اسلمه الاثنين وانا عندي اختبارات ودي اخلصه بالويك اند

الله يعطيكم العافيه ويفرج همومكم

خيــــَــــــال 12-08-2011 01:33 PM

رد: حل مشكلة في الفيجوال
 
السلام عليكم ورحمة الله وبركاته

بصراحة فكرة رائعة

المهم احذفي " التي قبل كل text
وكذلك " التي بجوار الاعداد لان الاعداد لايوضع حولها "
فقط النص هو الذي يوضع بين " "

وكذلك غيري بدل كل end if ضعي else if

الا end if الاخيرة دعيها كما هي

جربي واخبريني ماذا حصل
لاني بصراحة لم احاول تجربته وانما من النظر اليه

LAYLA MANSOUR 12-09-2011 02:01 AM

رد: حل مشكلة في الفيجوال
 
شكرآآ استاذي

الله يعطيك العافيه ويسخر لك خلقه

بجررب وارد لك خبر اذا زان او مازان :)

لاهنت

LAYLA MANSOUR 12-09-2011 02:18 AM

رد: حل مشكلة في الفيجوال
 
اووف

مازان :(

طلع لي

http://store2.up-00.com/Dec11/K1S82617.jpg

تتوقعون ايش الحل الله يسعدكم

طالب المزيد 12-09-2011 06:03 AM

رد: حل مشكلة في الفيجوال
 
البرنامج صحيح من حيث الكود و التطبيق

و خيال اختلط عليه الأمور لان المنتدى هنا ما يظهر الأكواد بترتيبها الصحيح

فظهرت ( " ) في أول السطر عشان كذا قال أحذفيها

وأعتقد بأن المشكلة بأنك تستخدمي نسخة الفيجول بيسك المحموله

والبرنامج يمكن إنشائه باستخدام أكثر من طريقة واسلوب

و منها استخدام Select Case

وايضا زر الخيار بدل Combo Box

طالب المزيد 12-09-2011 06:11 AM

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

وأسهل من حيث التتبع و التطبيق

ويمكن تشتغل عندك بدون رسالة الخطأ

التحميل من المرفقات

LAYLA MANSOUR 12-09-2011 02:29 PM

رد: حل مشكلة في الفيجوال
 
ماعرفت افتحها :(

يعطيك العافيه استاذي

Chairman 12-09-2011 02:39 PM

رد: حل مشكلة في الفيجوال
 
افتحي الملف بالوينرار برنامج فك الضغط عن الملف

شكرا لكم جميعا

LAYLA MANSOUR 12-09-2011 03:32 PM

رد: حل مشكلة في الفيجوال
 
اهلنن

انا فكيت الضغط عن الملف

وضغطت اول واحد فك لي برنامج الفيجوال وضغطت الثاني فك لي البرنامج برضو

بدون مكان للشغل

والاخير مو راضي يفتح يقول تعذر على ويندوز فتح هذا الملف

:(

مشكوورين كلكم

تعبتكم معي

طالب المزيد 12-09-2011 04:02 PM

رد: حل مشكلة في الفيجوال
 
1 مرفق
الشرح في المرفقات


الساعة الآن 10:45 PM.

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Trans by
جميع الحقوق محفوظة لدى موقع ومنتديات حاسبكو 1431هـ/1432هـ

a.d - i.s.s.w