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

دالة حساب مساحة مستطيل

بدأه RANDOOM في 6 يناير 2011 · 7 رد · 3,931 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

ممكن احد يفهمني كيف جاء الحل !!! :sleep:

السؤال :

اكتب داله تقوم بحساب مساحة مستطيل

بحيث يقوم المستخدم بإدخال

قيمتان هي عرض المستطيل و طول المستطيل

مع ملاحظـة اذا لم يدخل المستخدم القيمه المطلوبه

تكون قيمة الطول 1

الحل موجود لكن فيه اشياء احس انها خطاء

Public Class Form1

Function print(Optional ByVal F As Integer = 1)

Dim s As Integer = F * T

TextBox3.Text = s

Return TextBox3.Text

End Function

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

Dim t As Integer

Dim a As Integer

t = TextBox1.Text

a = TextBox2.Text

print(t, a)

End Sub

End Class

فـ يآليت احد يساعدني

بليز اختباري يوم السبت

#2

the Print Function have a proble , there are a missing parameter

#3

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

من الملاحظ اخي الكريم انك عندما استدعيت الداله "print" ارسلت متغير t و a اي متغرين وعتد تعريف الدالة فقط عرفت متغير واحد

فكما ذكر الأخ "Esam_Rabab" هناك متغير ناقص عند تعريف الداله "print"

#4

نقطة إضافية:

ضع هذه الجملتين في بداية كل ملف vb

Option Explicit On
Option Strict On

هذه الجملتين ستساعدك في الابتعاد عن الكثير من الأخطاء التي تنتج عن المتغيرات الغير معرفة وتحويل البيانات الغير صحيح. نعم ستضطر لتحويل الأنواع بنفسك، ولكن هذا أفضل على المدى الطويل. مثلاً:

t = TextBox1.Text

بجب أن تتغير إلى

t = CInt(TextBox1.Text)

دالة CInt تحول الـstring الصادر من TextBox1 إلى integer

#5

أخي الكريم

الحل كالتالي وأرجو من الإخوة إن كان هناك أي أخطاء أن يصححوها ونفعنا الله إياكم جميعاً:

الفانكشن:

Function print(ByVal x As Double, ByVal y As Double) As Integer
        Dim result As Double
        If x = Val("") Then
            result = 1 * y
        Else
            result = x * y
        End If
        MsgBox(result)
    End Function

عند النقر على الزر:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Double
        x = Val(TextBox1.Text)
        y = Val(TextBox2.Text)
        print(x, y)
    End Sub

حيث textbox1 هي الطول , textbox2 هي العرض

مع تحياتي

اللهم اجعلنا أهلاً لحمل رسالة العلم ونشرها

لتنعم أمة الإسلام بخير العلم ونوره

www.ijoul.com

#6

بس عندي سؤال هو عمل الداله "Val" نفس عمل الداله "CInt" الي ذكرها العضو الكريم " System Down"

وشكرا...

m.aljoul كتب:

أخي الكريم

الحل كالتالي وأرجو من الإخوة إن كان هناك أي أخطاء أن يصححوها ونفعنا الله إياكم جميعاً:

الفانكشن:

Function print(ByVal x As Double, ByVal y As Double) As Integer
        Dim result As Double
        If x = Val("") Then
            result = 1 * y
        Else
            result = x * y
        End If
        MsgBox(result)
    End Function

عند النقر على الزر:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Double
        x = Val(TextBox1.Text)
        y = Val(TextBox2.Text)
        print(x, y)
    End Sub

حيث textbox1 هي الطول , textbox2 هي العرض

مع تحياتي

#7
s77j كتب:

بس عندي سؤال هو عمل الداله "Val" نفس عمل الداله "CInt" الي ذكرها العضو الكريم " System Down"

وشكرا...

أخي الكريم

عمل الدالة Val تحويل السلاسل النصية إلى قيمة رقمية

عمل الدالة cint هو التقريب لأقرب عدد صحيح

مع تحياتي

اللهم اجعلنا أهلاً لحمل رسالة العلم ونشرها

لتنعم أمة الإسلام بخير العلم ونوره

www.ijoul.com

#8

شكرا أخي الكريم لهذا التوضيح

m.aljoul كتب:

أخي الكريم

عمل الدالة Val تحويل السلاسل النصية إلى قيمة رقمية

عمل الدالة cint هو التقريب لأقرب عدد صحيح

مع تحياتي

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