Untitled 1
 
  عقود الفيديك (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 8 )           »          عقود الفيديك (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 15 )           »          عقود الشراكة بين القطاعين العام والخاص، وعقود الامتياز والبوت (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 10 )           »          عقود الشراكة بين القطاعين العام والخاص، وعقود الامتياز والبوت (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 12 )           »          مدير العقود المعتمد CCM (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 7 )           »          مدير العقود المعتمد CCM (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 10 )           »          الاتجاهات الحديثة في نظم التأمينات الاجتماعية والتقاعد والمعاشات (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 8 )           »          الاتجاهات الحديثة في نظم التأمينات الاجتماعية والتقاعد والمعاشات (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 12 )           »          سلطة القاضي الجزائي في تقدير الأدلة (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 10 )           »          سلطة القاضي الجزائي في تقدير الأدلة (اخر مشاركة : محمد عماد صبره - عددالردود : 0 - عددالزوار : 11 )           »         
 

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

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

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

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

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

اول افتح برامج ویژوال بیسیک 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


الساعة الآن 23:50.


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