بي آي أس قيرل
Well-Known Member
- تاريخ التسجيل
- 18 أكتوبر 2010
- المشاركات
- 228
- المجموعة
- أنثى
- الدفعة الدراسية
- 2009
- الكلية
- كلية تقنية المعلومات
سهل جدا
مع سهالته صار عندي اخطااء

مع سهالته صار عندي اخطااء






مو فاهمة تمرين 3.8 ابي ااعرف شلون جمع net pay
Public Class Form1
Const BASE_PAY_INTEGER = 900
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sales, comissi, gross, deducte As Decimal
Dim netPay, house, food, enterti, misc As Decimal
Try
sales = Decimal.Parse(TextBox2.Text)
Try
comissi = Decimal.Parse(TextBox3.Text)
comissi = 0.06 * sales
gross = BASE_PAY_INTEGER + comissi
deducte = 0.18 * gross
netPay = gross - deducte
house = 0.3 * netPay
food = 0.15 * netPay
enterti = 0.5 * netPay
misc = 0.05 * netPay
TextBox4.Text = netPay.ToString()
TextBox5.Text = house.ToString
TextBox6.Text = food.ToString
TextBox7.Text = enterti.ToString
TextBox8.Text = misc.ToString
Catch ex As FormatException
MessageBox.Show("Invalid data", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
With TextBox3
.Focus()
.SelectAll()
End With
End Try
Catch ex As FormatException
MessageBox.Show("Invalid data", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
With TextBox2
.Focus()
.SelectAll()
End With
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
End Class




+1ممكن تخبروني هالمقرر عن شنو يتكلم , هل مقرر يعتمد على الخفظ أو الفهم او الأثنين معا , و هل فيه بروجكت ؟؟
عذرا على التطفل ..
بالتوفيق ان شاء الله نجيب A+