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

[نونو العسوله]

السلام عليكم ورحمته الله وبركاته


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

[متميزه]

وعليكم السلااام والرحمة

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


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

[نونو العسوله]

هذا الإختبار كامل ...

[متميزه]

نونو ماختبرت البرنامج>>لانه ماعندي فجول
فاعلميني بالنتيجه^^

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

[نونو العسوله]

أنا جربت هذا الكود

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

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

[متميزه]

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

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

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

[نونو العسوله]

يعني كيف بالضبط ؟ مافهمت ؟

[نونو العسوله]

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

[متميزه]

اصبري

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

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

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

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

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

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

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

[نونو العسوله]

المقدمة

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

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


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

[متميزه]

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

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

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

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

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

[نونو العسوله]

الكود وين أكتبه ...

[نونو العسوله]

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

[متميزه]

هي ماحددت

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

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

[نونو العسوله]

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



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

[متميزه]

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

[نونو العسوله]

شكرا
ويعطيك الف عافيه

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

[متميزه]

العفو واعتذر منك لكثره استفساراتي

[نونو العسوله]

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