طريقة عمل برنامج للتحميل في الفيجوال بيسك 2015
انشاء برنامج للتحميل
اولا : الاشياء المطلوبة.
الاشياء المطلوبة هي زران (2 buttons) مربعان نصوص (2 text box)
ثانيا : طريقة وضعها.
انت تختار الامكان التي تعجبك ولاكن في البداية انا انصحك ان تضعها كما هو موضح في الصورة
ثالثا : تصميم الازرار والمربعات النصوص.
اولا اضغط ضغطة واحدة علي الزر او مربع النص الذي تريد التعديل عليه ثم تذهب الي الخيار (properties) وتذهب الي الخيار text وتغير الاسم كما تشاء وانا انصحك ان يكون كما هو موضح في الصورة العلوية ومن الخيار font يمكنك ان تعدل علي الخط وشكله كما تشاء وانا انصحك بان يكون Arial, 9.75pt, style=Bold وهذا الخط الذي انا افضله.
ويمكن ان تعدل علي النافذة (form) كما تشاء واذا كنت تريد ان تضع ايقونة فأنا اننصحك بهاذا الموقع اضغط هنا
اما بانسبة لي مربع النصوص (text box) في يمكنك ان تجعل الخط Arial, 11.25pt, style=Bold.
ويمكن ان تعدل علي النافذة (form) كما تشاء واذا كنت تريد ان تضع ايقونة فأنا اننصحك بهاذا الموقع اضغط هنا
اما بانسبة لي مربع النصوص (text box) في يمكنك ان تجعل الخط Arial, 11.25pt, style=Bold.
رابعا : الأكواد.
اولا كود الفورم وهو لكي تجعل البرنامج يرحب بالمستخدم بمجرد فتحه
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim sapt
sapt = CreateObject("sapi.spvoice")
sapt.speak("welcome to downloader")
ثانيا كود الزر الاول وهو shwo URL
وهذا الكود فاِدته ان يظهر الرابط الخاص بتحميل البرنامج
than ("اسم البرنامج") or ("اسم البرنامج") = if textbox1.text
("رابط البرنامج") = textbox2.text
وهذا الكود يتم تكراره حسب عدد البرامج المطلوبة في البرنامج
الزر الثاني وهو زر النسخ
والكود الخاص به هو
()
خامسا : تجربة البرنامج
ويمكنك تجربته عن طريق الضغط علي زر start كما هو موضح في الصورة
وهكذا يكون لديك برنامج للتحميل وشكرا لكم ولحسن قراتكم
الكاتب : محمود احمد
للتواصل
facebook :
https://www.facebook.com/mahmoud.ahmad.980967
والسلام عليكم ورحمة الله وبركاته
لا يوجد تعليقات
أضف تعليق