• الإعلانات

    • فيصل الحربي

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

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

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

Showing results for tags 'Visual Basic'.

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

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

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

  1. بسم الله الرحمن الرحيم هذه 9 أجزاء لدرس عملى باسم (دليل التليفون) , و هو تطبيق مثالى لمن يريد تعلم التعامل مع قاعدة البيانات من الصفر الى الاحتراف ... و يتناول الدرس الموضوعات الاتيه :   تصميم المشروع تصميم قاعدة البيانات منطق البرنامج (كيفية سير البرنامج) ربط قاعدة البيانات التعامل مع قاعدة البيانات أكواد لتصميم البرنامج تصميم التقارير (تحميل و تصطيب الكريستال ريبورت 4.6 و تحديث الفيجوال بيزك الى sp6) أكواد البرنامج النهائيه تحزيم البرنامج و تشغيله أو نقلة الى جهاز اخرصورة البرنامج :   رابط الدرس
  2. برنامج ساعة الحائط - لسطح مكتب الويندوز بالسورس كود !   السورس كود 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الشرح + السورس كود من هنا