ملخص عملي 2 مقرر البرمجة المرئية

Unknown
0

http://adf.ly/1HiKFf


>>> ملخصات عملية <<<

البرمجة المرئية

كل الشكر والتقدير م.ماجد جربوع

دعواتكم

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

اليكم المثال الخاص بحدث ال : Click الوحدة السابعة - مادة البرمجة المرئية - مع زيادة على المثال باستخدام مبدأ القنوات Threading وهو نوم sleep للقناة لمدة 2 ثانية وتحسب ب 2000 Mil Second : هيث تقوم بتغيير لون الخلفية عند الضغط علي الشاشة بشكل تلقائي لالوان مختلفة وتستطيع زيادة هذه الألوان حسب الحاجة ، بالاضافة لباقي الاحداث المقررة فى المثال
اليكم الشيفرة




Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

' Credits: (Milk (Sleep+Pause Sub)). (Wayne Spangler (Pause Sub))
Private Sub Pause(ByVal Delay As Single)
Delay = Timer + Delay
If Delay > 86400 Then 'more than number of seconds in a day
Delay = Delay - 86400
Do
DoEvents ' to process events.
Sleep 1 ' to not eat cpu
Loop Until Timer < 1
End If
Do
DoEvents ' to process events.
Sleep 1 ' to not eat cpu
Loop While Delay > Timer
End Sub

Private Sub Command1_Click()
MsgBox ("You Clicked In To Command Button")
End Sub

Private Sub Form_Click()

clickf.BackColor = vbRed
Sleep 2000 ' to sleep for 1 second
clickf.BackColor = vbBlack
Sleep 2000 ' to sleep for 1 second
clickf.BackColor = vbGreen

Sleep 2000 ' to sleep for 1 second
clickf.BackColor = vbBlue

End Sub

Private Sub Label1_Click()
Label1.Caption = "Click"
End Sub
Private Sub Text1_Click()
Text1.Top = 100
End Sub



المصدر : مركز الفا للدراسات الاكاديمية 

hamad bashir

أكواد من لغة vb6, اكواد من لغة فيجول بيسك, البرمجة المرئية, برامج عملية فيجول بيسك vb6, برمجة مرئية, ملخص العمليات على المصفوفات من لغة VB6, 

إرسال تعليق

0تعليقات

اطرح اي سؤال خاص بالموضوع في التعليقات

إرسال تعليق (0)