دوستان با عرض عذرخواهی بخاطر مطلب نذاشتن من در این وبلاگ اما امروز براتون یک برنامه توپ آوردم . حدس بزنید!!!!!
من درماموریت چند ماهه که در کیش بودم گفتم یک برنامه عالی برای عزیزان برنامه نویس آماده کنم .
(کرنومتر)
00:00:00
این برنامه از پنج label و سه command یا دکمه و یک timer تشکیل شده است .
برای نوشتن این برنامه ابتدا باید caption دکمه ها و label را تغییرداد بصورت زیر:
*** تنظیمات زیرباید در قسمت (properties) یا مشخصه ها انجام شود .***
(Caption)
* label1=00 (صدم ثانیه)
*label2=00 (ثانیه)
* label3=00 (دقیقه)
* label4=:
* label5=:
(Caption)
* cmd1=Start
* cmd2=Stop
* cmd3=Restart
(Caption)
* Enabel=False=Timer1l
* TIMER1=Interval=11
(بعد از اجرای این تنظیمات در قسمت مشخصه ها) به سراغ نوشتن برنامه می رویم .
( ) Private sub cmd1-click
Timer1.Enabel=True
End sub
( ) Private sub cmd2-click
Timer1.Enabel=False
End sub
( ) Private sub cmd3-click
Label1.caption =۰۰
Label2.caption = ۰۰
Label3.caption = ۰۰
End sub
( ) Private sub timer1-time
Label1.caption = Label1 + 1
If label1 = 99 then
Label1.caption = 0
Label2.caption = Label2 + 1
If label2 = 59 then
Label2.caption = 0
Label3.caption = Label3 + 1
End if
End if
End sub
به کلوب آموزش خوش آمدید
این وبلاگ جهت جلب رضایت شما تنظیم شده و توجه شما به آن موجبات شادمانی ما را فراهم می آمورد .
