• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'visaul basic'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 12 نتيجة

  1. فضل الله أنا مبرمج و محلل قواعد البيانات أكسس للعمل عن بعد و حسب الطلب في برمجة قواعد البيانات الخاصة بالشركات و المؤسسات و المحلات التجارية والصناعية والخدمية ايضا و بامكاني العمل مع اية مؤسسة او شركة او فريق عمل عن بعد او اعداد دورات تاهيل للموظفين  هذا فضلا عن خبرتي المالية لاكثر من 22 عاما مما جعلني مميزا في اعداد البرامج حيث قوم بتفصيل البرنامج على النشاط والمكان ايضا واتس اب +0201282870428 اميل :[email protected]
  2. السلام عليكم ورحمة الله وبركاته، أحبتي في الله حياكم الله وبعد: فإن لي عظيم الشرف أن أقدم بين أيديكم اليوم مجموعة من المحاضرات التي كنت قد أعددتها ضمن مشروع الحقيبة البرمجية والتي لقيت نجاحا بفضل الله أولا، ثم بفضل الأسلوب المتدرج الذي اعتمدته في الطرح. الدورة تشمل محاضرات وكتب سأمدكم بروابطها أسفله، وأرجو من كل من انتفع منها أن يخصني بدعوة في ظهر الغيب. وحتى أخفف على نفسي إعداد رابط لكل درس، وضعت رابط قائمة التشغيل لكل جزء. محتويات الدورة: أساسيات الفيجوال بيزك 2015 مدخل إلى علم الحاسب ومعالجة البيانات لغة الآلة والنظام الثنائي لتمثيل البيانات مفهوم البرمجة والبرنامج وأنواع اللغات البرمجية لغة الفيجوال بيسك، الفيجوال ستوديو، دوت نيت فريموورك وبيئة التنفيذ تحميل برنامج ميكروسوفت فيجوال ستوديو 2015 تثبيت برنامج ميكروسوفت فيجوال ستوديو 2015 التعرف على بيئة التطوير الكاملة فيجوال ستوديو أول برنامج بلغة فيجوال بيسك 2015 مستعرض الملفات Solution Explorer و محرر الشفرات Code Editor المتغيرات Variables وأنواع البيانات Data Types الثوابت Constants والأنواع العشرية Doubles الأوامر الشرطية Decision Statements روابط المقارنة Comparison Operators الروابط المنطقية غير المختصرة Not short-circuiting logical operators الروابط المنطقية المختصرة Short-circuiting logical operators فصل الحالات باستخدام الأمر Select Case المصفوفات Arrays المصفوفات والحلقات Arrays and Loops المصفوفات متعددة الأبعاد Multi-Dimensional Arrays الحلقات باستخدام الأوامر Do و While و Until استخدام الأمر With المعددات Enumerations العمليات على النصوص Strings Handling (الجزء 1) العمليات على النصوص Strings Handling (الجزء 2) تنسيق الوقت والتاريخ والعملات المالية DateTime and Currencies Formatting الإجراءات والدوال Procedures and Functions قابلية الوصول Accessiblity ومفهوم الوحدات Modules إدارة الأخطاء والاستثناءات Handling Exceptions البرمجة الكائنية التوجه OOP في الفيجوال بيزك 2015 مدخل إلى البرمجة الكائنية التوجه الفئات Classes والكائنات Objects والوظائف Methods والاستنساخ Instanciation مشيدات الفئة Constructors مهدمات الكائنات Destrucors الخصائص Properties(Getters and Setters) الأحداث Events الوراثة Inheritance تعدد الأشكال الفرعية SubTyping Polymorphism زيادة التحميل - تعدد التعاريف OverLoading تعدد التعاريف OverLoading (OverLoads keyword) إعادة التعريف Overriding الأسمبلي ومجالات الأسماء Assemblies and Namespaces التظليل Shadowing الفئات المجردة Abstract Classes والأمر MustOverride الكلمة المحجوزة NotOverridable البرامترات الاختيارية Optional Parameters التمرير بالقيمة وبالمرجع Passing Parameters ByVal and ByRef تطبيق الواجهات Implementing Interfaces التراكيب Structures شرح ArrayList - إضافة الكائنات شرح ArrayList - حذف وعرض الكائنات شرح List - إضافة الكائنات شرح List - حذف وعرض الكائنات العناصر المشتركة Shared Membres العمليات على الوحدات في الفيجوال بيزك 2015 العمليات على الوحدات Drives العمليات على المجلدات Directories العمليات على الملفات Files العمليات على البيانات Streams برمجة الواجهات في الفيجوال بيزك 2015 خصائص الفورم Form Properties أحداث الفورم Form Events أداة مربع النص TetBox Control أداة الزر Button Control أدوات الملصقات والروابط Labels and LinkLabels Controls أداة مربع الاختيار CheckBox Control أداة قائمة الاختيارات CheckedListBox Control أداة زر الراديو RadioButtonControl أداة القائمة المنسدلة ListBox Control أداة قائمة الكومبو ComboBox Control أداة الصورة PictureBox Control أداة مربع النص الغني RichTextBox Control أداة تحديد التاريخ والوقت DateTimePicker Control and DateTime Handling أداة تخزين الصور ImageList Component أداة قائمة العرض - إضافة الأعمدة والأسطر ListView Control أداة قائمة العرض - التحكم في أنواع العرض ListView Control أداة قائمة العرض - العمليات على البيانات ListView Control أداة قائمة العرض - تجميع البيانات ListView Control أداة العرض الشجري TreeView Control أداة القائمة MenuStrip Control أداة شريط الأدوات - الجزء الأول ToolStrip Control أداة شريط الأدوات - الجزء الأول ToolStrip Control قائمة الاختيارات المنسدلة ContextMenuStrip Control أداة شريط الحالة StatusStrip Control أدوات التجميع GroupBox and Panel Controls أداة التبويبات المتعددة TabControl Control برمجة آلة حاسبة - التصميم برمجة آلة حاسبة - كتابة الكود أشرطة التمرير العمودية والأفقية VScrollBars and HScrollBars أداة شريط التغيير TrackBar Control أداة اختيار الألوان ColorDialog Control أداة اختيار الخط FontDialog Control أداة فتح الملفات OpenFileDialog Control أداة حفظ الملفات SaveFileDialog Control أداة فتح المجلدات FolderBrowserDialog أداة العداد Timer Component أداة شريط التدرج ProgressBar Control أداة التنبيه إلى الأخطاء ErrorProvider أداة المساعدة HelpProvider أداة أيقونة الإشعار NotifyIcon أداة تحديد الأرقام NumericUpDown أداة تحديد القيم DomainUpDown أداة التلميح ToolTip أداة عرض الخصائص PropertyGrid أداة التقسيم Splitter أدوات التحجيم التلقائي TableLayoutPanel and FlowLayoutPanel أداة متصفح الويب WebBrowser أداة مربع النص المقولب MaskedTextBox  برمجة قواعد البيانات في الفيجوال بيزك 2015 مدخل إلى قواعد البيانات وأنظمة إدارتها Databases and DBMS تحميل وتثبيت برنامج Microsoft SQL Server 2014 إنشاء قاعدة البيانات على برنامج SQL Server إنشاء الجداول في قواعد البيانات Create Tables إدخال البيانات إلى الجداول Insert Data Into Tables حذف البيانات من الجداول Delete Data From Tables تحديث البيانات والتعرف على الحقل الأساسي Update Data & Primary Key قراءة البيانات من الجداول Select Data From Tables عموميات حول ADO.NET وفئاته الأساسية وأوضاع الاتصال ربط الاتصال بين برنامج بلغة فيجوال بيسك وبين قاعدة البيانات من نوع SQL Server الوضع المتصل - قراءة البيانات وعرضها في ListView الوضع المتصل - إضافة البيانات إلى الجداول الوضع المتصل - البحث عن البيانات وحذفها الوضع المتصل - تحديث البيانات الوضع المتصل - برمجة واجهة الدخول Login Form ثغرات SQL Injection واستخدام البرامترات لترقيعها تعبئة DataGridView بواسطة SqlDataAdapter و Dataset تعبئة DataGridView بواسطة SqlDataAdapter و DataTable الوضع المنفصل ـ إضافة البيانات الوضع المنفصل ـ البحث عن البيانات وحذفها الوضع المنفصل ـ تحديث البيانات الوضع المنفصل - برمجة أزرار التنقل البحث والفلترة والترتيب باستخدام الكلاس داتافيو DataView أداة الكومبوبوكس والتعامل مع البيانات تعبئة كومبوبوكس من كومبوبوكس آخر Cascading ComboBoxes نقل البيانات بين النوافذ ومفهوم Singleton Class وحل مشكل العربية دورة XML في الفيجوال بيزك 2015 مدخل إلى لغة XML وإنشاء ملف الأفراد قراءة البيانات من ملف XML إضافة البيانات إلى ملف XML حذف البيانات من ملف XML تحديث البيانات في ملف XML التنقل بين البيانات المخزنة في ملف XML دورة Stored Procedures في الفيجوال بيزك 2015 مدخل إلى الإجراءات المخزنة Stored Procedures قراءة البيانات بواسطة الإجراءات المخزنة إضافة البيانات عبر استخدام الإجراء ات المخزنة حذف البيانات عبر استخدام الإجراءات المخزنة التحقق من وجود المعرف عبر استخدام الإجراءات المخزنة تحديث البيانات عبر استخدام الإجراءات المخزنة التنقل بين البيانات عبر استخدام الإجراءات المخزنة البحث المتعدد والمتقدم وفلترة البيانات الإكمال التلقائي للبيانات في مربع النص TextBox AutoComplete التعامل مع التواريخ الهجرية والميلادية في الفيجوال بيسك و SQL Server تنسيق الأعمدة والخانات في الداتا غريد فيو حفظ الصور في قاعدة البيانات قراءة الصور المخزنة في قواعد البيانات تخزين جميع أنواع الملفات في قاعدة البيانات قراءة جميع أنواع الملفات المخزنة في قاعدة البيانات تنفيذ عدة عمليات بشكل أحادي باستخدام المعاملات Transactions حفظ نص الاتصال في ملف الإعدادات Save ConnectionString In app.config إنشاء ملف التثبيت بواسطة برنامج Setup Factory مشروع إدارة الطلبة بلغة الفيجوال بيزك و MySQL تحميل وتثبيت وإعداد كل ما يتعلق بقواعد البيانات MySQL إعداد مكتبة MySQL وإنشاء قاعدة البيانات والجداول على PhpMyAdmin واجهة تسجيل الدخول إلى برنامج إدارة الطلبة تصميم الواجهة الرئيسية لإدارة الطلبة برمجة واجهة إضافة الطلبة وحل مشكلة العربية في MySQL واجهة إدارة الطلبة - العرض والبحث واجهة إدارة الطلبة - التعديل والحذف برمجة واجهة إدارة المواد الدراسية برمجة شاشة تسجيل النقاط الدرس الختامي - تحسينات ولمسات إضافية مشروع المبيعات بلغة الفيجوال بيزك و Access إنشاء قاعدة البيانات على ميكروسوفت أكسس إدارة المبيعات بالأكسس - برمجة واجهة الدخول أكسس - تصميم الواجهة الرئيسية إدارة المبيعات بالأكسس - إضافة المنتجات إدارة المبيعات بالأكسس - جلب المنتجات والبحث فيها برنامج إدارة المبيعات بالأكسس - حذف وتعديل المنتجات برنامج إدارة المبيعات بالأكسس - إدارة العملاء برنامج إدارة المبيعات بالأكسس - تصميم واجهة المبيعات برمجة إدارة المبيعات بالأكسس - جلب معلومات العميل برمجة إدارة المبيعات بالأكسس - إدخال المنتجات برمجة إدارة المبيعات بالأكسس - حذف وتعديل المنتجات والتحقق من عدم تكرارها برمجة إدارة المبيعات بالأكسس - حفظ الفاتورة بتفاصيلها برمجة إدارة المبيعات بالأكسس - عرض الفاتورة بتفاصيلها من ثلاثة جداول برمجة إدارة المبيعات بالأكسس - جلب معلومات الفاتورة والعميل للتعديل برمجة إدارة المبيعات بالأكسس - جلب منتجات الفاتورة للتعديل برمجة إدارة المبيعات بالأكسس - تعديل الفاتورة وتفاصيلها برمجة إدارة المبيعات بالأكسس - الدرس الختامي (تحسينات)   وفيما يلي كتب الدورة: الشامل في البرمجة بلغة الفيجوال بيسك دوت نيت 2015 المختصر المفيد في البرمجة الكائنية التوجه OOP
  3. هذا الكود يقوم بتنفيذ Command Line من Visual Basic 2010 التصميم   خصائص : Form Name : form1 Caption : Compare two exe files TextBox 'Contains the command Line FC Name : TextBox1 MultiLine : True Text : @Echo Off FC C:\comp\CS.exe C:\comp\Cexe.exe /B TextBox 'Will contain the Comparison result of the two EXE application files. Name : TextBox2 MultiLine : True Text :Comparison Result will display here ... Button 'Executes the Command Line FC in the TextBox1 Name : Button1 Text : Go   الكود : ' --------------------------------------- '' Visual Basic Online Course ------------ '' By / evry1.net ------------------------ '' on Jan, 2014 -------------------------- '' Facebook : fb.com/Visual.Basic.Language '' --------------------------------------- 'Public Class Form1Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.ClickDim cmdInput As String = TextBox1.Text.Trim & "&"Dim proc As New Processproc.StartInfo.CreateNoWindow = Trueproc.StartInfo.UseShellExecute = Falseproc.StartInfo.FileName = "C:\Windows\System32\cmd.exe"proc.StartInfo.Arguments = cmdInputproc.StartInfo.RedirectStandardOutput = Trueproc.StartInfo.RedirectStandardError = Trueproc.StartInfo.RedirectStandardInput = Trueproc.Start()proc.StandardInput.WriteLine(cmdInput)proc.StandardInput.Close()Dim line As String = NothingDim lines As Integer = 0While (proc.StandardOutput.EndOfStream = False)line = proc.StandardOutput.ReadLine()TextBox2.AppendText(line & vbNewLine)lines = lines + 1End Whileproc.Close()proc.Dispose()End SubEnd Classاذا كنت مهتما بالشرح
  4. السلام عليكم ورحمة الله وبركاته   لدي مشكلة في ربط مربع النص Textbox في الفيجوال بيسك 2008 بحقل قاعدة بيانات أكسس Access   مع أني أجرب بنفس الطريقة في كمبيوتر آخر فتنجح الطريقة   .. هذه هي الطريقة التي اتبعتها ..   1 http://im35.gulfup.com/ewy1M.png   2 http://im35.gulfup.com/zjUPM.png   3 http://im33.gulfup.com/gOFPA.png   4 http://im33.gulfup.com/t0CnE.png   أرجو أن تكون وضحت الفكرة ,, وشكراً
  5. Sybase Advantage Database With Visual Basic 2010 Update Sybase Advantage Database using XML file from Visual Basic 2010 [Client-Server] Idea. 1. Create New VB2010 Windows Application Project 2. Path to Project (I.e. D:\MySyBase\) 3. Path to Database (I.e. D:\MySyBase\Bin\Debug) 4. Sybase Advantage Database (MyDB.add) 5. Sybase Advantage Database Username : AdsSys - Password : ahmed 6. Sybase Advantage Database Table (I.e. MyInfo.adt)
  6. السلام عليكم   عندي مشكلة في ربط مربع نص بحقل موجود في قاعدة بيانات   بحيث أني أقوم بربط القاعدة ثم مربع النص وكل شي ماشي صح بس لما أشغل الـDebug ما يظهر في مربع النص أي شي  وجربت على كمبيوتر آخر بنفس الطريقة واشتغل عادي   وجربت أحط أوامر على هذا المربع فيطلع لي خطأ بأنه ما في سجل موجود في مربع النص أصلاً مثلاً حطيت RemoveCurrent ويقول أنه ما في سجل حالي    أرجو المساعدة ,, وشكراً .
  7. بسم الله الرحمن الرحيم   هذا الموضوع باللغه الانجليزية   يتناول كيفية البحث فى ملفات الحاسب عن طريق الفهرسة Indexing مما يجعل البرنامج قادر على البحث فى ملايين الملفات بسرعه و كفائة و هى الطريقة التى تعتمدها محركات البحث الضخمه مثل جوجل Google و Ping و أيضا يتناول الموضوع طريقة التعامل مع أداة جديده اسمها dtSearch Engine و هى المسؤلة عن الفهرسة و البحث و هى قادرة على البحث فى جميع أنواع الملفات و حتى قواعد البيانات .   من المعروف لمن يعمل فى البرمجه أن معرفة طرق البحث من المؤهلات المطلوبه للعمل فى مجال البرمجه ... معظم البرامج المكلفة تتطلب على الأقل معرفة بسيطه بطريقة الفهرسة و البحث .   للتعرف على الاداه و تحميلها كامله - من هنا   لقراءة الموضوع كاملا باللغة الانجليزيه + تحميل مثال عملى الجزء الأول من هنا  , و يتناول باختصار منطقية البرنامج و طريقة عملة و تصميم الفور . الجزء الثانى من هنا و يتناول باختصار أكواد الفورم و منطقية الأكواد و كيف تتم عملية الفهرسه و البحث عن الملفات ...   الجزء القادم ان شاء الله سيتناول التعامل مع جميع أنواع قواعد البيانات .....
  8. السلام عليكم و رحمة الله و بركاته   الموضوع : تحميل فيجوال ستوديو 6.0 بروفيشنال كامل   أعرف أن الموضوع قد تم طرحه من قبل لكن الاختلاف هنا أن نسخة Visual Basic 6.0 Pro هذه كامله مساحتها 787 ميجا !ط   و الموضوع الاصلى روابط التحميل و كيفية ترقية النسخه الى sp6 أيضا   حتى لا أطيل عليكم   الموضوع من هذا الرابط
  9. السلام عليكم إخوتي الكرام   في الفترة الأخيرة أحاول تصميم نظام حضور وإنصراف بالبصمة  برمجة النظام بالـVisual Basic.net 2010 قاعدة البيانات إما Sql server أو Oracle database وقد واجهتني معضلة وهي الأوامر والكودات المطلوبة للتعامل مع الجهاز الذي يستخدم للبصمة .   فأرجو منكم أن تساعدوني قدر إستطاعتكم لكم جزيل الشكر...
  10. ممكن مساعدة فى كيفية دمج البرنامج مع مرفقاتة وشرح لبنامج install shield 10.5 premier  لعمل ال setup  للبرنامج حتى يعمل على كل الاجهزة وفى المرفقات البرنامج وصور الاخطاء ارجو الافادة وجزاكم الله خيرا  كنترول الطلبة.zip صور الاخطاء 2.zip
  11. بسم الله الرحمن الرحيم هذه 9 أجزاء لدرس عملى باسم (دليل التليفون) , و هو تطبيق مثالى لمن يريد تعلم التعامل مع قاعدة البيانات من الصفر الى الاحتراف ... و يتناول الدرس الموضوعات الاتيه :   تصميم المشروع تصميم قاعدة البيانات منطق البرنامج (كيفية سير البرنامج) ربط قاعدة البيانات التعامل مع قاعدة البيانات أكواد لتصميم البرنامج تصميم التقارير (تحميل و تصطيب الكريستال ريبورت 4.6 و تحديث الفيجوال بيزك الى sp6) أكواد البرنامج النهائيه تحزيم البرنامج و تشغيله أو نقلة الى جهاز اخرصورة البرنامج :   رابط الدرس
  12. برنامج ساعة الحائط - لسطح مكتب الويندوز بالسورس كود !   السورس كود Option Explicit'==================================================='Analog Clock'--------------------------------------------------'Creates a round(circle) shaped form'and draws H, M, S indicators'I made it easy to understand for VB6.0 beginers'--------------------------------------------------'Author: Evry1falls'Date: 2013'Visit : http://vb6access2003.blogspot.com'All lines of code are explained in the Blog, Visit :'http://vb6access2003.blogspot.com/2013/02/VB6-Analog-Clock.html'--------------------------------------------------'Reference:'Larry Serflaten, Dipak Auddy'Everything'Google : evry1falls'==================================================='API to create windowless formPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, _ByVal hRgn As Long, _ByVal bRedraw As Boolean) As LongPrivate Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _ByVal Y1 As Long, _ByVal X2 As Long, _ByVal Y2 As Long) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long 'API to move windowless formPrivate Const HTCAPTION As Long = 2Private Const WM_NCLBUTTONDOWN As Long = &HA1Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _lParam As Any) As LongPrivate Declare Function ReleaseCapture Lib "user32" () As Long 'The length of H,M,S indicators...Private Const hWidth As Long = 1100Private Const mWidth As Long = 1400Private Const sWidth As Long = 1500 'Globals to store canvas(Picture Object)'s'center co-ord.Private X As SinglePrivate Y As SinglePrivate PI2 As DoublePrivate Sub Form_Load()Dim RGN As Long' PI / 2PI2 = Atn(1) * 2With Me.BackColor = vbWhite.Width = Me.Width.Height = Me.Height'Let's save the points...X = .Width / 2Y = .Height / 2End With 'meLabel1.Caption = "Evry1falls" & vbCrLf & "@evry1falls.freevar.com"'Make a round windowless! form...RGN = CreateEllipticRgn(0, 0, 310, 310)Call SetWindowRgn(Me.hwnd, RGN, True)Call DeleteObject(RGN)End SubPrivate Sub Form_MouseDown(Button As Integer, _Shift As Integer, _X As Single, _Y As Single)'Moving the form using mouse button from any location on the form held with mouseIf Button = 1 ThenReleaseCaptureSendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)'Stop the timerTimer1.Enabled = FalseEnd SubPrivate Sub Label1_MouseDown(Button As Integer, _Shift As Integer, _X As Single, _Y As Single)'Move form when drag the labelForm_MouseDown Button, Shift, X, YEnd SubPrivate Sub lblClose_Click()'Exit App.Unload MeEnd SubPrivate Sub Timer1_Timer()Dim Angle, PX, PY, OX, OY, WX, WYMe.Cls'Get Hr Angle...Angle = (180 - (Hour(Now) * 6) * 5 - (Minute(Now) * 6) / 12) * 3.1415 / 180'Hr. pointPX = X + (hWidth * Sin(Angle))PY = Y + (hWidth * Cos(Angle))'Opposite sideOX = X - (Sin(Angle) * 100)OY = Y - (Cos(Angle) * 100)'Hand widthWX = Sin(Angle + PI2) * 90WY = Cos(Angle + PI2) * 90'Draw Hr. hand...Me.Line (OX, OY)-(PX, PY), vbYellow ' From opposite side to pointerMe.Line -(OX + WX, OY + WY), vbBlue ' To one opposite sideMe.Line -(OX - WX, OY - WY), vbBlue ' To other opposite sideMe.Line -(PX, PY), vbBlue ' Back to pointerMe.Circle (X, Y), 50, vbYellow'Get Min Angle...Angle = (180 - (Minute(Now) * 6)) * 3.1415 / 180'Min pointPX = X + (mWidth * Sin(Angle))PY = Y + (mWidth * Cos(Angle))'Opposite sideOX = X - (Sin(Angle) * 100)OY = Y - (Cos(Angle) * 100)'Hand widthWX = Sin(Angle + PI2) * 90WY = Cos(Angle + PI2) * 90'Draw Min. hand...Me.Line (OX, OY)-(PX, PY), vbYellow ' From opposite side to pointerMe.Line -(OX + WX, OY + WY), vbMagenta ' To one opposite sideMe.Line -(OX - WX, OY - WY), vbMagenta ' To other opposite sideMe.Line -(PX, PY), vbMagenta ' Back to pointerMe.Circle (X, Y), 50, vbYellow'Get Sec Angle...Angle = (180 - (Second(Now) * 6)) * 3.1415 / 180'Draw Sec. hand...Me.Line (X, Y)-(X + (sWidth * Sin(Angle)), Y + (sWidth * Cos(Angle))), vbRedEnd Subالشرح + السورس كود من هنا