اليوم في هذا الدرس البسيط سوف أعلمكم أولا كيفية تشغيل شاشة افتتاحه لبرنامجك تعمل لمدة معينة ثم تختفي بعدها شاشة تعمل لأول مره فقط يعمل فيها برنامجك سوف أحاول قدر الإمكان أن اجعل هذا الشرح بسيط أولا نقوم بفتح برنامج فيجوال بيسك كما هي العادة ونقوم باختيار مشروع قياسي stander.exe
بعد ذلك نقوم بعمل الشاشة الافتتاحية كان نضيف ليبل ونكتب مثلا جملة معينة بعد ذلك نقوم بإضافة أداة التايمر ونقوم بإنشاء واجهة جديدة ونكتب الكود الأتي في حدث التايمر
Private Sub Timer1_Timer()
Static T As Integer
If T = 3 Then
Unload Me
Form2.Show
Else
T = T + 1
End If
End Sub
Static T As Integer
If T = 3 Then
Unload Me
Form2.Show
Else
T = T + 1
End If
End Sub
شرح الكود السابق
في السطر الأول قمنا بالتعريف عن متغير النوع Integer بطريقة التعريف عن طريق الأمر Static للاحتفاظ بقيمة المتغير حتى نهاية البرنامج بعدها وفي السطر الثاني استخدمنا جملة التحقق من قيمة المتغير فإذا كانت = القيمة التي حددنها وهي عدد الثواني التي سوف ينتظرها المستخدم ( على اعتبار إننا سوف نقوم بضبط التايمر لينفذ الحدث بعد كل ثانيه ) بعد ذلك في حال تحقق الشرط يقوم البرنامج بغلق النافذة التي تعمل وهي النافذة الافتتاحية بعدها تشغيل النافذة الثانية وعلى اعتبار ابنها نافذة البرنامج الرئيسية إما في حال عدم تحقق الشرط فيقوم البرنامج بزيادة قيمة المتغير ثم نهاية جملة التحقق ونهاية الحدث بقى كود واحد يجب إضافته وهو
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Timer1.Interval = 1000
End Sub
كود بسيط لضبط سرعة التايمر
ألان انتهينا من كيفية عمل شاشة افتتاحيه وقمت بشرح الاكواد بقى علي إن أعلمك كيفية جعلها تعمل لمرة واحدة الفكرة ببساطة هي أن نحفظ قيمة في الريجستري عند عمل البرنامج وأول ما تشغل البرنامج نتحقق من وجود هذه القيمة فإذا كانت موجودة يشتغل
البرنامج من دون الشاشة وإذا لم تكن موجودة نقوم بوضعها مع فتح شاشة الترحيب الكود يكون كالأتي
Private Sub Form_Load()
Dim X As String
X = GetSetting("Name", "Name", "Name")
If X = "" Then
Timer1.Interval = 1000
SaveSetting "Name", "Name", "Name", "Value"
Else
Unload Me
Form2.Show
End If
End Sub
Dim X As String
X = GetSetting("Name", "Name", "Name")
If X = "" Then
Timer1.Interval = 1000
SaveSetting "Name", "Name", "Name", "Value"
Else
Unload Me
Form2.Show
End If
End Sub
في السطر الأول قمنا بالتعريف عن متغير من اجل إن نسند القيمة التي سوف نسترجعها من الريجستري له بعد ذلك قمنا بإعطاء القيمة للمتغير وجلبها من الريجستري بهد تحديد الجذر والقسم والمفتاح ثم التحقق من القيمة إذا كانت فارغة يقوم البرنامج بتحديد التايمر وبعدها خزن القيمة حتى لا يتم فتح المربع مره ثانيه إما في حال كانت هنالك قيمة إي تم فتح البرنامج سابقا يقوم البرنامج فورا بفتح الواجهة الرئيسية وإغلاق شاشة الترحيب
0 التعليقات:
إرسال تعليق
ما هو رايكم فى المدونة ؟ او يتم الاقتراح لاضافة اشياء اخرى ؟