سلسلة دروس في الفيجوال بيسك

بارك الله فيك

اتمني من الاعضاء او المشرفية

خاصة اصحاب الخبرة في هذا المجال

ان يواصلوا الدروس نيابة عن الاخ الحبيب لمين

بعد اذنة طبعا

لكي تعم الفائدة

بارك الله فيكم

خاصة اني اعتمد على هذه الدروس ( كغيري من المبتدئين)

السلام عليكم

يبدو انه لا يوجد تجاوب من قبل الاعضاء او المراقبين
:33: :33: :wow: :bigeyes: :33: :33:

مممممممم

اسف جدا للنقطاع ولكن والله ظروف صعبة جدا

فعلا دروس روعة كالعادة اخي

يبدوا انك انت ايضا تعاني من مشاكل قاسية منعتك من الدخول

في انظارك ونتمنى انك تواصل

بالتوفيق

اقتباس:

---

المشاركة الأصلية كتبت بواسطة سر العرب

بارك الله فيك


اتمني من الاعضاء او المشرفية

خاصة اصحاب الخبرة في هذا المجال

ان يواصلوا الدروس نيابة عن الاخ الحبيب لمين

بعد اذنة طبعا

لكي تعم الفائدة

بارك الله فيكم


خاصة اني اعتمد على هذه الدروس ( كغيري من المبتدئين)

---

بارك الله فيك على حرصك على العلم

اخي سر العرب

شكرا على هذه المداخلة

اقتباس:

---

المشاركة الأصلية كتبت بواسطة حبيبة الشيخ

السلام عليكم

يبدو انه لا يوجد تجاوب من قبل الاعضاء او المراقبين

:33: :33: :wow: :bigeyes: :33: :33:

---

اختي الغالية

اكيد عندهم

مثل ضروف عمل مثل ضروفي

اقتباس:

---

المشاركة الأصلية كتبت بواسطة amawi

مممممممم

---

اقتباس:

---

المشاركة الأصلية كتبت بواسطة amawi

اسف جدا للنقطاع ولكن والله ظروف صعبة جدا

فعلا دروس روعة كالعادة اخي

يبدوا انك انت ايضا تعاني من مشاكل قاسية منعتك من الدخول

في انظارك ونتمنى انك تواصل

بالتوفيق

---

الله يوفقك

مشكور على المرور

بارك الله فيك اخي الكريم ولي عودة للموضوع ان شاء الله

اقتباس:

---

المشاركة الأصلية كتبت بواسطة kaarouch

بارك الله فيك اخي الكريم ولي عودة للموضوع ان شاء الله

---

بارك الله فيك

يعطيك العافية

بارك الله فيك على الدروس ؟؟؟؟ بس احس اني مشتت !!!؟؟؟ مافي ترتيب للموضوع !!!

جزاك الله خير ..... وكثر الله من امثالك ...

السلام عليكم

الله يعافيك اخي q8apple
على هذا التشجيع

**************************
بارك الله فيك اخي تــــأخــــرت على هذه الكلمات الرائعة

اقتباس:

---

المشاركة الأصلية كتبت بواسطة تــــأخــــرت

بارك الله فيك على الدروس ؟؟؟؟ بس احس اني مشتت !!!؟؟؟ مافي ترتيب للموضوع !!!

جزاك الله خير ..... وكثر الله من امثالك ...

---

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

وانشاء الله راح استأنف الدروس قريبا

انا اعتذر عن هذا الانقطاع

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

واقد الشكر لكل من شاعدني وخاصة حبيبة الشيخ
واكيد المشرف العام

اوعدكم بامزيد والجديد انشاء الله

بارك الله فيكم

اخوكم لمين

جعله الله في ميزان حسناتك

السلام عليكم
أخي العزيز محترف الفجيوال أريد عمل كلمة سر على قاعدة بيانات بالـ Access
وشكرا

اقتباس:

---

المشاركة الأصلية كتبت بواسطة yasmenosama

