الردود والاستفسارات عن دروس الفيجوال بيسك6 والاكسيل ياسر العربي

[Yasser Fathi Albanna]

اخى الحبيب الغالى ياسر العربى

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

جزاك الله خيرا على كل ما تقدمه من أعمال رائعة

وزادك الله من العلم الكثير والكثير

أقدم لكم ثمرة ما تعلمته من هذا الموضوع الرائع من أخى الحبيب / ياسر العربى

الكود المستخدم

Private Sub Command1_Click()
Dim A, B As Single
A = Text1.Text
B = Text2.Text
If Check1.Value = 1 Then Text3.Text = " " & A + B
If Check2.Value = 1 Then Text4.Text = " " & A - B
If Check3.Value = 1 Then Text5.Text = " " & A * B
If Check4.Value = 1 Then Text6.Text = " " & A / B
End Sub

أله حاسبة من تصميميى ولكن تنسيقى على قدى لسه

الرجاء من أ / ياسر العربى وضع ملاحظاته عليها

المرفق على رابط خارجى لكبر حجمه

http://www.mediafire.com/download/5x3o418wsqvlbda/Calculator+Yasser+Albanna.rar

ولكن فى الزر معلومات المبرمج وضعت له الكود الأتى ولم يظهر الفورم عند الضغط عليه ما السبب

Private Sub Command1_Click()
Form2.show
End Sub

 

[ياسر العربى]

منذ ساعه, م / ياسر فتحى البنا said:

اخى الحبيب الغالى ياسر العربى

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

ايه الحلاوة دي ملاحظاتي بتقول يامعلم  زي الفل بس لو تلم الادوات شوية كدا وتكبر الفونت حبتين يبقي اجمل

والفورم التاني ظهر معايا زي الفل حبيبي عارف ليه

مش خطأ كود  خطأ ايدك وانت بتضغط علي الزر جت علي الليبل  اللي فوق

اضغط علي الليبل اللي فوق بتاع  ضع العددين

خالص تقديري لك

واتمنى لك المضي قدما باذن الله لصناعة وبرمجه برنامج متكامل باذن الله

 

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

 

[عبد العزيز البسكري]

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

لا المشكلة قائمة على طول ..كل ما أفتح الملف  .. أبدأ بذاك المساج .. و بعدين أعمل عادي ..

فائق إحتراماتي

[Yasser Fathi Albanna]

حبيبى الغالى / ياسر العربى

شرح أكثر من رائع

ستجعل منا مبرمجين محترفين

تفضل المرفق أيضا

مما تعلمناه منك

عايز أعرف ملاحظاتك أول بأول

الكود المستخدم

 

 

Private Sub Command1_Click()
label1.caption=time
label2.caption=date
End Sub

 

 

Timer Yasser Albanna.rar

[عبد العزيز البسكري]

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

الله الله عليك يا سيدي ..

تبارك الله باسم الله ما شاء الله

ألف مبروك أستاذي الغالي" ياسر فتحي البنّا "  على الانطلاقة الطيّبة و الموفّقة بإذن الله ..

و الآن إحكيلي و نوّرني بالكود الذي هو بداخل هذا الكنز .. ليختفي الفورم 1 و يظهر فورم معلومات المبرمج ..

فائق إحتراماتي

 

 

 

[Yasser Fathi Albanna]

حبيبى الغالى أستاذى ومعلمى القدير / عبد العزيز

بسم الله ما شاء الله على كل أعمالك التى أشاهدها وأستمتع بها

زادك الله من علمه وفضلة

ثانيا الموضوع سهل جدا جدا

نحدد CommandBatton

جديد فى نهاية الفورم الأول

ونضغط علية وفى اليمين فوق نضغط Add Form

ونضغط على أيقونة Image بالقائمة إللى على الشمال ونحدد لها مكان داخل الفورم الثانى ثم نختار

الصورة المراد وضعها وطبعا يكون مكتوب عليها معلومات المبرمج

ثم نضغط دبل كليك على CommandBatton فى الفورم الأول ونضع الكود التالى

Private Sub Command1_Click()
Form2.show
End Sub

ثم نقوم بحفظ البرنامج

أرجوا أن أكون أوصلت المعلومة

تقبل خالص تحياتى وتقديرى لشخصكم الكريم

[عبد العزيز البسكري]

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

ألف شكر أخي العزيز و أستاذي القدير " ياسر فتحي البنّا " على الشّرح و التّوضيح

