مشکل در نوشتن دستور برای تماس صوتی با سیم 900

[arvin2009]

سلام
دوستام من با بیسیک اشنایی ندارم و برای فرستادن یک دستور که سیم 900 به من زنگ بزنه مشکل دارم.
شکل دستوری که می خوام بفرستم به این شکله
کد: [انتخاب]
ATD09121730000;هرجور عمل میکنم با این دستور جور در نمیاد
کد: [انتخاب]
Sendnum = Enumber(1)
Print "ATD" ; Chr(34) ; "09" ; Sendnum ; ";" Chr(34) ; Chr(13)
میدونم اشتباه است لطفا دوستان دستور صحیح رو بنویسن .اخر شماره باید ";" بیاد که من با بیسیک بلد نیستم

[zoz_zozm]

لطفا برای نوشتن کدها از تگ کد (علامت #) داخل ادیتور استفاده کنید تا کد قابل خواندن باشه تا دوستان بتونن ایراد دستورتون رو پیدا کنن.

[sobhan537]

کد کشور (98+) رو باید اول شماره بنویسید...

[arvin2009]

نه سبحان جان ربطی به کد کشور نداره ایراد از دستور هست.من میخوام این دستور رو بفرستم
ATD+98912173000;
با این کد نوشتم
Sendnum = Enumber(1)
Print "ATD" ; Chr(34) ; "+989" ; Sendnum ; ";" ; Chr(34) ; Chr(13)
مشکلی که هست فکر میکنم "" اضافه ای فرستاده میشود.ناگفته نماند که مثل همین دستور برای اس ام اس دادن درست کار میکند
Sendnum = Enumber(1)
Print "AT+CMGS=" ; Chr(34) ; "09" ; Sendnum ; Chr(34) ; Chr(13)

[arvin2009]

Sendnum = Enumber(1)
         Print "ATD" ; Chr(34) ; "+989" ; Sendnum ; ";" ; Chr(34) ; Chr(13)

کار نمیکند

Sendnum = Enumber(1)
         Print "AT+CMGS=" ; Chr(34) ; "09" ; Sendnum ; Chr(34) ; Chr(13)

کار میکند

دوستان یکی کمک کنه.مشکل فکر میکنم از فرستاده شدن "" در دوطرف شماره باشه که برای زنگ زدن نباید "" باشد

[sobhan537]

برای ایجاد تماس صوتی باید این دستور رو بفرستید:

ATD+989*********;

احتیاجی به "" ((34)Chr) نیست.

ولی برای ارسال اسمس، "" لازمه.

AT+CMGS="+989*********"

[arvin2009]

بله مرسی سبحان جان مشکل حل شد.برای همین chr(34) بود.
یک مشکل دیگه دارم.یک تابع رو از سی به بیسیک ترجمه کردم ارور میده میشه کمک کنید

/////////////////////////////
 
 
 void cmti(void)
    { 
     char c[1];
     wait_to_get(',');
     c[0]=getchar();
     MEMO=atoi(c);
     if(MEMO>=10)sms_location/=10;
     printf("AT+CMGR=%d\r",MEMO);
    } 
   
///////////////////////////////////

و

//////////////////////////////////
void wait_to_get(char ch)
 { 
 while(ch != getchar());
  }


/////////////////////////// 

اینو به بیسیک اینجور نوشتم

	
	
Cmti:
   Dim C(2) As String * 1
   Dim MEMO As Integer 
   do
m = Waitkey()
   Loop until m=","
C[1]= Waitkey()
   MEMO = val(c)
   If MEMO >= 10 Then
      MEMO = MEMO / 10
End If
      Print "AT+CMGR=" ; MEMO ; Chr(13)
   
Return

حالا دوتا ارور میده.لطفا کمک کنید.من بیسیکم صفر هست