[ Visual Basic 6 ] طريــقة تصـميم ادهـ مزعجـه 2 [ فتح السيدي روم كل اربع ثواني ] ~ آززعـآآآج

تم تحميل الصفحة في 0,7151312 ثانية
طريــقة تصـميم ادهـ مزعجـه 2 [ فتح السيدي روم كل اربع ثواني ] ~ آززعـآآآج
إنضم
3 نوفمبر 2007
المشاركات
3,611
الإعجابات
678
النقاط
113
السلام عليكم ورحمة الله وبركاته


كيف الحال ان شاء الله بخيرٍ


اخبـآركم ان شاءالله بخير ~


اليوم خميـس وفالين والديهـآ :29:


والعالم بلشانه من يفوز [ مصر او الجزآئـر ] :15:


أتمنا لهم التوفيق الاثنين ان شاءالله والله وكلنا عرب ,:30:

<~ مسوي محاظره دينيه :15:

المهم توني سويت لكم شرح عمل [ اداهـ 2 مزعجه لفتح السيدي روم كل اربع ثواني ]

اول شـي نضغط من الكيبورد Ctrl + T او نروح لقائمةComponents + project ~

ونـقوم بارداج اداهـ microsoft windows common contrlos

كما في الصـورهـ




الان بعد اضافة الادهـ نلاحظ [ ادراج 9 ادوات في صندوق الادوات ] نخليها كلها بس ناخذ وحدها منها والي هي

هي الاداه الزرقآء

كما في الصـورهـ



نختار هذي الادهـ فقط ونقوم برسمها ,’


كما في الصـورهـ




بعد ادراج هذي الادوات في الفورم ناتي لكتابة الاكواد .,

اولا نقوم بكتابة هذا الكود في الجـنرال

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
كما في الصـورهـ




ولان نكتب هذا الكود في الفورم

ProgressBar1.Max = 10
ProgressBar1.Min = 0
ProgressBar2.Max = 10
ProgressBar2.Min = 0
Timer1.Interval = 1
Timer2.Interval = 1
Timer1.Enabled = True
Timer2.Enabled = False
ProgressBar1.Enabled = True
ProgressBar2.Enabled = True
كما في الصـورهـ



الان نكتب هذا الكود في الـ command

mciSendString "set CDAudio door open", t, 127, 0
كما في الصـورهـ



الان نكتب هذا الكود في Timer1

If Timer1.Enabled = True Then
ProgressBar1.Value = ProgressBar1.Value + 1

If ProgressBar1.Value = 10 Then
ProgressBar1.Value = 0

If ProgressBar1.Value = 0 Then
Timer1.Enabled = False

If Timer1.Enabled = False Then
mciSendString "set CDAudio door open", t, 127, 0
Timer2.Enabled = True

End If

End If

End If

End If
كما في الصـورهـ




ملاحظـه / غير قيمـة Interval ألى رقم 1


كما في الصـورهـ



الان نقوم بكتابة اخر كـٍود , وهو Timer2

If Timer2.Enabled = True Then
ProgressBar2.Value = ProgressBar2.Value + 1

If ProgressBar2.Value = 10 Then
ProgressBar2.Value = 0

If ProgressBar2.Value = 0 Then
Timer2.Enabled = False

If Timer2.Enabled = False Then
mciSendString "set CDAudio door closed", t, 127, 0
Timer1.Enabled = True

End If

End If

End If

End If
كما في الصـورهـ



وبكذا خلاص < شغل البرنامج وشوف وش يصير :29: ] تكره ابو النت


الحين باقي اخر شـي ., وهو اخفاء الفورم عن الضحيه :15:

وهو من خصائص الفورم
كما في الصـورهـ



وسلامتكم ~ لاتنسـونا من صالح دعـآكم ~
 
إنضم
30 أكتوبر 2009
المشاركات
473
الإعجابات
60
النقاط
0
رد: طريــقة تصـميم ادهـ مزعجـه 2 [ فتح السيدي روم كل اربع ثواني ] ~ آززعـآآآج



:

:

هلاآآآ وغلاآآآآ