السلام عليكم
أخي العزيز محترف الفجيوال أريد عمل كلمة سر على قاعدة بيانات بالـ Access

---

اقتباس:

---

المشاركة الأصلية كتبت بواسطة yasmenosama

وشكرا

---

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


اخي العزيز yasmenosama

لا مشكلة

انضر هذه الصورة
http://www.montada.com/attachment.ph...4&d=1165769743

هناك نسخة من الصورة في المرفقات

اذا واجهتك اي مشكلة انا حاضر في اي وقت انشاء الله

بارك الله فيك

أشكرك شكر جزيل اخي على سلسلة هذه الدروس
وانا جاهز لأي مساعدة في هذا الخصوص لأني تقريبا ملم ب 60% من الفجول بيسك
ولكن
لماذا لا تتحول الى لغة البرمجة الجديدة VB.Net
لأنها افضل وهي الجديدة والمطلوبة حاليا
انا اتفق معك انها الاصعب ولكن بحسب المميزات الموجودة بها فهي جيدة وافضل من ال VB6
على العموم انا عندي لك سؤال جدا صعب وراح اطرحة اذا تفاعلت معي
طبعا انا لا اختبرك لأني اساسا لم اجد جوابا له
على العموم بانتظار ردك
تقبل تحياتي

السلام عليكم

اخي الكريم SHUMMRY

انا اشكرك على مداخلتك

اما بما بخص VB.NET

فانا حضرت موضوع اكبر من هذا

لكن انتضر انه يمن عليا الله واجد احد يعطيني

برنامج بحول من امتداد DOC الي متداد PDF

ويكون يدعم العربية

واما ما يخص سؤالك فانا اقول لك بجد شوقتني

يا ريت ما تطول عليا وتعطينى السؤال

وبصدق اتمني يكون صعب

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

بارك الله فيك

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

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

اقتباس:

---

برنامج بحول من امتداد DOC الي متداد PDF

---

إليك هذا البرنامج ... وهو مجاني .. ويدعم اللغة العربية ;)

http://www.primopdf.com/

بعد تنزيلة إذهب إلى الملف الذي تريد تحويلة .. وإضغط على print

ثم غير الـ printer name إلى PrimoPDF


ثم OK

نسيت أن أشكرك على الدورة .. :)

بالفعل هي جمليلة .. ومفيدة

بالتوفيق

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

الله يجعله في ميزان حسناتك

اختك في الله يا دوبك تفك الخط في عالم البرمجة !!

وكلي شوق دروسك على فيجوال بيسك ستديو دوت نيت ( على ما فهمت ؟ )

وان شاء الله اكون من التلاميذ المتابعين لدروسك

اشكرك على وجه الخصوووووووووووووووص على المرفقات
لأن غالبا الصور ما تظهر
ويا ليت بقية الاعضاء والشارحين يحذون حذوك مشكورين

اقتباس:

---

المشاركة الأصلية كتبت بواسطة الليدي أوسكار

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

الله يجعله في ميزان حسناتك

اختك في الله يا دوبك تفك الخط في عالم البرمجة !!

وكلي شوق دروسك على فيجوال بيسك ستديو دوت نيت ( على ما فهمت ؟ )

وان شاء الله اكون من التلاميذ المتابعين لدروسك

اشكرك على وجه الخصوووووووووووووووص على المرفقات
لأن غالبا الصور ما تظهر
ويا ليت بقية الاعضاء والشارحين يحذون حذوك مشكورين

---

يارك الله فيك

وابشرك انا اليوم انشاء الله راح انواصل

دورتنا

وانا اسف على تأخري


الدرس سوف يكون اليوم انشاء الله

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

اخوتي الكرام

انا افضل ان نستخدم الفيحوال بيزك مباشرة


ونبتعد عن الشرح النظري

درس اليوم هو درس الالة الحاسبة

كما في الشكل

http://www.m5zn.com/uploads/61b5e3cb7c.jpg

والان

الليبل الاول اكتب فيه العنوان (الة حاسبة)


