بسم الله الرحمن الرحيم

صراحة البرمجة من أمتع و أحلى الدراسات…و شيء جميل أنه يكون فيه فقرة عن الprogramming..
خاصة oracle, vegol basic,access
و لو يكون فيه بعد فقرة عن Networking بيكون البرنامج شامل و متكامل و ان شاء الله بكون من أول المشاركين فيها خاصة في ال access

سبحان الله و الحمد لله و لا اله الا الله و الله أكبر

تعاظمني ذنبي فلما قرنته بعفوك ربي كان عفوك أعظم

بسم الله الرحمن الرحيم

فكرة رائعة أخي العزيز أن تقوموا باستضافة شخص قد قام بتصميم برنامج في أي لغة برمجية..و بالتأكيد هذه ستكون خطوة جديدة و ممتازة للرقي بمستوى البرنامج..و به سيستفيد الجميع و يكون فيه تشجيع للكثير من الأشخاص الذين يقومون بالابداع في هذا المجال و لكن للأسف لا يجدون المجال في عرض ما ينتجونه..مع أنهم اجتهدوا كثيرا في هذا

سبحان الله و الحمد لله و لا اله الا الله و الله أكبر

تعاظمني ذنبي فلما قرنته بعفوك ربي كان عفوك أعظم

بسم الله الرحمن الرحيم

شكرا أخي العزيز و ان شاء الله ما يصير الا الخير..و بالتوفيق دائما

سبحان الله و الحمد لله و لا اله الا الله و الله أكبر

تعاظمني ذنبي فلما قرنته بعفوك ربي كان عفوك أعظم

فكرة زي السكر

أنا سأساهم بخبرتي في مجال الفيجول البيسك ، وهذا أول كود
يمكنك أن تنفذه مباشرة :
فقط أضف إلى النموذج زر Command1 وأداة توقيت Timer1
ثم اكتب ما يلي :

()Private Sub Command1_Click
Timer1.Enabled = True
Then  خروج=If Command1.Caption  
End
End if
End Sub
___________________________________________________
()Private Sub Form_Load
Timer1.Enabled = False
Timer1.Interval = 50
=Label1.Caption
ترحيب=Command1.Caption
End Sub
___________________________________________________
()Private Sub Timer1_Timer
Dim CLR As Byte
(CLR = Int(Rnd * 15
(Label1.ForeColor = QBColor(CLR
شكرا لك يا عبد الله=Label1.Caption
خروج=Command1.Caption
End Sub

ضوء قمر 14 جميل وحلو