Cara Mengetahui PIN Blackberry Suspend Atau Tidak

Selamat malam teman – teman pengguna blackberry, saya yakin semua pembaca disini adalah pengguna blackberry. Jika anda pengguna blackberry pasti sudah mengenal yang namanya PIN kan. Ya, PIN… Kita kali ini akan membicarakan mengenai PIn yang memang sudah tidak asing lagi ditelinga kita pengguna Blackberry. Namun satu hal, ternyata PIn itu bisa disuspen lo? sudah taukah pembaca sekalian. Yup, yang akan kita kupas disini adalah mengenai cara mengetahui PIN Blackberry suspend atau tidak. Runyam bukan bila kita pengguna blackberry, namun tidak tahu seperti apa PIN Blackberry di suspend.

Oke kita tidak akan berpanjang lebar lagi mengenai apa itu PIN tapi kita akan terfokus kepada bagaimana cara mengetahui PIN Blackberry suspend atau tidak. Karena hal ini hukumnya wajib diketahui oleh semua pengguna blackberry. Langsung saja akan kami jelaskan terlebih dahulu mengenai seperti apa tanda – tanda PIN Blackberry suspend atau tidak, karena semuanya pasti memiliki sebab akibat. Tidak ada PIN Blackberry di suspend tanpa ada sebabnya. Berikut penjelasan kami mengenai suspend PIN Blackberry.

Ciri – ciri PIN Blackberry Suspend atau PIN Blackberry Disuspend

• Anda tidak bisa melakukan koneksi internet, karena kita tidak mendapatkan izin dari Blackberry NET.
• Blackberry masih bisa akses internet tetapi tarif diambil dari tarif penggunaan GPRS buakan paket blackberry yang telah kita daftarkan.

Penyebab Suspend PIn Blackberry

• Blackberry yang anda miliki adalah Blackberry yang dijual belikan secara ilegal dan tanpa izin.
• Blackberry yang anda miliki terlapor sebagai barang curian dari pemilik Blackberry sebelumnya.

Mungkin sampai disini dulu kami menjelaskan mengenai cara mengetahui PIN Blackberry suspend atau tidak, dengan artikel ini semoga pembaca sekalian mengetahui ciri – ciri dan penyebab PIN Blackberry disuspend oleh pihak Blackberry. Jangan lupa bagi anda yang indin download aplikasi blackberry silahkan menuju kategori aplikasi blackberry.

Cara BBMan Dengan Komputer atau Laptop

Ketika anda sudah sangat sering menggunakan BBM atau Blackberry Messenger, sudah memiliki banyak teman dunia maya di BBM, sudah menyimpan hingga ribuan PIN BBM, atau bahkan sudah sangat terkenal di dunia BBM, anda sudah dipastikan sangat sulit meninggalkan si imut yang sering disebut BBM ini. Ya, BBM adalah fitur andalan blackberry, apakah anda percaya jika anda bisa melakukan BBMan dengan komputer atau laptop anda? sehingga dimanapun anda anda berada, saat anda capet menggenggam blackberry anda, ternyata anda bisa mengirim pesan lewat BBM melalui laptop atau komputer.

Kali ini saya ingin memberitahukan sebuah rahasia, yang ternyata kita bisa kirim pesan BBM dengan laptop atau komputer anda, apakah sulit? Jelas tidak. Cara BBMan dengan komputer atau laptop ini sangat mudah, karena hanya butuh menghubungkan laptop atau komputer dengan perangkat blackberry anda. Namun tetap saja untuk bisa menerapkan cara BBMan di komputer atau laptop, ada langkah – langkah yang harus anda ikuti. Untuk menggunakan bbm di komputer atau laptop kerjakan beberapa langkah berikut.

Pertama, anda mesti punya aplikasi blackberry gratis Soti Pocket Controller Pro yang perlu diinstal di pc atau laptop anda. Software ini layaknya Desktop Manager, namun fitur didalam software ini lebih lengkap.

Bila di blackberry desktop manager anda cuma diberi pilihan untuk menyinkronkan data, file manager serta service standar yang lain. Didalam soti pocket controller pro anda bisa seutuhnya terhubung seluruh manfaat serta fitur pada Blackberry, terhitung BBM. Tidak cuma itu, fitur-fitur lain layaknya telephone, e-mail, SMS, Browser, Facebook, Twitter, Yahoo Messenger bisa dibuka juga via software ini.

Setelah itu, anda mesti menginstal aplikasi sama pada smartphone blackberry anda. Aplikasi ini cocok dengan versi os blackberry 4. 6 atau yang lebih baru.

Saat ini, untuk mengoperasikannya, kerjakan beberapa langkah di bawah ini :

