مشاهدة نتائج الإستطلاع: هل تري ان سلسلة دروس الفيجوال بيزك هذه مفيدة ؟

المصوتون
38. أنت لم تصوت في هذا الإستطلاع
  • نعم مفيدة واستفدت منها

    32 84.21%
  • مفيد ولكني لم استفيد منها

    4 10.53%
  • لا ليس مفيد

    1 2.63%
  • لا اعلم

    1 2.63%
صفحة 2 من 12 الأولىالأولى 1234567 ... الأخيرةالأخيرة
النتائج 16 إلى 30 من 178

الموضوع: سلسلة دروس في الفيجوال بيسك

  1. #16
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    فيجوال بيزك........{4}





    اليوم سوف نشرح بالتفصيل واجهة البرنامج انشاء الله



    شريط الأدوات Tool Bar

    هو الجزء العلوي من الفيجوال بيسك أسفل شريط القوائم مباشرة ..


    هذا هو



    وهذا الشريط يتغير بحسب الوظيفة التي تقوم بها في أي وقت .

    صندوق الأدوات Tool Box

    يحتوي على العديد من الأدوات التي يمكنك سحبها و وضعها على نافذة برنامجك



    هذا هو صندوق الأدوات القياسي ، وبما أنه قياسي فهذا يعني أنه يمكننا أن نضيف بعض التعديلات على هذا الصندوق كما سوف نعرف.

    و سنتعرف على كيفية إضافة هذه الأدوات إلى نافذة البرنامج في الدروس اللاحقة إن شاء الله .

    نافذة البرنامج



    أو مايسميه الفيجوال بيسك بالفورم (Form) و سيكون معظم عملك في الفيجوال بيسك
    داخل هذه النافذة .. في الحقيقة ، هذه النافذة تمثل النافذة التي ستظهر للمستخدم عند انتهاء
    برنامجك و ستتعلم كيف تضيف إليها الأدوات المختلفة لتبدو مثل نوافذ برامج ويندوز
    في الدروس اللاحقة إن شاء الله .لاحظ أن برنامجك قد يحتوي على أكثر من نافذة .
    نافذة المشروع



    تحتوي على الملفات المختلفة التي يتضمنها برنامجك .

    نافذة الخصائص




    تقوم نافذة الخصائص بعرض خصائص الكائن المحدد حاليا .
    لاحظ أن اسم الكائن يظهر في أعلى هذه النافذة و أن خصائصه تظهر في منتصف النافذة
    ( و تحتل المساحة الكبرى ) و يظهر في الأسفل شرح عن هذا الكائن .

    نافذة تخطيط النوافذ :Form layout


    تمثل شاشة المستخدم و المربع الذي بداخلها يمثل نافذة برنامجك ..
    كما تلاحظ بالشكل فإن نافذة برنامجك تقع في الجهة اليسرى العليا
    و هو المكان الذي ستظهر به نافذتك عندما تقوم بتنفيذ البرنامج و يمكنك التحكم بمكان النافذة
    إما عن طريق نافذة تخطيط النوافذ ( بالسحب و الافلات )
    أو بإضافة أوامر برمجية ( سنتعلمها لاحقاً ) .

    انتها درس اليوم انشاء الله

    في لنتظار اسئلتكم واستفساراتكم




  2. #17
    التسجيل
    14-01-2005
    الدولة
    الاردن - عمان
    المشاركات
    1,818

    رد: فيجوال بيزك ......مقدمة

    السلام عليكم

    جميل جدا ما تطرحه اخي

    اسف لتأخري

    لكن والله ضروف شوية

    المهم اقتراح بسيط

    اقترح انك تخلي كل هذا في موضوع واحد حتى القارء ما يتشتت ويصير يدور على المواضيع هنا وهناك

    والخيار الأخير لك

    اتمنى لك التوفيق
    شبكة قانوني الاردن
    نسعى معا للرقي بالمهنة القانونية في الاردن
    www.lawjo.net


    -----------------------------------------
    e_amawi (at) yahoo.com

  3. #18
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: فيجوال بيزك ......مقدمة

    اقتباس المشاركة الأصلية كتبت بواسطة amawi
    السلام عليكم

    جميل جدا ما تطرحه اخي

    اسف لتأخري

    لكن والله ضروف شوية

    المهم اقتراح بسيط

    اقترح انك تخلي كل هذا في موضوع واحد حتى القارء ما يتشتت ويصير يدور على المواضيع هنا وهناك

    والخيار الأخير لك

    اتمنى لك التوفيق
    وعليكم السلام

    اخي الكريم amawi

    شكرا جزيلا على هذه الكلمات المشجعة حقا

    سوف اطلب من احد المراقبين ان يجمع الموضوع

    الي موضوع واحد

    شكرا على الفكرة

    بارك الله فيك



  4. #19
    التسجيل
    14-01-2005
    الدولة
    الاردن - عمان
    المشاركات
    1,818

    رد: فيجوال بيزك........{4}

    جميل جدا

    تابع

    لكن في موضوع واحد ان امكن لكي يتسنى للمراقب تثبيته او نقله الى المميزة

    بالتوفيق
    شبكة قانوني الاردن
    نسعى معا للرقي بالمهنة القانونية في الاردن
    www.lawjo.net


    -----------------------------------------
    e_amawi (at) yahoo.com

  5. #20
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: فيجوال بيزك........{4}

    اقتباس المشاركة الأصلية كتبت بواسطة amawi
    جميل جدا

    تابع

    لكن في موضوع واحد ان امكن لكي يتسنى للمراقب تثبيته او نقله الى المميزة

    بالتوفيق
    ان شاء الله

    سوف اطلب ذلك من احد المراقبين الكرام

  6. #21
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: فيجوال بيزك........{5}





    درس اليوم هو الالوان

    الوان الفورم و الالوان الاخري

    فلنبدا

    أولاً : الألوان باستخدام QBColor :
    تضم هذه الطريقة خمسة عشر لوناً تبدأ من الصفر وحتى 15 ولكل رقم لون معين ، ويمكن الحصول على الألوان من هذه القائمة بالطريقة التالية :
    Picture1.BackColor = QBColor(Number)
    حيث Number هو رقم بين 0 و 15 .
    ثانياً : اختيار الألوان من مربعات الحوار .
    مربعات الحوار أو CommonDialog تحتوي على أكثر من شاشة مثل شاشة حفظ وفتح والخطوط وغيرها ، ومن ضمنها لوح الألوان ، ويمكن الإستفادة من هذه الأداة في الألوان بالطريقة التالية :
    أضف الأداة إلى النموذج ثم اكتب الكود التالي :
    ' لتغيير عنوان مربع الحوار
    CommonDialog1.DialogTitle = "اختر اللون الذي تريد"
    ' لعرض مربع ( لوحة الألوان )
    CommonDialog1.ShowColor
    ' لعرض رقم اللون في رسالة
    MsgBox CommonDialog1.Color
    ' وتغيير لون الفورم حسب اللون المختار .
    Form1.BackColor = CommonDialog1.Color
    ثالثاً : معرفة رمز اللون .
    بفرض أن لدينا لون هو خلفية الفورم فيمكن معرفة رمز اللون ( غير رقمه ) بالشكل التالي :
    Dim MyColor
    MyColor = Form1.BackColor

    Dim Red_C, Green_C, Blue_C
    Red_C = (MyColor And &HFF&)
    Green_C = (MyColor And &HFF00&) \ 256
    Blue_C = (MyColor And &HFF0000) \ 65536

    Dim Color_1
    Color_1 = Format(Hex(Red_C) &

    Hex(Green_C) & Hex(Blue_C), "000000")
    MsgBox Color_1
    رابعاً : تكوين لون من تغير تركيز الألوان الأساسية ( أحمر + أخضر + أزرق ) .
    اضف ثلاثة من أدوات HScrollBar واجعل خاصية Max لها = 255 ( واحدة لتغيير تركيز كل لون ) .
    ثم ضع الكود التالي في حدث HScroll_Change
    Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

    وهكذا ستجد أن لون الفورم يتغير بتغير نسبة الألوان الأساسية فيه .
    TextRed.Text = (Form1.BackColor And &HFF&)
    TextGreen.Text = (Form1.BackColor And &HFF00&) \ 256
    TextBlue.Text = (Form1.BackColor And &HFF0000) \ 65536


    خامساً : معرفة تركيز الألوان الأساسية في أي لون ، وهي عملية عكسية للعملية السابقة .
    سادساً : معرفة لون النقطة التي يمر بها الماوس
    اكتب أولاً الأوامر التالية في الجينرال :
    ' لمعرفة نقطة الماوس
    Option Explicit
    Private Type POINTAPI
    x As Long
    y As Long
    End Type

    ' =========================================
    Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
    ومن ثم اكتب الأمر التالي في تايمر :

    Dim tPOS As POINTAPI
    Dim sTmp As String
    Dim lColor As Long
    Dim lDC As Long
    Dim thecolor
    lDC = GetWindowDC(0)
    Call GetCursorPos(tPOS)
    lColor = GetPixel(lDC, tPOS.x, tPOS.y)
    Form1.BackColor = lColor
    أكواد متنوعة تتعلق بالألوان :
    * لعمل خلفية متدرجة بالأزرق مثل برامج التنصيب :
    Sub Fade(vForm As Form)
    Dim intLoop As Integer
    vForm.DrawStyle = vbInsideSolid
    vForm.DrawMode = vbCopyPen
    vForm.ScaleMode = vbPixels
    vForm.DrawWidth = 2
    vForm.ScaleHeight = 256
    For intLoop = 0 To 255
    vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 - intLoop), B
    Next intLoop
    End Sub
    Private Sub Form_Activate()
    Fade Me
    End Sub
    * لعمل خلفية متدرجة بالرمادي :
    Private Sub Command1_Click()
    Picture1.ScaleMode = vbPixels
    x = Picture1.ScaleWidth
    y = Picture1.ScaleHeight
    For i = 0 To y - 1
    For j = 0 To x - 1
    pixel = Picture1.Point(j, i)
    red = pixel Mod 256
    green = ((pixel And &HFF00) / 256) Mod 256
    blue = (pixel And &HFF0000) / 65536
    g = ((red * 30) + (green * 60) + (blue * 20)) / 100
    Picture1.PSet (j, i), RGB(g, g, g)
    Next
    Next
    Picture1.ScaleMode = vbTwips
    End Sub
    * لعمل فورم بلون رخامي :
    اكتب الأوامر التالي في التصاريح
    Private Sub GradientFill()
    Dim i As Long
    Dim c As Integer
    Dim r As Double
    r = ScaleHeight / 3.142
    For i = 0 To ScaleHeight
    c = Abs(220 * Sin(i / r))
    Me.Line (0, i)-(ScaleWidth, i), RGB(c, c, c + 30) 'Notice the bias To blue. You can be more subtle by reducing this number (try 10). Try other colours too.
    Next
    End Sub

    وفي حدث Form_Resize
    GradientFill
    * لعمل فورم بلون قوس المطر :
    Option Explicit
    Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = vbTwips
    Me.Caption = "Rainbow Generator by " & _
    "K. O. Thaha Hussain"
    End Sub


    Private Sub Form_Resize()
    Call Rainbow
    End Sub


    Private Sub Rainbow()
    On Error Resume Next
    Dim Position As Integer, Red As Integer, Green As _
    Integer, Blue As Integer
    Dim ScaleFactor As Double, Length As Integer
    ScaleFactor = Me.ScaleWidth / (255 * 6)
    Length = Int(ScaleFactor * 255)
    Position = 0
    Red = 255
    Blue = 1
    'Purposfully avoided nested loops
    '------------- 1


    For Green = 1 To Length
    Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
    RGB(Red, Green \ ScaleFactor, Blue)
    Position = Position + 1
    Next Green
    '--------------- 2


    For Red = Length To 1 Step -1
    Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
    RGB(Red \ ScaleFactor, Green, Blue)
    Position = Position + 1
    Next Red
    '---------------- 3


    For Blue = 0 To Length
    Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
    RGB(Red, Green, Blue \ ScaleFactor)
    Position = Position + 1
    Next Blue

    '----------------- 4


    For Green = Length To 1 Step -1
    Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
    RGB(Red, Green \ ScaleFactor, Blue)
    Position = Position + 1
    Next Green

    '------------------ 5


    For Red = 1 To Length
    Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
    RGB(Red \ ScaleFactor, Green, Blue)
    Position = Position + 1
    Next Red
    '------------------- 6


    For Blue = Length To 1 Step -1
    Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
    RGB(Red, Green, Blue \ ScaleFactor)
    Position = Position + 1
    Next Blue
    End Sub


    * سبع تدريجات مختلفة للفورم :
    نكتب ما يلي في قسم التصاريح
    Sub XFormBlueFade(vForm As Object)
    On Error Resume Next
    Dim intLoop As Integer
    vForm.DrawStyle = vbInsideSolid
    vForm.DrawMode = vbCopyPen
    vForm.ScaleMode = vbPixels
    vForm.DrawWidth = 2
    vForm.ScaleHeight = 256


    For intLoop = 0 To 255
    vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 - intLoop), B 'Draw boxes With specified color of loop
    Next intLoop
    End Sub


    Sub XFormFireFade(vForm As Object)
    'This code works best when called in the
    '
    ' paint event
    On Error Resume Next
    Dim intLoop As Integer
    vForm.DrawStyle = vbInsideSolid
    vForm.DrawMode = vbCopyPen
    vForm.ScaleMode = vbPixels
    vForm.DrawWidth = 2
    vForm.ScaleHeight = 256


    For intLoop = 0 To 255
    vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255, 255 - intLoop, 0), B 'Draw boxes With specified color of loop
    Next intLoop
    End Sub


    Sub XFormGreenFade(vForm As Object)
    On Error Resume Next
    Dim intLoop As Integer
    vForm.DrawStyle = vbInsideSolid
    vForm.DrawMode = vbCopyPen
    vForm.ScaleMode = vbPixels
    vForm.DrawWidth = 2
    vForm.ScaleHeight = 256


    For intLoop = 0 To 255
    vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 255 - intLoop, 0), B 'Draw boxes With specified color of loop
    Next intLoop
    End Sub


    Sub XFormIceFade(vForm As Object)
    On Error Resume Next
    Dim intLoop As Integer
    vForm.DrawStyle = vbInsideSolid
    vForm.DrawMode = vbCopyPen
    vForm.ScaleMode = vbPixels
    vForm.DrawWidth = 2
    vForm.ScaleHeight = 256


    For intLoop = 0 To 255
    vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 255 - intLoop, 255), B 'Draw boxes With specified color of loop
    Next intLoop
    End Sub


    Sub XFormPurpleFade(vForm As Object)
    On Error Resume Next
    Dim intLoop As Integer
    vForm.DrawStyle = vbInsideSolid
    vForm.DrawMode = vbCopyPen
    vForm.ScaleMode = vbPixels
    vForm.DrawWidth = 2
    vForm.ScaleHeight = 256


    For intLoop = 0 To 255
    vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(25, 0, 100 - intLoop), B 'Draw boxes With specified color of loop
    Next intLoop
    End Sub


    Sub XFormRedFade(vForm As Object)
    On Error Resume Next
    Dim intLoop As Integer
    vForm.DrawStyle = vbInsideSolid
    vForm.DrawMode = vbCopyPen
    vForm.ScaleMode = vbPixels
    vForm.DrawWidth = 2
    vForm.ScaleHeight = 256


    For intLoop = 0 To 255
    vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255 - intLoop, 0, 0), B 'Draw boxes With specified color of loop
    Next intLoop
    End Sub


    Sub XFormSilverFade(vForm As Object)
    On Error Resume Next
    Dim intLoop As Integer
    vForm.DrawStyle = vbInsideSolid
    vForm.DrawMode = vbCopyPen
    vForm.ScaleMode = vbPixels
    vForm.DrawWidth = 2
    vForm.ScaleHeight = 256


    For intLoop = 0 To 255
    vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255 - intLoop, 255 - intLoop, 255 - intLoop), B 'Draw boxes With specified color of loop
    Next intLoop
    End Sub

    كل اجراء من الإجراءات السابقة يعطينا تدرجاً معينا كما يلي :
    لتدرج من أزرق إلى أسود :

    Call XFormBlueFade(Me) 'Makes it Fade Blue
    لتدرج من الأصفر إلى الاحمر :
    Call XFormFireFade(Me) 'Makes it FIRE!!
    لتدرج من أخضر فاتح إلى أخضر غامق :
    Call XFormGreenFade(Me) 'Makes it Fade Green
    لتدرج من بني إلى أزرق
    Call XFormIceFade(Me) 'Makes it Fade ICE

    * لعمل 38 خلفية للفورم مشكلة من تداخل اللونين الأصفر والأحمر :
    Dim FadeNumPos As Integer
    'The First RGB Values
    Dim R1 As Integer, G1 As Integer, B1 As Integer
    'The Second RGB Values
    Dim R2 As Integer, G2 As Integer, B2 As Integer
    'These are the RGB values for the curren
    ' t line
    Dim NewRed As Integer, NewGreen As Integer, NewBlue As Integer
    'Easier than an array to store a color
    Public FadeColors As New Collection
    'The Difference
    Dim OverAllDiff
    'This is the long value for the line col
    ' or
    Dim NewColor
    'Gets the colors ready to draw the line
    'Then calls on the effect sub to make th
    ' e gradient


    Public Function Gradeffect(Target As Object, style As Integer)
    'Clear the object
    Target.Cls
    'Get the fade count
    FadeTimes = FadeColors.Count - 1
    'Set the draw width for the line
    Target.DrawWidth = 1
    'Want auto redraw
    Target.AutoRedraw = True
    'Don't Modify these. Won't work without
    ' them
    Target.ScaleWidth = 255 'No modifying
    Target.ScaleHeight = Target.ScaleWidth 'No modifying
    'do each color


    For FadeNumPos = 1 To FadeTimes
    'Set the Start values
    R1 = R2
    G1 = G2
    B1 = B2
    'Set the Start values for the first colo
    ' r


    If FadeNumPos = 1 Then
    R1 = FadeColors(1) Mod &H100
    G1 = (FadeColors(1) \ &H100) Mod &H100
    B1 = (FadeColors(1) \ &H10000) Mod &H100
    End If
    'Set the End values
    R2 = FadeColors(FadeNumPos + 1) Mod &H100
    G2 = (FadeColors(FadeNumPos + 1) \ &H100) Mod &H100
    B2 = (FadeColors(FadeNumPos + 1) \ &H10000) Mod &H100
    'Get the differences
    RedDiff = (R1 - R2) / Target.ScaleHeight * FadeTimes
    GreenDiff = (G1 - G2) / Target.ScaleHeight * FadeTimes
    BlueDiff = (B1 - B2) / Target.ScaleHeight * FadeTimes
    'For each line


    For OverAllDiff = ((FadeNumPos - 1) * Target.ScaleWidth / FadeTimes) To (FadeNumPos * Target.ScaleHeight / FadeTimes)
    'Get the new RGB values
    NewRed = R1 - RedDiff * (OverAllDiff - ((FadeNumPos - 1) * Target.ScaleWidth / FadeTimes))
    NewGreen = G1 - GreenDiff * (OverAllDiff - ((FadeNumPos - 1) * Target.ScaleWidth / FadeTimes))
    NewBlue = B1 - BlueDiff * (OverAllDiff - ((FadeNumPos - 1) * Target.ScaleWidth / FadeTimes))
    'Set the color
    NewColor = RGB(NewRed, NewGreen, NewBlue)
    'Do the effect
    Effect Target, style
    'Next Line
    Next
    'Next color
    Next
    'Done here
    End Function
    'The effect


    Function Effect(Target As Object, kind As Integer)
    'There are 36 different gradients. Try t
    ' hem all


    Select Case kind
    'Clockwork Down - Cool and New
    Case 1
    Target.Line (OverAllDiff + 1, Target.ScaleHeight)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    'Clockwork Left - Cool and new!
    Case 2
    Target.Line (0, Target.ScaleWidth - OverAllDiff)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    'Clockwork Up - Cool and new
    Case 3
    Target.Line (OverAllDiff, Target.ScaleHeight - OverAllDiff)-(Target.ScaleHeight, 0), NewColor, BF
    'Clockwork Right
    Case 4
    Target.Line (OverAllDiff, Target.ScaleHeight - OverAllDiff)-(Target.ScaleHeight, OverAllDiff), NewColor, BF
    'Right to Left
    Case 5
    Target.Line (Target.ScaleWidth - OverAllDiff, 0)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight - 20), NewColor, BF
    'Left to Right
    Case 6
    Target.Line (OverAllDiff, 0)-(OverAllDiff + 1, Target.ScaleWidth), NewColor, BF
    'Fade Out from bottom right
    Case 7
    Target.Line (0, Target.ScaleHeight - OverAllDiff)-(Target.ScaleWidth, Target.ScaleHeight - (OverAllDiff + 1)), NewColor, BF
    Target.Line (Target.ScaleWidth - OverAllDiff, 0)-(Target.ScaleWidth - (OverAllDiff + 1), Target.ScaleHeight), NewColor, BF
    'Fade Out from bottom left
    Case 8
    Target.Line (0, Target.ScaleHeight - OverAllDiff)-(Target.ScaleWidth, Target.ScaleHeight - (OverAllDiff + 1)), NewColor, BF
    Target.Line (OverAllDiff, 0)-(OverAllDiff + 1, Target.ScaleHeight), NewColor, BF
    'Fade Out from top left
    Case 9
    Target.Line (0, OverAllDiff)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    Target.Line (OverAllDiff, 0)-(OverAllDiff + 1, Target.ScaleHeight), NewColor, BF
    'Fade Out from top right
    Case 10
    Target.Line (0, OverAllDiff)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    Target.Line (Target.ScaleWidth - OverAllDiff, 0)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight - 20), NewColor, BF
    'Fade Out from center
    Case 11
    Target.Line (Int(Target.ScaleWidth / 2 - OverAllDiff / 2), Int(Target.ScaleHeight / 2 - OverAllDiff / 2))-(Target.ScaleWidth / 2 + OverAllDiff / 2, Target.ScaleHeight / 2 + OverAllDiff / 2), NewColor, B
    'Fade In from bottom right
    Case 12
    Target.Line (OverAllDiff, Target.ScaleWidth)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    'Fade In from bottom left
    Case 13
    Target.Line (0, Target.ScaleHeight)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    'Fade In from top left
    Case 14
    Target.Line (0, 0)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    'Fade In from top right
    Case 15
    Target.Line (Target.ScaleWidth, 0)-(OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    'Boxes 1
    Case 16
    Target.Line (Target.ScaleWidth, 0)-(OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    Target.Line (0, Target.ScaleHeight)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    'Boxes 2
    Case 17
    Target.Line (Target.ScaleWidth, 0)-(OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    Target.Line (OverAllDiff, Target.ScaleWidth)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    'Boxes 3
    Case 18
    Target.Line (Target.ScaleWidth, 0)-(OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    Target.Line (0, Target.ScaleHeight)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    Target.Line (OverAllDiff, Target.ScaleWidth)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    'Boxes 4
    Case 19
    Target.Line (0, Target.ScaleHeight)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    Target.Line (OverAllDiff, Target.ScaleWidth)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    'Boxes 5
    Case 20
    Target.Line (Target.ScaleWidth, 0)-(OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    Target.Line (0, 0)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    'Boxes 6
    Case 21
    Target.Line (0, Target.ScaleHeight)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    Target.Line (0, 0)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    'Boxes 7
    Case 22
    Target.Line (OverAllDiff, Target.ScaleWidth)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    Target.Line (0, 0)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    'Boxes 8
    Case 23
    Target.Line (0, 0)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    Target.Line (Target.ScaleWidth, 0)-(OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    Target.Line (0, Target.ScaleHeight)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    Target.Line (OverAllDiff, Target.ScaleWidth)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    'Top to Bottom
    Case 24
    Target.Line (0, OverAllDiff)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    'Bottom to Top
    Case 25
    Target.Line (0, 0)-(Target.ScaleWidth, Target.ScaleHeight - OverAllDiff), NewColor, BF
    'Refraction
    Case 26
    Target.Line (Target.ScaleWidth - OverAllDiff, OverAllDiff)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight), NewColor, BF
    Target.Line (OverAllDiff, Target.ScaleHeight - OverAllDiff)-(Target.ScaleHeight, OverAllDiff), NewColor, BF
    'Line through middle
    Case 27
    Target.Line ((Target.ScaleWidth / 2) - (OverAllDiff / 2), 0)-((Target.ScaleWidth / 2) - (OverAllDiff / 2), Target.ScaleHeight), NewColor, BF
    Target.Line ((Target.ScaleWidth / 2) + (OverAllDiff / 2), 0)-((Target.ScaleWidth / 2) + (OverAllDiff / 2), Target.ScaleHeight), NewColor, BF
    'Exploded
    Case 28
    Target.Line (Target.ScaleWidth, OverAllDiff / 2)-(OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    Target.Line (0, Target.ScaleHeight)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    'Pouring
    Case 29
    Target.Line (Target.ScaleWidth, 0)-(OverAllDiff, Target.ScaleHeight), NewColor, BF
    Target.Line (0, Target.ScaleHeight)-(Target.ScaleWidth - OverAllDiff, OverAllDiff), NewColor, BF
    'lighthouse
    Case 30
    Target.Line (Target.ScaleWidth, OverAllDiff / 2)-(OverAllDiff, Target.ScaleHeight - OverAllDiff), NewColor, BF
    'Square
    Case 31
    Target.Line (OverAllDiff / 2, Target.ScaleWidth)-(Target.ScaleWidth, OverAllDiff + 1), NewColor, BF
    'Ripped
    Case 32
    Target.Line ((Target.ScaleHeight * OverAllDiff), OverAllDiff)-(OverAllDiff, Target.ScaleWidth + OverAllDiff), NewColor, BF
    'Prism
    Case 33
    Target.Line (Target.ScaleWidth - OverAllDiff, OverAllDiff)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight), NewColor, BF
    Target.Line (OverAllDiff, Target.ScaleHeight - OverAllDiff)-(Target.ScaleHeight - OverAllDiff, 0), NewColor, BF
    'Top left to bottom right
    Case 34
    Target.Line (0, OverAllDiff * 2)-(OverAllDiff * 2, 0), NewColor
    'Fade to center from top right and botto
    ' m left
    Case 35
    Target.AutoRedraw = False
    Target.Line (0, Target.ScaleHeight - OverAllDiff)-(OverAllDiff, Target.ScaleHeight), NewColor
    Target.Line (Target.ScaleWidth - OverAllDiff, 0)-(Target.ScaleWidth, OverAllDiff), NewColor
    'Fade to center from top left and bottom
    ' right
    Case 36
    Target.Line (Target.ScaleWidth, Target.ScaleHeight - OverAllDiff)-(Target.ScaleWidth - OverAllDiff, Target.ScaleHeight), NewColor
    Target.Line (0, OverAllDiff)-(OverAllDiff, 0), NewColor
    'Wow I'm finally done!
    End Select
    End Function


    Function nolic(Target As Object)
    Target.FontSize = 10
    Target.ForeColor = vbBlack
    Target.CurrentY = 0
    Target.CurrentX = 2
    Target.Print "Created With a SpiderTek Product"
    Target.ForeColor = vbWhite
    Target.CurrentY = 0
    Target.CurrentX = 3
    Target.Print "Created With a SpiderTek Product"
    End Function


    Private Sub Form_Click()
    Static x As Integer
    If x = 36 Then x = 0
    x = x + 1
    Gradeffect Me, x
    Me.CurrentY = 200
    Me.CurrentX = 3
    Me.Print "You are at """ & x & """ of 36 total effects."
    nolic Me
    End Sub


    Private Sub Form_Load()
    FadeColors.Add vbBlack
    FadeColors.Add vbRed
    FadeColors.Add vbYellow
    FadeColors.Add vbWhite
    Gradeffect Me, 1
    End Sub


    Private Sub Form_Resize()
    Gradeffect Me, 1
    End Sub

    الرقم ( 1 ) السابق هو الذي يحدد شكل التداخل بتغيير البارميتر المرسل إلى الإجراء ، وهو يتراوح بين 1 و 38 على الشكل التالي كمثال :

    1 - 4 مثلث أصفر ، وتدرج من الأحمر إلى الأسود ( الإختلاف في جهة الملثلث )
    5 تدرج من الأحمر للأصفر متقطع
    6 تدرج من الأبيض للأسود مروراً بالأحمر والأصفر صافي أفقي
    7 مثل السابق من زاوية
    8 - 10 من زاوية مع تقطع
    11 من الوسط ( نصف مقطع ونصف صافي ) .
    12 - 16 من زوايا ولكن الفورم مقسوم نصفين من زاويتين
    17 ليس مقسوماً من النصف ولكن من جهة واحدة
    18 من ثلاث جهاتد

    وهكذا انتهينا والحمد لله من كل كودات الالوان

    لونو على ذوقكم

    انا مشكلتي دائما في اختيار تنسيق الالوان

    موفقين

    نلتقي في الدرس القادم انشاء الله
    التعديل الأخير تم بواسطة الحبيب لمين ; 03-08-2006 الساعة 11:19 AM

  7. #22
    التسجيل
    27-03-2006
    الدولة
    موريتانيا
    المشاركات
    160

    رد: فيجوال بيزك........{5}

    سلسلة ممتازة لمن ياريت لو تكون في موضوع واحد

    شكرا

  8. #23
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: فيجوال بيزك........{5}

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



    شكرا


    لقد طلبت ذلك من احد المراقبين

    وسوف يقوم بذلك ان شاء الله

    شكرا على المرور

    اتمني انك تستفيدي من الموضوع

  9. #24
    التسجيل
    24-04-2006
    الدولة
    ساكن فى قلب حبيبتي الغاليه عليا وعلى كل الناس (^_^)
    المشاركات
    61

    رد: فيجوال بيزك........{4}

    درس كوووووووول

    ممتاز

    استمر انا معال على الخط طول

    شكرا على هذا المجهود

  10. #25
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: فيجوال بيزك........{4}

    اقتباس المشاركة الأصلية كتبت بواسطة سر العرب
    درس كوووووووول


    ممتاز

    استمر انا معال على الخط طول


    شكرا على هذا المجهود


    مشكوووور اخي على المرور على الموضوع

  11. #26
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: فيجوال بيزك ......مقدمة

    الحمد لله

    شكرا للمراقب
    wellknownQ8


    لقد جمع الموضوع

    لكي تعم الفائدة على الجميع

    شكر خاص مني له

  12. #27
    التسجيل
    14-01-2005
    الدولة
    الاردن - عمان
    المشاركات
    1,818

    رد: فيجوال بيزك ......مقدمة

    ومني لك ايضا اخي

    جزاك الله خيرا
    شبكة قانوني الاردن
    نسعى معا للرقي بالمهنة القانونية في الاردن
    www.lawjo.net


    -----------------------------------------
    e_amawi (at) yahoo.com

  13. #28
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: فيجوال بيزك ......مقدمة

    اقتباس المشاركة الأصلية كتبت بواسطة amawi
    ومني لك ايضا اخي
    جزاك الله خيرا
    بارك الله فيك

    تحياتعي لك انت صاحب الفكرة

    انت دائما منورنا

    بارك الله فيك


  14. #29
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    الدرس السادس ..........{6}





    في بداية الدرس سوف نقوم سريعاً بتصميم قاعدة بيانات ،
    وشكل الفورم الرئيسي قبل البدء في تطبيق عناصر الدرس .

    في البداية قم بانشاء قاعدة بيانات تحتوي على الحقول التالية :

    Nu : من النوع رقم Number ، وهو مثلاً رقم الموظف في الشركة .
    Fn : من النوع ( نص Text ) وهو خاص باسم الشخص .
    Te : وهو خاص برقم الهاتف ، وهو من النوع رقم Number ، وهذا الحقل أيضاً من المفضل وضعه على هيئة نص Text إلا أننا سنسخدمه على شكل رقم .
    ومن ثم قم بانشاء Form وضع فيه الأدوات التالية :
    * Text1,Text2,Text3 لعرض معلومات كل شخص .
    * Command من 1 إلى 4 ( الأول - السابق - التالي - الأخير ) .
    * Command من 5 إلى 8 ( تعديل سجل ، سجل جديد - انهاء بلا حفظ - حفظ ) . مع مراعاة أن يكون التمكين Enabled لكل من زري ( حفظ - بلا حفظ ) هو False .
    * Command من 9 إلى 12 ( حذف - خروج - عرض في جدول - عدد السجلات ) .
    وقم بانشاء Module ... اضغط على الفورم بزر الماوس الأيمن ، اختر Add ومن ثم Module .
    والآن سننتقل لمرحلة التعامل مع قاعدة البيانات .
    لبدء التعامل مع DAO لا بد من اضافة المكتبة الخاصة بالداو إلى المشروع الذي قمنا بانشاءه ، لذا من قائمة Project اختر Refrence واختر المكتبة :

    Microsoft Dao 3.6 Object Library

    أو أي اصدار اقدم ، إلا أن 3.6 هو الاصدار المفضل .
    والآن ، تقدم لنا DAO كائنات مختلفة للتعامل مع قواعد البيانات ، فهي توفر لنا Workspace لبدء العمل مع قاعدة البيانات مع الكائن Database والمختص بالتعامل مع ملف قاعدة البيانات ، RecordSet للتعامل مع الجداول ، TableDef للقيام بانشاء جداول وقت التنفيذ - أحد تطبيقاته - .
    والآن سنتعرف على Sub main() ؟

    يوفر لنا الفيجوال بيسك امكانية بدء المشروع بواسطة هذه الاجراء والذي يتم تعريفه في Module ، ولذلك نقوم في هذا الاجراء بعمل المهام التي نحتاجها قبل البدء في تنفيذ الكود .
    من قائمة Project اختر Project Properties ، ومن ثم اختر Sub main من القائمة Startup .
    والآن سوف بتعريف عدد من المتغيرات Public وذلك بالشكل التالي :

    [شفرة]

    Public D1 As Database
    Public T1 As Recordset
    Public T2 As Recordset
    Public folder As String
    [/شفرة]

    * المتغيرات Public هي أحد أنواع الوصول للمتغيرات حيث يتم مشاهدة المتغيرات على مستوى المشروع .

    المتغير الأول خاص بقاعدة البيانات ، بينما متغيرات خاصان بالجداول ، وأخيراً متغير نصي String نخزن فيه مسار البرنامج الحالي .

    والآن سوف نقوم ببرمجة الاجراء main ، وسوف يحتوي على المهام التالي مرتبة :
    * معرفة مسار البرنامج .

    * إذا لم تكن قاعدة البيانات موجودة فإنه يقوم باستدعاء اجراء انشاء قاعدة بيانات جديدة .
    * بعد وجود قاعدة البيانات الجديدة أو الموجودة اصلاً ، القيام بازالة خاصية القراءة فقط من على الملف .
    * الاتصال بقاعدة البيانات .
    * اظهار الفورم الرئيسي للبرنامج .
    وهذا هو الكود ، وبين كل مهمة ومهمة أخرى هناك سطر .

    [شفرة]
    Private Sub main()
    folder = App.Path
    If Right(folder, 1) <> "\" Then folder = folder & "\"
    If Dir(folder & "mm.mdb") = "" Then
    CreateMyDatabase folder & "mm.mdb"
    End If
    SetAttr folder & "mm.mdb", vbNormal
    Set D1 = DBEngine.Workspaces(0).OpenDatabase(folder & "mm.mdb")
    Form1.Show
    End Sub
    [/شفرة]

    والآن سوف نقوم ببرمجة الاجراء الذي يقوم بعمل قاعدة البيانات في حالة عدم وجودها ، وهو مقسم على قسمين .

    -انشاء ملف قاعدة البيانات .
    - بعد انشاء الملف ، انشاء الجداول والحقول داخلها .

    سنسمي المهمة الأولى CreateMyDatabase وسوف تقوم بالخطوات التالية مرتبة :
    * تعريف متغير خاص لقاعدة البيانات .
    * انشاء قاعدة البيانات - لاحظ تشابه الطريقة مع طريقة فتح قاعدة البيانات .
    * اغلاق قاعدة البيانات .
    * استدعاء الاجراء الثاني - انشاء الجداول والحقول داخلها - .
    * افراغ المتغيرات Varibles حتى لا تحجز مكاناً من الذاكرة .

    مجدداً هذا هو الكود :

    [شفرة]
    Sub CreateMyDatabase(DB_Name As String)
    Dim dbsNew As Database
    Set dbsNew = DBEngine.Workspaces(0).CreateDatabase(DB_Name, dbLangGeneral, dbEncrypt)
    dbsNew.Close
    CreateMyTableS DB_Name

    Set dbsNew = Nothing
    Set wrkDefault = Nothing
    End Sub
    [/شفرة]

    المهمة الأخيرة في هذا الدرس ، هي انشاء الجداول داخل قاعدة البيانات ، وسوف تمر بالخطوات التالية .
    * تعريف TableDef لانشاء جدول من خلاله . وكذلك متغير من نوع ملف قاعدة بيانات .
    * فتح قاعدة البيانات التي انشأناها للتو .
    * تعريف TableDef على أنه منشأ للجداول داخل قاعدة البيانات ( ربطه بقاعدة البيانات ) .
    * البدء في اضافة الحقول .
    * اتمام عملية اضافة الجدول .

    وهذا هو الكود :

    [شفرة]

    Sub CreateMyTableS(DBName)
    Dim dbsMyData As Database
    Dim tdfNew1 As TableDef
    Set dbsMyData = OpenDatabase(DBName)
    With dbsMyData
    Set tdfNew1 = dbsMyData.CreateTableDef("TB")
    With tdfNew1
    .Fields.Append .CreateField("nu", dbInteger)
    .Fields.Append .CreateField("fn", dbText)
    .Fields.Append .CreateField("te", dbDouble)
    End With
    dbsMyData.TableDefs.Append tdfNew1
    End With
    End Sub
    [/شفرة]

    في النهاية :
    في هذا الدرس تعرفنا سوية على كيفية عمل كائن Dao ،

    وكيفية انشاء قاعدة بيانات من خلاله وقت التنفيذ .

    في الدرس القادم سوف نبدأ في التعامل مع قاعدة البيانات بإذن الله .
    * في الدرس الأخـــر سوف يكون ملف مرفق على جميع العمليات خلال الدروس بإذن الله .

    والسلام عليكم ورحمة الله وبركاته .

  15. #30
    التسجيل
    24-04-2006
    الدولة
    ساكن فى قلب حبيبتي الغاليه عليا وعلى كل الناس (^_^)
    المشاركات
    61

    رد: فيجوال بيزك ......مقدمة

    السلام عليكم

    شكرا اخي الكريم الحبيب لمين

    على هذا الشرح

    لكن اتمني ان اكون اقل حجم

    وبارك الله فيك

    ممكن سوال

    هل ننتج منظومة في نهاية هذا العمل ؟؟؟

    شكرا مرة اخري

صفحة 2 من 12 الأولىالأولى 1234567 ... الأخيرةالأخيرة

ضوابط المشاركة

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