الدرس الثاني والعشرون
دروس من البدايه الى برامج الهاكرز
مغلقرائج
الدرس الثالث والعشرون
الدرس الرابع والعشرون
الدرس الخامس والعشرون
أنا الان انتظر ردودكم الحلوه
الدرس الثلاث والثلاثون
متصفح دون اتصال
يعني فيه مجلد به عدت مواقع محفوظه وتريد ان المواقع تكون في لسته
وانت تختار منهن ويفتح داخل البرنامج
لاتزعلوا في دروس بعد اضخم شوي
انتظرووووووووووووووووووو
اين ردودكم
مشكور اخوي على التشجيع
الدرس السابع والثلاثون
التعامل مع الاخطاء وتجاهلها:
On Error Resume Next
وهو يكتب في أول الكود لتجاهل الخطاء
*********************************
On Error Goto P
تقدر تغير حرف P
مثال:
On Error GoTo R Form3.Show Exit Sub R: MsgBox "فيه خطا", vbCritical, "
**********************************
اين ردودكم
الدرس الثامن والثلاثون
درس المصفوفات:
'تعريف متحول عددي
Dim no1 As Integer
'تعريف مصفوفة عددية سعتها 10 عناصر
Dim list(10) As Integer
'تعريف مصفوفة مؤلفة من 10 عناصر عرض و10 إرتفاع أي 100 عنصر
Dim matrix(10, 10) As Integer
'تعريف متغير نصي
Dim name1 As String
'تعريف متغير نصي بطول 50 حرف
Dim name1 As String * 50
'تعريف مصفوفة نصية تتكون من 10 عناصر
Dim list1(10) As String
'تعريف مصفوفة نصية تتألف من 10 عناصر بطول 50 حرف
Dim list1(10) As String * 50
'تعريف متغير للقيم نعم ولا
Dim a As Boolean
التصريح في وحده نمطيه Module
'تعريف متغير عددي لكافة نوافذ البرنامج
Global no1 As Integer
'تعريف عدة متغيرات في مجموعة واحدة
Type user
user_no As String * 70
user_name As String * 30
user_mark As Integer
End Type
تم تعديل هذه المشاركة بواسطة professional VB99 في 17 يونيو 2005 في 05:14
كود ضعه في زر لعرض التقرير
datareport1.show
يعرضه لك
الدرس التاسع والثلاثون
اهم اوامر data
الانتقال من سجل الحالي الى السجل التالي
Data1.Recordset.MoveNext
الانتقال من السجل الحالي الى السجل السابق
Data1.Recordset.MovePrevious
الانتقال الى اول سجل
Data1.Recordset.MoveFirst
الانتقال الى آخر سجل
Data1.Recordset.MoveLast
أضافه سجل جديد
Data1.Recordset.AddNew
حذف سجل
Data1.Recordset.Delete
لحفظ تعديلات السجل
Data1.Recordset.Update
لتراجع على اضافه سجل او تعديل سجل
Data1.Recordset.CancelUpdate
لتحديث القاعده
Data1.Refresh
هذا امر مهم لانه يقوم بعرض القاعده بسهوله
Data1.DatabaseName = App.Path & "\professionalVB99.mdb"
تم تعديل هذه المشاركة بواسطة professional VB99 في 17 يونيو 2005 في 05:46
هذا الموضوع مغلق.