[sad89891]

السلام عليكم ورحمة الله 
اناعندي مشروع حساب الوزن المثالي 
 انا ماعرف اكتب البرمجة وهذه القانون 
[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 


---

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

[sad89891]

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

[Anas Mahmoud]

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

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

[emadahmed1995]

شكرا جزيلا..

مضرب بادل