سلام دوستان من چطوری میتونم تو بسکام ساعت و تاریخ و از سیستم بگیرم؟؟مثلا وقتی روشن میکنم مدارمو رو ال سی دی ساعت و تاریخ سیستممو نشون بده(کامپیوترمو).
تشکر
تشکر
$regfile = "m32def.dat" $crystal = 1000000 Config Clock = Soft Time$ = "00:00:00" Enable Interrupts Config Lcd = 20 * 4 Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.2 , Db4 = Porta.4 , Db5 = _ Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 Config Kbd = Portd , Debounce = 200 config portb=input do if pin b.0=1 then Lcd Time$ Writeeeprom Time$ , 1 wait 2 end if if pin b.1=1 then Lcd Time$ Writeeeprom Time$ , 2 wait 2 end if if pin b.2=1 then Lcd Time$ Writeeeprom Time$ , 3 wait 2 end if if pin b.3=1 then Readeeprom Time$ , 1 lcd ??? end if loop
$regfile = "m32def.dat" $crystal = 1000000 config lcd= 16 * 2 Config Clock = Soft Time$ = "00:00:00" Enable Interrupts Dim Timee As Eram String * 16 Dim Time1 As String * 16 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 Do Locate 1 , 1 lcd time$ If Pinb.0 = 1 Then Timee = Time$ Cls Waitms 300 end if If Pinb.3 = 1 Then Time1 = Timee Locate 2 , 1 Lcd Time1 end if loop
$regfile = "m32def.dat" $crystal = 1000000 config lcd= 16 * 2 Config Clock = Soft Time$ = "00:00:00" Enable Interrupts Dim Timee As Eram String * 16 Dim Time1 As String * 16 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 Do Locate 1 , 1 lcd time$ If Pinb.0 = 1 Then Timee = Time$ Cls Waitms 300 end if If Pinb.3 = 1 Then Time1 = Timee Locate 2 , 1 Lcd Time1 end if loop
دیدگاه