6/12/2016

Masalah Aplikasi Tidak dapat Terpasang pada android

Sering kali kita ingin memasang aplikasi baru untuk hp android guna untuk fasilitas, kebutuhan, hoby, hiburan atau mempercantik hp android anda namun ada pemberitahuan, Aplikasi Tidak dapat Terpasang terdapat paket bernama sama, namun dengan tanda tangan berbeda dan di situ kita mulai terheran atau bertanya “ Kenapa ini ? “.
Masalah Aplikasi Tidak dapat Terinstal pada android

Faktor yang menyebabkan Aplikasi Tidak dapat Terinstal
  • Data pada aplikasinya tidak Lengkap Atau Korup 
Solusi : Coba download ulang aplikasi tersebut atau ganti link downloadnya barang kali yang upload salah atau rumpang
  • Aplikasi yang diinstal sudah ada di sebebelumnya atau sudah terinstal
Solusi : Anda Hapus dulu Atau Copot pemasangan Aplikasi yang sama dengan apa yang ingin anda instal
Contoh : BBM anda sudah terpasang sebelumnya lalu anda download bbm versi lain atau mod dan anda instal akan ada notifikasi Aplikasi Tidak dapat Terinstal berarti anda harus hapus dulu bbm yang sudah terpasang baru anda instal bbm yang anda dowload tadi
  • Versi android anda tidak cocok
Solusi : Update versi android anda sekarang sudah sampai Android 6.0 yang sebelumnya adalah lolipop ( 5.0 )
Jika anda sudah mencoba tersebut namun masih tidak bisa coba anda hubungi saya atau komentar di bawah post ini

Penyebab Masalah Baterai Bocor Pada Laptop

Baterai Merupakan perangkat hardware, salah satunya adalah hardware pada leptop.
Di dalam baterai terdapat cairan dan ion jika cairan itu sudah tidak stabil atau lemah maka akan menyebabkan baterai cepat habis, saya ambil contoh dari teman saya, ia baterainya low saat proses isi baterai ia menunggu lama sekali tidak penuh penuh padahal normal untuk baterai leptop Saat proses pengisiannya hanya 1- 2 jam saja namun ia lebih, saat dipakai malah cepat habis, oleh karena itu mencegah lebih baik dari pada memperbaiki, oleh karena itu mari kita ketahui apa sih yang membuat baterai bocor dan bagaimana cara Mencegah Dan Memperbaiki Masalah baterai Bocor Pada Leptop
Mencegah Dan Memperbaiki Masalah Battrey Bocor Pada Leptop

Penyebab Baterai Bocor
  • Memaikan Leptop saat dalam kondisi mengisi daya
Contoh :
» Main game atau semacamnya yang membuat komputer harus berkerja maksimal namun dalam keadaan sambil dicas atau pengisian hal itu mejadi penyebab baterai bocor karena tidak ada sirkulasi dalam baterai tersebut

Tips : Jika anda sedang bermain game hendak lah cabut saja baterainyadan janganlah memakai leptop sambil di cas atau pengisian dalam jangka lama, apakah bahaya mencabut battrey leptop ?
Tidak sama sekali bahaya klik disini untuk info lengkapnya mengenai Mencabut battrey leptop
  • Pengisian baterai yang tidak setabil
Contoh :
» Saat baterai anda Lemah atau low (10%) anda lalu anda Isi Atau Cas battery tersebut namun tidak sampai full contoh (70%) langsung anda cabut dan sampai habis lagi karena ketidak stabilan tersebut membuat baterai Bocor dalam jangka lama

» baterai belum low tapi sudah anda isi battreynya
Tips : Agar pengisian setabil hendaklah mengisi baterai dari low (0%) sampai pengisian full (100%) karena ion yang lama akan tergantikan dengan ion baru, ion baru maksudnya adalah tahap pengisian battrey jika anda cas dalam kondisi contoh (30%) dan maka ion yang masih 30% tersebut tidak diisi dengan ion baru makan terjadi kejenuhan dan itu menyebabkan battrey bocor dalam jangka sedang. itu belum dikatakan kondisi low yang dikatakan kondisi low adalah 1% – 10%

  • Jenis baterai yang abal abal 

Tips : Jika anda hendak membeli baterai baru cermatilah baterai tersebut apakah kw atau abal abal karena itu juga berdampak pada leptop anda juga
  • Jangka baterai yang sudah tua
Jangka battey umunya sampai 5 tahunan jika sudah lebih dari waktu yang ditetapkan segeralah ganti battrey tersebut

Itulah beberapa penyebab baterai bocor sekali lagi saya tekankan mencegah lebih baik dari pada memperbaiki

6/01/2016

Cara membuat sevent Segment Di Visual Basic

Cara membuat sevent Segment Di Visual Basic

