قرب التسليم وعندي مشكلة ف برنامج مسابقات vb !

فشلت عملية إرفاق الملف , غير مصرح لك بإرفاق هذا النوع من الملفات!!

لم استطع إرفاق الملف ما هي الملفات المصرح لها ؟؟؟؟

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

بإمكانك تنسخ الكود كاملاً وتضيفه في الرد (بدون مرفقات)

Option Explicit
Dim mark As Integer
Dim answer As Integer
Dim f As Boolean, s As Boolean
Dim Index As Integer
Dim x1 As Integer, x2 As Integer, x3 As Integer
Dim source As Control



Private Sub a_Click()
b.Enabled = False
c.Enabled = False
a.Enabled = False


'**************************************************************************
  
   If (f = True) And (Command4(1).Tag = 1) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command4(1).Tag) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If

'**************************************************************************
  
   If (f = True) And (Command13(17).Tag = 17) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command13(17).Tag = 17) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If

'**************************************************************************

   If (f = True) And (Command8(15).Tag = 15) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command8(15).Tag = 15) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If

'**************************************************************************

   If (f = True) And (Command10(7).Tag = 7) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command10(7).Tag = 7) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
'**************************************************************************
   
   If (f = True) And (Command21(25).Tag = 25) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command21(25).Tag = 25) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
'**************************************************************************

   If (f = True) And (Command22(26).Tag = 26) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command22(26).Tag = 26) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
   
 '**************************************************************************
   
   If (f = True) And (Command23(27).Tag = 27) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command23(27).Tag = 27) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
 '**************************************************************************

   
   
 '**************************************************************************

End Sub


Private Sub b_click()
a.Enabled = False
c.Enabled = False
b.Enabled = False


  If f = True And Command3(0).Tag = 0 Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
  
ElseIf s = True And Command3(0) = 0 Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If

'#############################################################################

  If f = True And Command5(2).Tag = 2 Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   
   ElseIf s = True And Command5(2).Tag = 2 Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
    End If
'#############################################################################

   If (f = True) And (Command9(16).Tag = 16) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True

ElseIf (s = True) And (Command9(16).Tag = 16) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
   '#############################################################################

  If (f = True) And (Command14(18).Tag = 18) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   
ElseIf (s = True) And (Command14(18).Tag = 18) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
    End If
'#############################################################################

   If (f = True) And (Command12(6).Tag = 6) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True

 ElseIf (s = True) And (Command12(6).Tag = 6) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
'#############################################################################

   If (f = True) And (Command19(23).Tag = 23) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
  
  ElseIf (s = True) And (Command19(23).Tag = 23) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
'#############################################################################

'#############################################################################

End Sub

Private Sub c_Click()
b.Enabled = False
a.Enabled = False
c.Enabled = False

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

   If (f = True) And (Command6(3).Tag = 3) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command6(3).Tag = 3) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

   If (f = True) And (Command11(8).Tag = 8) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command11(8).Tag = 8) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

   If (f = True) And (Command6(3).Tag = 3) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command6(3).Tag = 3) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
   '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

   If (f = True) And (Command15(19).Tag = 19) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command15(19).Tag = 19) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
   '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

   If (f = True) And (Command16(20).Tag = 20) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command16(20).Tag = 20) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
   '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

   If (f = True) And (Command18(22).Tag = 22) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command18(22).Tag = 22) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
   '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
  
   If (f = True) And (Command20(24).Tag = 24) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command20(24).Tag = 24) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
   '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

   If (f = True) And (Command25(29).Tag = 29) Then
   grade1.Caption = grade1 + 10
   f = False
   s = True
   ElseIf (s = True) And (Command25(29).Tag = 29) Then
   grade2.Caption = grade2 + 10
   s = False
   f = True
   End If
   '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

End Sub



'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@


Private Sub Command10_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ßã ÚÏÏ ÝÞÑÇÊ ÇáÚãæÏ ÇáÝÞÑí Ýí ÇáÅäÓÇä¿"
a.Caption = "34"
b.Caption = "35"
c.Caption = "36"
Command10(7).Enabled = False
End Sub

