[saoud2]

عزيزي 

لنفترض أن الحمل >0 وأن بدون حمل =0

يكون الكود  

كود :

       If d1 > 0 And d2 > 0 Then
           MsgBox("الحمل على كلا الفتحتين")

       ElseIf d1 > 0 And d2 = 0 Then
           MsgBox("الحمل على الفتحة الاولى فقط")

       ElseIf d1 = 0 And d2 > 0 Then
           MsgBox("الحمل على الفتحة الثانية فقط")

       ElseIf d1 = 0 And d2 = 0 Then
           MsgBox("لايوجد احمال على الفتحتين")

       End If