منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله
اناعندي مشروع حساب الوزن المثالي
انا ماعرف اكتب البرمجة وهذه القانون
[font=.SF UI][font=.SFUI-Regular]الوزن المثالي = الطول بالسنتيمتر -100[/font][/font]

ممكن مساعد لوسمحتوا ??

الاكواد التالية بناءا على معلومات من الموقع التالي:
https://www.un-web.com/tools/bmi/

PHP كود :
Public Class Form1
    Dim w, t As Integer
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Process.Start("explorer", "https://www.un-web.com/tools/bmi/")
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If wazn.Text.Trim = "" Or tal.Text.Trim = "" Then Exit Sub
        If IsNumeric(wazn.Text) = False Or IsNumeric(tal.Text) = False Then Exit Sub
        w = Val(wazn.Text)
        t = Val(tal.Text) / 100
        Dim r As String = ""
        r = w / ((t) ^ 2)
        result.lblw.Text = "النتيجة: " & r
        result.ShowDialog()
    End Sub
End Class 

مثال بسيط على الفكرة

شكرا شكرا جزيلا ‏الله يسعدك يا رب يوفقك

نفس السؤال كان هنا :

https://vb4arb.com/vb/showthread.php?tid...#pid169508

شكرا جزيلا..

مضرب بادل

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

sad89891

سعود

sad89891

Anas Mahmoud

emadahmed1995