Private Sub Command11_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãÇ åí ÃßÈÑ ÇáÍíæÇäÇÊ ÂßáÉ ÇááÍæã¿"
a.Caption = "ÇáÃÓÏ ÇáÂÓíæí"
b.Caption = "ÇáÏÈ ÇáÂÓíæí"
c.Caption = "ÇáÏÈ ÇáÞØÈí"
Command11(8).Enabled = False
End Sub

Private Sub Command12_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãÇ åí ÇáßãíÉ ÇáÊí ÊÍÑÞåÇ ÇáÔãÓ Ýí ßá ËÇäíÉ ãä ßËÇÝÊåÇ ÇáãáÊåÈÉ¿"
a.Caption = "3 ãáíæä Øä"
b.Caption = "4 ãáíæä Øä"
c.Caption = "5 ãáíæä Øä"
Command12(6).Enabled = False
End Sub

Private Sub Command13_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãä ÇáÍÇßã ÇáÚÑÈí ÇáÐí ÇÊÎÐ ãä ÒäÌÈÇÑ ÚÇÕãÉ áå¿"
a.Caption = "ÇáÓáØÇä ÓÚíÏ ÓáØÇä ÚãÇä"
b.Caption = "ÇáÓáØÇä ÓíÝ ÓáØÇä ÚãÇä"
c.Caption = "áã íÊÍßãåÇ ÍÇßã ÚÑÈí"
Command13(17).Enabled = False

End Sub

Private Sub Command14_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãä ÇáãáßÉ ÇáÚÑÈíÉ ÇáÊí ãÇÊÊ Ýí ÇáÇÓÑ¿"
a.Caption = "ÔÌÑÉ ÇáÏÑ"
b.Caption = "ÒäæÈíÇ"
c.Caption = "ÂÓíÇ"
Command14(18).Enabled = False

End Sub

Private Sub Command15_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãä ÇáÞÇÆÏ ÇáÐí ÝÊÍ ÌÒíÑÉ ÕÞáíÉ¿"
a.Caption = "ãÓáã Èä ÚÞíá"
b.Caption = "ÚÊÈÉ Èä ÛÒæÇä"
c.Caption = "ÃÓÏ Èä ÝÑÇÊ"
Command15(19).Enabled = False

End Sub

Private Sub Command16_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãä ÂÎÑ ÇáÇãÑÇÁ ÇáÃãæííä Ýí ÇáÃäÏáÓ¿"
a.Caption = "åÔÇã ÇáËÇäí"
b.Caption = "åÔÇã ÇáÃæá"
c.Caption = "åÔÇã ÇáËÇáË"
Command16(20).Enabled = False

End Sub

Private Sub Command17_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "Ýí Ãí ÚÇã ÔíÏ ÓæÑ ÇáÕíä ÇáÚÙíã¿"
a.Caption = "208Þ.ã"
b.Caption = "209 Þ.ã"
c.Caption = "210 Þ.ã"
Command17(21).Enabled = False

End Sub

Private Sub Command18_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãä Ãæá ãä æÖÚ ÇáäÞÇØ Úáì ÇáÍÑæÝ¿"
a.Caption = "ÓíÏ ÞØÈ"
b.Caption = "ÇáÎáíá Èä ÃÍãÏ"
c.Caption = "ÃÈæ ÇáÃÓæÏ ÇáÏÄáí"
Command18(22).Enabled = False

End Sub

Private Sub Command19_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãä Ãæá ãä æÖÚ Úáã ÇáÚÑæÖ¿"
a.Caption = "ÓíÏ ÞØÈ"
b.Caption = "ÇáÎáíá Èä ÃÍãÏ"
c.Caption = "ÃÈæ ÇáÃÓæÏ ÇáÏÄáí"
Command19(23).Enabled = False
End Sub

