+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مشروع الفيجوال بيسك ستوديو (/showthread.php?tid=37156)
مشروع الفيجوال بيسك ستوديو - sad89891 - 10-12-20
السلام عليكم ورحمة الله
اناعندي مشروع حساب الوزن المثالي
انا ماعرف اكتب البرمجة وهذه القانون
[font=.SF UI][font=.SFUI-Regular]الوزن المثالي = الطول بالسنتيمتر -100[/font][/font]
ممكن مساعد لوسمحتوا ??
RE: مشروع الفيجوال بيسك ستوديو - سعود - 10-12-20
الاكواد التالية بناءا على معلومات من الموقع التالي:
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
RE: مشروع الفيجوال بيسك ستوديو - sad89891 - 10-12-20
شكرا شكرا جزيلا الله يسعدك يا رب يوفقك
RE: مشروع الفيجوال بيسك ستوديو - Anas Mahmoud - 11-12-20
نفس السؤال كان هنا :
http://vb4arb.com/vb/showthread.php?tid=37131&pid=169508#pid169508
RE: مشروع الفيجوال بيسك ستوديو - emadahmed1995 - 10-04-24
شكرا جزيلا..