برنامج المحاسب

هذه طريقة بدائية تفي بالغرض

و الإخوان فيهم الخير و البركة

    Private Sub mCalc()
        Dim aBuyPrice As Double
        Dim aSellPrice As Double
        Dim aExpense As Double

        Dim aProfit As Double

        aBuyPrice = Val(TextBox1.Text)
        aSellPrice = Val(TextBox2.Text)
        aExpense = Val(TextBox3.Text)

        aProfit = aSellPrice - (aBuyPrice + aExpense)

        If aProfit > 0 Then
            TextBox4.Text = aProfit
            TextBox5.Text = 0
        Else
            TextBox4.Text = 0
            TextBox5.Text = aProfit
        End If

    End Sub

في حدث textbox1,2,3 changed

استدع الدالة السابقة

mCalc()

بارك الله فيك

وجعله فى ميزان حسناتك

تقبل تحياتى