http://www.kawader.edu.sa//articles-action-listarticles-id-186.htm برامج ar-sa Copyright 2012 - kawader.edu.sa Thu, 09 Feb 2012 09:52:17 +0300 Sat, 20 Mar 2010 11:53:13 +0300 مقالات تعليمية INFINITY RSS Feed Generator 1440 كيفية التنقل بين الإطارات في فيجوال بيسك النموذج الأول : شاشة الترحيب كما بالشكل عند النقر علي زر استمرار يتم الانتقال النموذج التالي كما بالكود Dim f2 As New Form2() Me. Hide() F2.Show() عند الضغط علي زر الغاء يتم الخروج من البرنامج كما في الكود END النموذج الثاني : نموذج التحقق من اسم المستخدم وكلمة المرور عند إدخال المستخدم اسم المستخدم وكلمة المرور صحيحة يتم الانتقال إلى النموذج التالي بعد مقارنة اسم المستخدم وكلمة المرور مع محتويات الملف النصي USERS.TEXT : كما بالكود التالي : Dim i As Integer Dim username As String Dim password As String Dim f3 As New Form3 Dim found As Boolean *** False Dim sr As IO.StreamReader *** IO.File.OpenText("users.txt") Do While sr.Peek <> -1 username *** sr.ReadLine password *** sr.ReadLine If TextBox1.Text *** username And TextBox2.Text *** password Then Me.Hide() F3.Show() found *** True End If Loop If Not found Then MsgBox("اسم المستخدم أو كلمة المرور غير صحيحة", 48, "تنبيه") TextBox1.Clear() TextBox2.Clear() TextBox1.Focus() i *** i + 1 End If If i *** 3 Then Button1.Enabled *** False Timer1.Enabled *** True i *** 0 End If sr.Close( ) أما إذا أخطأ المستخدم فيتم مسح مربعات النص لإعطائه فرصة ثانية وإذا أخطأ ثلاث مرات يتم إقفال زر موافق لمدة ثلاث دقائق ثم يتاح للمستخدم إدخال بياناته مرة أخري --- يتبع

]]> http://www.kawader.edu.sa//articles-action-show-id-1925.htm Sat, 20 Mar 2010 11:53:13 +0300 يمكنك تعيين وحدة القياس الافتراضية (على سبيل المثال، البوصة أو النقاط (نقطة: وحدة قياس تشير إلى ارتفاع الحرف المطبوع. وتساوي النقطة 1/72 من البوصة، أو 1/28 سنتيمتر تقريباً.)) التي يستخدمها Microsoft Word من أجل القياسات التي تدخلها في مربعات الحوار ومن أجل مساطر Word على النحو التالي : 1. في القائمة أدوات، انقر فوق خيارات، ثم فوق علامة التبويب عام. 2. في المربع وحدات القياس، انقر فوق الخيار المطلوب. ملاحظة لتغيير وحدة القياس الافتراضية الموجودة في مربعات الحوار إلى بكسل (بكسل: وحدة قياس مفردة يستخدمها جهاز العرض في الكمبيوتر لرسم الصور على الشاشة. تؤلف هذه الوحدات، والتي غالباً ما تظهر بشكل نقاط صغيرة جداً، الصور المعروضة على الشاشة.)، حدد خانة الاختيار إظهار ميزات HTML بالبكسل. إعداد م / عماد سليم معهد كوادر التنمية فرع الرياض

]]> http://www.kawader.edu.sa//articles-action-show-id-1895.htm Wed, 10 Mar 2010 05:57:09 +0300 كيفية عمل حماية لمجلد أو بارتشن الكثير منا يمتلك بعض المجلدات المهمة على الحاسب الآلي الخاص به ويفضلها أن تكون سرية بمعنى عدم إمكانية الوصول إلى هذه المجلدات ولا يمكن لأى شخص أن يمسح هذه الملفات كذلك عدم إمكانية نسخ هذه المجلدات. الأمر في غاية السهولة ولكن يحتاج إلى بعض التركيز في كيفية إدارة هذه المجلدات لان الأمر سوف يتحول إلى الحماية القصوى على المجلدات (Security) فعلى سبيل المثال يوجد لديك ثلاث مجلدات مهمين بالنسبة إليك ولا تريد من أى شخص أن يستعرض هذه المجلدات إلا سواك فلنبدأ معاً أولا : يجب عليك وضع الثلاث مجلدات داخل مجلد واحد ولا تضعهم على سطح المكتب ولا في القرص المحلى C بشكل عام ولكن توجه إلى أي قرص محلى بخلاف C وليكن القرص المحلى D ثانيا : يفضل وليس بالمهم أن تقوم بأخذ نسخة احتياطية من هذه المجلدات ولتكن موجودة على وسيط تخزين خارجي ولكنك إذا اتقنت معي الخطوات التالية فسيكون لك القدرة على إدارة الحماية على المجلدات بشكل احترافي ولست في حاجة إلى نسخ احتياطية. ثالثا : يجب التأكد من وضع المجلدات داخل قرص محلى على أن يكون النظام (File system) من نوع NTFS المجلد الذي يدعى ((مهم جدا)) يشمل الثلاث مجلدات التي أتحدث عنها رابعا : يجب معرفة اسم المستخدم الحالي للجهاز ويمكنك التعرف عليه عن طريق قائمة ابدأ (start) الآن عرفنا أن اسم المستخدم AHMED وإذا كنت تستخدم قائمة ابدأ التقليدية فما عليك سوى فتح تشغيل(RUN) وفيها تكتب الأمر التالي CMD ثم الضغط على الزر إدخال Enter الآن قد قمت بمعرفة اسم المستخدم على الجهاز لاحظ معي الصورة التالية عند عمل كليك يمين على المجلد (مهم جدا) وإظهار الخصائص فإنه لايوجد الزر الخاص بالحماية وهذه تعتبر أول مشكلة ممكن أن تواجهك ولكن الحل بسيط جدا قم معي بتنفيذ الخطوات التالية والآن ع --- يتبع

]]> http://www.kawader.edu.sa//articles-action-show-id-1763.htm Wed, 27 Jan 2010 06:30:44 +0300 نعرض لكم فيما يلي كيفية التعامل مع خاصية دمج المراسلات في برنامج وورد تعريف الخاصية : عملية دمج المراسلات تنطوي على أخذ معلومات من مستند يسمى مصدر البيانات ودمجها بمستند آخر أولا : من قائمة أدوات نختر رسائل ومراسلات ثم دمج المراسلات ثانيا : في نافذة المهام دمج المراسلات انقر الخيار رسائل ثم انقر التالي : من مستند البدايه في اسفل النافذة . ثالثا : انقر على التالي رابعا : انقر على التالي خامسا : تظهر لنا قائمة تحديد مصدر اليانات ونختار منها المصدر سادسا : ننقر على موافق سابعا : انقر على عناصر اضافيه ثم ضع نقطة الأدراج حيث تحتاج الى ادراج حقول دمج في نص مستندك . ( أي ضع مؤشر الكتابة في المكان الذي تريد ثم حدد الحقل ثم إدراج ) ثامنا: في نافذة المهام دمج المراسلات انقر التالي : معاينة الرسائل تاسعا: التالي : اتمام الدمج عاشرا : ننقر على تحرير رسائل فرديه وبذلك تتم عملية دمج المراسلات بالشكل التالي إعداد أ / شريفة السلامي معهد كوادر التنمية بحلي

]]> http://www.kawader.edu.sa//articles-action-show-id-1762.htm Sat, 23 Jan 2010 06:43:28 +0300 كيف يمكن أنشاء فئة داخل فيجول بيسك دوت نت ؟ أكتب برنامج بلغة فيجول بيسك دوت نت بحيث يقوم المستخدم بادخال الأسم ورقم الطالب والدرجة الفصلية والدرجة النهائية وتقدير الطالب . أولا : نقوم بتصميم النموذج كما هو بالشكل التالي . تمرين على class ثانيا: نقوم بأنشاء الفئة كما هو موضح بالكود التالي ublic Class student Private m_name As String Private m_sid As Double Private m_midterm As Double Private m_final As Double Public Property name() As String Get Return m_name End Get Set(ByVal value As String) m_name *** value End Set End Property Public Property sid() As Double Get Return m_sid End Get Set(ByVal value As Double) m_sid *** value End Set End Property Public Property midterm() As Double Get Return m_midterm End Get Set(ByVal value As Double) m_midterm *** value End Set End Property Public Property final() As Double Get Return m_final End Get Set(ByVal value As Double) m_final *** value End Set End Property Function cal() As String Dim grade As Double grade *** (m_midterm + m_final) / 2 Select Case grade Case Is >*** 90 Return "A" Case Is >*** 80 Return "B" Case Is >*** 70 Return "C" Case Is >*** 60 Return "A" Case Is > --- يتبع

]]> http://www.kawader.edu.sa//articles-action-show-id-1718.htm Wed, 13 Jan 2010 06:01:12 +0300