فيجول بيسك
بسم الله الرحمن الرحيم
مرحبا بك عزيزي الزائر. المرجوا منك أن تعرّف بنفسك و تدخل المنتدى معنا. إن لم يكن لديك حساب بعد, نتشرف بدعوتك لإنشائه.


منتدى الفيجول بيسك
 
الرئيسيةالرئيسية  البوابةالبوابة  اليوميةاليومية  س .و .جس .و .ج  بحـثبحـث  الأعضاءالأعضاء  المجموعاتالمجموعات  التسجيلالتسجيل  دخول  

شاطر | 
 

 عرض النجوم على الفورم

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


المساهمات : 26
تاريخ التسجيل : 26/02/2011

مُساهمةموضوع: عرض النجوم على الفورم   الخميس مارس 24, 2011 8:15 am

عرض النجوم على الفورم

افتح فورم جديد ثم اضف الاداة : التايمر Timer اليه.
غير الخاصية interval في Timer إلى 1000
ضع هذا الكود في القسم العام general

الكود:

Dim X(1000), Y(1000), Z(1000) As Integer
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer

ضع الكودا التالي في الفورم في الحدث Activate

الكود:

Speed = 5 
'Speed = -4
K = -2038
Zoom = 128 'or 512 
Timer1.Interval = 1
For i = 0 To 100
X(i) = Int(Rnd * 2048) - 512
Y(i) = Int(Rnd * 1024) - 512
Z(i) = Int(Rnd * 512) - 128
Next i

ضع الكود التالي في الأداة Timer

الكود:

For i = 0 To 100
Circle (tmpX(i), tmpY(i)), 5, BackColor
Z(i) = Z(i)  Speed
If Z(i) > 255 Then Z(i) = -255
If Z(i) < -255 Then Z(i) = 255
tmpZ(i) = Z(i)  Zoom
tmpX(i) = (X(i) * K / tmpZ(i))  (Form1.Width / 2)
tmpY(i) = (Y(i) * K / tmpZ(i))  (Form1.Height / 2)
Radius = 1
StarColor = 256 - Z(i)
Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
Next i

للتحميل السورس كود من هنا:
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://visualbasic.alamontada.com
 
عرض النجوم على الفورم
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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