Update OS BB/Instal Ulang OS BB

Update/Instal Ulang os bb adalah hal biasa bagi service bb dengan harga ± Rp.50.000,
jika Blackberry anda mati total dan terjebak di tulisan BLACKBERRY,Anda patut melakukan hal ini,setiap kerusakan pasti mempunya resiko yaitu:Contact bbm,phonebook,autotext,dll akan hilang

 Untuk melakukan tutorial ini anda harus mendownload software sebagai berikut:
1.BlackBerry Desktop Manager
2.os bb yang akan anda instal ulang(anda bisa download disini  

Tutorial:
1.Instal Blackberry Desktop Manager, jangan dibuka
2.Instal os yang anda barusan download
3.Lalu colok bb ke komputer,jika keluar Blackberry Desktop Managernya diclose aja
4.Lalu buka My computer-c:\program files\common files\research in motion\Apploader
5.Buka Loader.exe
6.Ikutin aja instruksinya 
7.Nanti ada pilihan aplikasi,pilih sesuai selera aja
8.Ikutin lagi aja instruksinya 
9.Jika sudah selesai boleh dicopot kabelnya

Itu saja tutorialnya,jika anda berhasil berarti anda menghemat ± Rp.50.000
:D :) 

Cara Buat Insert Form Di Excel Dengan VBA (Visual Basic)

Malam Indonesia,ini adalah blog pertama saya dan post pertama saya,jadi maklum kalau jelek :D,langsung ke topik,kali ini saya akan membagi tutorial membuat form input di Excel,jika ingin mengubah,mengkopas silahkan tidak dilarang,lanjut ke topik,

1.Rename Worksheet menjadi "Kredit"     *Tanpa tanda petik

2.buka ms excel

3.buat table untuk form input              *di contoh gambar saya membuat form input kartu kredit

4.Buka tab View-Macros-View Macro,lalu buat macro dengan nama:Kredit

5.lalu akan terbuka Visual Basic,insert-userform masukkan dengan nama: bayar_kredit

6.lalu buat:

Objek	Properti
Label	Name:Label1      Caption:Nomor Kartu      Tempat=dikiri atas
Label	Name:Label2      Caption:Jenis Kartu         Tempat=dikiri tengah
Label	Name:Label3      Caption:Atas Nama          Tempat=dikiri tengah
Label	Name:Label4      Caption:Harga                   Tempat=dikiri bawah
Command Button	Name:cmdInput  Caption:Bayar                    Tempat=Bawah tengah

Sehingga jadi seperti:

*Properti Dapat Diubah Di Pojok Kiri Bawah

7.lalu klik kanan Userform klik view code
Masukkan code:


Private Sub cmdInput_Click()
Set wsdatabase = Sheets("kredit")

Dim Barisdatabase As Long

If txtkartu.Text = "" Then
    MsgBox "NOMOR masih kosong", vbOKOnly
    txtNIS.SetFocus
    Exit Sub

ElseIf txtjenis.Text = "" Then
    MsgBox "jenis kartu kosong", vbOKOnly
    txtbarang.SetFocus
    Exit Sub
 
 
Exit Sub
End If

With wsdatabase

Barisdatabase = .Cells(.Rows.Count, "A"). _
End(xlUp).Offset(0, 1).Row
'--- data input

.Cells(Barisdatabase + 1, 1).Value = txtkartu.Text
.Cells(Barisdatabase + 1, 2).Value = txtjenis.Text
.Cells(Barisdatabase + 1, 3).Value = txtnama.Text
.Cells(Barisdatabase + 1, 4).Value = txtharga.Text

txtkartu.Text = ""
txtjenis.Text = ""
txtnama.Text = ""
txtharga.Text = ""

MsgBox "Data sudah disimpan", vbOKOnly
txtkartu.SetFocus

End With
End Sub

Private Sub UserForm_Click()

End Sub

8.Lalu ke module dengan project explorer:

Masukkan code:

Sub kredit()
bayar_kredit.Show
End Sub

lalu tekan CTRL+S Lalu Tutup Visual Basic,And Finish

Jika Kurang Ngerti Email Ke:michaelifebrian@gmail.com atau komen di bawah

download:Contoh