جزاك الله خيرًا و زادك من علمه و فضله

و الله ما ضبطت معي لحد الآن نسخة الفيجوال بيسك و قضيّة الحفظ بأشكال مختلفة و الملفّات الأطفال الذين يتبعون الملف الأم ..

فائق إحتراماتي 

[Yasser Fathi Albanna]

أخى الحبيب / عبد العزيز

هل سطبت النسخة الكاملة

أم النسخة البورتوبال

أنا سطبت النسخة الكاملة تعمل معايا جيدا

[عبد العزيز البسكري]

أستاذي الغالي

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

[محمد حسن المحمد]

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

أرجو منكم - فضلا لا أمرا - إرفاق صور عن الملفات التي تحملونها لأنني يوميا أتابعكم على الجوال من المساء حتى صباح اليوم التالي..مما يزيدني لهفة لرؤية الملفات التي تحملونها وإبداعاتكم التي تسطرونها مع فائق محبتي واحترامي للجميع والسلام عليكم ورحمة الله وبركاته. 

[Yasser Fathi Albanna]

إنت تأمر يا أ / محمد

[محمد حسن المحمد]

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

[محمد حسن المحمد]

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

 

 إخوتي الكرام أستاذي الكريم ياسر العربي

 

أشكركم على جهودكم المبذولة

 

قمت بإنشاء ملف يحتوي على نموذجين(2فورم)

 

الأول: يحتوي على الوقت والتاريخ تلقائي بمجرد فتحه وعلى كومبوبوكس يفتح الفورم الثاني.

 

الثاني: يحتوي على رسالة شكر ومحبة لكم.

 

للأسف اكتفيت بالصورة لأن كمبيوتر البيت بآخر أيامه يكاد يلفظ أنفاسه اﻷخيرة بسبب اﻷولاد الصغار.

 

تقبلوا تحياتي العطرة..

 

والسلام عليكم.

 

 

 

تحية لأوفيسنا.rar

تم تعديل ديسمبر 20, 2015 بواسطه محمد حسن المحمد

[ياسر العربى]

بسم الله ما شاء الله عليكم

الاخ الغالي م/ ياسر

الاخ الغالي / عبد العزيز

الاخ الغالي / ابو يوسف

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

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

لانه طريق لو مشيتوا فيه هننسى الاكسيل شوية 

لان الاكسيل لا يمثل في البرنامج غير1% او اقل بكثير

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

اكثر مننا في الاكسيل ويكون اكثر احترافيه ايضا

فماذا تقترحوا على اكمل مسيرة الفيجوال قليلا ام نحول المسار بعد الالمام بالبدايات

وكان من الافضل عمل قسم للغات البرمجة مستقل حتى ناخد راحتنا

 

[محمد حسن المحمد]

1 ساعه مضت, محمد حسن المحمد said:

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

 

 إخوتي الكرام أستاذي الكريم ياسر العربي

 

أشكركم على جهودكم المبذولة

 

قمت بإنشاء ملف يحتوي على نموذجين(2فورم)

 

الأول: يحتوي على الوقت والتاريخ تلقائي بمجرد فتحه وعلى كومبوبوكس يفتح الفورم الثاني.

 

الثاني: يحتوي على رسالة شكر ومحبة لكم.

تقبلوا تحياتي العطرة..

 

والسلام عليكم.

 

 

 

 

تحية لأوفيسنا.rar

يرجى مشاهدة الملف المرفق وإبداء رأيكم والسلام عليكم.

[عبد العزيز البسكري]

Private Sub Timer2_Timer()
'Label2 = Format(Now, "dddd yyyy/mm/dd")
Label2 = Format(Now, "dddd dd/mm/yyyy")
End Sub

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

ماشاء الله تبارك الله أستاذي القدير " محمد حسن المحمد "

لك لمسات فنيّة رائعة

واصل المشوار معنا و لا تتركنا وحدنا وفّقك الله

للتدرّب أكثر قمت بتغيير طفيف ليظهر التاريخ بتنسيق عربي من اليمين إلى اليسار

فائق إحتراماتي

 

 

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

أستاذنا القدير " ياسر العربي "

بارك الله فيك  و جزاك الله خيرًا و زادك من علمه و فضله و جعل كل حرف ممّا تقدّمه و تبذله بألف حسنة

رأيي أن نكمل المشوار على بركة الله

بدأنا المسيرة و أنتَ قائدنا .. أتمنى و أدعو الله ألاّ تتركنا في بداية الطريق

