professional VB99

الدرس الثالث والأربعون Select case (object) Case (state) الشرط End select مثال :::::::::::::::: Select Case (Text1.Text) Case "p" MsgBox "PROFESSIONALvB99" End Select

الدرس الثاني والاربعون درس if if Condition then الشرط1 Else الشرط2 (أذا لم يتم تنفيذ الشرط 1) End if مثال: ضع زر وتكست ضع هذا الكود في الزر If text1.text = "professionalVb99" then Form2.show Else End End if

الدرس الواحد والأربعون لها عدة استخدامات مثل : for I = 1 to 5 الحدث Next i ********** ومثال اخر ********* For I = 1 to 5 step 2 الحدث Next i حمل المرفق يوجد مثال مجلد جديد.zip

الدرس الأربعون الطباعة دون تقرير ونحن نعرف أن قاعدة البيانات التي نعمل بها من ثلاث حقول وهي: tell : رقم الهاتف name : الإسم adr : العنوان والجدول DBGrid1 يتكون من أعمدة Column وتختصر Col صفوف Row والأن سوف نطبع كل عمود وصف عن طريق حلقة التكرار و كائن الطباعة P…

الدرس التاسع والثلاثون اهم اوامر data الانتقال من سجل الحالي الى السجل التالي Data1.Recordset.MoveNext الانتقال من السجل الحالي الى السجل السابق Data1.Recordset.MovePrevious الانتقال الى اول سجل Data1.Recordset.MoveFirst الانتقال الى آخر سجل Data1.Recordset.Mo…

كود ضعه في زر لعرض التقرير datareport1.show يعرضه لك

الدرس الثامن والثلاثون درس المصفوفات: 'تعريف متحول عددي Dim no1 As Integer 'تعريف مصفوفة عددية سعتها 10 عناصر Dim list(10) As Integer 'تعريف مصفوفة مؤلفة من 10 عناصر عرض و10 إرتفاع أي 100 عنصر Dim matrix(10, 10) As Integer 'تعريف متغير نصي Dim name1 As String …

مشكورين على الاخبار */*/*/*/*/*/*/*/*/*/**----------------------*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/**

والله الموفق للجميــــــــع

مشكور على الاهتمام

اين ردودكم

هل يوجد شركه عربيه تهتم بالبرمجه او تفتح دوره مجانيه للبرمجه ليكون العرب متميزين بعلمهم وتمسكهم بدينهم ولكن اعتقد لا يوجد شركه عربيه تفعل هكذا والخسارة ان رجل اجنبي يقوم بتبرع للأجانب 1 مليار سنويا لتعلم البرمجه

أذا تريد المساعده ضع المشروع هنا وإن شاء الله شباب المنتدى مايقصروا

الدرس السابع والثلاثون التعامل مع الاخطاء وتجاهلها: On Error Resume Next وهو يكتب في أول الكود لتجاهل الخطاء ********************************* On Error Goto P تقدر تغير حرف P مثال: On Error GoTo R Form3.Show Exit Sub R: MsgBox "فيه خطا", vbCritical, " ********…

ليس 100% بل 100000000% مشكورررررررررررر حقا انت مبدع

مشكور على الاخبار الرائعه

السلام عليكم هل يوجد وصله لتحميل برنامج برمجه الجوال اوي لغه يدعم

مشكور اخوي على التشجيع

اين ردودكم

لاتزعلوا في دروس بعد اضخم شوي انتظرووووووووووووووووووو