تنظیم ساعت سیستم با ویژوال بیسیک :
یه تایمر و فرمتون بذارین و اینتروال اون رو روی 1000 تنظیم کنید و کد زیررو توی قسمت جنرال فرمتون قرار بدین
Dim TimeStop
Private Sub Form_Load()
TimeStop = Time
End Sub
Private Sub Timer1_Timer()
Time = TimeStop
End Sub
توی این کد وقتی فرم اجرا میشه زمان وارد TimeStop میشه بعدش توسط تایمر زمان به TimeStop تنظیم میشه که به عبارتی زمان رو نگه میداره
حالا میخوایم زمان رو تنظیم کنیم:
یهCommand رو فرمتون بذارین بعد از این کد استفاده کنید
Private Sub Command1_Click()
Dim H, Min, Sec, AMorPM
H = InputBox("Type Hour...")
Min = InputBox("Type Minute...")
Sec = InputBox("Type Second...")
AMorPM = InputBox("AM time or PM time")
Time = H & ":" & Min & ":" & Sec & AMorPM
End Sub
پاسخ با نقل قول
