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

[الليدي أوسكار]

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

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

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

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

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

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

[الحبيب لمين]

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

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

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

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

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

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

يارك الله فيك

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

دورتنا

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


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

[الحبيب لمين]

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

اخوتي الكرام

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


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

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

كما في الشكل

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

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

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

[الحبيب لمين]

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

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

[osamax]

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

[drbmsh]

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

[drbmsh]

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

[الحبيب لمين]

ممكن لينك مباشر لنسخة 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

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

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

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