میلیاردر شدن با اپلیکیشن اندروید

[iranian]

به نظر من basi4android محبوب تر و راحت تره

مثلا کد زیر رو ببینید :
کارش اینه که 10 تا Call Log آخر تلفن رو بهت بر میگیردونه

ببینید چقدر راحته »

کد PHP:

Dim Calls As List
Dim CallLog As CallLog
Calls = CallLog.GetAll(10) 'Get the last 10 calls
For i = 0 To Calls.Size - 1
    Dim c As CallItem
    c = Calls.Get(i)
    Dim callType, name As String
    Select c.callType
        Case c.TYPE_INCOMING
            callType="Incoming"
        Case c.TYPE_MISSED
            callType = "Missed"
        Case c.TYPE_OUTGOING
            callType = "Outgoing"
    End Select
    name = c.CachedName
    If name = "" Then name= "Unknown"
   ListView1.AddSingleLine("Number:" & c.Number & ", Name:" & name _
        & ", Type:" & callType & ", Date:" & DateTime.Date(c.Date))
Next