Senin, 15 Desember 2014

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikanlah Kasus Berikut :
Kasus Pemrograman Pemakaian Listrik



Berikut Jawaban Program :

KODING :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kdpelanggan.Items.Add("PAB-PAK-100")
        kdpelanggan.Items.Add("PAB-MED-101")
        kdpelanggan.Items.Add("SWA-BEL-100")
        kdpelanggan.Items.Add("TOK-TEM-100")
        kdpelanggan.Items.Add("RUM-MAR-101")
        kdpelanggan.Items.Add("TOK-BIN-100")

        Call rancang_tabel()
    End Sub

    Private Sub kdpelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdpelanggan.SelectedIndexChanged
        If kdpelanggan.Text = "PAB-PAK-100" Then
            nama.Text = "IRWANSYAH"
        ElseIf kdpelanggan.Text = "PAB-MED-101" Then
            nama.Text = "IRWANSYAH PUTRA"
        ElseIf kdpelanggan.Text = "SWA-BEL-102" Then
            nama.Text = "TOMMY NUGRAHA"
        ElseIf kdpelanggan.Text = "TOK-TEM-100" Then
            nama.Text = "FATIH KARISMA"
        ElseIf kdpelanggan.Text = "RUM-MAR-101" Then
            nama.Text = "NOVITA ANANDA"
        ElseIf kdpelanggan.Text = "TOK-BIN-100" Then
            nama.Text = "SISKA AIRANGGA"
        End If

        Dim X As String
        X = Mid(kdpelanggan.Text, 1, 3)
        Select Case X
            Case "TOK"
                tipe.Text = "TOKO"
                byabbn.Text = 150000
                harga.Text = 500

            Case "RUM"
                tipe.Text = "RUMAH"
                byabbn.Text = 50000
                harga.Text = 200

            Case "SWA"
                tipe.Text = "SWALAYAN"
                byabbn.Text = 400000
                harga.Text = 1500

            Case "PAB"
                tipe.Text = "PABRIK"
                byabbn.Text = 1000000
                harga.Text = 10000
        End Select

        X = Mid(kdpelanggan.Text, 5, 3)
        Select Case X
            Case "MED"
                daerah.Text = "MEDAN"
            Case "BEL"
                daerah.Text = "BELAWAN"
            Case "TEM"
                daerah.Text = "AKSARA"
            Case "MAR"
                daerah.Text = "MARENDAL"
            Case "BIN"
                daerah.Text = "BINJAI"
            Case "PAK"
                daerah.Text = "LUBUK PAKAM"
        End Select
    End Sub

    Private Sub Buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonproses.Click
        pemakaian.Text = blnini.Text - blnlalu.Text
        ttltagihan.Text = (Val(byabbn.Text) + Val(harga.Text)) * pemakaian.Text
        pajak.Text = 0.015 * ttltagihan.Text
        pmbyrn.Text = Val(ttltagihan.Text) + Val(pajak.Text)
    End Sub
    Sub rancang_tabel()
        LV.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe Pelanggan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga per KWH", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Meter Bulan ini", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Meter Bulan Lalu", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Pemakaian", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Center)

        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details

    End Sub
    Sub isi_tabel()
        Dim X As New ListViewItem
        X.Text = kdpelanggan.Text
        X.SubItems.Add(nama.Text)
        X.SubItems.Add(tipe.Text)
        X.SubItems.Add(daerah.Text)
        X.SubItems.Add(byabbn.Text)
        X.SubItems.Add(harga.Text)
        X.SubItems.Add(blnini.Text)
        X.SubItems.Add(blnlalu.Text)
        X.SubItems.Add(pemakaian.Text)
        X.SubItems.Add(ttltagihan.Text)
        X.SubItems.Add(pajak.Text)
        X.SubItems.Add(pmbyrn.Text)

        LV.Items.Add(X)
    End Sub



   
    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

    Private Sub Buttonhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhps.Click
        kdpelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        byabbn.Text = ""
        harga.Text = ""
        blnini.Text = ""
        blnlalu.Text = ""
        pemakaian.Text = ""
        ttltagihan.Text = ""
        pajak.Text = ""
        pmbyrn.Text = ""
    End Sub

    Private Sub Buttonsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsimpan.Click
        Call isi_tabel()

    End Sub

    Private Sub Buttonhps1item_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhps1item.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Buttonhpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhpssemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnkluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkluar.Click
        Me.Close()
    End Sub