مربعي النص الاثنين اتركهما فارغين وامسح اي كلام من الخصائص


دعها فارغةtext من خاصية


ضع علامات الالة الحاسبة من خاصية CAPTION

وهي + - X ÷

الليبل الثاني اتركه فارغا لتظهر فيه نتائج العمليات

الان اضف كتابة الكود التالي

اذهب للفورم وانقر مرتين على ليبل اثنين والصق الكود التالي

كود:

---

Private Sub Label2_Click()
      Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
      End Sub

---

الان انقر مرتين على زر الزائد والصق الكود التالي

كود:

---

Private Sub Command1_Click()
      Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
      End Sub

---

انقر على زر الطرح واكتب او الصق الكود التالي

كود:

---

Private Sub Command3_Click()
      Label2.Caption = Val(Text1.Text) / Val(Text2.Text)
      End Sub

---

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

كود:

---

Private Sub Command3_Click()
      Label2.Caption = Val(Text1.Text) / Val(Text2.Text)
      End Sub

---

الاخير زر الظرب انقر مرتين لتخرج صفحة الكود والصق مايل

كود:

---

Private Sub Command4_Click()
      MuValue = Val(Text1.Text) * Val(Text2.Text)
      Label2.Caption = "" + Str(MuValue)

---

كود:

---

      End Sub

---

او اذا كنت من لا ترغب في التعب
انشا فورم جديد
ثم انشا خمسة ازرار ( لا تكتب لها اسم )

وعدد 2 ليبول
وعدد 2 TEXT

وضع الفورم هذا الكود

كود:

---

Private Sub Command1_Click()
Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Label2.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
MuValue = Val(Text1.Text) * Val(Text2.Text)
Label2.Caption = "" + Str(MuValue)
End Sub

Private Sub Command4_Click()
Label2.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
Text1 = Text
Text2 = Text
Label2 = Text

End Sub



Private Sub Form_Load()
Command1.Caption = "&+"
Command2.Caption = "&-"
Command3.Caption = "&X"
Command4.Caption = "&÷"
Command5.Caption = "&EXIT"
Command6.Caption = "&AC"
End Sub


Private Sub Label2_Click()
Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

---

اتمني ان يكون الدرس مفهوم


نلتقي غدا انشاء الله

الدرس القادم انشاء الله

كيف تصمم متصفح خاص بيك

مثل Internet Explorer

اخي الكريم هذا الدرس لأي أصدار للفيجوال ؟؟
لأن الاصدار اللي عندي
هو : فيجوال استديو دوت نت 2003

لو نفس الاصدار باحاول اتباع معاك واطبق كمان اذا امكن

اقتباس:

---

المشاركة الأصلية كتبت بواسطة الليدي أوسكار

اخي الكريم هذا الدرس لأي أصدار للفيجوال ؟؟
لأن الاصدار اللي عندي
هو : فيجوال استديو دوت نت 2003

لو نفس الاصدار باحاول اتباع معاك واطبق كمان اذا امكن

---

انا استخدم vb6

لأنه احسن من vb.net


اتمني انك تتابع معانا الموضوع

وتستفيد منه

بارك الله فيك

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

اليوم سوف نبرمج متصفح للأنتر نت

انشاء الله
افتح فورم جديد وضععليه ستة ازارير كوماند ومن الخصائص سمة كما تشاهد فيالصورة




http://www.7mbc.com/up/upb8/7mbc_1056595757.JPG




الخلف الامام توقفالبداية تحديث اغلاق

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

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

اداة microsoft internet conttrols

ولكي تختارها اضغطعلى مفتاح ctrl+T

تظهر لك مجموعةالادوات ابحث عن الاداة ثم ضع عليها صح من المربع الذي امامها ثم انقرموافق

اسم الاداة microsoft internet conttrols

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

حاول ترتيب الادوات مثلالصورة

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

كود:

---

 
Private Sub Form_Load()
WebBrowser1.Navigate "www.yahoo.com"
End Sub

