لعمل شاشة توقف

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default لعمل شاشة توقف

مُساهمة من طرف Admin في الخميس أكتوبر 19, 2006 11:32 pm

' لعمل شاشة توقف
'في البداية اضف الى البرنامج تايمر
'ثم اضف الكود التالي
' واجعل خاصية الفورم
'BorderStyle = 0
Public s As Integer
Public x1, y1 As Single
Public S1 As Boolean
Private Sub Form_KeyPress(KeyAscii As Integer)
' هذا لإيقاف تشغيل البرنامج عند الضغط على عي زر
End
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
Me.WindowState = 2

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'هذا للـأكد من انك قمت بتحريك الماوس ومن ثم ايقاف تشغيل البرنامج
If S1 = fale Then
x1 = X
y1 = Y
S1 = True
End If
If X <> x1 Or Y <> y1 Then
End
End If
End Sub

Private Sub Timer1_Timer()
' هذا الكود لعمل رسمه ملونة من الدوائر على الشاشة
If s = 1 Then
For j = 1 To 1000
Circle (6000, 4000), j * 19, 250
Next j
For j = 1 To 1000
Circle (6000, 4000), j * 20, 0
Next j
s = 0
Else
For j = 1 To 1000
Circle (6000, 4000), j * 20, 25000
Next j
For j = 1 To 1000
Circle (6000, 4000), j * 19, 0
Next j
s = 1
End If
End Sub


عدل سابقا من قبل في الخميس أغسطس 16, 2007 10:41 am عدل 1 مرات

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709

Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default شكر

مُساهمة من طرف العـطوي في الثلاثاء نوفمبر 14, 2006 9:18 pm

شكرا جزيلا لك يا جاد القرعان

العـطوي
عضو متميز
عضو متميز

عدد الرسائل : 43
تاريخ التسجيل : 06/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لعمل شاشة توقف

مُساهمة من طرف UAE_Student في الأربعاء نوفمبر 15, 2006 5:27 pm

مشكور اخوي جاد

UAE_Student
عضو
عضو

عدد الرسائل : 3
تاريخ التسجيل : 13/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لعمل شاشة توقف

مُساهمة من طرف الدكتوره في الجمعة نوفمبر 24, 2006 12:28 am

اخي الكريم / جاد ..........!!!

اشكرك جزيل الشكر على هذا الكود ...
واعتقد والله اعلم انه بالامكان ان نضع ( معرض صور )
باختيار الصور التي نريد .. ونجعلها تنقلب
صفحة خلف الاخرى .........................!!!!
ولكن لااعلم هل تعمل مع شاشه التوقف .. ولكنها مجرد فكره
لشاشات توقف متنوعه اكثر ..!!

اشكرك اخي جزيل الشكر
الدكتورة

الدكتوره
عضو نشط
عضو نشط

عدد الرسائل : 19
تاريخ التسجيل : 23/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لعمل شاشة توقف

مُساهمة من طرف Admin في الجمعة نوفمبر 24, 2006 8:34 pm

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

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709

Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لعمل شاشة توقف

مُساهمة من طرف الدكتوره في الأحد نوفمبر 26, 2006 9:37 am

::.:: الف شكر لك اخي الفاضل ::.::


دكتورة

الدكتوره
عضو نشط
عضو نشط

عدد الرسائل : 19
تاريخ التسجيل : 23/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لعمل شاشة توقف

مُساهمة من طرف سما في الأربعاء أغسطس 15, 2007 4:39 pm

مشكور الله يعطيك الف عافية واتمنى لك مزيد من التقدم

سما
عضو نشط
عضو نشط

عدد الرسائل : 12
تاريخ التسجيل : 15/08/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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