۰۵-تير-۱۳۹۳, ۱۴:۳۲:۰۱
سلام
من این مدارو دارم و حالا میخوام بتونم با کیپد شماره هارو روش ذخیره کنم و هرموقع خواستم فراخوانی کنم .
کسی راه حلی داره؟
من این مدارو دارم و حالا میخوام بتونم با کیپد شماره هارو روش ذخیره کنم و هرموقع خواستم فراخوانی کنم .
کد php:
'24 Memory Dialer By Behnam @ 22.Day.86 Rev:09.Far.87
$regfile = "m8def.dat"
$crystal = 4000000
Config Kbd = Portd , Rows = 6 , Row5 = Pinb.2 , Row6 = Pinb.3
Enable Interrupts
Config Portc = Output
Dim Number As String * 50
Dim Key As Byte
'********************** Blink LED ***********************
'Blink Ready LED Timer
Config Timer0 = Timer , Prescale = 1024
Enable Timer0
On Ovf0 Blink_led
Start Timer0
Dim Time_led As Byte
'********************** Main Prog **********************
Memory_key:
Key = Getkbd()
If Key > 23 Then Goto Memory_key
'********************************* Search & Dial *******************************
Set Portc.4 : Waitms 10 : Set Portc.3
Number = Lookupstr(key , Memory)
Dtmfout Number , 50
Reset Portc.3 : Waitms 10 : Reset Portc.4
( )
'********************************* End Dialing *********************************
jmp memory_key
End
Memory:
Data "09193842398" , "192" , "110" , "118" ,
Data "0" , "0" , "0" , "0"
Data "0" , "0" , "0" , "0"
Data "0" , "0" , "0" , "0"
Data "0" , "0" , "0" , "0"
Data "0" , "0" , "0" , "0"
Blink_led:
Incr Time_led
If Time_led > 50 Then Time_led = 0
If Time_led > 0 And Time_led < 2 Then '<-'-'------>
Set Portc.5 'On LED
Else
Reset Portc.5 'Off LED
End If
Return
