سلام نوب عزیز.. من دنبال همچین برنامه ای میگشتم؟ امکان داره در صورت موجود دوباره بزارین؟ :n01:
سلام نوب عزیز.. من دنبال همچین برنامه ای میگشتم؟ امکان داره در صورت موجود دوباره بزارین؟ :n01:
یه ساعت که در زمان مشخص کلیک کند هر جا موس هست.. که هم دهم ثانیه هم صدم ثانیه داشته باشد برای تنظیم
سلام...///اینم لینک جدید../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**************
******************کد:http://s4.picofile.com/file/7799761070/DigitalClock_Project.zip.html
قبلاً که تست کرده بودم بدون هیچ مشکلی کار می کرد...// اما الان درست کار نمی کنه// امیدوارم مشکل از سیستم من باشه./// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*********************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام نوب عزیز خیلی برنامش باهاله.. حتی کلیکم می کنه اما ساعتش مشکل داره :n03:
*********************نقل قول:
میشه دقیقاً بگید که چه مشکلی داره..//قبلاً درست کار می کرد../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
******************************
این یکی رو امتحان کنید../// دقتش از قبلی کمتره.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*************************
*********************کد:http://s4.picofile.com/file/7799949030/DigitalClock_Project.zip.html
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
نه خوب .. روی بعضی ثانیه ها گیر میکنه.. مثلا, فرضی, روی ثانیه 50 هی 50 هی 50 هی 50 بعد از 4 ثانیه 51 میشه..
به طور کلی عقب میوفته
من الان دوباره این برنامه رو تست کردم.../// رو ویندوز 7 بدون هیچ مشکلی کار می کنه../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
********************
اما با ویندوز XP مشکل داره.../// دلیلش رو هم نمیدونم../// شاید به خاطر سیستم امنیتی باشه../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
************************
سعی می کنم که مشکل رو پیدا کنم../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*******************************************
متأسفانه این برنامه کلاً مشکل داره و کار نمی کنه...//// اینطور که معلومه ربطی هم به سیستم عامل نداره../// T.T
.
.
.
ممنون دوستم.. :n01:
ببینید دلیل مشکل زمان شما یک وقفه ی 1 میلی ثانیه ای با دستور sleep دارید(که باید باشد) برای اینکه این مشکل رو حل کنید باید اون یک میلی ثانیه رو هم در محاسباتتون لحاظ کنید:
البته برای هم گام سازی بهتره که هر بار ثانیه رو با ساعت سیستم تنظیم کنید تا این مشکلتون کلا حل بشه.کد:If sysTime.wMilliseconds <= 1 Then txtSecond.Text = Val(txtSecond.Text) + 1
------------------------------------- ویرایش ------------------------------------------
فایل اصلی رو از سیستم خودم حذف کردم گفتم شاید کد هاش به درد بخوره
کد:Private Sub Form_Load()
On Error Resume Next
Dim sysTime As SYSTEMTIME
Me.Show
txtTime.Text = Time & " - " & Date
txtHour.Text = Hour(Time)
txtMinute.Text = Minute(Time)
txtSecond.Text = Second(Time)
txtTimer(0).Text = Hour(Time)
txtTimer(1).Text = Minute(Time)
txtTimer(2).Text = Second(Time)
Do
GetSystemTime sysTime
txtSec1.Text = Int(sysTime.wMilliseconds / 200)
txtSec2.Text = Int(sysTime.wMilliseconds / 100)
txtSec3.Text = Int(sysTime.wMilliseconds / 10)
txtTime.Text = txtHour.Text & " : " & txtMinute.Text & " : " & txtSecond.Text & "." & sysTime.wMilliseconds
If sysTime.wMilliseconds <= 1 Then txtSecond.Text = Val(txtSecond.Text) + 1
If Val(txtSecond.Text) >= 60 Then
txtMinute.Text = Val(txtMinute.Text) + 1
txtSecond.Text = 0
If Val(txtMinute.Text) >= 60 Then
txtHour.Text = Val(txtHour.Text) + 1
txtMinute.Text = 0
If Val(txtHour.Text) >= 24 Then
txtHour.Text = 0
End If
End If
End If
If txtHour.Text = txtTimer(0).Text _
And txtMinute.Text = txtTimer(1).Text _
And txtSecond.Text = txtTimer(2).Text _
And (sysTime.wMilliseconds > (Val(txtTimer(3).Text) - 5)) And (sysTime.wMilliseconds > (Val(txtTimer(3).Text) + 5)) Then
'Call DoClick
End If
Sleep 1
DoEvents
Loop
End Sub
ممنون.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*****************
لینک جدید../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***********************
*******************کد:http://s4.picofile.com/file/7799949030/DigitalClock_Project.zip.html
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**********************************
نوشتن یه ساعت مستقل از ساعت سیستم عامل کار اشتباهی بود.../// همگام سازی لحظه به لحظه ساعت برنامه با ساعت سیستم عامل// یاهمون استفاده از ساعت ویندوز ایده ی بهتریه.../// :rolleye:
**************************
**************کد:Private Sub Form_Load()
On Error Resume Next
Dim sysTime As SYSTEMTIME
txtTime.Text = Time
txtTimer(2).Text = Second(Time)
txtTimer(1).Text = Minute(Time)
txtTimer(0).Text = Hour(Time)
Sleep 1000
Me.Show
Do
GetSystemTime sysTime
txtHour.Text = Hour(Time)
txtMinute.Text = Minute(Time)
txtSecond.Text = Second(Time)
txtSec1.Text = Int(sysTime.wMilliseconds / 200)
txtSec2.Text = Int(sysTime.wMilliseconds / 100)
txtSec3.Text = Int(sysTime.wMilliseconds / 10)
txtTime.Text = txtHour.Text & " : " & txtMinute.Text & " : " & txtSecond.Text & "." & Format(sysTime.wMilliseconds, "0##")
If txtHour.Text = txtTimer(0).Text _
And txtMinute.Text = txtTimer(1).Text _
And txtSecond.Text = txtTimer(2).Text _
And (sysTime.wMilliseconds > (Val(txtTimer(3).Text) - 1)) And (sysTime.wMilliseconds > (Val(txtTimer(3).Text) + 1)) Then
Call DoClick
End If
Sleep 1
DoEvents
Loop
End Sub
ممنون که کمک کردید..//// :n18: