دوستان یک تابع به زبان سی دارم میخوام به زبان بیسک بنویسم ولی سوادم قد نمیده لطفا کمکم کنید
دوستان کمک کنید یچیزی نوشتم ارور میده
کد:
////////////////////////////////// void wait_to_get(char ch) { while(ch != getchar()); } ///////////////////////////
کد:
///////////////////////////// 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); } ///////////////////////////////////
کد:
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
دیدگاه