زيكو دوت نت
عزيزى الزائر اهلا ومرحبا بك
زيكو دوت نت
عزيزى الزائر اهلا ومرحبا بك
زيكو دوت نت
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

زيكو دوت نت

منتدى عام - منتدى زوجتى - لغات البرمجة - اشهار المواقع والمنتدايات -بيع وشراء
 
الرئيسيةالرئيسية  البوابةالبوابة  أحدث الصورأحدث الصور  التسجيلالتسجيل  دخولدخول  
كود بلغة فيجوال بيسك بأسماء الله الحسنى 11775210يسر ادارة المنتدى ان تعلن لكم انه من يريد وضع اعلان بيع او شراء عليه التسجيل بالمنتدى وتسجيل اعلانه
الان يمكنك ان تشهر موقعك او منتداك فقط سجل عضوية بالمنتدى ثم ضيف اعلانك فى القسم المناسب له ( مثل / اعلان عن منتدى يكون فى اشهار المنتدايات والمواقع / اشهار المنتدايات .........)
أحدث مواضيع المنتدى» صمم موقعك باستخدام البرنامج الاحترافي Dreamweaver تعلم فرونت بيج الستوى الثانى / تعلم فرونت بيج الستوى الاول فيديوالجمعة 23 الجزء الثانى من تعلم البرمجة خطوة بخطوة مع agc academyالجزائر/ مصر: انهيار الإنسان لن تعوّضه الكرة! +-----صحيفة يهودية فرنسية تفجر قنبلة و تكشف حقيقة " الفيس بوك " طفل من الجزائر : توحمت أمه على سورة الكهف فنطق بها كاملة لأول مرة
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» الجزء الثانى من تعلم البرمجة خطوة بخطوة مع agc academy
كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالثلاثاء مايو 11, 2010 3:10 pm من طرف الملك

» موقع فرصة للتوظيف
كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالأربعاء أبريل 21, 2010 3:49 pm من طرف الملك

» كيف تصبح قائد مجموعة وتحقق مرتب شهرى يصل الى 3000 جنية مع ماى واى
كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالثلاثاء أبريل 20, 2010 10:16 am من طرف الملك

» كيف تشترك فى ماى واى
كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالثلاثاء أبريل 20, 2010 9:30 am من طرف الملك

» غيرى حياتك مع ماى واى
كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالثلاثاء أبريل 20, 2010 9:22 am من طرف الملك

» قتيل النار
كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالثلاثاء أبريل 06, 2010 3:53 pm من طرف الملك

» حجاب أميركية سبب في إسلام أستاذ جامعي أميركي
كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالثلاثاء أبريل 06, 2010 3:38 pm من طرف الملك

» توبة شاب بعد سماع تلاوة الحرم
كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالثلاثاء أبريل 06, 2010 3:24 pm من طرف الملك

» توبة العابد والمرأة البغي
كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالثلاثاء أبريل 06, 2010 3:20 pm من طرف الملك

ازرار التصفُّح
 البوابة
 الصفحة الرئيسية
 قائمة الاعضاء
 البيانات الشخصية
 س .و .ج
 ابحـث
Sonic Run: Internet Search Engine
التبادل الاعلاني
احداث منتدى مجاني
http://www3.0zz0.com/
احداث منتدى مجاني
http://www.d-esign.yoo7.com/
احداث منتدى مجاني
http://www.3-layali.com/vb/
مايو 2024
الأحدالإثنينالثلاثاءالأربعاءالخميسالجمعةالسبت
   1234
567891011
12131415161718
19202122232425
262728293031 
اليوميةاليومية
google

زيكو دوت نت :: لغات البرمجة :: لغات البرمجة :: فيجوال بيسك
 

 كود بلغة فيجوال بيسك بأسماء الله الحسنى

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


عدد المساهمات : 66
نقاط : 191
السٌّمعَة : 0
تاريخ التسجيل : 26/09/2009
العمر : 45
الموقع : https://zekodotnt.yoo7.com/

كود بلغة فيجوال بيسك بأسماء الله الحسنى Empty
مُساهمةموضوع: كود بلغة فيجوال بيسك بأسماء الله الحسنى   كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالخميس أكتوبر 15, 2009 4:19 pm
الكود:
[code][code][/code][/code]

بسم الله الرحمن الرحيم
كود برمجى بلغة فيجوال بيسك لعمل عداد تنازلى لفتح شاشة البرنامج
بأسماء الله الحسنى

اولا قم بوضع 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



الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://zekodotnt.yoo7.com
كيمو اللذيذ




عدد المساهمات : 6
نقاط : 11
السٌّمعَة : 4
تاريخ التسجيل : 25/10/2009

كود بلغة فيجوال بيسك بأسماء الله الحسنى Empty
مُساهمةموضوع: رد: كود بلغة فيجوال بيسك بأسماء الله الحسنى   كود بلغة فيجوال بيسك بأسماء الله الحسنى I_icon_minitimeالأحد أكتوبر 25, 2009 1:44 pm
كود جميل جدا استمر في الابداع كود بلغة فيجوال بيسك بأسماء الله الحسنى Lol
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كود بلغة فيجوال بيسك بأسماء الله الحسنى
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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