End Class



HASIL :






Demikilahlah postingan saya
 Nama : Irwansyah Putra Manurung
 NPM : 13110383
Selamat Belajar Pemrograman VB NET

Rabu, 10 Desember 2014

Cara Unlock Blackberry dari CDMA ke GSM



Cara unlock blackberry cdma ke gsm akan saya rangkum dalam artikel ini. 

           Banyak pertanyaan tentang bagaimana cara unlock blackberry karena memang di pasaran sekarang sudah banyak beredar blackberry dengan model inject perdana nomer cdma. Alasan utama kebanyakan teman-teman adalah karena kalau pakai blackberry inject itu nanti nggak bisa ganti nomor.
           Hal ini disebabkan (kebanyakan yang kami temui) karena bebeerapa profider GSM sering memberikan promo untuk kartu perdana dengan paket blackberry yang sangat murah. Jadi banyak pengguna blackberry cdma ingin tahu cara unlock blackberry mereka ke gsm. Sebenarnya ya teman-teman, kualitas jaringan antara menggunakan blackberry gsm atau cdma itu hampir sama kok. Kalau pakai GSM network sinyalnya 3G atau 3,5G sedangkan kalau blackberry cdma namanya EVDO. Sedangkan tarifnya hampir sama, tapi promo nya yang berbeda .

              Oke deh langsung aja ke pokok pembahasan yaitu cara unlock Blackberry. 
Untuk bisa meng-unlock si BB kita perlu menggunakan beberapa software (maaf softwarenya tidak saya bagi-bagi di sini) yaitu: MFI multiloader yang fingsinya untuk unlock dan mengganti atau mengkloning pin blackberry anda, trus yang kedua Radio Lab Tool yang berguna untuk mengganti nomer imei dan pin BB anda, selain itu juga bisa teman-teman gunakan PIN and Imei Generator untuk mengkloning pin dan no imei blackberry teman-teman.
Kalau semua software tersebut sudah teman-teman dapat, lalu ini nih cara unlock blackberry nya
  1. Semua software tadi di instal di laptop atu komputer
  2. Lalu buka MFI Multi Loader dahulu
  3. Siapkan kabel data USB lalu sambungkan handled blackberry teman-teman ke lepi
  4. Ditunggu sampai blackberry terdeteksi oleh MFI Loader
  5. Kalau sudah ada tulisan “pass” berarti sudah terdeteksi sempurna
  6. Lampu indikator akan menyala hijau dan pada layar blackberry akan muncul angka 1
  7. Lepaskan baterai BB lalu pasang kembali
  8. Loading… kalau sudah selesai akan muncul “call mode”
  9. Lalu tekan menu “start”
  10. Akan muncul “No Aplication Linked”
  11. Sampai tahap ini blackberry teman-teman sudah ter unlock
  12. Eits masih belum selesai….
  13. Teman-teman masih harus melakukan inject pada OS Blackberry nya
  14. Lalu gunakan Radio Lab Tool untuk mengganti pin dan imei blackberry teman-teman
  15. Kalau berhasil… baca Alhamdulillah
Oke.. 
Sekian tentang tips cara unlock smartphone Blackberry menggunakan beberapa software. 
Cara di atas merupaka salah satu cara yang sudah pernah digunakan, dengan perkembangan teknologi kemungkinan provider dari blackberry pun juga akan melakukan inovasi sehingga mungkin cara di atas pada suatu saat nanti tidak akan bisa digunakan lagi untuk unlock Blackberry teman-teman.

Semoga apa yang saya sampaikan berguna buat teman teman semuanya.
Terimakasih

Untuk Melihat Link Asli KLIK DISINI....

Sabtu, 06 Desember 2014

Cara Mengubah Tampilan Sinyal Blackberry menjadi Angka

Disini Saya akan membagi Trik kepada teman teman pembaca blog saya yaitu

"Cara Mengubah tampilan sinyal pada Blackberry menjadi angka"

Baik lah,, Ini dia Trik nya :


nah,, coba perhatikan gambar yang satu ini....


Pada gambar diatas,, sinyal Blackberry berupa batangan,, itu lah yang akan kita rubah agar menjadi tampilan angka.

berikut langkah langkah nya :
1. Tekan & tahan tombol ” alt “

2. Lalu secara bergantian tekan tombol ” N – M – L – L ” tanpa melepas tombol ” alt “

Seperti gambar dibawah ini..


