المساعد الشخصي الرقمي

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

LAYLA MANSOUR
12-08-2011, 03:33 AM
مرحباا

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

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

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

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

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

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

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

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

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

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

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

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

[URL="http://www.qzal.net"]مركز تحميل (http://www.qzal.net)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 (http://www.up-00.com/)

تتوقعون ايش الحل الله يسعدكم
طالب المزيد
12-09-2011, 06:03 AM
البرنامج صحيح من حيث الكود و التطبيق

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

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

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

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

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

وايضا زر الخيار بدل Combo Box
طالب المزيد
12-09-2011, 06:11 AM
شوفي الطريقة هذه في إنشاء البرنامج يمكن تعجبك

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

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

التحميل من المرفقات
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
الشرح في المرفقات
LAYLA MANSOUR
12-09-2011, 04:23 PM
واخيييراا فتح معااي

بس فيه نيو بروبلم << ياملحي وانا اسوي نفسي اعرف انقلش خخخ

http://up.arab-x.com/Nov11/QBt33283.jpg (http://up.arab-x.com/)

وش يخربط ذا علي :(

تعبتك معاااي استاذي
LAYLA MANSOUR
12-09-2011, 04:43 PM
شووووووووووووووووووووووووووووووووووووووووووووكرن

ضبط معااااااي

الحمدلله

بزينه وانزله لكم قبل ما اوريه استاذتي

احبببببببببببببكم قد الدووووووووووونيا

مشكككوووووووووووووورين جدن جدن

الله يعطيكم العافيه ويسعدكم دنيا واخره

لاهنتووا جميعاا
Chairman
12-09-2011, 10:31 PM
الحمد لله ومشى الموضوع معك .بالتوفيق