مبرمج مبتدا

شكرا على التوضيح اخي لقد استفدت منه فقد كان لدي خطا لا اعرف سببه وتم التعديل ولكني الا حد الان لم اعرف : do loop while اتمنى تشرحهم بالامثلة >>> لكي اعرف الاستعمال وليس التعريف وشكرا مرة اخرى

هل يمكن : if do loop while end if وبصراحة اخي انا لا اجد الكتب المناسبة في البحرين

اخي الاداة مجربة ؟؟ لا تعمل لدي او ربما لاني اغلقت svchost , spoolve ؟

للرفع

/index.php?showtopic=129733

هل تعرف اكواد لتغير مثلا شكل الكوماند عند جميع الحالات (normal - pressed - disable - hightlight)

vista HS vista_HS.rar

تفضل المثال simple.rar

If KeyAscii = 13 Then Text1.Text = "" Text1.SetFocus End If If KeyAscii = 13 Then لو كتبت keyascii = 8 مثلا لظهر لك زر (مسح) لو كتبت keyascii = 97 لظهر لك زر a هكذا يمكن ان تبدل بين الاحرف و الازرار و الارقام او تجعل بعضها لا يعمل : if keyascii = 97 then keyas…

For mm = 1 To 8 If Text1.Item(mm).Locked = True Then Do Loop While x = Text1.Item(mm).Text Text1.Item(0).Text = x End If Next mm عندما اذهب run لا تظهر run error ولا يتوقف ويجب علي ان اصك الفجوال بيسك باكمله واعيد فتحه يعني يوجد خطا لا اعلم ما هو

اظن الخطا في الكود

لدي كتاب اخي ولكني منذ فترة لم اكمل هذه الاشياء فانتقلت الى التعامل مع dll , ocx و الان رجعت لها :)

Do x = Int(Rnd * 9) If Text1.Item(1).Locked = True Then Loop While x = Text1.Item(1).Text Text1.Item(0).Text = x Timer2.Enabled = True Timer1.Enabled = False End If ما هو الخطا هنا عذرا الكود ليس في الموضوع المناسب

For i = 0 To 80 If Text1.Item(i).Text <> "" Then Text1.Item(i).Locked = True Text1.Item(i).ForeColor = vbRed Next i End If ما هو الخطا ؟؟

اخي باسم لقد سالت كثيرا ولكنك تجاوب وانا لا افهم طريقة الاستخدام :) هل لك تضع امثلة بسيطة جدا وشرحها مع شكري

Do x = Int(Rnd * 10) Loop While x = 8 جربت انا Do x = Int(Rnd * 10) Loop While x = 8 loop while x = 7 loop while x = 9 فلم تعمل !! ما الحل الان ؟؟

شكرا اخي ما الفرق بين while loop و while wend ?? _________ يعني اذا وضعت تايمر به if سيكون كانه while wend ??

اخي خل هناك مثال على تكست مثل : if text1.text = ... then ثم تشرح هذه الجملة لكي توضح المعنى اكثر لاني لم افهم كيف استعملها الى حد الان وشكرا مع اعتذاري الشديد على الازعاج

اخي لذلك انا استعملت الطريقة العشوائية لذلك سؤال هو حذف بعض اللارقام من RND و اريد ذلك في موضوع مستقل :) ممكن شرح : For j = Int(i / 27) * 27 + Int((i Mod 9) / 3) * 3 To Int(i / 27) * 27 + Int((i Mod 9)

وكانك تقول : if ..... then لكن لماذا استعملت while , wend و ماذا تفعل هذه الدالة ؟