حساب معطيات هندسية في الفيجول

اخي الكريم عملتلك مثال ستجدة في الملحقات

WindowsFormsApplication1.zip

عذراً لان إجابتي بلغة c# ولكن اتوقع ان الامر غير صعب لتحويل بين اللغتين .. ولو احتجت الكود بلغة vb فإنا جاهز

اشكرك يا اخي على تعبك معي , بس حبيت اسألك على تشغيل البرنامج , كيف يمكنني ان اعمل run للبرنامج بدون ان يكون ال .net منصب في الحاسبة ؟ وكيف يمكنني ان اعمل المشروع برنامج تنصيبي ممكن ان انصبه؟

ارقى التحيات

Eng.NM كتب:

اشكرك يا اخي على تعبك معي , بس حبيت اسألك على تشغيل البرنامج , كيف يمكنني ان اعمل run للبرنامج بدون ان يكون ال .net منصب في الحاسبة ؟ وكيف يمكنني ان اعمل المشروع برنامج تنصيبي ممكن ان انصبه؟

ارقى التحيات

السلام عليكم

تفضل أخي ما طلبت على عجالة (VB.NET 2010 ) ...

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

Public Class Form1
    Dim a As Integer
    Dim b As Integer



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("'1'")
        ComboBox1.Items.Add("'2'")
        ComboBox1.Items.Add("'3'")

        ComboBox2.Items.Add("'1'")
        ComboBox2.Items.Add("'2'")
        ComboBox2.Items.Add("'3'")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Trim(ComboBox1.Text) = "" Or Trim(ComboBox2.Text) = "" Then
            MsgBox("select value")
        ElseIf RadioButton1.Checked = True Then


            TextBox1.Text = a * b

        ElseIf RadioButton2.Checked = True Then
            TextBox1.Text = 2 * (a + b)
        Else
            MsgBox("select area or circumference ")

        End If

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex() = 0 Then
            a = 15
        ElseIf ComboBox1.SelectedIndex() = 1 Then
            a = 4
        Else
            a = 8
        End If
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.SelectedIndex() = 0 Then
            b = 53
        ElseIf ComboBox2.SelectedIndex() = 1 Then
            b = 34
        Else
            b = 1
        End If
    End Sub
End Class

وبالنسبة لعمل البرنامج على أي جهاز ، فيكفي تصدير البرنامج كتطبيق exe ، ولضمان عمله فيفضل عمل تحزيم package للبرنامج لأنه قد يستدعي مكتبات لا توجد على أجهزة أخرى ، وبالنسبة لطريقة التحزيم فاتبع التالي

:

File -> add project -> new project

ثم اختر : setup and deployment project واتبع الخطوات الموجودة ...

أتمنى أن يكون هذا طلبك

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

WindowsApplication1.rar

لا شكر على واجب واتوقع ان الاخ عاشق للبرمجة قد اجاب عن باقي اسإلتك

اشكركم اخواني مرة ثانية , بس معلش استحملوني شويه , اذا كان عندي اكثر من 3 قيم , فرضا 6 او 5 , عندما بحثت وجدت انه يتم استخدام switch بس هنا في الفيجول ما تضبط , والمشكلة الاخرى الي تواجهني هي عملية ال setup

داخل المشروع فيه فولدر بتاع ال setup لكن كيف استخدمه او انفذه ؟ واضع الفايلات او ال .exe فيه؟

Eng.NM كتب:

اشكركم اخواني مرة ثانية , بس معلش استحملوني شويه , اذا كان عندي اكثر من 3 قيم , فرضا 6 او 5 , عندما بحثت وجدت انه يتم استخدام switch بس هنا في الفيجول ما تضبط , والمشكلة الاخرى الي تواجهني هي عملية ال setup

داخل المشروع فيه فولدر بتاع ال setup لكن كيف استخدمه او انفذه ؟ واضع الفايلات او ال .exe فيه؟

لا شكر على واجب ، تابع الكود التالي :

Public Class Form1
    Dim a As Integer ' تعريف متغير لقيمة الكومبو بوكس الخاص بالطول
    Dim b As Integer ' تعريف متغير لقيمة الكومبو بوكس الخاص بالعرض



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("'1'")
        ComboBox1.Items.Add("'2'")
        ComboBox1.Items.Add("'3'")

        ComboBox2.Items.Add("'1'")
        ComboBox2.Items.Add("'2'")
        ComboBox2.Items.Add("'3'")

        ' هذه الأكواد تقوم بإضافة وحدات للكومبوبوكس الأول وللكمبوبوكس الثاني وبالإمكان زيادة القيم بتكرار الكود ، مثلا لإضافة وحدة جديدة للكومبو الأول ولتكن الوحدة تسمى "مرحبا" نكتب الكود التالي
        ' combobox1.items.add("مرحبا")
        ' وهكذا وعليك بالتجربة لفهم الأمر أكثر
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Trim(ComboBox1.Text) = "" Or Trim(ComboBox2.Text) = "" Then
            MsgBox("select value")
            ' الكود أعلاه للتأكد من أنه تم اختيار قيمة من الكومبوبوكس الأول والثاني
        ElseIf RadioButton1.Checked = True Then


            TextBox1.Text = a * b
            ' وفي حال تم الاختيار سنظر البرنامج إذا زر الراديو الخاص بالمساحة قد اختير فسيقوم بعملية حساب المساحة
        ElseIf RadioButton2.Checked = True Then
            TextBox1.Text = 2 * (a + b)
            ' وفي حال تم الاختيار سنظر البرنامج إذا زر الراديو الخاص بالمحيط قد اختير فسيقوم بعملية حساب المساحة
        Else
            MsgBox("select area or circumference ")
            ' وهنا في حالة عدم اختيار المساحة أو المحيط
        End If

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex() = 0 Then
            a = 15
        ElseIf ComboBox1.SelectedIndex() = 1 Then
            a = 4
        Else
            a = 8
        End If

        ' هذا الكود في حدث اختيار أحد محتويات الكومبو الأول ، فإن تم اختيار الوحدة الأولى فسيعطي قيمة المتغير  15 ... وهكذا
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.SelectedIndex() = 0 Then
            b = 53
        ElseIf ComboBox2.SelectedIndex() = 1 Then
            b = 34
        Else
            b = 1
        End If
        ' هذا الكود في حدث اختيار أحد محتويات الكومبو الثاني ، فإن تم اختيار الوحدة الأولى فسيعطي قيمة المتغير  53 ... وهكذا
    End Sub
End Class

أما بالنسبة للتحزيم فتابع هذا العرض ، هذه الطريقة أسهل :

هنا يوضح لك كيف يتم تحديد ايقونة للبرنامج ، والتاكد من المكتبات غير المستخدمة والتحديثات والشبكة ..... الخ

اتمنى ان يكون ذو فائدة

شكرا اخي عاشق البرمجة , اشكرك على تعبك , بس حبيت اسألك كبرمجيا اذا كان عندي اكثر من 15 قيمة في ال القائمة كلهم اعملهم if ؟ يعني ما في جوانب سلبية على البرنامج؟