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

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

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

المهم ي اخوان

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

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

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

تقريبا

اول شي تعرف متغير بنوع 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

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

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

x7rBI

es5s930

silverlord