المنتدي التعليمي والترفيهي
الدرس السابع: تصميم شاشة NEW USER 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا الدرس السابع: تصميم شاشة NEW USER 829894
ادارة المنتدي الدرس السابع: تصميم شاشة NEW USER 103798
المنتدي التعليمي والترفيهي
الدرس السابع: تصميم شاشة NEW USER 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا الدرس السابع: تصميم شاشة NEW USER 829894
ادارة المنتدي الدرس السابع: تصميم شاشة NEW USER 103798
المنتدي التعليمي والترفيهي
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


منتدي تعليمي ترفيهي ثقافي اجتماعي
 
الرئيسيةالبوابةأحدث الصورالتسجيلدخول
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» نكات مساطيل
الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالثلاثاء يناير 24, 2012 4:12 pm من طرف فاطمة عبدالله بابكر

» تفضل هنا عزيزي الزائر
الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالسبت أغسطس 27, 2011 4:39 pm من طرف bee55

» يلا نبني مصر بجد
الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالسبت أغسطس 27, 2011 4:38 pm من طرف bee55

» مصر تنادي هل من مجيب معاً لبناء مصر
الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالجمعة يوليو 01, 2011 10:00 am من طرف hobaaa2010

» فرصة عظيمة لشباب مصر منحة مجانية لتعلم اللغة الانجليزية
الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالثلاثاء يناير 18, 2011 1:51 am من طرف bee55

» فلم دارفور [you]
الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالجمعة ديسمبر 17, 2010 12:06 pm من طرف bee55

» ثنائي الوصلة – الدايود - Diod
الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالثلاثاء ديسمبر 14, 2010 12:00 pm من طرف bee55

» سجل حضورك بالصلاة علي النبي
الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالأحد ديسمبر 12, 2010 10:52 am من طرف bee55

» ازاعة القرآن الكريم
الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالأحد ديسمبر 12, 2010 8:15 am من طرف bee55

ازرار التصفُّح
 البوابة
 الصفحة الرئيسية
 قائمة الاعضاء
 البيانات الشخصية
 س .و .ج
 بحـث

 

 الدرس السابع: تصميم شاشة NEW USER

اذهب الى الأسفل 
كاتب الموضوعرسالة
bee55
صول
bee55


عدد المساهمات : 110
نقاط : 5437
التقييم : 8
تاريخ التسجيل : 02/05/2010
العمر : 32

الدرس السابع: تصميم شاشة NEW USER Empty
مُساهمةموضوع: الدرس السابع: تصميم شاشة NEW USER   الدرس السابع: تصميم شاشة NEW USER I_icon_minitimeالجمعة أكتوبر 22, 2010 9:50 am

بسم الله الرحمن الرحيم .
السلام عليكم ورحمة الله وبركاته
تصميم شاشة
New User

في هذه الشاشة سوف نلغي خاصيتي التكبير والتصغير من الفورم عن طريق ضبط خاصية BorderStyle للفورم بحيث تصبح = 1 .
أيضاً سيعد ضغط زر X بمثابة اغلاق البرنامج ، لذلك لا بد من كتابة ذلك في حدث Unload للفورم بالشكل التالي :


Private Sub Form_Unload(Cancel As Integer)
End
End Sub

والآن صمم الشاشة كما يحلو لك ، مع وجود خمسة مربعات ادخال للاسم - كلمة المرور - اسم المحل - التلفون - العنوان ، وزرين لالغاء الامر وللاستمرار .
لا تنس أن تعدل خاصية Caption للفورم بحيث تصبح ( تسجيل مستخدم جديد ) أو ما شابه ، لن يكون سيئاً أن تكتب التاريخ أيضاً .
لكتابة التاريخ في خاصية Caption للفورم اكتب الأمر التالي في حدث Form_Load :

Me.Caption


= " تسجيل مستخدم جديد " & DateTime.Date

كذلك اضبط خاصية RightToLeft بحيث تساوي True ، وذلك كما أسلفنا عند الحديث عن تصميم البرمجيات العربية .


ملاحظات سريعة :
* لا تنس أنه لكي تنشأ مربع نص خاص بكتابة كلمة السر اضبط خاصية


PasswordChar إلى الحرف الذي تريد له أن يظهر بدل كلمة السر - غالباً * - .
* لا تنس أيضاً أنه لكي تنشأ حقل لكتابة ملاحظات ( حقل


More بالنسبة إلينا ) فلا بد من ضبط خاصية MultiLine بحيث تصبح True وذلك لنستطيع الكتابة على أكثر من سطر .
* أيضاً يمكنك التحكم في ظهور أشرطة التمرير من عدمها من خلال خاصية


ScrollBars


نعود الآن لحدث التحميل لهذا الفورم ، فاضافة لتغيير خاصية Caption للفورم وقت التنفيذ ، فإبمكاننا أيضاً وضع اسم مستخدم الجهاز ( افتراضياً ) في خانة ( اسم المستخدم ) .
نقوم بذلك بالشكل التالي :


أولاً . استدعي دالة

GetComputerNameA من مكتبة kernel32 في الموديول بالشكل التالي :

[right]Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

أو تستطيع تعريفها في الفورم بالشكل التالي :


Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long


لكننا عرفناها في الموديول لأننا قد نحتاج إليها لاحقاً في أماكن أخرى .
وهذا الدالة أحد دوال API في الويندوز والتي تعطينا اسم المستخدم المسجل في جهاز الكومبيوتر .

ثانياً : الآن ضع الأمر التالي في حدث


