نمایش رقم های دیجیتالی ساعت در ویژوال بیسیک

[questionn]

با سلام چند تا سوال داشتم که اگه به این سوالات جواب بدهید واقعا متشکر می شوم
برنامه ای بنویسید که رقم های ساعت دیجیتالی را به نمایش در آورد ثانیه:52 دقیقه:45 ساعت :10 ؟؟

اگر به این سوالات جواب بدهید واقعا متشکر می شوم در ضمن این سوالات با ویژوال بیسک می باشد و با for تو در تو می باشد با تشکز

 

[the_king]

با سلام چند تا سوال داشتم که اگه به این سوالات جواب بدهید واقعا متشکر می شوم
برنامه ای بنویسید که رقم های ساعت دیجیتالی را به نمایش در آورد ثانیه:52 دقیقه:45 ساعت :10 ؟؟

اگر به این سوالات جواب بدهید واقعا متشکر می شوم در ضمن این سوالات با ویژوال بیسک می باشد و با for تو در تو می باشد با تشکز

لطفا سوالات جداگانه رو در تاپیک های جداگانه ای مطرح کنید، وقتی کسی عنوان تاپیک "کمک سوال" رو
می بینه هیچ اطلاعاتی در مورد موضوع مبحث کسب نمی کنه در حالی که عنوان تاپیک باید خلاصه ای از موضوع
مبحث باشه.

تاپیک به تاپیک های جداگانه تفکیک گردید.

پیاده سازی ساده و متنی :
دو کنترل استاندارد باید روی فرم قرار گیرند، یک Label با نام Label1 و یک Timer با نام Timer1 را روی فرم قرار دهید.
حالا کد زیر را داخل فرم اضافه کنید :

Private Sub Form_Load()
    Label1.AutoSize = True
    Timer1.Interval = 250
End Sub

Private Sub Timer1_Timer()
[COLOR="Blue"][B]    Label1.Caption = FormatDateTime(Now, vbLongTime)[/B][/COLOR]
End Sub

می توانید برای نمایش ساعت بدون AM / PM کد بالا را اینگونه تغییر دهید :

Private Sub Timer1_Timer()
[B][COLOR="Blue"]    Label1.Caption = Format(Now, "Hh:Nn:Ss")[/COLOR][/B]
End Sub

پیاده سازی پیشرفته و گرافیکی :

به فایل پیوستی DigitalClock.zip مراجعه کنید.