[اسلام الكبابى]

إقتباس :اذا توضح اكثر او تضع مثال تساعد نفسك أكثر في ايجاد الحل

هذا مثال آخر يوضح المطلوب

PHP كود :

Public Sub FUNC1()
     Rem"-------هنا سنكتب أى أكواد لاعلاقة له بالمتغيرNNN-------"
End Sub

Public Sub FUNC2()
     Rem"-------هنا سنكتب أى أكواد لاعلاقة له بالمتغيرNNN-------"
End Sub

Private Sub Command1_Click()
NNN = Val(Text1.Text)
      Print: Print "NNN  "; NNN
      If NNN <= 10 Then FUNC1 Else: FUNC2
     
     Rem"-------هنا ستكتب أى أكواد لا علاقة لها بالسؤال-------"
      
      If NNN <= 10 Then FUNC1 Else: FUNC2
     
     Rem"-------هنا ستكتب أى أكواد لا علاقة لها بالسؤال-------"
      
      If NNN <= 10 Then FUNC1 Else: FUNC2
     
     Rem"-------هنا ستكتب أى أكواد لا علاقة لها بالسؤال-------"
      
      If NNN <= 10 Then FUNC1 Else: FUNC2
     
     Rem"-------هنا ستكتب أى أكواد لا علاقة لها بالسؤال-------"
End Sub