بسم الله الرحمن الرحيم
اليوم ان شاء الله تعالى ساشرح لكم طريقة عمل برنامج لفتح القنوات التلفزيونية . البرنامج سيكون سهلا في التصميم والبرمجة كل ما عليك فعله هو البدء باسم الله الرحمن الرحيم ثم فتح برنامج الفجوال بيسك 6 ثم مشروع جديد واضف الاداة التالية التي تقوم بفتح القنوات والافلام المرئية .
Project >>>>compnants سفتح لك هذه الشاشة
بعد رسمها على الفورم ستكون بهذا الشكل واتبع الشرح على الصورة التالية :
نكتفي بهذا للتبسيط كل ماعلينا الان هو كتابة الشيفرة والتي ستشغل البرنامج البسيط وقد وضعت هنا زر لقناة البي بي سي المرئية طبعا لابد الحصول على رابط القناة التي تريدها .. سنكتب الشيفرة التالية في قسم التصريحات العامة
رمز برمجي:
Option Explicit
' هذا الكود لالتقاط الشاشة من الموقع
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _
ByVal ySrc As Long, ByVal dwRop As Long) As Long
' وهذا الكود تنفيذ المتصفح الافتراضي
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
وهذا الكود سيكون في زر قناة البي بي سي المرئية :
كود:
رمز برمجي:
'وهنا دور الاداة بفتح موقع القناةtv.URL = "http://www.bbc.co.uk/newsa/n5ctrl/tvseq/n24/nb/wm/video/heads_nb.asx"
بهذا وصلنا الي نهاية الشيفرة والتصميم بقي لنا ان نجرب البرنامج وعند تجربته بدون اخطاء ان شاء الله سيكون بهذا الشكل كما بالصورة التالية :
تم تشغيل البرنامج بنجاح والحمد لله بالصوت والصورة .
اتمنى لكم التوفيق
تحياتي
منقول
__________________