منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ( يبدو انني مزعج ) ممن عندهم خبره في vb.net هل يمكنك تحويل النص التالي إلى كود برمجي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته من جديد 
المعطيات قاعدة بيانات  sc.mdb في مجلد  debug
قاعدة البيانات من النوع السطحي flat  
استعلام الصف الاول  يمتلك الحقول التالية                                     

وفيه عديد من الطلاب راسبين في مادة  القران اعاذنا الله من الرسوب مثلا :
 |   اسم الطالب  |  الصف  |  القران الكريم | التربية الاسلامية | اللغة العربية |....................  |   الاحتياجات |
:   سلمان علي      الاول           9                     30                     29                                         6               
                علما ان الاحتياجات تمت معالجتها في إستعلام كم يحتاج الطالب كي ينجح 
اريد حلقة تكرارية تعمل كــ
الحلقة من 0  إلى عدد الراسبين DataGridView1.Rows.Count
    اذا (If) كان الطالب يحتاج (الاجتياجات ) اقل من 10 درجات  افعل ( Then)
          اذا (If) كان حقل القران الكريم اقل من 15 افعل ( Then)
             القران الكريم = 15
          انهي إذا End If 
          اذا (If) كان حقل التربية الاسلامية اقل من 15 افعل ( Then)
             التربية الاسلامية = 15
          انهي إذا End If
          اذا (If) كان حقل اللفة العربي اقل من 15 افعل ( Then)
             اللقة العربية= 15
          انهي إذا End If  
......... الخ 
وعليكم السلام  Smile

يمكن اقدر اساعدك شوي

في شي مافهمته يعني لو الطالب اخذ مثلا في اللغة العربية اقل من 15 ينكتب له 15 ؟  Undecided

اذا كان قصدك كذا فـ سوي التالي:

بسويها لك كمثال :
حط تكست بوكس 
و حط Label
و حط زر

اكتب في الزر الكود التالي :





If textbox1.text >= "15" Then



                                "label1.text = "15









---------------------------------------------------------------------------------------------

وزي كذا مثلا



اتمنى اني افدتك  Big Grin

والسلام عليكم و رحمة الله و بركاته
ما تحتاج for next اذا كنت تريد تحديث البيانات في الجدول بشكل تلقائي ان الطالب اللي درجته أقل من 15 فانت سترفعها الى الى 15
كالتالي
Update
Table set
x=15,y=15,z=15
where
need <10