---

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

كود:

---

Private Sub Command1_Click()
WebBrowser1.GoBack
End Sub

---

انقر على زر الامام مرتين واكتب الكود

كود:

---

Private Sub Command2_Click()
WebBrowser1.GoForward
End Sub

---

وهذا كود توقف

كود:

---

Private Sub Command3_Click()
WebBrowser1.Stop

 End Sub

---

وهذا كود زر البداية

كود:

---

Private Sub Command4_Click()
WebBrowser1.GoHome
End Sub

---

وهذا كود زر تحديث

كود:

---

Private Sub Command5_Click()
WebBrowser1.Refresh
End Sub

---

وهذا كود زر اغلاق المتصفح

كود:

---

Private Sub Command6_Click()
End
End Sub

---

الان انقر مرتين على الكمبو بوكس واكتب الكودالتالي

كود:

---

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
WebBrowser1.Navigate Combo1.Text
End If
End Sub

---

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

اتمني اكون وفقت في ايصال المعلومات لكم

كيف احصل على الملف النهائي لبرنامج قمت بتصميمه

اقتباس:

---

المشاركة الأصلية كتبت بواسطة drbmsh

كيف احصل على الملف النهائي لبرنامج قمت بتصميمه

---

هل تقصد الملف التنفيذي للبرنامج

و ما يسمي exe

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

ام ماذا بالتحديد
:33::33::33:

عموما شاهد المرفقات

بها جواب سؤالك انشاء الله

ما صار شي عملت مثل ماقلت بس اكتب موقع google مثلا يطلع error

الف شكر وللكن للأسف الشديد هذة الخاصية غير نشطة في قائمةfiles لدي
make project exe

ممكن لينك مباشر لنسخة visual basic 6 كاملة

اقتباس:

---

المشاركة الأصلية كتبت بواسطة drbmsh

ممكن لينك مباشر لنسخة visual basic 6 كاملة

---

السلام عليكم

اخي العزيز

لم اتمكن من رفع نسخة من البرنامج

لكن يمكنك مراجعة هذا الموضوع

اخى العززيز "الحبيب لمين"

الصراحة فى كود مدوخنى من فترة كده

وهو كود الحفظ يعنى لما واحد يشتغل على البرنامج وقبل مايقفله البرنامج يحفظ الإعدادات اللى عملها المستخدم

ارجو انك تكون فهمتنى صح :)

والى الأمام

اقتباس:

---

المشاركة الأصلية كتبت بواسطة S.N.I.P.E.R

اخى العززيز "الحبيب لمين"

الصراحة فى كود مدوخنى من فترة كده

وهو كود الحفظ يعنى لما واحد يشتغل على البرنامج وقبل مايقفله البرنامج يحفظ الإعدادات اللى عملها المستخدم

ارجو انك تكون فهمتنى صح :)

والى الأمام

---

السلام عليكم

اخي العزيز

على ضوء ما فهمت

تريد كود الحفظ

جرب هذا

كود:

---

Private Sub Command1_Click()
'حفظ الاعرادات
SaveSetting App.EXEName, "FORMS", "WIDTH", Form1.Width
MsgBox RESULT

End Sub

Private Sub Command2_Click()
'استرجاع الاعدادات
RESULT = GetSetting(App.EXEName, "FORMS", "WIDTH", "500")
MsgBox RESULT

End Sub

---

اذا لم يكن هذا هو الكود المطلوب

ارجوا شرح بيسط للكود

ودقائق ويكون جاهز انشاء الله

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

اقتباس:

---

المشاركة الأصلية كتبت بواسطة kaarouch

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

---

شكرا كل اخي العزيز على هذه الملاحظة وانا الان بصدد انشاء ملف PDF للدورة ترقبه قريبا انشاء الله

يعطيك العافيه أخويه

و بارك الله فيك على الدروس المفيده

إن شاء الله أبدا أطبق الدروس

إذا عندي سؤال ما بتردد وبسألك ^_^


