الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه NO BODY CAN BEAT ME في 29 سبتمبر 2005 · 17 رد · 1,635 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لقد قمت بعمل مكتبة اكواد وهي تضم 88 كود معظم ال 88 كود انا جمعتهم من مواضيع مختلفة ووضعتها في هذه المكتبة

الان اذا كنتم تريدون ان تحدث هذه المكتبة ارجو من الجميع وضع كود واحد على الاقل مع شرح مبسط ;) وانا انتظر الاكواد ساهمو لكي نحدث هذه المكتبة B)

تعلم:كيف تشغل برنامجك (قبل) ما يشتغل ال explorer, مثل ال check desk في الوندوز 98 و me

اللهم عطر يومنا بالايمان وانر قلبنا بالقرآن ورزقنا من حيث لانحتسب واجعل لنا سكينة تطمئن بها روحنا واحفظنا من كل سوء اللهم بارك لنا في رجب وشعبان وبلغنا رمضان آمين يارب العالمين

ranneh.com

#3

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

تعلم:كيف تشغل برنامجك (قبل) ما يشتغل ال explorer, مثل ال check desk في الوندوز 98 و me

اللهم عطر يومنا بالايمان وانر قلبنا بالقرآن ورزقنا من حيث لانحتسب واجعل لنا سكينة تطمئن بها روحنا واحفظنا من كل سوء اللهم بارك لنا في رجب وشعبان وبلغنا رمضان آمين يارب العالمين

ranneh.com

#4

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

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

#5

الف شكر اخي MoaM

تعلم:كيف تشغل برنامجك (قبل) ما يشتغل ال explorer, مثل ال check desk في الوندوز 98 و me

اللهم عطر يومنا بالايمان وانر قلبنا بالقرآن ورزقنا من حيث لانحتسب واجعل لنا سكينة تطمئن بها روحنا واحفظنا من كل سوء اللهم بارك لنا في رجب وشعبان وبلغنا رمضان آمين يارب العالمين

ranneh.com

#6

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

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

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

الادوات

أضف 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
#7

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

تعلم:كيف تشغل برنامجك (قبل) ما يشتغل ال explorer, مثل ال check desk في الوندوز 98 و me

اللهم عطر يومنا بالايمان وانر قلبنا بالقرآن ورزقنا من حيث لانحتسب واجعل لنا سكينة تطمئن بها روحنا واحفظنا من كل سوء اللهم بارك لنا في رجب وشعبان وبلغنا رمضان آمين يارب العالمين

ranneh.com

#8

الزر المؤقت

الزر المؤقت

الأدوات

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

#9

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

#10

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

تعلم:كيف تشغل برنامجك (قبل) ما يشتغل ال explorer, مثل ال check desk في الوندوز 98 و me

اللهم عطر يومنا بالايمان وانر قلبنا بالقرآن ورزقنا من حيث لانحتسب واجعل لنا سكينة تطمئن بها روحنا واحفظنا من كل سوء اللهم بارك لنا في رجب وشعبان وبلغنا رمضان آمين يارب العالمين

ranneh.com

#11

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

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

تم تعديل هذه المشاركة بواسطة albahr في 14 ديسمبر 2005 في 11:45

#12

السلام عليكم

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

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

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

#13

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

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

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

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

#14

السلام عليكم

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

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

#16

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

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

#17

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

الوصلة

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

جديد مدونتي الشخصية http://www.badwi.com

ادعو لنا بظاهر الغيب

MyBooksExchange.jpg

#18
golden man كتب:
ما هو نوع قاعدة البيانات التي استخدمتا ؟

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

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

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

هذا الموضوع مغلق.

مواضيع مشابهة