setelah melakukan trik dengan benar, maka secara otomatis sinyal blackberry akan berubah menjadi tampilan angka seperti gambar berikut ini :



Pada gambar diatas sinyal blackberry sudah berubah menjadi angka, buat teman teman yang ingin mencoba nya,, silahkan dicoba.

NB : Gambar saya ambil dari sumber yang berbeda,,karna saya tidak mempunyai Hp Blackberry,,  Hehehee,, ^_^

Sekian dari saya,  semoga apa yang saya tuliskan diatas bermanfaat bagi teman teman semua..

Terima Kasih

Sabtu, 29 November 2014

SEMUA TENTANG OLAHRAGA WUSHU - LENGKAP

              Wushu (武術 atau 武术; (Tionghoa)) secara harafiah berarti "seni bertempur/bela diri". Ini merupakan istilah yang lebih benar dibanding dengan istilah yang lebih terkenal tapi salah penggunaannya kung fu, yang berarti "ahli" dalam bidang tertentu, tidak hanya terbatas dalam bela diri.
 Kata Wushu berasal dari dua kata yaitu “Wu” dan “Shu”. Arti dari kata “Wu” adalah ilmu perang, sedangkan arti kata “Shu” adalah seni. Sehingga Wushu bisa juga diartikan sebagai seni untuk berperang atau seni bela diri (Martial Art). Di dalam wushu, kita juga mempelajari seni, olahraga, kesehatan, beladiri dan mental.
               Mempelajari Wushu tidak hanya terbatas pada hal-hal yang berhubungan dengan gerakan fisik dan kekerasan saja, tetapi juga melibatkan pikiran. Mempelajari Wushu berarti kita juga belajar mengolah pernafasan, memahami anatomi tubuh kita, dan juga mempelajari ramuan atau obat-obatan untuk memperkuat tubuh maupun untuk pengobatan. bahasa Tionghoa kung fu Semua kategori Seni bela diri China tradisional, keras dan lembut dapat disebut Wushu. Wushu keras termasuk tinju selatan Nanquan dan tinju panjang Changquan. Wushu lembut termasuk tinju Taiji, Telapak Baguazhang, dan tinju xingyiquan. Adapun seni beladiri Wushu yang telah dikembangkan oleh etnis China yang menetap di wilayah Asia Tenggara (terutama Indonesia) seringkali disebut dengan istilah Kuntao .

5 Elemen Wushu

Berikut 5 Elemen Pada Olahraga Wushu :

  1. Air: melambangkan kehidupan dan kelembutan, karena air memberi makan tumbuhan dan bentuk air sendiri yang selalu sesuai dengan wadahnya.
  2. Kayu: melambangkan tulang dan otot, sebagai energi dari kehidupan yang jika terkena api akan mengakibatkan terbentuknya panas sebagai tenaga (otot).
  3. Api: melambangkan kekuatan dan ketangkasan, memberi nutrisi dari hasil pembakaran yang membuat pembaharuan dalam kemajuan.
  4. Bumi: melambangkan pertahanan, memberikan tempat bagi berbagai unsur untuk berkembang.
  5. Logam: melambangkan penggunaan senjata, mengkombinasikan berbagai unsur yang bermanfaat untuk menguasai berbagai senjata yang sangat penting bagi wushu.
            Hubungan berbagai unsur dalam wushu adalah air mendinginkan api, api menempah logam, logam memotong kayu, kayu tumbuh dari bumi, bumi mengontrol air. Jadi, semua unsur ini saling berhubungan satu sama lain.

