בקשה מפגרת!!!

[metalmen1]

בקשה מפגרת!!!

מישהו יכול לכתוב לי קוד שיפעיל טיימר שפועל ע"י לחצן ובתוך הלייבל יופיע מס´ שרץ/סופר..... כתבתי את זה אבל איפה טעיתי¿¿!!

Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label1.Caption = Label1.Caption + 1 End Sub​

 

[cald]

טעות קטנה מאד

אם מחשוב קצת, נראה שהערך שנמצא בתוך label1.caption הוא ערך מחרוזת, זאת אומרת ערך טקסטואלי. אם כך, המחשב לא יכול לחשב חישוב מספרי של ערך מספרי וערך טקסטואלי. בקיצור, אתה צריך להפוך את הערך של Label1.Caption לערך מספרי. השורה שאתה צריך לרשום בתוך הטיימר היא זאת: Label1.Caption = Val(Label1.Caption) + 1 והכל אמור לעבוד

 

[shai_shai_shai]

הוספה...

זה נכון שאתה צריך להוסיף val אבל עם היית שם מההתחלה במאפיין caption של label1 את 0 אז לא היית צריך לדאוג

 

[bennyab]

ans

שים לב שקבעת interval מתאים

 

[eyalk5]

אפשרות אחרת:

בtimer1_timer תכתבי שוב timer1.enbled=true ותכתבי משתנה integer שיציין אם הטיימר פועל (כמובן ע"י if)