اموزش برنامه نویسی اندروید به همراه تمامی ابزارها

کد پی‌اچ‌پی:

        For x1=0 To str.Length-1
            x2=str.IndexOf2(",",x1)
            If x2>-1 Then
                Msgbox(str.SubString2(x1,x2),i)
                x1=x2
            Else
                Msgbox(str.SubString2(x1,str.Length),i)
                Exit 
            End If
        Next

کد پی‌اچ‌پی:

    Dim List1 As List
    List1 = File.ReadList(File.DirAssets, "2.txt")

    For i=0 To List1.Size-1
        Dim str As String = List1.Get(i)
        Dim x2 As Int
        
        For x1=0 To str.Length-1
            x2=str.IndexOf2(",",x1)
            If x2>-1 Then
                Msgbox(str.SubString2(x1,x2),i)
                x1=x2
            Else
                Msgbox(str.SubString2(x1,str.Length),i)
                Exit 
            End If
        Next
    Next

کد پی‌اچ‌پی:

Sub pe_SmsDelivered (PhoneNumber As String, Intent As Intent)
    Msgbox("پیام تحویل داده شد" ,PhoneNumber )
End Sub

کد پی‌اچ‌پی:

Sub Globals
    Dim PhoneEvents As PhoneEvents
    Dim SMSR As SmsInterceptor
    Dim sendsms As PhoneSms
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    PhoneEvents.Initialize("PhoneEvents")
    SMSR.Initialize("SMSR")
    
    'ersale payam
    sendsms.Send("TXT","09370000000")
    
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub SMSR_MessageReceived (From As String, Body As String) As Boolean
    Msgbox(Body,From)
    Return True
End Sub

Sub SMSR_SmsDelivered (PhoneNumber As String, Intent As Intent)
    ToastMessageShow("تحویل داده شد",True)
End Sub

Sub SMSR_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
    If Success =False Then
        ToastMessageShow("خطا در ارسال ،لطفاً دوباره امتحان کنید:" & ErrorMessage , True)
    Else
        ToastMessageShow("ارسال شد",False)
    End If
End Sub