[Amin_Mansouri]

واسه باطری از سورس زیر استفاده کن :

کد:

Sub Process_Globals
   Dim Timer1 As Timer
End Sub
...
Sub Globals
  Dim PE As PhoneEvents
  Dim labelTime, labelBattery as Label
End Sub
...
Sub Activity_Create(FirstTime As Boolean)
  PE.Initialize("PE")
  Timer1.Initialize("Timer1", 60000) ' changes time display once per minute
  Timer1.Enabled = True
End Sub
...
Sub Activity_Pause
  Timer1.Enabled = False
End Sub
...
Sub Activity_Resume
  Timer1.Enabled = True
End Sub
...
Sub Timer1_Tick
  ShowTime
End Sub
...
Sub ShowTime
  Dim now, i As Long
  Dim t As String
  DateTime.DateFormat = "h:mm a"
  now = DateTime.Now
  t = DateTime.Time(now) ' e.g.: "14:25:10"
  t = t.SubString2(0, 5) ' e.g.: "14:25"
  i = t.SubString2(0, 2) ' e.g.: "14"
  If i >= 13 Then
    i = i - 12 ' Change from 24-hour time to 12-hour time
    t = i & t.SubString(2) ' e.g.: "2" & ":25"
  End If
  labelTime.Text = "Time: " & t
End Sub
...
Sub PE_BatteryChanged(Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
  labelBattery.Text = "Battery: " & level & "%"
End Sub

واسه کار کردن با شبکه سیم کارت با کتابخانه phone کار کن
2.فعلا سورسی ندارم که پیوست کنم
3.این سوالو جاب دادم میتنید توی یک فایل بنویسید بخوید و حتی میتنید یه دیتابیس داشته باشید یه نمونه کار با دیتابیس تو همین بخش هست.
4.توی برنامه basic4andorid در قسمت project در من activity peroprties روی گزینه full screen کلیک کنید واسه سایز تبلت ها و غیره هم به زودی یک اموزش کامل باید بزارم.