• Download soti pocket controller pro di http ://www.soti.net/pcpro/default.aspx. Namun, sebelum saat anda download, terlebih dulu mesti isi data formulir yang diminta. Lantas install di komputer atau laptop kamu
• Setelah itu, download serta install aplikasi soti pocket controller pro di blackberry anda. Dapat melewati http ://www.soti.net/pcprobb/default.aspx atau http ://pro.soti.net dari browser blackberry anda, atau download dari blackberry appworld http ://appworld.blackberry.com/webstore/content/13746 lang=en.?
• Sesudah download serta menginstalnya, setelah itu anda tinggal menggerakkan software ini pada komputer. Hubungkan blackberry anda ke pc menggunakan konektor media yang beri dukungan blackberry anda, layaknya dengan kabel data.
• Buka software Soti Pocket Controller Pro pada pc lantas hubungkan bb anda, tentukan media koneksi yang sesuai melewati usb atau wifi. Sistem koneksi serta sinkronisasi dapat jalan dengan otomatis.

Cara Install Dan menjalankan Aplikasi Android Di BlackBerry 10

Sudah tidak ada yang meragukan lagi, bahwa aplikasi android lebih banyak yang gratisan daripada yang berbeda, sangat berbeda dengan Apple. Namun meskipun banyak aplikasi dan game gratisan, nyatanya banyak yang menyukai aplikasi dan game android yang ada di Google Play. Bagi anda yang menggunakan Blackberry 10, ada kabar baik bahwa anda dapat install aplikasi android di Blackberry 10 dengan mudah. Anda pasti pensaran dong, ingin coba cepat – cepat menguasai cara install dan menjalankan aplikasi android di Blackberry 10. Bagi anda yang belum menggunakan blackberry 10, sepertinya anda harus mundur terlebih dahulu.

Untuk bisa menjalankan aplikasi android di blackberry 10, anda tidak perlu membeli software atau aplikasi berbayar untuk bisa mencoba cara ini. Karena, cara install aplikasi android di blackberry 10 ini memang hanya membutuhkan aplikasi blackberry gratis, tidak ada yang lain. Okay, dari pada berpanjang lebar, bagaimana kalau kita langsung saja menuju fokus topik untuk bisa bermain game android di blackberry 10 dan menggunakan aplikasi android di blackberry, tergantung anda lebih suka yang mana. Selamat menyimak artikel.

Apa saja yang dibutuhkan untuk menginstal aplikasi android di BB 10 ? Sudah pasti perangkat Blackberry 10, kabel usb, Windows Os, serta sebagian aplikasi pendukung. Pada waktu ini kami asumsikan bahwa sahabat online tengah menggunakan Blackberry 10. Tutorial ini menggunakan aplikasi blackberry gratis DPBB Installer, tetapi demikian sahabat juga dapat menggunakan VNBB10 installer yang disebut utilitas teranyar dari BB10 serta playbook. Tak hanya perangkat BB10 serta DDPB Installer/VNBB10 installer, sahabat juga butuh mendownload utiliti tersebut :

1. Download serta install Java Runtime Environment yang pas dengan pc sahabat.
2. Download serta install DDPB installer
3. Mendownload bar/ ZIP file yang telah dikonversi

Sesudah seluruhnya disiapkan, marilah kita kerjakan tugas setelah itu :

• Pertama sahabat belajar online mesti mensetting perangkat Blackberry 10 didalam setingan sebagai pengembang. Bagaimana langkah setting Blackberry 10 sebagai pengembang ? Sahabat bisa terhubung dengan pergi ke Settings –Security and Privacy–Development Mode.
• Sesudah merubah settingan Blackberry 10 ke settiingan developer serta sahabat sukses masuk maka langkah setelah itu mengaktifkan mode Developer dengan langkah menghimpit tombol On/Off. Jika sahabat sudah mempunyai password Developer tersebut tinggal memasukkan password Developer BB10 sahabat, tetapi jika sahabat belum memilikinya maka ia dapat menghendaki sahabat untuk bikin satu Account. ( ingatlah password baik-baik )

Install Aplikasi Android

Sesudah sistem di atas selesai, maka sahabat saat ini bisa mencolokkan Blackberry 10 sahabat ke kompeter. Saat menyambungkan Blackberry 10 nampak pop up blackberry link installed, sahabat bisa menutupnya. Sahabat juga dapat mengabaikannya serta membiarkannya supaya tahu bahwa BB10 sahabat tengah terhubung ke komputer.

Sistem setelah itu buka program DDPB yang sudah sahabat download serta install di komputer pada mulanya. Setelah program jalan serta masuk ke ip blackberry di mana tertulis IP Development Mode ( or click scan ). Ini dapat sama juga dengan password yang sahabat bikin saat masuk ke settingan developer.

Dari situ sahabat bisa mulai menginstal aplikasi android yang sudah dikonversi ke Extensi Blackberry yakni .bar. Klik tombol add dibawah maka dapat membawa sahabat ke Windows DDPB File. Sahabat tinggal melacak file. Baryang sudah di download serta menambahkannya ke daftar.

Sesudah memberikan aplikasi yang dapat diinstal, maka sahabat bisa kembali ke depan serta mencentang aplikasi-aplikasi android yang dapat diinstalàklik tombol install serta tunggulah hingga selesai sistem instalasi aplikasi android di Blackberry 10 sahabat.

Cara Penyampaian Informasi