:)

اقتباس:

---

المشاركة الأصلية كتبت بواسطة ابتسامــــــه

يعطيك العافيه أخويه

و بارك الله فيك على الدروس المفيده

إن شاء الله أبدا أطبق الدروس

إذا عندي سؤال ما بتردد وبسألك ^_^


:)

---

الله يعافيك النشاء الله

انا منتظر اسئلتك

اذا احتجتي مساعدة انا جاهز

thaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaanks

not at all

اخي الكريم
اعرف ان الموضوع مو في محلة
ماقدرت ارسلك خاص لأن الأدارة منعت إرسال الرسائل الخاصة لمن تقل عدد مشاركاتهم عن 500
اشكرك اخي من كل قلبي:kiss: على مساعدتك لي وإن شاؤ الله ارد لك الجميل في يوم من الأيام
واتمنى ان تقوم بأرسال نوع الحماية في الكود وطريقة إستعمال الفانكشنز الي فية
والف شكر حبيبي:)

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

تلبية لطلب بك أخي الحبيب

والغالي على قلبي majd_123002

أقدم كودات الحماية + الشرح

فقط انتظر 30 دقيقة بينما احصر الكودات والشرح

السلام عليكم

الحمد لله انتهي عملي في الكودات

حضرت 7 اكواد

للحماية

اذا كانت لديك فكرة جديدة

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

وانا انشاء الله راح احولها الي كود

ملاحظة :- لقد ترجمة فكرته الالي الي كود وستجدها في فورة اسمه save_data

لدي فكرة جديدة ولكتها غير مكتملة عن الحماية

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

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

كل كود في فورم يحمل اسمه

اذا اردت تجريبها

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

ولاحظ النتائج

انتمي ان اكون قدمت لك المعلومات المطلوبة

مشكور اخوي على تفاعلك
وعندي فكرة
برنامج يقوم بالأتصال بموقع على النت ويقراء محتوياتة التي تمثل ما يجب على البرنامج عملة
مثل الأقفال او العمل بشكل طبيعي كما يرسل بيانات خاصة بالعمليات التي قام بها لكي يتمكن الشخص
من الأطلاع عن بعد عن عمل البرنامج

لقد قمت بفتح موضوع جديد يختص بطرق حماية البرامج
فما هو رايك ان نقوم جميعا بطرح الأفكار والأكواد ونتناقش فيها كل بحسب خبرتة وقدرتة:)

اقتباس:

---

المشاركة الأصلية كتبت بواسطة majd_1232002

لقد قمت بفتح موضوع جديد يختص بطرق حماية البرامج
فما هو رايك ان نقوم جميعا بطرح الأفكار والأكواد ونتناقش فيها كل بحسب خبرتة وقدرتة:)

---

طبعا موافق

لكن اين الموضوع انا لم اجده

اقتباس:

---

المشاركة الأصلية كتبت بواسطة majd_1232002

مشكور اخوي على تفاعلك

---

لاشكر على واجب يا حبيبي

اقتباس:

---

المشاركة الأصلية كتبت بواسطة majd_1232002

وعندي فكرة
برنامج يقوم بالأتصال بموقع على النت ويقراء محتوياتة التي تمثل ما يجب على البرنامج عملة
مثل الأقفال او العمل بشكل طبيعي كما يرسل بيانات خاصة بالعمليات التي قام بها لكي يتمكن الشخص
من الأطلاع عن بعد عن عمل البرنامج

---

انت تعني بهذا البرنامج ما يعرف بــ update

هذه فكرة تعتمد على نوع البرنامج

وهل يحتاج الي تحديث مستمر مثل برامج الحماية من الفيروسات

والبرامج القوية والكبيرة

ولكن اذا وضعنا ايدينا في بعضها

يمكننا انتاج برامج ( لن تنافس الشركات الكبري لانه عمل المحترفين وليس الهوات)

ولكن يمكننا ان ننتج برامج تفيدنا بشكل كبير