سلام دوستان من برنامه ای میخواستم که با استفاده از یک تایمر حروف a to z را در یک Label نمایش بده ممنون
در مورد تایمر /کانتر 0 pic خیلی کمک کنید.
نقل قول: سلام دوستان من برنامه ای میخواستم که با استفاده از یک تایمر حروف a to z را در یک Label نمایش بده ممنون
سلام
یک عدد تایمر و یک عدد لیبل بنداز رو فرمت و کد های زیر رو بریز تو فرمت :
کد:
Dim i As Integer
Private Sub Form_Load()
i = 97
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Chr(i)
i = i + 1
If i = 123 Then i = 97
End Sub
موفق باشی
ممنون خیلی جالب بود فقط نمیشه این خاموش روشن بشه یا مثلا تامیر این از کجا بیشترش کنیم خاموش روشن بشه خیلی جالب میشه
نقل قول: ممنون خیلی جالب بود فقط نمیشه این خاموش روشن بشه
اگه منظورت اینه که روند شمارش متوقف بشه باید از کد زیر استفاده کنی :
برای توقف روند شمارش :
کد:
Timer1.Enabled = False
و برای ادامه روند شمارش :
کد:
Timer1.Enabled = True
نقل قول: یا مثلا تامیر این از کجا بیشترش کنی
Private Sub Form_Load()
i = 97
Timer1.Interval = 1000
End Sub
موفق باشی .