Private Sub Command20_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãä Ãæá ãä æÖÚ Úáã ÇáÕÑÝ¿"
a.Caption = "ÓíÏ ÞØÈ"
b.Caption = "ÇáÎáíá Èä ÃÍãÏ"
c.Caption = "ãÚÇÐ ÇáåÑÇÁ"
Command20(24).Enabled = False
End Sub

Private Sub Command21_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãä åæ ÇáãÚÑæÝ ÈÔÇÚÑ Çáäíá¿"
a.Caption = "ÍÇÝÙ ÇÈÑÇåíã"
b.Caption = "äÒÇÑ ÞÈÇäí"
c.Caption = "ÃÈæÑíÍÇä"
Command21(25).Enabled = False
End Sub

Private Sub Command22_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãä Ãæá ãä Ïæä Úáã ÇáÝÞå¿"
a.Caption = "Úáí Èä ÑÇÝÚ"
b.Caption = "ÓáãÇä ÇáÝÇÑÓí"
c.Caption = "ÒíÏ Èä ÍÇÑËÉ"
Command22(26).Enabled = False
End Sub

Private Sub Command23_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãÇ ÇÓã ÕæÊ ÇáÐÆÈ¿"
a.Caption = "ÇáÚæÇÁ"
b.Caption = "ÇáãæÇÁ"
c.Caption = "ÇáÕåíá"
Command23(27).Enabled = False
End Sub

Private Sub Command24_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ßã ãÏíäÉ ÊæÌÏ Ýí ÇáÚÇáã ÇÓãåÇ ÇáÅÓßäÏÑíÉ¿"
a.Caption = "8"
b.Caption = "18"
c.Caption = "28"
Command24(28).Enabled = False
End Sub

Private Sub Command25_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ßã ÊÈáÛ ÇáãÓÇÝÉ Èíä ÇáÃÑÖ æ ÇáÔãÓ¿"
a.Caption = "190 ãáíæä ßã"
b.Caption = "170 ãáíæä ßã"
c.Caption = "150 ãáíæä ßã"
Command25(29).Enabled = False
End Sub

Private Sub Command26_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "Ãíä íæÌÏ ÇáÚäÈÑ¿"
a.Caption = "Ýí ÈØä ÇáÍæÊ"
b.Caption = "Ýí ßÈÏ ÇáÛÒÇá"
c.Caption = "ãä ÔÌÑÉ ÇáÚäÈÑ "
Command26(30).Enabled = False
End Sub

Private Sub Command27_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "Ãíä íæÌÏ ÇáÚäÈÑ¿"
a.Caption = "Ýí ÈØä ÇáÍæÊ"
b.Caption = "Ýí ßÈÏ ÇáÛÒÇá"
c.Caption = "ãä ÔÌÑÉ ÇáÚäÈÑ "
Command27(31).Enabled = False
End Sub

Private Sub Command28_Click()
End
End Sub

Private Sub Command29_Click()
If (Command3.Enabled = False) And (Command4.Enabled = False) And (Command5.Enabled = False) And (Command6.Enabled = False) And _
    (Command7.Enabled = False) And (Command8.Enabled = False) And (Command9.Enabled = False) And (Command10.Enabled = False) And _
     (Command11.Enabled = False) And (Command12.Enabled = False) And (Command13.Enabled = False) And (Command13.Enabled = False) And _
      (Command14.Enabled = False) And (Command15.Enabled = False) And (Command16.Enabled = False) And (Command17.Enabled = False) And _
       (Command18.Enabled = False) And (Command19.Enabled = False) And (Command20.Enabled = False) And (Command21.Enabled = False) And _
        (Command22.Enabled = False) And (Command23.Enabled = False) And (Command24.Enabled = False) And (Command25.Enabled = False) And _
         (Command26.Enabled = False) And (Command27.Enabled = False) Then
       
Unload Form1
Form3.Show
Else
MsgBox ("The Quiz does not finish!")
End If
End Sub

Private Sub Command3_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = " "

