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

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

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

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

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

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

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

اقتباس:

---

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

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

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

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

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

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

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

---

يارك الله فيك

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

دورتنا

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


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

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

اخوتي الكرام

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


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

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

كما في الشكل

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

---

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

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

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