איך אני משתמש בטיימר בVB??.

[Yaron-Cohen]

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

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

interval

left

tag

top

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

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

[Pure-Gold]

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

ערכים:

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 בצע.

[Yaron-Cohen]

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

[Pure-Gold]

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

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 מילישניות ( שניה אחת ).

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

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

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

[White Raven]

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

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

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

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