سلام
کد یک ساعت دیجیتال را میخواستم.
Printable View
سلام
کد یک ساعت دیجیتال را میخواستم.
کد:' Visual Basic Digital Clock
' Terrence Ma
Private Sub Timer1_Timer()
LabelTimer.Caption = Time
End Sub
سلام فاطمه خانم به نظرتون این خیلی ساد نیست و بهتر نبود کد نوشت و بهترش کرد؟
سلام
خب صورت سوال سادست.
دلیل نداره بی خود پیچیدش کنیم!
با سلام
خوب بگو بلد نیستم!
با سلامنقل قول:
خوب بگو بلد نیستم!
سلام
من حتی بلد نیستم از این کد استفاده کنم!! چون فقط دو روزه که دارم vb آموزش میبینم.
راستی اگه راه دیگه ای هم برای ساخت این برنامه وجود داره لطفا بنویسید.
اینم یکی پیچیدش
اینم یکی دیگهکد:http://www.a1vbcode.com/app-4063.asp
کد:Option Explicit
Private Sub Form_Load()
Timer1_Timer
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 1000
LabelSec.Caption = LabelSec.Caption + 1
If LabelSec.Caption = 60 Then
LabelSec.Caption = "00"
LabelMin.Caption = LabelMin.Caption + 1
If LabelMin.Caption > 0 And LabelMin.Caption < 10 Then
LabelMin.Caption = "0" & LabelMin.Caption
End If
End If
If LabelSec.Caption > 0 And LabelSec.Caption < 10 Then
LabelSec.Caption = "0" & LabelSec.Caption
End If
End Sub
استفاده از برنامه اول که گذاشتم خیلی سادستنقل قول:
اول یک lable رو صفحه می ذاری
و یه تایمر
دوبار رو تایمر کلیک کن (دابل کلیک کن) و کد رو توش کپی کن:20:
سلام
دو نوع ساعت قشنگ:
1)
کد:http://smn-soft.persiangig.com/VB/SMNsoft01.zip
2)
کد:http://smn-soft.persiangig.com/VB/SMNsoft02.zip