Wushu di Indonesia

            Di Indonesia, Wushu kini juga mendapat perhatian yang istimewa dari masyarakat, wushu yang dulu hanya dimainkan oleh orang-orang tua, dan itupun hanya golongan tertentu kini telah memasyarakat. Tidak ada data resmi yang mencatat sejak kapan wushu mulai masuk ke Indonesia, tetapi sejak puluhan tahun silam telah di mainkan oleh banyak orang dari berbagai kota besar maupun kecil di Indonesia seperti Medan, Jakarta, Surabaya, Semarang dan masih banyak lagi daerah lain, tetapi wushu yang berstandar Internasional baru di kenal dan di populerkan di Indonesia pada akhir Oktober 1992 yang di prakarsai oleh tokoh olahraga IGK Manila yang kemudian menjadi Ketua Umum PBWI yang pertama. Manila berhasil membawa wushu Indonesia ke forum Internasional.
             Banyak cerita menarik yang mengawali berdirinya wushu berstandar internasional di Indonesia. Sebagai pendobrak tentu saja Manila harus menghadapi berbagai tantangan di tengah ketidak mengertian tentang seluk beluk olahraga ini. Kisah berdirinya wushu Indonesia di mulai ketika kontingen Malaysia, Filipina, dan Singapura begitu seenaknya menyabet medali emas di arena SEA Games 1991 Singapura, Melihat kenyatan itu , Ketua umum KONI Pusat ketika itu, Surono merasa iri dan melihat bahwa cabang wushu memiliki prospek yang sangat cerah di Indonesia. Mengapa Indonesia tidak mampu berbuat seperti Negara-negara tesebut? Sebab di Indonesia ketika itu tidak ada badan resmi anggota KONI yang menangani atau mengurusi masalah Wushu, Bahkan Indonesia belum mengenal Wushu ketika itu.
Begitu SEA Games usai, sesuai dengan wewenangnya maka Ketua Umum KONI Pusat Surono meminta agar didirikan wushu yang benar di Indonesia, yakni wushu yang memenuhi standart Internasional dan IGK Manila di tugaskan untuk itu. Secara perlahan tetapi pasti duet Manila dan Mediteransjah mengulurkan tangan ke daerah-daerah , mengajak semua pecinta wushu di Indonesia agar bahu membahu membentuk organsasi wushu yang benar dengan mengikuti ketentuan International. Ibarat pepatah pucuk di cinta ulam pun tiba, ajakan itu mendapat sambutan hangat dari berbagai daerah Jawa Timur, Jawa Tengah, Jawa Barat dan terutama Sumatera Utara, dengan tangan terbuka menerima ajakan itu,. Maka terbentuklah apa yang dinamakan Pengurus Besar Wushu Indonesia (PBWI) dan tanggal 10 November 1992 di tetapkan sebagai hari lahirnya PBWI tersebut.
            Manila bertindak selaku Ketua Umum dan Mediteransjah selaku Sekretaris Jendral dan mencatat aneka peristiwa baik yang manis maupun yang pahit, kenangan manis diantaranya adalah keberhasilan atlet wushu asal Medan, Jainab yang meraih juara kedua alias peraih medali perak di kejuaraan dunia 1995 di Baltimore, Amerika Serikat. Tentu saja itu merupakan prestasi yang luar biasa, karena ketika itu wushu berstandar International baru berkiprah 3 tahun di bumi Indonesia. Sejak saat itu perbendaharaan prestasi olahraga di Indonesia forum dunia bertambah menyusul cabang olahraga lainnya yang berumur jauh lebih tua seperti bulu tangkis, panahan, bridge dan lain-lain Pantaslah kalau ada orang yang bertanya-tanya ketika itu, apakah benar Jainab memang hebat.
Keberhasilan Jainab merebut medali perunggu dia Asian Games Bangkok 1998 juga membuktikan bahwa potensi atlet asal Medan itu memang luar biasa, Mengapa hanya perunggu? Itu cukup membanggakan. Sebab juara dunia wushu hampir seluruhnya berasal dari negeri China dan tentu saja mereka juga berusaha membabat semua medali emas Asian Games. Tak pelak lagi bahwa sukses atau keberhasilan pembinaan. Orang yang punya peran paling besar di balik semua itu adalah Supandi Kusuma. Ketua Umum Pengurus Daerah Wushu Sumatera Utara yang sehari-hari melatih jainab dengan tangannya sendiri.
Menjelang SEA Games XXI/2001, Pengda Daerah Wushu Sumatera Utara di beri kepercayaan menjadi pelaksana pusat latihan (training centre) dan tentu saja Master Supandi Kusuma yang juga Ketua Pengurus Daerah menjadi kordinator pelatih sekaligus penanggung jawab latihan. Sejarah mencatat aneka peristiwa perjalanan panjang wushu berstandar Internasional di Indonesia. Wushu di Indonesia tetap tegar, berdiri tegak seiring dengan tekad semua pihak yang terkait dan tentu saja orang-orang yang tetap setia menangani olahraga ini.

DEMIKIAN TENTANG OLAHRAGA WUHSU
MONGGO DI COPY PASTE...
SEMOGA BERMANFAAT..

TERIMAKASIH TELAH BERKUNJUNG..

JOSSSSSS (Y)

 