عبدالله

:

:

يشرفنيـ .. يكونـ .. رديـ الأولـ ...!!

:

:

وشرحـ .. وآآفيـ .. وكآآآفيـ ...!!

بيضـ اللهـ وجهكـ ...!!

:

:

تمـ .. حفظ الصفحهـ ... لعملـ الأداهـ ... لاحقاً ...!!

:

:

ويعيطكـ ... العافيهـ ... على مجهودكـ ...!!

واالمباراهـ .. انتهتـ .. ابشركـ ...

وكانـ الـgد .. لو فازتـ .. مصر ...!!

وانـ شاء الله تبيضـ ... الـgجهـ .. الجزائر ...!!

:

:
:

:

بحفظ الرحمنـ

:

:
 
إنضم
29 أكتوبر 2009
المشاركات
706
الإعجابات
60
النقاط
28
رد: طريــقة تصـميم ادهـ مزعجـه 2 [ فتح السيدي روم كل اربع ثواني ] ~ آززعـآآآج

مبدع عبود وفالين والدي والديها خخخخ مبروك للجزائر:10:


ومبروك عليك التقيم:15:
 
إنضم
29 أكتوبر 2009
المشاركات
706
الإعجابات
60
النقاط
28
رد: طريــقة تصـميم ادهـ مزعجـه 2 [ فتح السيدي روم كل اربع ثواني ] ~ آززعـآآآج

يجب أن تضع للبعض سمعات قبل إعطائها إلى عبدالله الرويلي مرة أخرى.


:30:
 
إنضم
3 نوفمبر 2007
المشاركات
3,611
الإعجابات
678
النقاط
113
رد: طريــقة تصـميم ادهـ مزعجـه 2 [ فتح السيدي روم كل اربع ثواني ] ~ آززعـآآآج



:

:

هلاآآآ وغلاآآآآ

عبدالله

:

:

يشرفنيـ .. يكونـ .. رديـ الأولـ ...!!

:

:

وشرحـ .. وآآفيـ .. وكآآآفيـ ...!!

بيضـ اللهـ وجهكـ ...!!

:

:

تمـ .. حفظ الصفحهـ ... لعملـ الأداهـ ... لاحقاً ...!!

:

:

ويعيطكـ ... العافيهـ ... على مجهودكـ ...!!

واالمباراهـ .. انتهتـ .. ابشركـ ...

وكانـ الـgد .. لو فازتـ .. مصر ...!!

وانـ شاء الله تبيضـ ... الـgجهـ .. الجزائر ...!!

:

:
:

:

بحفظ الرحمنـ

:

:
:28: يـآحلو كلامك :28:

تسلم والله تحرجنا كذأ :15:
حياك فديتك منور الموضوع :32:

مبروك للجزائر


مبدع عبود وفالين والدي والديها خخخخ مبروك للجزائر:10:


ومبروك عليك التقيم:15:
الابداع مرورك :15: فلها وربك يحلها :)
 
إنضم
4 ديسمبر 2008
المشاركات
2,681
الإعجابات
123
النقاط
0
العمر
33
رد: طريــقة تصـميم ادهـ مزعجـه 2 [ فتح السيدي روم كل اربع ثواني ] ~ آززعـآآآج

الله عليك يا كبير
فعلا مبدع يا وحــش
والله زمان عنك يا عبدالله
يا بناخي كفو والله
:29:
 
إنضم
27 يوليو 2008
المشاركات
2,019
الإعجابات
166
النقاط
63
رد: طريــقة تصـميم ادهـ مزعجـه 2 [ فتح السيدي روم كل اربع ثواني ] ~ آززعـآآآج

كفو يالرويلي ..وجاري التجربـه

تستآهل التقيـم يابطـل:13:
 
إنضم
3 نوفمبر 2007
المشاركات
3,611
الإعجابات
678
النقاط
113
رد: طريــقة تصـميم ادهـ مزعجـه 2 [ فتح السيدي روم كل اربع ثواني ] ~ آززعـآآآج

Hello to all of you

منورين الموضوع حبآيبـي والله
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل