[سوال] شماره گیری از روی ایپرام

[a.mehran]

سلام
من این مدارو دارم و حالا میخوام بتونم با کیپد شماره هارو روش ذخیره کنم و هرموقع خواستم فراخوانی کنم .

کد 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 


کسی راه حلی داره؟

[hadikh73]

سلام حاجی
بل برسیم

شما شماتیک هم بذارین
یکم در مورد برنامتون توضیح بدین

[a.mehran]

کارای سخت سخت میخوای انجام بدما
اینم شماتیک
   
اینم پی دی اف مربوطه

  daftar-tel-by-micro-www.picpars.com.pdf (اندازه: 138.67 KB / تعداد دفعات دریافت: 70)