لا تقلق على الاكسل أبدًا .. فلنا عيْنٌ في القدسْ و أخرى في نابلسْ

فائق إحتراماتي

تم تعديل ديسمبر 20, 2015 بواسطه عبد العزيز البسكري

[محمد حسن المحمد]

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

 أخي الحبيب عبد العزيز

شكراً جزيلاً هذا من لطفك وحسن أدبك ...وطيب كلامك

أما من ناحية التاريخ فإنني أن يظهر عندي كما يلي: الأحد 2015/12/20 أي من اليمين إلى اليسار وقد جربت كلتا الحالتين فقدمت الأولى.

تقبل تحياتي وشكراً لمتابعتك وتشجيعك فأنت أخ حبيب قريب من القلب ..وأرجو أن يكون شأنك عظيماً في أمتنا

 التي نحاول استنهاض مكانتها الرفيعة

والسلام عليكم.

 

[ياسر العربى]

منذ ساعه, محمد حسن المحمد said:

 

عمل ممتاز اخي الغالي ابو يوسف

لمسات جميله وهي من اهم اعمدة المشروع الخاص بنا وهو ان يكون شكل المشروع اعني البرنامج ان يكون جذاب ويعطى انطباعا طيبا في النفس

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

وكدا يبقي سبقتوا الشرح الاساسي في موضوع الردود نظرا لاجتيازكم مستوى الشرح بكثير

اخي عبد العزيز سننطلق على بركة الله باذنه ومشيئته

وانتظرو اللمسات الجمالية اتيه لكم لتبدعوا اكثر واكثر

 

الهدية بها بعض  العيوب البسيطة

لا تظهر الليبل العادي وقت تشغيل البرنامج فيأتي معها ليبل مخصص يظهر باظهار الاداة

الاداة image

لاتظهر وقت تشغيل البرنامج تستبدل وتفى بالغرض مكانها الاداة Picture

انتظرو المرفق

لكم فائق احتراماتي

 

[ياسر العربى]

تفضلو هدية اللمسات الجمالية

وبلغوني رأيكم

المهم تحملو الاداة من هنا

اذا لم تجدوها ابحثو عنها Browse

هتلاقوها في الهدية اللي بعتها اسمها actskin4.ocx

هتظهر مثل الصورة

والتوضيح بالمرفق

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

تقبلوا تحياتي

 

هدية.rar

[عبد العزيز البسكري]

 

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

أستاذنا القدير " ياسر العربي " حاولت إضافتها لكن لم أتمكن من ذلك .. تظهر هذه الرّسالة ..

 

 

[مختار حسين محمود]

8 ساعات مضت, عبد العزيز البسكري said:

 

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

الأستاذ الرائع " ياسر العربي "

بارك الله فيك  و جزاك خيرًا و زادك من علمه و فضله على ما تقدمه لاخوانك

تحياتى

 

[ياسر العربى]

اخي الغالي عبد العزيز انقل الاداة لملف السيستم ٣٢ هي فقط تحتاج للتسجيل لو تعرف تسجلها  اعملها  انا اتكلم من الموبيل شوية وبروح علي الجهاز وبشرح كيف تتعمل

استاذي مختار شكرا لك لمرورك الكريم لك كل الشكر واالتقدير

تقبل تحياتي

[ياسر العربى]

اخي عبد العزيز تفضل

واي اداة تعمل معاك نفس الكلام دا

تتحط في السيستم ويتم تسجيلها مثل هذه

 

 

تسجيل الادوات فتح كمسئول.rar

[Yasser Fathi Albanna]

أقدم لكم اليوم رسالة ترحيب من تصميمى

من بعض ما تعلمته من شرح الأستاذ والمعلم القدير / ياسر العربى

أرجوا أن تنال إعجابكم

تعليقك يا أ / ياسر العربى على الفنش يهمنى

 

 

Welcome Screen.rar

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا الفاضل " ياسر العربي "

جزاك الله خيرًا و زادك من علمه و فضله

فائق إحتراماتي

 

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

ألف شكر أستاذنا الغالي " ياسر فتحي البنّا " على الهديّة الممتازة

واصل إبداعاتك .. موفّق بإذن الله . و منكم نستفيد

لو أمكن سيّدي المحترم وضع الأكواد لأي عمل و لو بسيط ..لنتعرّف عن قرب أو نحاول التّقليد و تجميع الأكواد

فائق إعجاباتي