• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

abdullah219

اعضاء جدد
  • عدد المشاركات

    6
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن abdullah219

  • الرتبة
    عضو جديد
  1. يعطيكم العافية يا اعضاء المتندى  وفضلا وليس أمراً : نحتاج وقفتكم معانا في الرد على السؤال المطروح
  2. السلام عليكم ورحمة الله وبركاتة ،،،، اقوم حالياً بعمل برنامج تحكيم لمسابقات الجمباز وحيث أن البطولة بها عدة أجهزة (الحلق، المتوازي،العقلة ...الخ) واللاعب يلعب على عدة أجهزة والجهاز الواحد يقوم بتحكيمه عدة حكام والنتيجة النهائية يحصل عليها اللاعب على الجهازالذي قام باللعب عليه من عدة حكام واحتساب النتيجة تكون كالتالي (يتم استبعاد اعلى قيمة واصغر قيمة تم تسجيلها من قبل الحكام ومن ثم يتم حساب المتوسط الدرجات التي تم تسجيلها من قبل الحكام بعد أن استبعدنا اعلى قيمة واصغر قيمة ) قمت بعمل جدول score يوجد به ( اسماء الاجهزة في البطولة ، لاعبين البطولة على هذا الجهاز، وحكام البطولة على هذا الجهاز، النتيجة التي حصل عليها اللاعب من قبل كل حكم) اريد أن اقوم بعمل تقرير على الشكل التالي البطولة الجهاز اللاعب النتيجة النهائية                           ما احتاجه هو : كيفية صياغة الشرط في الدالة dsum بحيث يجمع درجات الحكام لكل لاعب على حدا الموجودة في جدول score  databasestrawi.rar
  3. إلى جميع الأخوة من أعضاءء ومشرفين مساعدتنا في طرح افكراكم في حل هذا السؤال  ولكم مني افضل تحية
  4. السلام عليكم ورحمة الله وبركاتتة  الأخ أحمد مبارك هل يوجد لديك مثال على أستخدام Mod حيث أنني أقوم على عمل برنامج يحسب هل المعاملات المستلمة من قبل الموظف متأخرة أو لا بإعطاء زمن قياسي لكل معاملة وأحتاج لعداد يقوم بإحتساب مدة المعاملة من وقت إستلام الموظف المعاملة وغيقاف العداد من وقت تسليم الموظف المعاملة ومن ثم معرفة هل هذه المعاملة متأخرة أو لا
  5. السلام عليكم ورحمة الله وبركاتة في المثال المرفق لدي جدول الإدارات وجدول الموظفين وجدول الإجراءات التي يقوم بها الموظف ، لقد قمت بتصميم نموذج رئيسي ونموذج فرعي بحيث عندما اقوم باختيار موظف معين أريد أن اسند له بعض المهام من خلال رز أختيار ويتم تخزينها للموظف في جدول الإجراءات مع العلم أن العلاقة بين جدول الإجراءات وجدول الموظفين (واحد لكثير) السلام عليكم ورحمة الله وبركاتة في المثال المرفق لدي جدول الإدارات وجدول الموظفين وجدول الإجراءات التي يقوم بها الموظف ، لقد قمت بتصميم نموذج رئيسي ونموذج فرعي بحيث عندما اقوم باختيار موظف معين أريد أن اسند له بعض المهام من خلال رز أختيار ويتم تخزينها للموظف في جدول الإجراءات مع العلم أن العلاقة بين جدول الإجراءات وجدول الموظفين (واحد لكثير)  fllow-up transaction.rar
  6. الرجاء من الاخوه المساعدة عندي واجب وضروري اسلمه بكرة والسؤال اكتبي برنامج بلغة فيجوال بيسك يحتوي على : 1- طبقة student تحتوي على: متغير عام h مصفوفة (ساعات المقرر) - متغير عام course (لتخزين المقررات) دالة record تسمح للطالب بتسجيل المقرر وساعاتة. - يتفرع من student طبقة studcomp تحتوي على دالة record لحساب عدد الساعات التي سجلها الطالب في المقرارات المتاحة للتسجيل أم لا (الحد الأقصى لساعات التسجيل هي 20 ساعة ) فإذا تجاوزها تطلب منه حذف الساعات الزائدة و اذا لم يتجاوزها تبلغه بعدد الساعات المتبقية له ليسجلها. - عند الضغط على زر اضافة مقرر تسمح للطالب بتسجيل المقرر اذا لم يتعدى الساعات المحدده. 2- في الدالة الرئيسية اطبعي المواد والساعات المسجلة المحددة أم لا. 3- طباعة شاشة التنفيذ..run. من فصل الوراثة والتراكيب.. + المشكلة كيفية تعبئة بيانات مصفوفة من textbox ..؟؟ والطباعة في الدالة الرئيسية...؟؟ الحل بس ناقص الحل: Public Class student Public n As String Public h() As Integer Public course() As String Public Overridable Function record(ByVal x As String, ByVal y As Integer) Dim i As Integer n = InputBox("enter num", "hi") ReDim h(n) ReDim course(n) For i = 0 To n-1 course(i) = x h(i) = y Next Return 0 End Function End Class Class studcomp Inherits student Public Overrides Function record(ByVal x As String, ByVal y As Integer) Dim i, sum, z As Integer n = InputBox("enter num", "hi") For i = 0 To n - 1 sum = 0 + h(i) Next If sum > 20 Then MsgBox("you need deltee hours") Else z = 20 - sum MsgBox("you have free hours" & z) End If Return 0 End Function End Class Sub Main() Dim s As New student Dim st As New studcomp Dim i, y As Integer Dim n, x As String n = InputBox("enter num", "hi") For i = 0 To n - 1 Console.WriteLine(s.course(i), s.h(i)) Next Console.WriteLine(st.record(x, y)) End Sub End Module في الزر Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As String Dim y As Integer Dim b As Boolean x = TextBox1.Text y = TextBox2.Text Dim s As New student Dim st As New studcomp b = st.record(x, y) If b = False Then s.record(x, y) End If End Sub