Form_Load :


[right]Dim A As String * 256
Dim X
X = GetComputerName(A, 256)
Text1.Text = Left(A, InStr(A, Chr(0)) - 1)

نعود مرة أخرى ، وكما ذكرنا أن ضغط زر ( الغاء الأمر ) يعني الخروج من البرنامج ، لذلك سنكتب End في الحدث الخاص بها .
لكن ماذا عن ضغط زر موافق ؟ سنقوم بمهمتين :

* المهمة الأولى التأكد من المدخلات .
* المهمة الثانية هي اضافة المدخلات في حالة كانت صحيحة


وبما أن الغرض من هذه الدروس التعليم ، وبناء على طلب الإخوة من أعضاء vb4arab سوف نقوم بعمل دالة نمرر لها قيم الحقول الخمسة ، وتعيد -1 في حالة وجود أي خطأ - لتعلم أسلوب الدوال في فيجوال بيسك - .

لن أتوسع في شرح أنواع الارسال - وفي حالة وجود وقت سوف أشرح الامر في درس منفصل ولكن لاحقاً - لكننا سنكتب صيغة هذه الدالة :

* لاحظ أنها دالة Function ( لانها تعيد قيمة ) وليست اجراء Sub أو Prcedure .


Private Function Check(A, B, C, D, E)

End Function

حيث أن كل حرف يمثل أحد قيم مربعات النص .
*** طبعاً المفروض تسميها اسماء واضحة في برامجك الجدية علشان متتوهش وسط الكود

المهمة الأولى هي التأكد من وجود الاسم ، كلمة المرور ، كون كلمة المرور بين 3 و 12 حرف . وفي حالة وجود أي خطأ سوف أعيد القيمة - 1 .
ونعيد القيمة من الدالة بمعنى أن نجعل اسم الدالة = القيمة التي نرغب باعادتها .
سنكتب الكود للمهمة الأولى والذي سيكون بالشكل التالي :

If A = "" Then
MsgBox "لا بد من ادخال اسم المستخدم", vbExclamation, "تسجيل مستخدم جديد"
Check = -1
Exit Function
ElseIf B = "لا بد من ادخال كلمة المرور" Then
MsgBox "", vbExclamation, "تسجيل مستخدم جديد"
Check = -1
Exit Function
ElseIf Len(B) < 3 Or Len(B) > 12 Then
MsgBox "لا بد أن تكون كلمة المرور بين 3 و 12 حرف", vbExclamation, "تسجيل مستخدم جديد"
Check = -1
Exit Function
Else
Check = 1
End If


المهمة الثانية هي وضع قيم افتراضية للحقول المتبقية في حالة لم يقم المستخدم بادخالها ، وذلك بالشكل التالي :


If C = "" Then
Text3.Text = "برنامج البائع الذكي"
End If

If D = "" Then
Text4.Text = "0"
End If

If E = "" Then
Text5.Text = "البرنامج من تصميم منتدى فيجوال بيسك للعرب"
Text5.Text = Text5.Text & vbNewLine & "بامكانك زيارة الموقع على هذا الرابط "
Text5.Text = Text5.Text & vbNewLine & "أو مراسلة صاحب البرنامج على هذه البريد الإلكتروني Hammada2091@Hotmail.com"
End If

* تذكر أن


VbNewLine مع TextBox أو Chr(13) عموماً تنقلنا لسطر جديد ، حيث أن رقم 13 يقابل زر Enter في جدول آسكي Ascii .

نعود الآن إلى تصميم زر موافق ، وسنبدأ باستدعاء الدالة ووضع القيمة التي ترجعها في متغير :


Dim Y As Integer
Y = Check(Text1.Text, Text2.Text, Text3.Text, Text4.Text, Text5.Text)

إذا وجدنا أن قيمة Y هي -1 فإننا نخرج ، وإلا فإننا سوف نضيف المستخدم وذلك باستدعاء ( الإجراء هذه المرة ) Add_User .


If Y = -1 Then Exit Sub
Add_User


والآن سوف نقوم ببرمجة الإجراء Add_User والذي سيحتوي على فتح جدول المستخدمين في البداية بالشكل التالي :


Set T4 = D1.OpenRecordset("Tb_User", dbOpenTable)

ثم نبدأ باضافة سجل جديد بالشكل التالي :


T4.AddNew

ومن ثم نبدأ باسناد القيم المختلفة للحقول بالشكل التالي :


T4!User_Name = Text1.Text
T4!PassWord = Text2.Text
T4!Name = Text3.Text
T4!Telephone = Text4.Text
T4!More = Text5.Text


ومن ثم نقوم بحفظ السجل .


T4.Update

ثم نقوم بنفس العمليات التي تحدث عند وجود قاعدة بيانات ، فنضع القيم المختلفة للقاعدة في المصفوفة ، ونغلق قاعدة البيانات .


Info(0) = T4!User_Name
Info(1) = T4!PassWord
Info(2) = T4!Name
Info(3) = T4!Telephone
Info(4) = T4!More

T4.Close
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://learn.ahladalil.com
 
الدرس السابع: تصميم شاشة NEW USER
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» الدرس السادس: تصميم شاشة about me
» الدرس الثامن: تصميم شاشة تسجيل الدحول
» الدرس العاشر: شاشة عرض البضائع
» الدرس الاول لتعلم فجوال بيسك دوت نت
» الدرس الاول: مدخل تحليل النظم

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
المنتدي التعليمي والترفيهي :: علوم الحاسوب :: البرمجة-
انتقل الى: