بسم الله الرحمن الرحيم
كود برمجى بلغة فيجوال بيسك لعمل عداد تنازلى لفتح شاشة البرنامج
بأسماء الله الحسنى
اولا قم بوضع label
ثانيا: قم بوضع تايمر
ثالثا افتح شاشة الاكواد بالضغط على التايمر دبل كليك
رابعا ضع هذا الكود
Private Sub Timer1_Timer()
If Label1.Caption = "لله الاسماء الحسنى فادعوه بها" Then
Label1.Caption = "هو الله"
Exit Sub
End If
If Label1.Caption = "هو الله" Then
Label1.Caption = "الرحمن"
Exit Sub
End If
If Label1.Caption = "الرحمن" Then
Label1.Caption = "الرحيم"
Exit Sub
End If
If Label1.Caption = "الرحيم" Then
Label1.Caption = "الملك"
Exit Sub
End If
If Label1.Caption = "الملك" Then
Label1.Caption = "القدوس"
Exit Sub
End If
If Label1.Caption = "القدوس" Then
Label1.Caption = "السلام"
Exit Sub
End If
If Label1.Caption = "السلام" Then
Label1.Caption = "المؤمن"
Exit Sub
End If
If Label1.Caption = "المؤمن" Then
Label1.Caption = "المهيمن"
Exit Sub
End If
If Label1.Caption = "المهيمن" Then
Label1.Caption = "العزيز"
Exit Sub
End If
If Label1.Caption = "العزيز" Then
Label1.Caption = "الجبار"
Exit Sub
End If
If Label1.Caption = "الجبار" Then
Label1.Caption = "المتكبر"
Exit Sub
End If
If Label1.Caption = "المتكبر" Then
Label1.Caption = "الخالق"
Exit Sub
End If
If Label1.Caption = "الخالق" Then
Label1.Caption = "البارئ"
Exit Sub
End If
If Label1.Caption = "البارئ" Then
Label1.Caption = "المصور"
Exit Sub
End If
If Label1.Caption = "المصور" Then
Label1.Caption = "الغفار"
Exit Sub
End If
If Label1.Caption = "الغفار" Then
Label1.Caption = "القهار"
Exit Sub
End If
If Label1.Caption = "القهار" Then
Label1.Caption = "الوهاب"
Exit Sub
End If
If Label1.Caption = "الوهاب" Then
Label1.Caption = "الرزاق"
Exit Sub
End If
If Label1.Caption = "الرزاق" Then
Label1.Caption = "الفتاح"
Exit Sub
End If
If Label1.Caption = "الفتاح" Then
Label1.Caption = "العليم"
Exit Sub
End If
If Label1.Caption = "العليم" Then
Label1.Caption = "القابض"
Exit Sub
End If
If Label1.Caption = "القابض" Then
Label1.Caption = "الباسط"
Exit Sub
End If
If Label1.Caption = "الباسط" Then
Label1.Caption = "الخافض"
Exit Sub
End If
If Label1.Caption = "الخافض" Then
Label1.Caption = "الرافع"
Exit Sub
End If
If Label1.Caption = "الرافع" Then
Label1.Caption = "المعز"
Exit Sub
End If
If Label1.Caption = "المعز" Then
Label1.Caption = "المذل"
Exit Sub
End If
If Label1.Caption = "المذل" Then
Label1.Caption = "السميع"
Exit Sub
End If
If Label1.Caption = "السميع" Then
Label1.Caption = "البصير"
Exit Sub
End If
If Label1.Caption = "البصير" Then
Label1.Caption = "الحكم"
Exit Sub
End If
If Label1.Caption = "الحكم" Then
Label1.Caption = "العدل"
Exit Sub
End If
If Label1.Caption = "العدل" Then
Label1.Caption = "اللطيف"
Exit Sub
End If
If Label1.Caption = "اللطيف" Then
Label1.Caption = "الخبير"
Exit Sub
End If
If Label1.Caption = "الخبير" Then
Label1.Caption = "الحليم"
Exit Sub
End If
If Label1.Caption = "الحليم" Then
Label1.Caption = "العظيم"
Exit Sub
End If
If Label1.Caption = "العظيم" Then
Label1.Caption = "الغفور"
Exit Sub
End If
If Label1.Caption = "الغفور" Then
Label1.Caption = "الشكور"
Exit Sub
End If
If Label1.Caption = "الشكور" Then
Label1.Caption = "العلى"
Exit Sub
End If
If Label1.Caption = "العلى" Then
Label1.Caption = "الكبير"
Exit Sub
End If
If Label1.Caption = "الكبير" Then
Label1.Caption = "الحفيظ"
Exit Sub
End If
If Label1.Caption = "الحفيظ" Then
Label1.Caption = "المقيت"
Exit Sub
End If
If Label1.Caption = "المقيت" Then
Label1.Caption = "الحسيب"
Exit Sub
End If
If Label1.Caption = "الحسيب" Then
Label1.Caption = "الجليل"
Exit Sub
End If
If Label1.Caption = "الجليل" Then
Label1.Caption = "الكريم"
Exit Sub
End If
If Label1.Caption = "الكريم" Then
Label1.Caption = "الرقيب"
Exit Sub
End If
If Label1.Caption = "الرقيب" Then
Label1.Caption = "المجيب"
Exit Sub
End If
If Label1.Caption = "المجيب" Then
Label1.Caption = "الواسع"
Exit Sub
End If
If Label1.Caption = "الواسع" Then
Label1.Caption = "الحكيم"
Exit Sub
End If
If Label1.Caption = "الحكيم" Then
Label1.Caption = "الودود"
Exit Sub
End If
If Label1.Caption = "الودود" Then
Label1.Caption = "المجيد"
Exit Sub
End If
If Label1.Caption = "المجيد" Then
Label1.Caption = "الباعث"
Exit Sub
End If
If Label1.Caption = "الباعث" Then
Label1.Caption = "الشهيد"
Exit Sub
End If
If Label1.Caption = "الشهيد" Then
Label1.Caption = "الحق"
Exit Sub
End If
If Label1.Caption = "الحق" Then
Label1.Caption = "الوكيل"
Exit Sub
End If
If Label1.Caption = "الوكيل" Then
Label1.Caption = "القوى"
Exit Sub
End If
If Label1.Caption = "القوى" Then
Label1.Caption = "المتين"
Exit Sub
End If
If Label1.Caption = "المتين" Then
Label1.Caption = "الولى"
Exit Sub
End If
If Label1.Caption = "الولى" Then
Label1.Caption = "الحميد"
Exit Sub
End If
If Label1.Caption = "الحميد" Then
Label1.Caption = "المحصى"
Exit Sub
End If
If Label1.Caption = "المحصى" Then
Label1.Caption = "المبدئ"
Exit Sub
End If
If Label1.Caption = "المبدئ" Then
Label1.Caption = "المعيد"
Exit Sub
End If
If Label1.Caption = "المعيد" Then
Label1.Caption = "المحى"
Exit Sub
End If
If Label1.Caption = "المحى" Then
Label1.Caption = "المميت"
Exit Sub
End If
If Label1.Caption = "المميت" Then
Label1.Caption = "الحى"
Exit Sub
End If
If Label1.Caption = "الحى" Then
Label1.Caption = "القيوم"
Exit Sub
End If
If Label1.Caption = "القيوم" Then
Label1.Caption = "الواجد"
Exit Sub
End If
If Label1.Caption = "الواجد" Then
Label1.Caption = "الماجد"
Exit Sub
End If
If Label1.Caption = "الماجد" Then
Label1.Caption = "الواحد"
Exit Sub
End If
If Label1.Caption = "الواحد" Then
Label1.Caption = "الأحد"
Exit Sub
End If
If Label1.Caption = "الأحد" Then
Label1.Caption = "القادر"
Exit Sub
End If
If Label1.Caption = "القادر" Then
Label1.Caption = "المقتدر"
Exit Sub
End If
If Label1.Caption = "المقتدر" Then
Label1.Caption = "المقدم"
Exit Sub
End If
If Label1.Caption = "المقدم" Then
Label1.Caption = "المؤخر"
Exit Sub
End If
If Label1.Caption = "المؤخر" Then
Label1.Caption = "الأول"
Exit Sub
End If
If Label1.Caption = "الأول" Then
Label1.Caption = "الأخر"
Exit Sub
End If
If Label1.Caption = "الأخر" Then
Label1.Caption = "الباطن"
Exit Sub
End If
If Label1.Caption = "الباطن" Then
Label1.Caption = "الوالى"
Exit Sub
End If
If Label1.Caption = "الوالى" Then
Label1.Caption = "المتعالى"
Exit Sub
End If
If Label1.Caption = "المتعالى" Then
Label1.Caption = "البر"
Exit Sub
End If
If Label1.Caption = "البر" Then
Label1.Caption = "التواب"
Exit Sub
End If
If Label1.Caption = "التواب" Then
Label1.Caption = "المنتقم"
Exit Sub
End If
If Label1.Caption = "المنتقم" Then
Label1.Caption = "العفو"
Exit Sub
End If
If Label1.Caption = "العفو" Then
Label1.Caption = "الرؤوف"
Exit Sub
End If
If Label1.Caption = "الرؤوف" Then
Label1.Caption = "مالك الملك"
Exit Sub
End If
If Label1.Caption = "مالك الملك" Then
Label1.Caption = "ذو الجلال والإكرام"
Exit Sub
End If
If Label1.Caption = "ذو الجلال والإكرام" Then
Label1.Caption = "المقسط"
Exit Sub
End If
If Label1.Caption = "المقسط" Then
Label1.Caption = "الجامع"
Exit Sub
End If
If Label1.Caption = "الجامع" Then
Label1.Caption = "الغنى"
Exit Sub
End If
If Label1.Caption = "الغنى" Then
Label1.Caption = "المغنى"
Exit Sub
End If
If Label1.Caption = "المغنى" Then
Label1.Caption = "المانع"
Exit Sub
End If
If Label1.Caption = "المانع" Then
Label1.Caption = "الضار"
Exit Sub
End If
If Label1.Caption = "الضار" Then
Label1.Caption = "النافع"
Exit Sub
End If
If Label1.Caption = "النافع" Then
Label1.Caption = "النور"
Exit Sub
End If
If Label1.Caption = "النور" Then
Label1.Caption = "الهادى"
Exit Sub
End If
If Label1.Caption = "الهادى" Then
Label1.Caption = "البديع"
Exit Sub
End If
If Label1.Caption = "البديع" Then
Label1.Caption = "الباقى"
Exit Sub
End If
If Label1.Caption = "الباقى" Then
Label1.Caption = "الوارث"
Exit Sub
End If
If Label1.Caption = "الوارث" Then
Label1.Caption = "الرشيد"
Exit Sub
End If
If Label1.Caption = "الرشيد" Then
Label1.Caption = "الصبور"
Exit Sub
End If
If Label1.Caption = "الصبور" Then
Unload Me
Form1.Show
End If
End Sub