منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ابي اسوي مثل ذي الفكرة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ابي اسوي مثل ذي الفكرة (/showthread.php?tid=11968)

ابي اسوي مثل ذي الفكرة - x7rBI - 05-04-15

الســــــــــــــلأامم عليكممم ورحمـــــــةة الله وبركاتههه



كيفكم ي اخوان ؟
عساكم بخير


المهم ي اخوان

انا ابي اسوي نفس فكرة ذا الموقع لاكن برنامج بالفيجوال بيسك
http://www.brainbashersgames.com/games/10seconds.asp
فائدة حسب عدد ضغطات الماوس ل 10 ثواني

المهم اقدر اسوي مثله بالفيجوال بيسك ؟


واذا اقدر ممكن تكتبون لي الطريقة

RE: ابي اسوي مثل ذي الفكرة - es5s930 - 06-04-15

تقريبا

اول شي تعرف متغير بنوع Integer

وكل ماجيت تضغط الزر يزيد المتغير رقم

لين م يوصل الى 10 ويوقف الضغط

مثال بسيط

كود :
   Dim Clicks As Integer = 0
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Clicks = 10 Then
           MsgBox("تخطيت الازرار المسموحه")
       Else
           Clicks = Clicks + 1
       End If
   End Sub


RE: ابي اسوي مثل ذي الفكرة - silverlord - 06-04-15

تفضل اخوي انا عملت لك نموذج
http://www.mediafire.com/download/h06qoo57txj0pq9/Blogger.rar