Ada tiga cara dalam menyampaikan informasi, Yaitu :

1. Natural / Manusia Penyampaian informasi secara Natural/ manusia ialah penyampaian informasi masih menggunakan tangan manusia. Misalnya: a) Pada zaman purba Biasanya berupa goresan – goresan atau gambar pada batu atau dinding goa. b) Cina, Mesir, dan Romawi Menggunakan alat seperti abacus atau suan pan dan jari tangan serta menggunakan media seperti lempung dan kertas.
2. Mekanis Penyampaian informasi secara mekanis ialah Penyampaian informasi dilakukan menggunakan peralatan yang berbentuk mekanik dan digerakkan oleh tangan manusia. Misalnya : a) Abad 18-19 - Pascaline – Blaise Pascal (1642) - Difference & Analytical Engine – Charles Babagge (1890) b) Abad 19 Kartu Perforasi – Hollerith (1889)
3. Elektronis Penyampaian informasi secara elektronis ialah penyampaian informasi dilakukan menggunakan peralatan yang bekerja secara elektronik. Misalnya: Komputer generasi I, II, III, IV, dst.

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net BAGIAN-2

Latihan Listview Perhitungan Penjualan Barang

 

Public Class Form2
    Sub BuatTabel()
        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = pembeli.Text
        lst.SubItems.Add(kdbrg.Text)
        lst.SubItems.Add(nmbrg.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(jmlbeli.Text)
        lst.SubItems.Add(harga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub kdbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kdbrg.Text, 2)
        y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)
        Select Case X
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : nmbrg.Text = "Flashdisk 4GB"
            Case "002" : nmbrg.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            harga.Text = 80000

        End If

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()

        kdbrg.Items.Add("TS001")
        kdbrg.Items.Add("TS002")
        kdbrg.Items.Add("VG001")
        kdbrg.Items.Add("VG002")

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        pembeli.Text = ""
        kdbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        jmlbeli.Text = ""
        harga.Text = ""
    End Sub

    Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhps.Click
        End
    End Sub

    Private Sub pembeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembeli.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
        lv.Items.Clear()
    End Sub

    Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
        pembeli.Text = ""
        kdbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        jmlbeli.Text = ""
        harga.Text = ""

    End Sub
End Class

Demikilahlah postingan saya  Nama : (Liska Susanti)  NPM : (1111238)

Lihat Tugas Listview

Tugas Bahasa Pemograman

Tugas listview (Liska Susanti)

 

Sintak:

Public Class Form1
    Sub BuatTabel()
        lv.Columns.Add("Nik", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Status", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Lembur", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Honor Lembur", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Total", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nik.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(gaji.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(tjistri.Text)
        lst.SubItems.Add(tjanak.Text)
        lst.SubItems.Add(jmlembur.Text)
        lst.SubItems.Add(hrlembur.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(total.Text)
        lv.Items.Add(lst)
    End Sub
    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "101" : nama.Text = ("Liska")
            Case "102" : nama.Text = ("Susanti")
            Case "103" : nama.Text = ("Haidir")
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()

        nik.Items.Add("101")
        nik.Items.Add("102")
        nik.Items.Add("103")

        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staf")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        For i = 1 To 4
            jmlanak.Items.Add(i)
        Next i

        For i = 1 To 10
            jmlembur.Items.Add(i)
        Next i
    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If jabatan.Text = "Mandor" Then
            hrlembur.Text = 7500
        ElseIf jabatan.Text = "Kepala Bagian" Then
            hrlembur.Text = 10000
        ElseIf jabatan.Text = " Staf" Then
            hrlembur.Text = 5000
        Else
            hrlembur.Text = 0
        End If

        total.Text = Val(jmlembur.Text * hrlembur.Text) + Val(gaji.Text) + Val(tjanak.Text) - Val(pajak.Text)

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Mandor" : gaji.Text = 17500000
            Case "Kepala Bagian" = gaji.Text = 2500000
            Case "Staf" : gaji.Text = 1250000
        End Select
        pajak.Text = 0.015 * gaji.Text

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah" : tjistri.Text = 0.09 * gaji.Text
            Case "Tidak Menikah " : tjistri.Text = 0
        End Select
    End Sub

    Private Sub jmlanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.SelectedIndexChanged
        If jmlanak.Text >= 2 And status.Text = "Menikah" Then
            tjanak.Text = 0.07 * gaji.Text
        ElseIf jmlanak.Text = 1 And status.Text = "Menikah" Then
            tjanak.Text = 0.03 * gaji.Text
        Else
            tjanak.Text = 0

        End If
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tjistri.Text = ""
        jmlanak.Text = ""
        tjanak.Text = ""
        jmlembur.Text = ""
        hrlembur.Text = ""
        pajak.Text = ""
        total.Text = ""


    End Sub

    Private Sub batal_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tjistri.Text = ""
        jmlanak.Text = ""
        tjanak.Text = ""
        jmlembur.Text = ""
        hrlembur.Text = ""
        pajak.Text = ""
        total.Text = ""

    End Sub

    Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub nama_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

    End Sub
End Class