مثال 2-2 فى الكتاب المدرسى

تقوم إحدى الشركات بتحديد قيمة الأجر لكل ساعة عمل لوظيفة معينة طبقاً لعدد سنوات الخدمة فى الشركة

الحــــــــــــــــل

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

‘Variables declaration

1 Dim YearsOfServiceShort As Short

2 Dim HoursWorkedDecimal As Decimal

3 Dim WageRateDecimal As Decimal

4 Dim SalaryDecimal As Decimal

5 Try

6 YearsOfServiceShort = Short.Parse(Me.txtYears.Text)

7 HoursWorkedDecimal = Decimal.Parse(Me.txtHoursWorked.Text)

8 If YearsOfServiceShort < 5 Then 'Years < 5

9 WageRateDecimal = 5

10 ElseIf YearsOfServiceShort < 10 Then ' 5<= Years <10

11 WageRateDecimal = 7

12 ElseIf YearsOfServiceShort < 15 Then ' 10<= Years <15

13 WageRateDecimal = 10

14 ElseIf YearsOfServiceShort < 20 Then ' 15<= Years <20

15 WageRateDecimal = 12

16 Else

17 WageRateDecimal = 15 ' Years >= 20

18 End If

19 SalaryDecimal = WageRateDecimal * HoursWorkedDecimal

20 MsgBox("Your Wage Rate = " & WageRateDecimal & vbCrLf & _

21 "Your salary = " & SalaryDecimal)

22 Catch

23 MsgBox("Check your inputs ")

24 End Try

End Sub

End Class

·

الحل:

· الاداة Radio Button

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

· خصائص الاداة Radio Button

مثال علي أشكال Radio Button

Radio1.checked=True

Radio3.checked=True

· الاداة CheckBox

تتيح للمستخدم مجموعة من البدائل لاختيار أي عدد منها

· خصائص الاداة CheckBox

مثال

· الاداة GroupBox

- تستخدم لتنظيم الأدوات علي النموذج .

- تسمح للمبرمج أن يقسم عدد من الأداة Radio Button و Checked Box إلي مجموعات ويقوم لمستخدم باختيار واحدة فقط من كل مجموعة .

· خصائص الاداة GroupBox

مثال

Group1.Text="sex(الجنس )"
Group2.Text="Birth Place( محل الميلاد)"

مثال

» بعض من سجلات الإمتياز المدرسى
» مراحل التطوير المدرسى