Dalam membuat 7 segment pasti anda sudah terbayang apa sih itu 7 segment, ya sevent segment merupakan segment yang berjumlah 7 biasanya digunakan untuk membuat jam digital, text dan banyak hasil dari sevent segment namun dalam project kali ini kita mulai dari dasar dulu barulah jika sudah bisa mengerti anda bisa mengembakannya lagi menjadi ide yang sangat baik.
Di dalam project ini terdiri dari :
  • 7 Shape 
  • 9 Commond Button
Saya menambahkan beberapa tambahan
  • 2 Timer untuk kelap kelip
  • 1 Frame untuk belakang sevent sigment 
[info title="Coding Visual Basic 6" icon="info-circle"]Private Sub Command1_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = 1
Shape7.FillColor = 1
Shape6.FillColor = 1
Shape5.FillColor = 1
Shape4.FillColor = 1
End Sub

Private Sub Command10_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = 0
Shape6.FillColor = 0
Shape5.FillColor = 0
Shape4.FillColor = 0
End Sub

Private Sub Command11_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape5.FillColor = vbRed
Shape4.FillColor = vbRed
End Sub

Private Sub Command12_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape5.FillColor = 0
Shape4.FillColor = vbRed
End Sub

Private Sub Command13_Click()
Form3.Visible = vbNormalFocus
Unload Me
End Sub

Private Sub Command2_Click()
Shape1.FillColor = vbRed
Shape2.FillColor = vbRed
Shape3.FillColor = 0
Shape4.FillColor = vbRed
Shape5.FillColor = vbRed
Shape6.FillColor = 0
Shape7.FillColor = vbRed

End Sub

Private Sub Command3_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = 0
Shape5.FillColor = 0
Shape4.FillColor = vbRed
End Sub

Private Sub Command4_Click()
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = 0
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape5.FillColor = 0
Shape4.FillColor = 0
End Sub

Private Sub Command5_Click()
Shape2.FillColor = 0
Shape5.FillColor = vbRed
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape4.FillColor = vbRed
End Sub

Private Sub Command6_Click()
Shape2.FillColor = 0
Shape3.FillColor = vbRed
Shape1.FillColor = vbRed
Shape7.FillColor = vbRed
Shape6.FillColor = vbRed
Shape5.FillColor = 0
Shape4.FillColor = vbRed
End Sub

Private Sub Timer1_Timer()
Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = False
Shape4.Visible = False
Shape5.Visible = False
Shape6.Visible = False
Shape7.Visible = False
End Sub

Private Sub Timer2_Timer()
Shape1.Visible = True
Shape7.Visible = True
Shape2.Visible = True
Shape3.Visible = True
Shape4.Visible = True
Shape5.Visible = True
Shape6.Visible = True
End Sub[/info]

Cara Membuat Calculator Di Visual Basic 6

Cara Membuat Calculator Di Visual Basic 6

Nah banyaknya permintaan program vb6 yang sangat unik dan sering dipakai banyak orang nah berhuhung dari itu saya memutuskan membuat calculator dalam pembuatan project ini kita harus memasukan logika untuk hitung hitungan dan namanya logika pasiti tidak susah, karena tidak jauh dari akal pikiran kita
Logika Yang Digunakan :

Program Untuk Pembagian = “/” ( tanpa tanda kurung )
Program Untuk Tambah = “+” ( tanpa tanda kurung )
Program Untuk Perkalian = “x” ( tanpa tanda kurung )
Program Untuk Pengurangan = “-” ( tanpa tanda kurung )

Codingan untuk membuat calculator di vb6

Private y As Double
Private x As Double

Private Sub AC_Click()
text.text = ""
Text1.text = ""
End Sub

Private Sub Bagi_Click()
Text1.text = ""
text.text = "/"
Text2.text = "bagi"
y = x
x = 0
End Sub

Private Sub Hasil_Click()
If Text1 = "" Then
MsgBox ("Eror Code @@## || Harap Masukan Angka")
End If
text.text = " = "
Select Case Text2.text
Case "bagi"
x = y / x
Text1.text = x
Case "tambah"
x = y + x
Text1.text = x
Case "kurang"
x = y - x
Text1.text = x
Case "kali"
x = y * x
Text1.text = x
End Select
End Sub

Private Sub kali_Click()
Text1.text = ""
text.text = "x"
Text2.text = "kali"
y = x
x = 0
End Sub

Private Sub koma_Click()
If Text1.text = "" Then
Text1.text = "0,"
Else
Text1.text = Text1.text & ","
End If
End Sub

Private Sub kurang_Click()
Text1.text = ""
text.text = " - "
Text2.text = "kurang"
y = x
x = 0
End Sub

Private Sub Tambah_Click()
Text1.text = ""
text.text = " + "
Text2.text = "tambah"
y = x
x = 0
End Sub

Private Sub Command1_Click(Index As Integer)
Text1.text = Text1.text & Command1(Index).Caption
x = Text1.text
End Sub

Private Sub Timer1_Timer()
Label3.Caption = Right(Label3.Caption, Len(Label3.Caption) - 1) & Left(Label3.Caption, 1)
Label4.Caption = Time
End Sub

Download file