گرفتن ساعت از سیستم

[gmaissam]

پاسخ : گرفتن ساعت از سیستم

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

این مشکل با ارایه حل میشه...کد رو ببینید...شما هر بار کلید B.3 رو فشار بدید 10 تا زمان ذخیره شده رو برات نمایش میده..شما می تونید با توجه به نیازتون کد رو تغییر بدید

[code]





$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100

config lcd= 16 * 2
Config Clock = Soft
Time$ = "00:00:00"
Enable Interrupts
 Dim Timee(10) As Eram String * 10
 Dim Timek(10) As String * 10
 Dim I As Byte
 Dim J As Byte
Config Lcd = 20 * 4
Config Lcdpin = Pin , Rs = Portd.2 , E = Portd.3 , Db4 = Portd.4 , Db5 = _
Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
Config Kbd = Portd , Debounce = 200
Config Portb = Input
Time$ = "10:22:23"
Cls
I = 1
J = 1
Do
Locate 1 , 1
lcd time$
If Pinb.0 = 1 Then
Timee(i) = Time$
J = I
I = I + 1
Cls
Waitms 300
end if


If Pinb.3 = 1 Then
Timek(j) = Timee(j)
Locate 2 , 1
Lcd Timek(j)
If J > 1 Then : Decr J : End If
Waitms 300
end if
loop

[/code]

[milad brave]

پاسخ : گرفتن ساعت از سیستم

این مشکل با ارایه حل میشه...کد رو ببینید...شما هر بار کلید B.3 رو فشار بدید 10 تا زمان ذخیره شده رو برات نمایش میده..شما می تونید با توجه به نیازتون کد رو تغییر بدید

[code]





$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100

config lcd= 16 * 2
Config Clock = Soft
Time$ = "00:00:00"
Enable Interrupts
 Dim Timee(10) As Eram String * 10
 Dim Timek(10) As String * 10
 Dim I As Byte
 Dim J As Byte
Config Lcd = 20 * 4
Config Lcdpin = Pin , Rs = Portd.2 , E = Portd.3 , Db4 = Portd.4 , Db5 = _
Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
Config Kbd = Portd , Debounce = 200
Config Portb = Input
Time$ = "10:22:23"
Cls
I = 1
J = 1
Do
Locate 1 , 1
lcd time$
If Pinb.0 = 1 Then
Timee(i) = Time$
J = I
I = I + 1
Cls
Waitms 300
end if


If Pinb.3 = 1 Then
Timek(j) = Timee(j)
Locate 2 , 1
Lcd Timek(j)
If J > 1 Then : Decr J : End If
Waitms 300
end if
loop

[/code]

تشکر مهندس یجوری حلش کردم فقط یه مشکل دیگه پیش اومد بیشتر از 4 تا تایم قبول نمیکنه یعنی تو پروتیوس ک 4 تا میدم 5 ک میدم ارور میده!!!!

[gmaissam]

پاسخ : گرفتن ساعت از سیستم

تشکر مهندس یجوری حلش کردم فقط یه مشکل دیگه پیش اومد بیشتر از 4 تا تایم قبول نمیکنه یعنی تو پروتیوس ک 4 تا میدم 5 ک میدم ارور میده!!!!

من تا 10 تا براش تعریف کردم وتو پروتئوس جواب میده،چه جوری حلش کردید؟

[milad brave]

پاسخ : گرفتن ساعت از سیستم

من تا 10 تا براش تعریف کردم وتو پروتئوس جواب میده،چه جوری حلش کردید؟

همونطور که گفتی تا 10 براش تعریف کردم..