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 :)
Saturday, September 28, 2013
Friday, April 19, 2013
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,
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:
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
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 |
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
Subscribe to:
Posts (Atom)