Untitled 1
 
  القانون والعقود والمناقصات (اخر مشاركة : محمد عبدالحي - عددالردود : 0 - عددالزوار : 3 )           »          الهندسة المدنية والانشائية (اخر مشاركة : محمد عبدالحي - عددالردود : 0 - عددالزوار : 3 )           »          تحليل وتصميم شبكات المياه (اخر مشاركة : محمد عبدالحي - عددالردود : 0 - عددالزوار : 3 )           »          النقل و المرور (اخر مشاركة : محمد عبدالحي - عددالردود : 0 - عددالزوار : 12 )           »          أمن الشبكات وتكنولوجيا المعلومات (اخر مشاركة : محمد عبدالحي - عددالردود : 0 - عددالزوار : 7 )           »          دورة التقارير الدورية لحوكمة الشركات لعام 2018 (اخر مشاركة : محمد عبدالحي - عددالردود : 0 - عددالزوار : 8 )           »          النقل و المرور (اخر مشاركة : محمد عبدالحي - عددالردود : 0 - عددالزوار : 17 )           »          إدارة المخاطر والكوارث (اخر مشاركة : محمد عبدالحي - عددالردود : 0 - عددالزوار : 8 )           »          إدارة الخزينة بين النظرية والتطبيق (اخر مشاركة : محمد عبدالحي - عددالردود : 0 - عددالزوار : 10 )           »          إدارة الأقسام في المرافق و المؤسسات الصحية 2018 (اخر مشاركة : راشد وليد - عددالردود : 0 - عددالزوار : 40 )           »         
 

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

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

إضافة رد
 
أدوات الموضوع
 
غير متصل
 رقم المشاركة : ( 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


الساعة الآن 13:53.


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