[ZaerAllail]

PHP كود :

Dim a As Double = Val(TextBox1.Text)
        Dim b As Double = Val(TextBox2.Text)
        TextBox3.Text = (b / 100) * a 


اخواني الكرام اعتذر لكوني ضعيف في الرياضيات عموما
لكن اظن المطلوب هو الكود بمشاركتي هذه.
قولو رايكم.

هذا وانت ضعيف في الرياضيات 

بارك الله فيك يا رائع
بالضبط هذا هو المقصود 

تسلم ربي يحفظك

[سعود]

ياليت تشوف الكود

[ZaerAllail]

ياليت تشوف الكود

من أول ما نزلت الكود جربته ولقيته منور بنور إبداعك ربي يحفظك 

[سعود]

ياليت تشوف الكود

من أول ما نزلت الكود جربته ولقيته منور بنور إبداعك ربي يحفظك 

انا قصدت الصورة لاني خفت انها لن تظهر  احيانا تصوير الكود اسرع من كتابته

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a As Double = Val(TextBox1.Text)
        Dim b As Double = Val(TextBox2.Text)
        TextBox3.Text = (b / 100) * a
        TextBox4.Text = a - Val(TextBox3.Text)
    End Sub 


[alshandodi]

قمت بالتعديل على المثال واضافة بعض الأكواد اتمنى ان يكون ذو فائده والسموحه والعذر منك أخي العزيز

[ZaerAllail]

قمت بالتعديل على المثال واضافة بعض الأكواد اتمنى ان يكون ذو فائده والسموحه والعذر منك أخي العزيز

جدا رائع أخي الكريم 
تفعيل الكود في الحدث الخاص بالتكست وتعطيل التكست 3 و 4 وتنسيق النموذج وتفعيل تنسيق الأرقام العشرية يدل على لمسة مبرمج مميز

فعلا مميز ما قمت به 
شكرا لك

[DR.YASER]

بارك الله فيكم جميعا

[alsouf]

كود :

Public Class Form1
   Private Sub BtnCalculator_Click(sender As Object, e As EventArgs) Handles BtnCalculator.Click
       Dim Prix As Single
       Prix = CSng(Val(TBoxPrix.Text / 100))
       Dim PerCent As Single
       PerCent = TBPercentageCalculation.Text
       LbNewPrix.Text = CSng(Math.Round(Val(TBoxPrix.Text) - (Prix * PerCent), 2))
   End Sub
End Class

الشفرة التالية تفي بالغرض   و عيد سعيد

[alsouf]

يبدو انني تاخرت كثيرا في الرد .................. المشكلة انك عندما تفتح السؤال ترى الصفحة الاولى فقط و بعد الاجابة يظهر انك تاخرت