display.Caption = "ãä åæ ÕÞÑ íæã ÇáíãÇä¿ "
a.Caption = "ÚãíÑ Èä æåÈ"
b.Caption = "ÒíÏ Èä ÇáÎØÇÈ"
c.Caption = "ØáÍÉ Èä ÚÈÏÇááå"
Command3(0).Enabled = False

End Sub

Private Sub Command4_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True

display.Caption = "ãä åæ Ãæá ÓÝÑÇÁ ÇáÅÓáÇã¿ "
a.Caption = "ãÕÚÈ Èä ÚãíÑ"
b.Caption = "ÃÈæ ÐÑ ÇáÛÝÇÑí"
c.Caption = "ÍÐíÝÉ Èä ÇáíãÇä"
Command4(1).Enabled = False

End Sub

Private Sub Command5_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True

display.Caption = "ãä åæ Ãæá ãä ÃÓáã ãä Ãåá ÚãÇä¿ "
a.Caption = "ÇáÌáäÏí"
b.Caption = "ãÇÒä Èä ÛÖæÈÉ "
c.Caption = "ÇáÍÇÑË Èä åÔÇã"
Command5(2).Enabled = False

End Sub

Private Sub Command6_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True

display.Caption = "ãÇ åí ÇáÓæÑÉ ÇáÊí áÇ ÊÍÊæí Úáì ÇáÈÓãáÉ¿ "
a.Caption = "ÇáÃäÝÇá"
b.Caption = "ÇáÊæÈÉ "
c.Caption = "Çáãáß"
Command6(3).Enabled = False

End Sub


Private Sub Command7_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "Ýí ÍÑÈ ÃÞíãÊ ÕáÇÉ ÇáÎæÝ áÃæá ãÑÉ¿"
a.Caption = "ÈÏÑ"
b.Caption = "Èäí ÞÑíÙÉ"
c.Caption = "ÐÇÊ ÇáÑÞÇÚ"
Command7(4).Enabled = False
End Sub

Private Sub Command8_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãÇåí ÇáËÏíÇÊ ÇáæÍíÏÉ ÇáÊí ÊÓÊØíÚ ÇáØíÑÇä¿"
a.Caption = "ÇáÎÝÇÔ"
b.Caption = "ÇáÝÞãÉ"
c.Caption = "ÇáÈØÑíÞ"
Command8(15).Enabled = False
End Sub

Private Sub Command9_Click(Index As Integer)
b.Enabled = True
a.Enabled = True
c.Enabled = True
display.Caption = "ãÇ åí ÇáÝíÊÇãíäÇÊ ÇáãæÌæÏÉ Ýí ÇáÚäÈ¿"
a.Caption = "Ç,È,Ê"
b.Caption = "Ç,È,Ë"
c.Caption = "È,å,Ë"
Command9(16).Enabled = False
End Sub

Private Sub Form_Load()
x1 = x2 = 0
Label2.Caption = Form2.Text1.Text
Label3.Caption = Form2.Text2.Text

grade1.Caption = 0
grade2.Caption = 0

f = True
s = False

Debug.Print f;

End Sub

a,b,c هي الكومند الخاصة بإختيار اللإجابة الصحيحة ..

إذا أحد عندة طريقة أفضل لرفع الملف ما يبخل علينا !! لأن الفورم ضروري لفهم الكود .

ارسل لي البرنامج على ايميلي mevip@gawab.com

وان شاء الله اذا رجعت من الدوام اشوفه واختبره زين.. لأني هنا للأسف ما عندي فيجوال بيسك..

انا توقعت الكود بيكون بسيط وواضح من كلامك بالأول عن البرنامج لأن برنامج زي هذا بالإمكان عمله بطريقة أسهل وبدون هالتعقيدات..

استخدم http://rapidshare.de

لرفع الملفات الضروري فالكلام العربي في الكود والرموز الخاصة لن تظهر بسبب الفلترة.

http://rapidshare.de/files/8930766/quiz11.exe.html ]الوصلة

ألف شكر Xacker وأبو بدر ..

ف انتظار الحل !!!

وين خبراء الفيجول بيسك !!! :( :( :(

ولا زلت أنتظر !!!