منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود خصم نسبة مئوية محدده من القيمة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=34873)

الصفحات: 1 2

RE: كود خصم نسبة مئوية محدده من القيمة - ZaerAllail - 21-05-20

(21-05-20, 03:15 PM)سعود كتب :
PHP كود :
Dim a As Double = Val(TextBox1.Text)
        Dim b As Double = Val(TextBox2.Text)
        TextBox3.Text = (b / 100) * a 
اخواني الكرام اعتذر لكوني ضعيف في الرياضيات عموماSmile
لكن اظن المطلوب هو الكود بمشاركتي هذه.
قولو رايكم.

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

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

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

RE: كود خصم نسبة مئوية محدده من القيمة - سعود - 21-05-20

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


RE: كود خصم نسبة مئوية محدده من القيمة - ZaerAllail - 21-05-20

(21-05-20, 03:23 PM)سعود كتب :
ياليت تشوف الكود

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

RE: كود خصم نسبة مئوية محدده من القيمة - سعود - 21-05-20

(21-05-20, 03:31 PM)ZaerAllail كتب :
(21-05-20, 03:23 PM)سعود كتب :
ياليت تشوف الكود

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

انا قصدت الصورة لاني خفت انها لن تظهر  احيانا تصوير الكود اسرع من كتابتهSmile
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 


RE: كود خصم نسبة مئوية محدده من القيمة - alshandodi - 21-05-20

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

RE: كود خصم نسبة مئوية محدده من القيمة - ZaerAllail - 21-05-20

(21-05-20, 03:40 PM)alshandodi كتب : قمت بالتعديل على المثال واضافة بعض الأكواد اتمنى ان يكون ذو فائده والسموحه والعذر منك أخي العزيز

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

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

RE: كود خصم نسبة مئوية محدده من القيمة - DR.YASER - 21-05-20

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

RE: كود خصم نسبة مئوية محدده من القيمة - alsouf - 22-05-20

كود :
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

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

RE: كود خصم نسبة مئوية محدده من القيمة - alsouf - 22-05-20

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