دورات هندسية

 

 

دوره في الفيجوال بيسك دوت نت شاركــ معنا

صفحة 12 من 21 الأولىالأولى ... 28 9 10 11 1213 14 15 16 ... الأخيرةالأخيرة
النتائج 111 إلى 120 من 209
  1. [111]
    مرتضى جبور
    مرتضى جبور غير متواجد حالياً
    جديد
    الصورة الرمزية مرتضى جبور


    تاريخ التسجيل: Jul 2009
    المشاركات: 3
    Thumbs Up
    Received: 0
    Given: 0
    السلام عليكم >>>عضو جديد فهلا عممتم الفائده بادخالي معكم في كيفية تعلم هذه اللغه؟؟؟؟!!!<<<

    0 Not allowed!


    لآًًًًٍٍٍٍَََِِِ إًًًٍٍٍَََِِِلًًًٍٍٍَََِِِـًًٍٍَِـًًٍَِـًًٍَِهًٍَِ ٍِ الآًًًٍٍٍٍََِِِ الًًٍٍٍََِِِلًَـًًٍٍََِِْـًٍَِـًٍٍٍَِِِهًًٍٍٍََِِِ مًًًًٍٍََُُُِِـًًٍٍٍََُُِِِـًًًٍَََُِحًًًٍٍَََُُِِ ُــًٍٍَُِِمًًٍٍٍََُِِِـًًٍََُُِدًًًٍٍٍٍَََُِِِِ رًٍَِْسًًٍََِِْْـًٍَِْـًٍَِوًًٍٍََِِْْلًًٍٍٍََِِِْ ٍِْ اًًٍََِلًٍَلًًٍٍٍََِِِـًٍَِـًٍَِـًٍَِهًٍََِ

  2. [112]
    طه الصبر
    طه الصبر غير متواجد حالياً
    جديد


    تاريخ التسجيل: May 2009
    المشاركات: 6
    Thumbs Up
    Received: 0
    Given: 0
    مهندس والله يوفق الجميع ونعم المقترح

    0 Not allowed!



  3. [113]
    اياس الربابعه
    اياس الربابعه غير متواجد حالياً
    عضو
    الصورة الرمزية اياس الربابعه


    تاريخ التسجيل: Oct 2008
    المشاركات: 18
    Thumbs Up
    Received: 0
    Given: 0
    انا تخصصي هندسه ميكاترونكس وما النا في هالمجال ولكن حبيت اقول الله يعطيكوا العافيه

    0 Not allowed!



  4. [114]
    ليلة خمــــــيس
    ليلة خمــــــيس غير متواجد حالياً
    جديد


    تاريخ التسجيل: Jul 2009
    المشاركات: 5
    Thumbs Up
    Received: 0
    Given: 0
    ابي منكم اخر التصاميم .لبيلة خميس

    0 Not allowed!



  5. [115]
    مساح يمني
    مساح يمني غير متواجد حالياً
    عضو
    الصورة الرمزية مساح يمني


    تاريخ التسجيل: Apr 2009
    المشاركات: 32
    Thumbs Up
    Received: 0
    Given: 0
    السلام عليكم
    احب ان اشترك معكم في هذا الموضوع,لكن لا اعرف عن البرمجه,

    0 Not allowed!


    eng_taha
    http://www.shbab1.com/2minutes.htm

  6. [116]
    يعقوب الضيخ العمري
    يعقوب الضيخ العمري غير متواجد حالياً
    جديد


    تاريخ التسجيل: Jul 2009
    المشاركات: 8
    Thumbs Up
    Received: 0
    Given: 0
    اقتباس المشاركة الأصلية كتبت بواسطة النجم الشارد مشاهدة المشاركة
    كما عرفتم نقوم بجعل العمليات في ازرار لكم كود العليات (تذكروا أخوتي أنة البرنامج الاول )
    كود:
    للجمع  
    result=no1+no2
    طرح[
    code]result=no1-no2 ]
    [/code]
    كود:
    القسمة 
    result=no1/no2
    كود:
    الضرب
    esult=no1*no2
    كود الادخال
    كود:
    no1= nu1.text
    no2=nu2.text
    عرض الناتج طبعا في زر =
    كود:
    dis.text=result
    في القسمة نقوم بأختبار العدد الثاني وذلك لتأكد من انة لايساوي صفر
    أخي أنا العمري وأريد لوسمحت برمجة الرسم داخل الأتوكاد vbaوأريد الرد سريعا إذا سمحت

    0 Not allowed!



  7. [117]
    م. مكسيم العواد
    م. مكسيم العواد غير متواجد حالياً
    عضو متميز
    الصورة الرمزية م. مكسيم العواد


    تاريخ التسجيل: Jul 2009
    المشاركات: 425
    Thumbs Up
    Received: 0
    Given: 0
    فكرة كتير حلوة.
    البرمجة علم ممتع و رائع, و أنا انصح به.

    0 Not allowed!



  8. [118]
    سليمة الايمان
    سليمة الايمان غير متواجد حالياً
    جديد


    تاريخ التسجيل: Aug 2009
    المشاركات: 5
    Thumbs Up
    Received: 0
    Given: 0
    انا مبرمجة كمبيوتر و كنت ممتازة في لغة الفيجول بيسك و لكني بسبب انني تخصصت في مجال ثاني و هو محاسبة مالية لقد نسيت الفجول بيسك لهدا اتمني ان استفيد منكم و جزاكم الله خير

    0 Not allowed!



  9. [119]
    التواتي
    التواتي غير متواجد حالياً
    عضو فعال جداً
    الصورة الرمزية التواتي


    تاريخ التسجيل: Sep 2005
    المشاركات: 336
    Thumbs Up
    Received: 1
    Given: 0
    شكرا لكم على تناولكم موضوع الفيجوال بيسك لكم أرغب في تطوير هذه اللغة لكي اصبح من المتمكنين منها ان شاء الله.
    وبدأت بمحاولة مجاراتكم في موضوع الحاسبة لذا حاولت كتابة بداية سأحاول أن اتمها إن شاء الله.

    بدايتا قمت بتعريف متغيرات منها:
    no1 لتخزين الرقم السابق للعملية مثلا 4+3= هنا يكون رقم 4 وكلما نقرت على اشارة + او - يتم اتمام العملية ويضع الناتج في no1 .
    add1 لمعرفة الإشارة الموجبة التي تم نقرها سابقا
    min1 لمعرفة الاشارة السالبة التي تم نقرها سابقا
    chan1 لتمكننا من التعرف حين النقر على احدى الاشارات هل الإشارة تتبع الرقم او اشارة العملية
    twice لعدم تكرار الضغط على الاشارة أكثر من مرة

    كود:
    Dim no1 As String
        Dim add1, min1, equ1, chan1, twicemin, twiceadd As Boolean
    في زر رقم 1 وباقي الأرقام مثيلاتها مع تغير الرقم

    كود:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If chan1 = True Then
                TextBox1.Text = ""
                TextBox1.Text = TextBox1.Text & 1
                chan1 = False
            Else
                TextBox1.Text = TextBox1.Text & 1
            End If
            twiceadd = False
            twicemin = False
        End Sub
    هنا عملية الزائد

    كود:
    Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
            If twiceadd = True Then GoTo 200
            twiceadd = True
            chan1 = True
            If add1 = False And min1 = False And TextBox1.Text = "" Then
                chan1 = False
                TextBox1.Text = "+"
            Else
                If add1 = False And min1 = False Then
                    no1 = TextBox1.Text
                    add1 = True
                Else
                    If TextBox1.Text = "" Then
                        TextBox1.Text = "0"
                        GoTo 100
                    Else
    100:
                        If add1 = True Then
                            TextBox1.Text = Val(TextBox1.Text) + Val(no1)
                            no1 = TextBox1.Text
                        Else
                            add1 = True
                            min1 = False
                            TextBox1.Text = Val(no1) - Val(TextBox1.Text)
                            no1 = TextBox1.Text
                        End If
                    End If
                End If
            End If
    200:
            twicemin = False
        End Sub
    هنا عملية الناقص

    كود:
    Private Sub min_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles min.Click
            If twicemin = True Then GoTo 200
            twicemin = True
            chan1 = True
            If add1 = False And min1 = False And TextBox1.Text = "" Then
                chan1 = False
                TextBox1.Text = "-"
            Else
                If add1 = False And min1 = False Then
                    no1 = TextBox1.Text
                    min1 = True
                Else
                    If TextBox1.Text = "" Then
                        TextBox1.Text = "0"
                        GoTo 100
                    Else
    100:
                        If min1 = True Then
                            TextBox1.Text = Val(no1) - Val(TextBox1.Text)
                            no1 = TextBox1.Text
                        Else
                            add1 = False
                            min1 = True
                            TextBox1.Text = Val(no1) + Val(TextBox1.Text)
                            no1 = TextBox1.Text
                        End If
                    End If
                End If
            End If
    200:
            twiceadd = False
        End Sub
    في البداية جعلت chan1=false كي اعرف أن هذه بداية العملية وأي اشارة ستتبع الرقم

    كود:
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            chan1 = False
        End Sub
    قمت بتجربة الحاسبة عملت بشكل جيد تقريبا وسأضيف لها باقي العمليات وإشارة يساوي وغير ذلك مع انتظار مساعدتكم

    حاولت رفع البرنامج ولكن ظهرت رسالة ممنوع رفع ملف application .

    والسلام

    0 Not allowed!


    لـكل شئ إذا مـا تـم نقصــان . . . فلا يُغر بطيب العيش إنسـان
    هي الأيام كما شاهدتها دولا . . . فمن سره زمن ساءته أزمان

    أبو أحمد

  10. [120]
    محبة الله ورسوله*
    محبة الله ورسوله* غير متواجد حالياً
    عضو شرف
    الصورة الرمزية محبة الله ورسوله*


    تاريخ التسجيل: Mar 2006
    المشاركات: 9,592

    وسام الشكر

     وسام كبار الشخصيات

    Thumbs Up
    Received: 30
    Given: 13
    اقتباس المشاركة الأصلية كتبت بواسطة twati مشاهدة المشاركة
    شكرا لكم على تناولكم موضوع الفيجوال بيسك لكم أرغب في تطوير هذه اللغة لكي اصبح من المتمكنين منها ان شاء الله.
    وبدأت بمحاولة مجاراتكم في موضوع الحاسبة لذا حاولت كتابة بداية سأحاول أن اتمها إن شاء الله.

    بدايتا قمت بتعريف متغيرات منها:
    No1 لتخزين الرقم السابق للعملية مثلا 4+3= هنا يكون رقم 4 وكلما نقرت على اشارة + او - يتم اتمام العملية ويضع الناتج في no1 .
    Add1 لمعرفة الإشارة الموجبة التي تم نقرها سابقا
    min1 لمعرفة الاشارة السالبة التي تم نقرها سابقا
    chan1 لتمكننا من التعرف حين النقر على احدى الاشارات هل الإشارة تتبع الرقم او اشارة العملية
    twice لعدم تكرار الضغط على الاشارة أكثر من مرة

    كود:
    dim no1 as string
        dim add1, min1, equ1, chan1, twicemin, twiceadd as boolean
    في زر رقم 1 وباقي الأرقام مثيلاتها مع تغير الرقم

    كود:
    private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
            if chan1 = true then
                textbox1.text = ""
                textbox1.text = textbox1.text & 1
                chan1 = false
            else
                textbox1.text = textbox1.text & 1
            end if
            twiceadd = false
            twicemin = false
        end sub
    هنا عملية الزائد

    كود:
    private sub add_click(byval sender as system.object, byval e as system.eventargs) handles add.click
            if twiceadd = true then goto 200
            twiceadd = true
            chan1 = true
            if add1 = false and min1 = false and textbox1.text = "" then
                chan1 = false
                textbox1.text = "+"
            else
                if add1 = false and min1 = false then
                    no1 = textbox1.text
                    add1 = true
                else
                    if textbox1.text = "" then
                        textbox1.text = "0"
                        goto 100
                    else
    100:
                        If add1 = true then
                            textbox1.text = val(textbox1.text) + val(no1)
                            no1 = textbox1.text
                        else
                            add1 = true
                            min1 = false
                            textbox1.text = val(no1) - val(textbox1.text)
                            no1 = textbox1.text
                        end if
                    end if
                end if
            end if
    200:
            Twicemin = false
        end sub
    هنا عملية الناقص

    كود:
    private sub min_click(byval sender as system.object, byval e as system.eventargs) handles min.click
            if twicemin = true then goto 200
            twicemin = true
            chan1 = true
            if add1 = false and min1 = false and textbox1.text = "" then
                chan1 = false
                textbox1.text = "-"
            else
                if add1 = false and min1 = false then
                    no1 = textbox1.text
                    min1 = true
                else
                    if textbox1.text = "" then
                        textbox1.text = "0"
                        goto 100
                    else
    100:
                        If min1 = true then
                            textbox1.text = val(no1) - val(textbox1.text)
                            no1 = textbox1.text
                        else
                            add1 = false
                            min1 = true
                            textbox1.text = val(no1) + val(textbox1.text)
                            no1 = textbox1.text
                        end if
                    end if
                end if
            end if
    200:
            Twiceadd = false
        end sub
    في البداية جعلت chan1=false كي اعرف أن هذه بداية العملية وأي اشارة ستتبع الرقم

    كود:
       private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
            chan1 = false
        end sub
    قمت بتجربة الحاسبة عملت بشكل جيد تقريبا وسأضيف لها باقي العمليات وإشارة يساوي وغير ذلك مع انتظار مساعدتكم

    حاولت رفع البرنامج ولكن ظهرت رسالة ممنوع رفع ملف application .

    والسلام

    بارك الله فيك ...
    كان ممكن ترفعه بس انك تضغط الملف الاول

    0 Not allowed!


    لا تقل من أين أبدأ ... طاعة الله بداية
    لا تقل أين طريقى ... شرع الله الهداية
    لا تقل أين نعيمى ... جنة الله كفاية
    لا تقل غداً سأبدأ ... ربما تأتى النهاية
    ---------------------
    متغيبه عن الملتقي دعواتكم
    ونسأل الله ان يحفظ سائر بلاد المسلمين وان ينصرهم على الظالمين

  
صفحة 12 من 21 الأولىالأولى ... 28 9 10 11 1213 14 15 16 ... الأخيرةالأخيرة
الكلمات الدلالية لهذا الموضوع

عرض سحابة الكلمة الدلالية

RSS RSS 2.0 XML MAP HTML