Untitled 1
 
  تريد فيو (اخر مشاركة : ارينسن - عددالردود : 0 - عددالزوار : 350 )           »          كيفية شراء الاسهم الامريكية الحلال (اخر مشاركة : ارينسن - عددالردود : 0 - عددالزوار : 452 )           »          افضل شركة توزع أرباح في السوق السعودي (اخر مشاركة : ارينسن - عددالردود : 0 - عددالزوار : 587 )           »          حساب سعر الصرف (اخر مشاركة : ارينسن - عددالردود : 0 - عددالزوار : 795 )           »          قصيدة رثاء في حمد الحضبي السبيعي (اخر مشاركة : عبدالله الحضبي - عددالردود : 0 - عددالزوار : 683 )           »          قمصان نوم تركي (اخر مشاركة : ارينسن - عددالردود : 0 - عددالزوار : 598 )           »          فستان مناسبات (اخر مشاركة : ارينسن - عددالردود : 0 - عددالزوار : 610 )           »          جلابيات مغربية (اخر مشاركة : ارينسن - عددالردود : 0 - عددالزوار : 629 )           »          ايشارب حرير (اخر مشاركة : ارينسن - عددالردود : 0 - عددالزوار : 543 )           »          رسوم الحساب الاستثماري في تداول الراجحي (اخر مشاركة : ارينسن - عددالردود : 0 - عددالزوار : 954 )           »         
 

 
العودة   منتديات سبيع الغلباء > الـمـنـتـديـات الـتـعـلـيـمـيـة > البرامج المجانية والكمبيوتر
 

البرامج المجانية والكمبيوتر جميع مايتعلق بالبرامج والكمبيوتر والانترنت المجانية ولا يسمح بوضع وصلات تحميل من مواقع غير مركز تحميل شبكة سبيع الغلباء فقط يمنع وضع كراكات أو برامج مضروبة


اصنع ساعه فی برامج ویژوال بیسیک 6 - اخیکم فاضل من ایران

جميع مايتعلق بالبرامج والكمبيوتر والانترنت المجانية ولا يسمح بوضع وصلات تحميل من مواقع غير مركز تحميل شبكة سبيع الغلباء فقط يمنع وضع كراكات أو برامج مضروبة


إضافة رد
 
أدوات الموضوع
 
غير متصل
 رقم المشاركة : ( 1 )
فاضل
عضو
رقم العضوية : 50546
تاريخ التسجيل : 22 - 06 - 2012
الدولة : ذكر
العمر : 43
الجنس :
مكان الإقامة : iran
عدد المشاركات : 12 [+]
آخر تواجد : [+]
عدد النقاط : 10
قوة الترشيح : فاضل is on a distinguished road
الأوسمـة
بيانات الإتصال
آخر المواضيع

التوقيت
Lightbulb اصنع ساعه فی برامج ویژوال بیسیک 6 - اخیکم فاضل من ایران

كُتب : [ 29 - 07 - 2012 ]

اول افتح برامج ویژوال بیسیک 6
من تنفتح صفحه new project انتخب standard exe بعد زر علی open
بعد حدد timer1 من لوحه الویژوال بیسیک 6
بعد اخذ من هذا الموضوع کپی و انتقله فی ماژول الصفه form1
وبعد امتحن البرامج تعطیک ساعه ممیزه انت هم تگدر تغیر الموضوع ابکیفک و تصنع ساعه احسن من هذا

Private Sub Form_Load()
Me.BackColor = vbBlack
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Form1.Refresh
X = Form1.Width / 2
Y = Form1.Height / 2.2
Circle (X, Y), Y - 200, vbWhite
Circle (X, Y), Y - 220, vbWhite
For i = 1 To 12
Circle (X + (Y - 400) * Cos(i * 22 / 42), Y + (Y - 400) * Sin(i * 22 / 42)), 50, vbRed
Next
h = Hour(Time())
If h > 12 Then
h = h - 12
End If
m = Minute(Time())
s = Second(Time())
Line (X, Y)-(X + (Y - 600) * Cos((66 / 14 + s * (44 / 420))), Y + (Y - 600) * Sin((66 / 14 + s * (44 / 420)))), vbBlue
Line (X, Y)-(X + (Y - 800) * Cos((66 / 14 + m * (44 / 420))), Y + (Y - 800) * Sin((66 / 14 + m * (44 / 420)))), vbYellow
Line (X, Y)-(X + (Y - 1200) * Cos(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420)), Y + (Y - 1200) * Sin(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420))), vbWhite
End Sub

وسلام علیکم
اخیکم فاضل من ایران


رد مع اقتباس
 
إضافة رد

الكلمات الدلالية (Tags)
ساعه


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
عرض جمیع الفایل الخفیات فی حاسوبک - اخیکم فاضل من ایران فاضل البرامج المجانية والكمبيوتر 0 21 - 07 - 2012 10:20
احذف الفیروس exe.* و AUTORUN.inf من ذاکره فلاش میموری الشخصی - اخیکم فاضل من ایران فاضل البرامج المجانية والكمبيوتر 0 21 - 07 - 2012 10:02
اکتب ساب تایتل علا الفیلم بدون برامج میکس -اخیکم فاضل من ایران فاضل البرامج المجانية والكمبيوتر 0 20 - 07 - 2012 09:26


الساعة الآن 22:52.


Powered by vBulletin® Version 3.8.11, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. www.sobe3.com
جميع المشاركات تعبر عن وجهة كاتبها ،، ولا تتحمل ادارة شبكة سبيع الغلباء أدنى مسئولية تجاهها