Kamis, 10 Februari 2011

Tips mengatasi sinyal edge(kecil)

Jaringan ASU,,,,,,,,!
kata kata pertama yang saya ucapkan buat jaringan ini,,,,
gmna gak kesel.....
saya pengguna telkomsel , trnyata jaringannya gak seheboh iklannya,... jaringannya selalu gak stabil....:(

Ok , ini khusus Pengguna Blackberry, Sinyal apa sih yg kalian dapat?? GPRS kah? GSM kah? EDGE kah? atau edge(kecil)??
kalau ditempat saya... Mentok dapet EDGE (besar)....walaupun agak lemot...tp ud termasuk lumayan lah ya.....
ok, kali ini saya mau share pengalaman saya, siapa tau agan agan sekalian pernah mengalami hal ini , saya ada sedikit solusi yg menurut saya yaaa...bermanfaat lah..hehe

masalah yang timbul , saya hanya mendapat jaringan "edge(kecil)" selama 3 hari!!
dan efek samping dari jaringan ini...
1.yang pasti gak bisa menggunakan layanan dari Blackberry itu sendiri....(FB,Twitter,BBM dll)
2. Rugi, ya...rugi...bygin, saya beli paket BIS Unlimited yang Mingguan...dan selama 3 hari itu saya tidak bisa
    apa apa...WTF!

ok, setelah browsing sana sini, dapet bbrp cara,,,dan saya lakukan semua..... caranya adalah  :
1. jangan pernah tanya sama Costumer Service
    kenapa? menurut pengalaman banyak orang...ngadu ke mereka gak ada gunanya...malah jd +kesel....dan
    kynya mereka jawabnya asal2an.... :(

2. lakukan hard reset
    Alt+simbol aA yg dikanan+del , kalo gak bisa juga,....lakukan no.3

3. kembalikan BB ke settingan awal
   option + security wipe + Masukkan Password Blacberry + wipe ,
   perlu diingat!!, backup semua data yang penting, seperti kontak Hp, dan Kontak BBM nya yah,

4.kalo no.3 gak mempan, mungkin perlu ditambah dengan batrai dilepas, kemudian dipasang lagi


dan saya berhasil ketika mengerjakan No.3 dan 4.......


semoga bermanfaat ..:)

Visual Basic Dasar

halow agan agan....! 
mau sharring tentang program visual basic nih
hehhehe..... maaf yah klo programnya agak simpel,,,,,saya masih newbie gan....
Sebenarnya ni soal ujian les aq,,,hehe....sekedar berbagi ilmu saja...
lets cekidot


program dibawah yaitu  program tentang Sistem Informasi  Penjualan motor
oke seperti biasa ...sebelum buat listing programnya qt buat terlebih dahulu formnya


ok....selanjutnya listing programnya:
Option Explicit
Dim harga, pinjaman

Private Sub CB1_Click()
If CB1.ListIndex = 0 Then
    harga = 0
ElseIf CB1.ListIndex = 1 Then
    harga = 16000000
ElseIf CB1.ListIndex = 2 Then
    harga = 14500000
ElseIf CB1.ListIndex = 3 Then
    harga = 17000000
ElseIf CB1.ListIndex = 4 Then
    harga = 18500000
ElseIf CB1.ListIndex = 5 Then
    harga = 19000000
ElseIf CB1.ListIndex = 6 Then
    harga = 13500000
ElseIf CB1.ListIndex = 7 Then
    harga = 14000000
End If
txtharga = Format(harga, "Rp#,##0.00")
End Sub





Private Sub cmdclose_Click()
End
End Sub

Private Sub Form_Load()
CB1.AddItem "Pilih Kendaraan Anda"
CB1.AddItem "SupraX"
CB1.AddItem "Revo"
CB1.AddItem "Mega Pro"
CB1.AddItem "Vixion"
CB1.AddItem "Scorpio"
CB1.AddItem "Mio"
CB1.AddItem "Jupiter MX"
CB1.ListIndex = 0

End Sub

Private Sub txtlama_Change()
Dim a, b, c
a = Val(txtbunga) / 100 / 12
b = Val(txtlama) * 12
c = (pinjaman * a) / (1 - (1 + a) ^ -b)
txtcicil = c
txtcicil = Format(txtcicil, "Rp#,##0.00")

End Sub

Private Sub txtum_Change()
Dim h, pj, um As Long


h = Val(harga)
um = Val(txtum)
pj = h - um
pinjaman = pj
txtpinjam = Format(pinjaman, "Rp#,##0.00")

End Sub


finish.....maka hasilnya akan seperti inii



okk...semoga bermanfaat!