رأي : الكود مهما كان بسيطاً فهو مهم
رأي : الكود مهما كان بسيطاً فهو مهم
السلام عليكم ورحمة الله وبركاته :
أن عندي فكرة فهل يمكن أن أقولها دون أن يزعل أحد
مني :
فكرتي أو رأيي بمعنى أصح هو أن الكود في الفيجوال بيزيك
أو غيره مهماً مهما كان بسيطاً وحتى أستطيع أن أوصل وجهة
نظري أليكم كتبت هذين المثالين التاليين "
مثال رقم الأول :
افتح برنامج الفيجوال بيزيك وأضف إليه :
Form1+ Timer1 + Timer2 + Timer3 + Command1 + Command2
نكتب في زر الأمر الكود التالي
Private Sub Command2_Click()
End
End Sub
نحدد خاصية Interval للأداة Timer1 ب 200
وللأداة Timer2 ب 4000
وللأداة Timer3 ب 100
نغير خاصية Caption ل Command1
لتصبح : منتدبات الفريق العربي للبرمجة
الآن كنت قد حصلت على هذا الكود ونقلته من أحد المنتديات العربية
If Form1.Left > Screen.Width Then
Form1.Caption = 0
Else
Form1.Left = Form1.Left + 50
End If
ثم قمت في كتابته في Timer1 مع تعديل بسيط
If Form1.Left > Screen.Width Then
Command1.Caption = 0
Else
Command1.Left = Command1.Left + 500
End If
وكتبت في Timer2 الكود التالي :
Timer1.Enabled = False
Command1.Left = 1080
Command1.Top = 480
وفي Timer3 الكود التالي
Timer1.Enabled = True
الآن شغل البرنامج سوف يصبح عندك شاشة توقف مكتوب عليها منتديات الفريق العربي للبرمجة
المثال الثاني :
حصلت على الكود التالي من احد السيديات
WebBrowser1.Navigate (Combo1.Text)
وهذا الكود طبعاً لبرنامج مثل مستعرض صفحات الأنترنيت
الآن حاولت أن أعمل مكتبة مواقع فوضعت الكود في زر أمر بعد ان قمت بالتعديل التالي :
Combo1.Text = "http://arabteam2000.com/vb/newthread.php"
WebBrowser1.Navigate (Combo1.Text)
فأصبح المتصفح أسرع إلى حد ما
لم أقتنع بنتيجة التعديل وحاولت أن أطور الكود أكثر فوضعت الكود في زر الأمر بعد أن عدلت عليه مرة ثانية :
WebBrowser1.Navigate"http://arabteam2000.com/vb/newthread.php"
وبذلك أصبح فتح الصفحة أسرع بكثير ويمكنكم ملاحظة ذلك في برنامج الدرة الذي وضعته في منتدى البرامج
مع تحيات رمضان