حافظه للشاشه مميزه

شكرا لك

أخي eldahawe،

كان يمكنك أن تكتب سطرين يشرح وجه التميّز في هذا البرنامج، ويفضل أن تكتب لنا ما هي الفوائد التي سنجنيها من البرنامج من الناحية البرمجية، أي ماذا سنتعلم من الكود، ومن المفضل أن تكتب إن كان البرنامج هو من برمجة حضرتك أم أنك قمت بجلبه من موقع آخر....

هذه الأمور مفيدة وخاصة بأن بعض الأخوة هنا وقتهم محدود.

بارك الله فيك

السلام عليكم ورحمحه الله وبركاته وكل عام وانتم بخير بمناسبه شهر رمضان الكريم

اولا البرمجه بالنسبه لى هوايه وليست احتراف

وبالنسبه للبرنامج السابق انا حصلت على اكواده من هذا المنتدى

وانا لم ادعى اننى مخترع اكواد

فالمخترع الحقيقى هو الذى صنع المكونات الداخليه للكمبيوتر (الترانزستور والمقاومات والمكثفات الخ)

وصنع لغه للتخاطب مع تلك المكونات الالكترونيه (البرمجه)

فالمبرمج مجرد مجمع للغه موجوده مسبقا .اكيد هناك مبرمج ماهر يجيد جمع الاكواد ويجيد توظيفها.

فالمبرمج زى مصنعى الاجهزه فى العالم العربي يجيبوا المكونات وكمان التصمييم من بره و يقولك احنا صنعنا تلفزيون .

مع انه حتى الان لم تصنع اى دوله عربيه اى مكون الكترونى حتى المقاومه وهى ابسط واقل شىء فى المكونات

الالكترونيه لم نصنعها حتى الان مجرد تجميع .وعلى فكره دى تعتبر مهزله ومصيبه وخاصه فى المجال العسكرى .

هل من المعقول ان نشترى الاجهزه العسكريه من دوله يمكن ان تبيع اسرار تلك الاجهز لدوله معاديه.

يمعنى العسكرى يكلم زميله العسكرى فى جهاز لاسلكى صنع امريكى واسرائيل عندها ترد موجه الارسال.بالزمه ده معقول.

ارجوا انكم تكونوا فهمتم قصدى

وعلشان مانخرجش عن الموضوع

خلاصه الكلام وفى الحقيقه ان لم تكن هناك ميكرسوفت وامثالها لن يكون هناك مايسمى بمبرمج عربى

ماتزعلوش من كلامى بس هى دى الحقيقه

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

Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

'سحب وتحريك الفورم بدون

If e.Button <> e.Button.Left Then Exit Sub

Me.Left = Me.Left + (e.X - DepartX)

Me.Top = Me.Top + (e.Y - DepartY)

'

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'تحديد مكان ظهور الفورم على الشاشه عند بدايه التشغيل

Dim working_area As Rectangle = SystemInformation.WorkingArea

Dim x As Integer = _

working_area.Left + _

working_area.Width - _

Me.Width - 300

Dim y As Integer = _

working_area.Top + _

working_area.Height - _

Me.Height - 650

Me.Location = New Point(x, y)

Me.Opacity = 1 'شفافيه الفورم

Me.TopMost = True

frm2.Show() 'اظهار الفورم الثانى

End Sub

'اختيار اللون الاحمر

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

frm2.BackColor = BackColor.Red

End Sub

'اختيار الون الاخضر

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

frm2.BackColor = BackColor.Green

End Sub

'اختيار الون الازرق

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

frm2.BackColor = BackColor.Blue

End Sub

'درجه شفافيه الفورم

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

frm2.Opacity = 0.9

End Sub

'درجه شفافيه الفورم

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

frm2.Opacity = 0.6

End Sub

'درجه شفافيه الفورم

Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

frm2.Opacity = 0.4

End Sub

'انهاء البرنامج

Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

End

End Sub

'تبديل للثلاث الوان باستخدام التايمر

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

frm2.BackColor = BackColor.Red

'الزمن بين تبديل اللون

Thread.Sleep(900)

'تحديث

frm2.Refresh()

frm2.BackColor = BackColor.Green

Thread.Sleep(900)

frm2.Refresh()

frm2.BackColor = BackColor.Blue

Thread.Sleep(900)

frm2.Refresh()

End Sub

'ايقاف وتشغيل تبديل الون

Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

If Timer1.Enabled = True Then

Timer1.Enabled = False 'ايقاف تبديل الون

Label8.Text = "تبديل"

Else

Timer1.Enabled = True 'تشغيل تبديل الون

Label8.Text = "ايقاف"

End If

End Sub

'التايمر الخاص بالساعه

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Label10.Text = TimeString 'اظهار الساعه على اليبل

End Sub

'درجه شفافيه الفورم

Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

frm2.Opacity = 1

End Sub

'بالمرور بالماوس يتغير لون الليبل من الاحمر الى احمر فاتح وكائنه يضىء

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter

Label1.BackColor = BackColor.Tomato

End Sub

'بمغادره الماوس يرجع لون الليبل الى الاحمر

Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave

Label1.BackColor = BackColor.Red

End Sub

'بالمرور بالماوس يتغير لون الليبل من الاخضر الى اخضر فاتح وكائنه يضىء

Private Sub Button2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.MouseEnter

Label2.BackColor = BackColor.Lime

End Sub

'بمغادره الماوس يرجع لون الليبل الى الاخضر

Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.MouseLeave

Label2.BackColor = BackColor.Green

End Sub

'بالمرور بالماوس يتغير لون الليبل من الازرق الى ازرق فاتح وكائنه يضىء

Private Sub Button3_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.MouseEnter

Label3.BackColor = BackColor.DodgerBlue

End Sub

'بمغادره الماوس يرجع لون الليبل الى الازرق

Private Sub Button3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.MouseLeave

Label3.BackColor = BackColor.Blue

End Sub

Private Sub Button4_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label4.MouseEnter

Label4.BackColor = BackColor.White 'بالمرور بالماوس يتغير لون الليبل الى الابيض وكائنه يضىء

Label4.ForeColor = ForeColor.Black 'و يتغير لون الكتابه الى الاسود حتى تظهر مع الخلفيه البيضاء

End Sub

'مثل اللى قبله

Private Sub Button4_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label4.MouseLeave

Label4.BackColor = BackColor.DimGray

Label4.ForeColor = ForeColor.White

End Sub

وظيفه البرنامج

شاشه الكمبيوتر مطليه بماده تتكون من ثلاث الوان متراصه من الصعب رؤيتها فى شاشه الكمبيوتر

يمكن رؤيتها اذا دققنا النظر فى شاشه التلفزيون فى احد جوانب الشاشه سنجد نقط صغيره مكونه من ثلاث الوان احم اخضر وازرق وهذه الماده لها عمر افتراضى

المهم. عند ترك شاشه الكمبيوتر تعمل لمده طويله سنجد ان هناك الوان تعمل والوان اخرى لاتعمل من هنا جائت فكره شاشه التوقف وانا لم اخترها فهى موجوده من قبل والمنتديات مليئه بشاشات التوقف

واظن كده تكون فكره البرنامج وضحت