Tips menhemat baterai pada android anda
Banyak user android mengeluhkan kenapa baterai handphone mereka sangat cepat habis. Padahal wajar kalau baterai pada smartphone sangatlah boros namu ada beberpa cara untuk menghemat baterai pada android.
Bagi para user android tips - tips untuk menghemat baterai ada banyak cara nya mulai dari menginstal aplikasi,meredupkan layar dan lain sebagainya. mari simak cara - cara untuk menghemat baterai pada android anda:
Matikan bluetooth, GPS ,Layanan Data,
fitur - fitur seperti GPS, bluetooth sangat jarang digunakan jadi sebaiknya gunakan saja pada saat yang diperlukan. untuk layanan data gunakan koneksi 2G saja dikarenakan jaringan 3G sangat banyak menghabiskan energi.
Redupkan kecerahan Layar
Layar pada smartphone cukup banyak menghabiskan energi baterai jadi atur kecerahan layar secukupnya. masuk ke setting untuk mengatur kecerahannya
Gunakan aplikasi penghemat baterai
di playstore cukup banyak ada aplikasi yang digunakan untuk menghemat baterai smartphone anda.
Jangan terlalu banyak melakukan mulitasking
semakin banyak aplikasi yang dibuka pada saat yang bersamaan akan banyak menguras energi baterai smartphone anda dikarenakan setiap aplikasi android yang berjalan memakan memory yang cukup banyak sehingga memperlambat kinerja smartphone anda dan memakan energi yang banyak.
cukup sekian tips - tips Cara menghemat baterai android dari saya semoga bermanfaat bagi para pembaca
Berisikan berbagai informasi dan gameplay dari berbagai macam game PC, dimainkan dan dipostkan sendiri secara original dari saya dan untuk saya sendiri.
Thursday, November 21, 2013
Root
Banyak user baru android bertanya - tanya apa root itu dan apa fungsinya. dengan jumlah pengguna sistem operasi android yang sudah mencapai ratusa juta dsemoga informasi ini menjadi bermanfaat.
Cara melakukan root pada setiap device android adalah berbeda – beda. Informasi yang saya berikan mengenai pengertian root pada android, manfaatnya dan kelebihan serta kekurangannya.
Root : Root adalah suatu system account yang memiliki kekuasaan absolut untuk mengakses dan mengeksekusi semua file, command, system, dalam sistem operasi berbasis linux yang juga adalah androi. root ini punya akses tanpa batas yang bisa mengubah, menghapus, menambah, bahkan merusak semua yang ada didalam sistem handphone kita. Nge-root artinya seperti masuk menjadi system administrator pada computer berbasis windows.
Fungsi : memberi hak penuh kepada pengguna Android untuk dapat masuk ke sistem Android. Dengan melakukan Root, pengguna dapat menambah, mengurangi maupun memodifikasi file-file atau data-data yang terletak pada sistem Android yang bila dalam keadaan standar (belum root) file-file tersebut tidak dapat di akses. Pada root ini juga user dapat mengganti ROM formware dengan COSTUM ROM yang tersedia.
Manfaat :
Dapat mengganti rom dengan costum rom
Bias menghapus aplikasi bawaan android
Menambah memory internal pada device anda
Dapat memodifikasi system pada android
Dapat menginstal aplikasi yang membutuhkan akses penuh terhadap sistem
Kekurangan :
Root dapat menghapus garansi device anda
Membuat laporan berdasarkan kriteria pada Crystal report dan VB6
Kali ini saya akan membagikan cara untuk menampilakan laporan berdasrkan kriteria tertentu seperti nomor nota yang menggunakan bahasa pemrograman Visual Basic 6. pada program ini menggunakan crystal report sebagai laporannya semoga bisa menambah wawasan bagi para pembaca semuanya.
source code :
Me.MousePointer = 11
With CrystalReport1
.Reset
.ReportFileName = App.Path & "\Jual.rpt"
.DataFiles(0) = App.Path & "\STOKIS.mdb"
.SelectionFormula = "{TB_Jual.noNota}='" & Text1.Text & "'"
.WindowMinButton = False
.WindowShowCancelBtn = True
.WindowShowCloseBtn = True
.WindowShowPrintBtn = True
.WindowShowPrintSetupBtn = True
.WindowParentHandle = MDIForm1.hWnd
.WindowState = crptMaximized
.Action = 1
End With
Me.MousePointer = 1
untuk memilih kriteria harap diperhatikan "{TB_Jual.noNota}='" & Text1.Text & "'" ---> gantilah agar sesuai dengan kriteria anda.
berikut screenshootnya :
Autonumber berdasarkan tanggal pada VB6
Pada kesempatan sebelumnya saya telah membagikan informasi mengenai pembuatan autonumber. Kali ini saya akan membagikan cara untuk membuat autonumber atau penomoran secara otomatis dengan menggunakan tanggal sebagai acuan yang menggunakan bahasa pemrograman Visual Basic 6. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.
berikut source code nya :
Function autoNumber() As String
Dim rs As New ADODB.Recordset
rs.Open "select max(kode_beli) from pembelian where month(tgl_beli)=" & Month(Now) & _
" and year(tgl_beli)=" & Year(Now), cn
autoNumber = IIf(IsNull(rs.Fields(0)), Right(Year(Now), 2) & Month(Now) & "001", _
Left(rs.Fields(0), 4) & Format(Right(rs.Fields(0), 3) + 1, "0##"))
rs.Close
End Function
berikut screenshootnya :
berikut source code nya :
Function autoNumber() As String
Dim rs As New ADODB.Recordset
rs.Open "select max(kode_beli) from pembelian where month(tgl_beli)=" & Month(Now) & _
" and year(tgl_beli)=" & Year(Now), cn
autoNumber = IIf(IsNull(rs.Fields(0)), Right(Year(Now), 2) & Month(Now) & "001", _
Left(rs.Fields(0), 4) & Format(Right(rs.Fields(0), 3) + 1, "0##"))
rs.Close
End Function
berikut screenshootnya :
Autonumber pada VB6
Kali ini saya akan membagikan cara untuk membuat autonumber atau penomoran secara otomatis dengan menggunakan bahasa pemrograman Visual Basic 6. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.
Sub auto()
Dim Con As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim s As String
'mengatur dan membuka koneksi
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SPK.mdb;"
' Con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=STOKIS;Data Source=OKA-881F6BA00CA"
'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max)
'kemudian hasilnya d tampung d field buatan dgn nama Nomor
Rst.Open "select max(right(Kd_penilaian,4)) as kd from TB_Penilaian", Con, adOpenKeyset
''jika berisi null atau tdk ditemukan
If IsNull(Rst!kd) Then
Text1.Text = "0001" 'member nilai awal
Else
Text1.Text = "ID" & Format(Rst!kd + 1, "0000")
End If
Con.Close
End Sub
yang kemudian fungsi diatas bisa dipanggil pada button baru dengan cara
Call auto
Dim Con As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim s As String
'mengatur dan membuka koneksi
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SPK.mdb;"
' Con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=STOKIS;Data Source=OKA-881F6BA00CA"
'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max)
'kemudian hasilnya d tampung d field buatan dgn nama Nomor
Rst.Open "select max(right(Kd_penilaian,4)) as kd from TB_Penilaian", Con, adOpenKeyset
''jika berisi null atau tdk ditemukan
If IsNull(Rst!kd) Then
Text1.Text = "0001" 'member nilai awal
Else
Text1.Text = "ID" & Format(Rst!kd + 1, "0000")
End If
Con.Close
End Sub
yang kemudian fungsi diatas bisa dipanggil pada button baru dengan cara
Call auto
screenshoot nya :
Deret bilangan ganjil pascal
Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.
berikut source code nya :
program bilanganganjil;
uses crt;
var
i,n:integer;
begin
clrscr;
writeln('masukan batas akhir');
readln(n);
for i:=1 to n do
if (i mod 2 = 1) then
write(i,' ');
end.
berikut screenshoot nya :
Perkalian deret dengan pascal
Kali ini saya akan membagikan cara untuk membuat perkalian berderet atau perkalian faktorial dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.
berikut codingnya :
berikut codingnya :
program perkalianderet;
uses crt;
var
batasawal,batasakhir,jumlah:real;
begin
clrscr;
writeln('masukan awal');
readln(batasawal);
writeln('masukan batas akhir'); readln(batasakhir);
jumlah:=1;
repeat
batasawal:=batasawal+1;
write(batasawal:2,'x':2);
jumlah:=jumlah*batasawal;
until batasawal=batasakhir;
write('=',jumlah);
readkey;
end.
berikut screenshootnya :
Subscribe to:
Posts (Atom)






