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


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

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





سلسله دروس فيديو لتعليم برمجه قواعد البيانات | ADO.NET


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

هذه سلسله دروس لتعليم برمجه قواعد البيانات بالدوت نت
وهي تتعرض لاشياء كثيره في برمجه قواعد البيانات
الدروس للأستاذ احمد حسونه جعلها الله في ميزان حسناته













طريقه وضع زر الاشتراك في اليوتيوب في مدونتك

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


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


إليك الطريقة:



 من لوحة التحكم   ----- التخطيط   -----   اضافة اداة --------- تختار  html/java script


ثم تضع هذا الكود


<script src="https://apis.google.com/js/plusone.js"></script>

<div class="g-ytsubscribe" data-channelid="YsOVoRs_cqdpp6kIY9orEg" data-layout="full"></div>

ولاتنسي ان تغير هذا الجزء     YsOVoRs_cqdpp6kIY9orEg    الي اسم المستخدم الخاص بك

 ويمكنك الحصول علي اسم المستخدم  من هنـــا

وفقكم الله 







التنقل بين السجلات في الجدول

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

بما اننا اعتمدنا علي الداتا تيبل في التعامل مع البيانات من اول الدروس ،،
 لذلك  سنشرح طريقه الانتقال من خلال رقم السجل في الداتا تيبل
الفكره بأختصار سنقوم بعمل متغير عام  من النوع الرقمي Integer وسنضع به رقم السجل الحالي وبهذا نستطيع التنقل بين السجلات من خلال رقم السجل الحالي  .

 ربما تقول الان لماذا لا نعتمد علي طرق مباشره للتنقل بين السجلات ؟؟
بكل بساطه سأجيب عليك اهم شئ لتصبح مبرمج هو ان يكون لديك افكار مختلفه لتنفيذ الكود وليس روتين في تكرار الاكود
واعتقد ان هذه الفكره ستفيدك في استخدامها في اشياء اخري  ..

نبدأ بتنفيذ الكود:


سنقوم بأضافه اربع  Button  (الاول - التالي - السابق - الاخير )
واداه Label  لنكتب بها رقم السجل

نقوم بالتصريح عن متغير عام في الفورم
Dim x As Integer = 0


حتي نسهل علي انفسنا سنقوم بعمل اجراء واحد لنستخدمه مع جميع ازرار الانتقال
Private Sub rowSelection()

        If DataGridView1.RowCount = 0 Then Label4.Text = "0 of 0 " : Exit Sub

        With DataGridView1

            '  الغاء التحديد في الجريد

            .ClearSelection()

            'تحديد السجل حسب الرقم

            .Rows(x).Selected = True

            'التركيز (الانتقال) الي السجل المعروض

            .FirstDisplayedScrollingRowIndex = x

            TextBox1.Text = .Rows(x).Cells(0).Value.ToString

            TextBox2.Text = .Rows(x).Cells(1).Value.ToString

            TextBox3.Text = .Rows(x).Cells(2).Value.ToString

            Label4.Text = x + 1 & " of " & dt.Rows.Count

        End With

    End Sub
كود السجل الاول
x = 0
  rowSelection()
كود السجل السابق
If x > 0 Then
  x -= 1
  rowSelection()
  End If
كود السجل التالي
If x < dt.Rows.Count - 1 Then
   x += 1
   rowSelection()
   End If

كود السجل الاخير
x = dt.Rows.Count - 1
   rowSelection()

واخير نضيف هذه السطر في اخر الاجراء Loadgrid حتي تتحدث ارقام السجلات مع عمليات الاضافه والحذف

rowSelection()


وبهذا نكون تعلمنا طريقه التنقل بين السجلات

لتحميل المثال اضغط هـــنـا