SEMUA TENTANG BERENANG - LENGKAP

           
  Berenang adalah gerakan sewaktu bergerak di air. Berenang biasanya dilakukan tanpa perlengkapan buatan. Kegiatan ini dapat dimanfaatkan untuk rekreasi dan olahraga. Berenang dipakai sewaktu bergerak dari satu tempat ke tempat lainnya di air, mencari ikan, mandi, atau melakukan olahraga air.
Berenang untuk keperluan rekreasi dan kompetisi dilakukan di kolam renang. Manusia juga berenang di sungai, danau, dan laut sebagai bentuk rekreasi. Olahraga renang membuat tubuh sehat karena hampir semua otot tubuh dipakai sewaktu berenang.

Sejarah

              Manusia sudah dapat berenang sejak zaman prasejarah, bukti tertua mengenai berenang adalah lukisan-lukisan tentang perenang dari Zaman Batu telah ditemukan di "gua perenang" yang berdekatan dengan Wadi Sora di Gilf Kebir, Mesir barat daya. Catatan tertua mengenai berenang berasal dari 2000 SM. Beberapa di antara dokumen tertua yang menyebut tentang berenang adalah Epos Gilgamesh, Iliad, Odyssey, dan Alkitab (Kitab Yehezkiel 47:5, Kisah Para Rasul 27:42, Kitab Yesaya 25:11), serta Beowulf dan hikayat-hikayat lain. Pada 1538, Nikolaus Wynmann seorang profesor bahasa dari Jerman menulis buku mengenai renang yang pertama, Perenang atau Dialog mengenai Seni Berenang (Der Schwimmer oder ein Zwiegespräch über die Schwimmkunst).
Perlombaan renang di Eropa dimulai sekitar tahun 1800 setelah dibangunnya kolam-kolam renang. Saat itu, sebagian besar peserta berenang dengan gaya dada. Pada 1873, John Arthur Trudgen memperkenalkan gaya rangkak depan atau disebut gaya trudgen dalam perlombaan renang di dunia Barat. Trudgen menirunya dari teknik renang gaya bebas suku Indian di Amerika Selatan. Renang merupakan salah satu cabang olahraga dalam Olimpiade Athena 1896. Pada tahun 1900, gaya punggung dimasukkan sebagai nomor baru renang Olimpiade. Persatuan renang dunia, Federation Internationale de Natation (FINA) dibentuk pada 1908. Gaya kupu-kupu yang pada awalnya merupakan salah satu variasi gaya dada diterima sebagai suatu gaya tersendiri pada tahun 1952.

Gaya renang

            Dalam renang untuk rekreasi, orang berenang dengan gaya dada, gaya punggung, gaya bebas dan gaya kupu-kupu. Gaya renang yang dilombakan dalam perlombaan renang adalah gaya kupu-kupu, gaya punggung, gaya dada, dan gaya bebas. Dalam lomba renang nomor gaya bebas, perenang dapat menggunakan berbagai macam gaya renang, kecuali gaya dada, gaya punggung, dan gaya kupu-kupu.
Tidak seperti halnya gaya dada, gaya punggung, dan gaya kupu-kupu, Federasi Renang Internasional tidak mengatur teknik yang digunakan dalam nomor renang gaya bebas. Walaupun demikian, hampir semua perenang berenang dengan gaya krol, sehingga gaya krol (front crawl) digunakan hampir secara universal oleh perenang dalam nomor renang gaya bebas.

Gaya bebas




Kamis, 13 November 2014

Pesan

Sahabat adalah sosok yang sangat berperan dalam kehidupan semua orang, tanpa kecuali. Tidak peduli apakah anda adalah orang – orang pintar, orang bodoh, orang lemah, orang kuat, orang berkuasa dan tidak berkuasa, orang terkenal dan tidak terkenal. Ya! bahwa semua makhluk yang hidup didunia ini, tak terkecuali hewan pun memiliki kehidupan mereka dengan sahabat yang menyertainya. Bahkan seluruh nama – nama besar maupun orang paling berpengaruh di muka bumi ini dapat meraih pencapaian mereka dengan mendapatkan banyak dukungan dan peran dari orang terdekat mereka.Banyak sekali pelajaran moral baik secara lisan maupun tidak, seringkali mengajarkan setiap orang agar dapat menghargai sesama termasuk sahabat anda..

So...... Jangan Membuat Sahabat Merasa Sakit Hati Dan Berkata "AKU KECEWA TEMAN"..