مشروع:تحديث مكتبة الاكواد

يمكنني المساعدة :D

سأكتب لك الكثير من الدوال (Functions) الرياضية الهامة و غيرها من الدوال و الأكواد

انتظرني B)

الله يحيك اخي انا بانتظار جميع الاعضاء للمساعدة

أولاًُ :يجب استيراد طبقات الرياضيات و ذلك كما يلي :

Imports System.Math

-----------------------------------------

Atan2(Y, X)

يعيد هذا التابع الزاوية في المستوي الديكارتي ة يبدأ شعاع البداية من النقطة (0,0) و ينتهي بالنقطة (X,Y)

و القيمة المعادة و لنسمها M تتبع الشروط التالية

من أجل (X,Y) في الربع الأول :

0 < M < PI/2

من أجل (X,Y) في الربع الثاني :

PI/2 < M < PI

من أجل (X,Y) في الربع الثالث :

-PI < M < -PI/2

من أجل (X,Y) في الربع الرابع :

-PI/2 < M < 0

-----

Ceiling(A)

يعيد أصغر رقم صحيح أكبر أو يساوي الرقم A

-----

E

يعيد هذا الحقل القيمة التقريبية للرقم e و له أهمية كبيرة في الرياضيات و هو يساوي (تقريباً)

2.71828182845905

-----

Exp(A)

لرفع العدد السابق e للقوة A

-----

Floor(A)

يعيد أكبر رقم صحيح أصغر أو يساوي الرقم A

-----

Max(A, B)

يعيد أكبر القيمتين A و B

-----

Min(A, B)

يعيد أصغر القوتين A و B

-----

A Mod B

يعيد باقي قسمة A على B و الناتج رقم صحيح أكبر أو يساوي الصفر

-----

PI

يعيد هذا الحقل القيمة التقريبية للرقم PI و هو يساوي (تقريباً)

3.14159265358979

-----

Round(A, B)

يقرب هذا التابع القيمة A إلى رقم يحتوي على عدد من الخانات العشرية المحددة بالرقم B

-----

Sign(A)

هذا التابع لتحديد إشارة العدد A

إذا كان العدد A سالباً يعود التابع بقيمة تساوي -1

إذا كان العدد A موجباً يعود التابع بقيمة تساوي 1

-----

Sqrt(A)

يعيد الجذر التربيعي للرقم A

-----

انتظر مني بإذن الله مجموعة أخرى

تحياتي,

MoaM

الف شكر اخي MoaM

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

ظهور الفورم بشكل متلاشي حتى يظهر كاملا

وغلقة بشكل متلاشي أي مثل الفلاش

الادوات

أضف Timer وغير خاصية Enabled إلى True

غير خاصية لـ Opacity للـForm الى 0

أضف الكوديت التالييين

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

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        'Make the Window "Fade away".
        Dim d As Double
        For d = 1 To 0 + 0.1 Step -0.1
            System.Threading.Thread.Sleep(50)
            Application.DoEvents()
            Me.Opacity = d
            Me.Refresh()
        Next d
        Environment.Exit(0)
    End Sub

هذا الكود برمجتة بنفسي

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Opacity = 1 Then
            Timer1.Enabled = False
            Timer1.Dispose()
            Exit Sub
        Else
            Me.Opacity += 0.1
            Me.Refresh()
        End If
    End Sub

شكرا لك اخي وان شاء الله عند جمع عدد كبير من الاكواد لكن مع شرحها سوف اقوم بوضع التحديث:)

الزر المؤقت

الزر المؤقت

الأدوات

1- زر(Button) خاصية Enabled =True

2- أكتب في خاصية1 Text =

3- (Timer) خاصية 1000 Interval =

أضف الكود التالي في حدث المؤقت

If Button1.Text = 5 Then

Timer1.Dispose()

Button1.Text = "OK"

Button1.Enabled = True

Else

Button1.Text += 1

End If

غاية في الروعة

مشكورين لكن نحن بحاجة الى عدد اكبر من الاكواد

أن شاء الله علي بالجهد يا أخي

فأنا أبحث عن كل ماهو مفيد وجديد

السلام عليكم

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

/index.ph...=19394&st=0

أرجو الاستفادة منه و المتابعة

مجرد سؤال ما نوع قواعد البيانات التي تستعملها ؟ !

إذا كانت Access فنصيحة قم بحذف المشروع وأعد مع قواعد بيانات SQL

لأن Access حقولها لا تتستع لأكثر من 255 حرف !!!!

وأنا أكتشفت ها الشي بعد ما عملت المكتبة من زمان وحذفتها ؟ ومن كم يوم بدأت بقواعد بيانات SQL

السلام عليكم

أخي MiCcSoft الحقول في الأكسس ما بتتسع إلا ل 255 حرف إذا كان نوع الحقل نص أما إذا كان نوع الحقل مذكرة فبيتسع لعدد كبير كتير من الأحرف و أنا لا أعرف بالتحديد هذا العدد و لكني جربت أدخل أكثر من 3500 حرف في الحقل و لم تظهر أي مشكل

أرجو متابعة مشروع مكتبة الأكواد لأنه مهم جدا و خاصة أنه لا يوجد حتى الآن مكتبة أكواد للدوت نت

مكتبتي صار فيها أكثر من 200 كود وجاري الجمع

ما هو نوع قاعدة البيانات التي استخدمتا ؟

و أرجو منك وضع المكتبة حتى نتعاون على جمع الأكواد

اخواني هلا قمتم باضافة هذه الاكواد في مكتبة الاكواد الخاصة بالموقع من اجل الفائدة للحميع كما يمكنكم الاطلاع على عشرات الاكواد الموجودة

الوصلة

http://www.arabteam2000.com/Default.asp?Sec=7

golden man كتب:

ما هو نوع قاعدة البيانات التي استخدمتا ؟

و أرجو منك وضع المكتبة حتى نتعاون على جمع الأكواد

أخي العزيز لنفرض أن عشرين عضو حملوا البرنامج ووضع فيه كل عضو كود فسيصبح عنا 20 كود في عشرين داتابيس لذا أفضل وضع الأكواد في موضوع !!!

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