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

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

نونو العسوله 01-18-2010 04:02 PM

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


عندي أختبار حاسب نهائي ... والنموذج اللي عطتني إياه المعلمة حليته بعد عندي نموذجين ماعرفت أحله .. اللي يعرف يحله يساعدني بالحل ..

متميزه 01-18-2010 04:44 PM

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

معليش مافهمت قصدك بالاسهم بالنموذج الاول


سؤال :: هلى هو مشروع واحد او ثلاث مشاريع >>كل نموذج مستقل
اذا هو واحد عطينا الي حليتيه
يمكن نفهم السالفه

نونو العسوله 01-18-2010 05:22 PM

مشاركة: كيفيكة حل مشروع فيجول بيسك
 
1 مرفق
هذا الإختبار كامل ...

متميزه 01-18-2010 08:31 PM

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

Private Sub Command1_Click( )
Dim s As Single
S= Text1.Text
SELECT CASE S
CASE 2000 to 2900
Text2.Text =360+S
CASE 3000 to 3900
Text2.Text=450+S
CASE 4000 to 5000
Text2.Text=600+S
CASE 5100 to 6000
Text2.Text=500+S
CASE 6100 to 8000
Text2.Text=700+S
CASE ELSE
(" السعر غير متاح ") Msgbox
END SELECT
End Sub




Private Sub Command1_Click( )
("اسعار المحمول .. مقدار غلاء الأسعار") MsgBox
End Sub

نونو العسوله 01-19-2010 04:09 AM

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

Private Sub Command1_Click( )
Dim s As Single
S= Text1.Text
SELECT CASE S
CASE 2000 to 2900
Text2.Text =360+S
CASE 3000 to 3900
Text2.Text=450+S
CASE 4000 to 5000
Text2.Text=600+S
CASE 5100 to 6000
Text2.Text=500+S
CASE 6100 to 8000
Text2.Text=700+S
CASE ELSE
(" السعر غير متاح ") Msgbox
END SELECT
End Sub

طلع صحيح ..

بس هذا


Private Sub Command1_Click( )
("اسعار المحمول .. مقدار غلاء الأسعار") MsgBox
End Sub

وين أحطه ولا مو لازم

متميزه 01-19-2010 01:21 PM

مشاركة: كيفيكة حل مشروع فيجول بيسك
 
نموذجك الرابع؟؟

إسمك وفصلك ورسالة للمستخدم توضح الغرض من البرنامج

ممكن يكون عنوانها معلومات عن البرنامج

نونو العسوله 01-19-2010 02:12 PM

مشاركة: كيفيكة حل مشروع فيجول بيسك
 
يعني كيف بالضبط ؟ مافهمت ؟

نونو العسوله 01-19-2010 02:42 PM

مشاركة: كيفيكة حل مشروع فيجول بيسك
 
النموذج الرابع ::: رساله للمستخدم توضح الغرض من البرنامج .. يعني أكتب مثل كذا
تتمكن من تصميم برامجك الخاصة دون الحاجة إلى انتظار اشخاص آخرين للقيام بمهام عملك وسوف تختلف طريقت تعاملك مع الحاسب فعندما تصادفك مشكلة ما فإنك تقوم ببرمجتها بالطريقة التي تراها مناسبه لك ومن ثم توزيعها على المستفيدين منه

متميزه 01-19-2010 04:23 PM

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

الهدف شو من البرنامج؟؟

من خلاله نعمل التحليل بتحديد المدخلات والمخرجات والعمليات

النموذج الاول ربط بين النماذج صح!!

النموذج الثاني اسعار المحمول

النموذج الثالث مقدار غلاء الاسعار

الرابع معلومات عن البرنامج<<اذا انا فهمت السؤال صح؟؟

سؤال :: انت شو حطيتي عنوان ادوات زر الخيار باشاشة المقدمة ؟؟

نونو العسوله 01-19-2010 04:31 PM

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

كتبت مكان الــ فورم 1 الشاشة الرئيسيه

بعدين كتبت ترحيب ولكم ...


بعدين أخترت 3 opion button
كتبت فيها الشاشة الأولى
الشاشة الثانية
الشاشة الثالثه

متميزه 01-19-2010 04:43 PM

مشاركة: كيفيكة حل مشروع فيجول بيسك
 
ماشي ولو ان لدي تحفظ على التسميات << الأصح تسميتها باعنوان للهدف

النموذج الرابع

استخدمي اداة التسمية

وسجلي اسمك وصفك

والكود السابق

نونو العسوله 01-19-2010 04:48 PM

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

نونو العسوله 01-19-2010 04:50 PM

مشاركة: كيفيكة حل مشروع فيجول بيسك
 
أنا الحين كتبت الإسم والفصل خلاص وحطيت زر الرجوع ..

متميزه 01-19-2010 04:55 PM

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

لذلك لك الحريه

ممكن تضيفي زر امر باعنوان (معلومات عن البرنامج) وتحتة الكود

نونو العسوله 01-19-2010 04:57 PM

مشاركة: كيفيكة حل مشروع فيجول بيسك
 
Private Sub Command1_Click( )
("اسعار المحمول .. مقدار غلاء الأسعار") MsgBox
End Sub



تقصدي الكود هذا ...
أحطه داخل الزر

متميزه 01-19-2010 05:03 PM

مشاركة: كيفيكة حل مشروع فيجول بيسك
 
ايوه واذا تحبي تضيفي على الرساله من تعبيرك >>انا صفر بالتعبير

نونو العسوله 01-19-2010 05:10 PM

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

سوري تعبتك معي

متميزه 01-19-2010 05:15 PM

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

نونو العسوله 01-19-2010 06:08 PM

مشاركة: كيفيكة حل مشروع فيجول بيسك
 
لا عادي ياقلبي ...
بالعكس في النهاية أنا اللي محتاجة الشي هذا مو إنتي .. يعني من حقك تستفسري


الساعة الآن 03:40 AM.

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

a.d - i.s.s.w