هنا : تجمع طالبات وطلاب نظم المعلومات الإداريه (دفعة 2010 ) حياكم الله,,

[امبراطور الشبكه]

المشاركة الأصلية كتبت بواسطة بنت ناس وقلبي ألماس لو سمحت يا امبراطور الشبكه ممكن تنزل التست بانك لشابتر 4&6 ... ومشكور مقدما..

تفضلي ,,,

CH4 ~ CH6

[أنثى وحيدة]

^

متى اختباركم الفاينل

[امبراطور الشبكه]

المشاركة الأصلية كتبت بواسطة أنثى وحيدة ^ متى اختباركم الفاينل

كان على مااعتقد اخر اسبوع ,, بس الشباب كلموه ويمكن يقدمه ليوم 25 / 6

[DeeeL]

طيب بليز نبغى التست بانك للشباتر الثلاثه الاولى


جزاكم الله خير

[بنت ناس وقلبي ألماس]

مشكور يا امبراطور الشبكه الله يوفقك ويسعدك دنيا وآخره ....

[DeeeL]

بنات ا.بدور

بليز بكرا كويزنا احد بس يقول لنا اي كود جاهم ؟

هذا
If Member is an Adult Then
Monthly Base Fee = 40
ElseIf Member is a Child Then
Montlhy Base Fee = 20
ElseIf Member is a Student Then
Monthly Base Fee = 25
ElseIf Member is a Senior Citizen Then
Monthly Base Fee = 30
End If

او هذا

Code for btnCalculate_Click
' Declare local variables.
Dim decBaseFee As Decimal ' Base Monthly Fee
Dim decTotalFee As Decimal ' Total Membership Fee
Dim intMonths As Integer ' Number of months

' Constants for base fees
Const decADULT_FEE As Decimal = 40D
Const decCHILD_FEE As Decimal = 20D
Const decSTUDENT_FEE As Decimal = 25D
Const decSENIOR_FEE As Decimal = 30D

' Constants for additional fees
Const decYOGA_FEE As Decimal = 10D
Const decKARATE_FEE As Decimal = 30D
Const decTRAINER_FEE As Decimal = 50D

' Get the number of months.
If Integer.TryParse(txtMonths.Text, intMonths) Then
' Validate the number of months.
If intMonths >= 1 And intMonths <= 24 Then
' Determine the base monthly fee.
If radAdult.Checked = True Then
decBaseFee = decADULT_FEE
ElseIf radChild.Checked = True Then
decBaseFee = decCHILD_FEE
ElseIf radStudent.Checked = True Then
decBaseFee = decSTUDENT_FEE
ElseIf radSenior.Checked = True Then
decBaseFee = decSENIOR_FEE
End If

' Look for additional services.
If chkYoga.Checked = True Then
decBaseFee += decYOGA_FEE
End If

If chkKarate.Checked = True Then
decBaseFee += decKARATE_FEE
End If

If chkTrainer.Checked = True Then
decBaseFee += decTRAINER_FEE
End If

' Calculate the total fee.
decTotalFee = decBaseFee * intMonths

' Display the fees.
lblMonthlyFee.Text = decBaseFee.ToString("c")
lblTotalFee.Text = decTotalFee.ToString("c")
Else
' Error: Months is outside the range 1-24.
MessageBox.Show("Months must be in the range 1 - 24.")
End If
Else
' Error: value entered for months is not an integer.
MessageBox.Show("Months must be an integer.")
End If

لانه مستحيل لو الثاني :(

[روح زهرة القمر]

الكويز كان جداااا سهل
بنات موعد الاختبار النهائي 13/7
بس ابغى اتاكد من شي هي قالت المذاكرة 3 الشباتر الاولى بس الاكواد وباقي الشباتر نذاكره كلها صح....؟

[الـبيــــــان]

يب صح ..

يعني ان شاء الله ما في أكواد غير في الشباتر الثلاثة الأولى ..

[بنت ناس وقلبي ألماس]

^^^^^^^
أنا اللي فهمت منها انو بس الثلاث شباتر الاولى حنذاكر الأكواد والشباتر الباقيه نذاكرها كلها مع الأكواد ,, اتوقع الدكتوره كذا قصدها يا البيان...

يا حلوااااااااااااات في اختبار دوري ثاني للبرمجه؟؟؟

[امبراطور الشبكه]

السلام عليكم .,~

كيفكم شباب وبنات .,~ !؟


شباب اللي حضر اليوم الاثنين البرمجه يقلي ايش صار .. ايش عطاكم ؟

لاني كنت غايب اليوم .,~