תודה מאוד...תסבירו לי...מה עושה...איך עושה ומה ואיך משתמשים..

אני צריך את הסברים על:

interval

left

tag

top

תודה..!!...אני צריך לעשות יעשה משהו כל שניה..(1000 מילישניה)...איך אני עושה לדוגמא שכל שניה יוסיף לX 1...כלומר X=X+1....כל שניה...(אני צריך לעשות משהו קצת יותר מסובך מ1+1..)

זה נראה בניים זה חייה...זה משחק מטרה...אתה טנק...והמטרה זזה מימין לשמאל...ואתה צריך לפגוע בה..הקטע שהמטרה צריכה לזוז כל שניה...ואני לא יודע להשתמש בטיימר...תודה לעונים..

אובייקט פשוט שמשתמשים בו כך:

ערכים:

Enable - האם הוא פעיל או לא ( True.False )

Index - במידה ויש כמה אובייקטים מאותו הסוג ניתן ליצור מערך ( אין שימוש כרגע )

Interval - הערך במילישניות שהטיימר יבצע פעולה ( מ 1 עד 60000 )

Tag - אכסון מידע נוסף לפי מידת הצורך ( אין שימוש כרגע )

Left,Top - מיקום על פני הטופס

שימוש פשוט:

 

Private Sub Timer1_Timer()
 If X < 100 Then X = X + 1
End Sub

קוד פשוט זה אומר כל עוד ( למרות שאין פה שימוש בתנאי לולאה כי הטיימר משמש כלולאה ) X קטן מ 100 בצע.

לא הכי הבנתי...הוא כאילו כל שניה מוסיף לX עוד 1??...

אני אפרט יותר:

Private Sub Command1_Click()
Timer1.Interval = 1000 'הגדרת הלולאה של הטיימר לשניה אחת
Timer1.Enabled = True 'הפעלת הטיימר
End Sub

Private Sub Timer1_Timer()
 If X < 100 Then 'תנאי
  X = X + 1 'כל עוד איקס קטן ממאה נוסף לאיקס אחד
 Else 'אם איקס גדול או שווה למאה
  Timer1.Enabled = False 'הטיימר מפסיק את פעולתו
 End If
End Sub

בקוד הגדרתי את הטיימר ל 1000 מילישניות ( שניה אחת ).

כאשר אני לוחץ על הכפתור הוא נותן לטיימר את הערך וגם מפעיל אותו.

כאשר מתבצע התנאי שבתוך הטיימר הוא מפסיק עצמו.

ראה תאור בגוף הקוד.

ואללה ירון ירון אני לא מאמין איך אתה לא יודע את זה ?!?!???

אתה אחד הטובים אחד משלנו (מרים הזו מתילה להשפיעכ עלי ! )

איך אתה לא יודע את זה ....????

אתה לא השתמשת בזה שבוע שעבר???? אני פשוט לא מאמין לא מאממין............ :-\