Jumat, 28 Juni 2013

Rumus Melibatkan Allah Dalam Berbisnis




Abu Hurairah meriwayatkan bahwa Rasulullah SAW bersabda,

Barangsiapa yang membantu menghilangkan satu kesedihan (kesusahan) dari sebagian banyak kesusahan orang mukmin ketika didunia maka Allah akan menghilangkan satu kesusahan (kesedihan) dari sekian banyak kesusahan dirinya pada hari kiamat kelak.

Dan barangsiapa yang memberikan kemudahan (membantu) kepada orang yang kesusahan, niscaya Allah akan membantu memudahkan urusannya didunia dan di akhirat.

Dan barangsiapa yang menutup aib orang muslim , niscaya Allah akan menutup aibnya dunia dan akhirat.

Sesungguhnya Allah akan selalu menolong seorang hamba selama dia gemar menolong saudaranya. (HR. Muslim)

Di tengah acara sebuah komunitas wirausaha Muslim terjadi sebuah dialog untuk membangun dan mencari solusi ekonomi ummat, banyak hal yang dibahas tentang bagaimana membuka peluang usaha dan perlunya bersaing secara profesional dengan para pengusaha ‘non Muslim’ yang saat ini begitu menguasai perekonomian negeri ini, diskusi lama lama terkesan sangat teoritis, dan beberapa dari mereka terjebak kearah materialistik cara pandangnya, padahal semua yang hadir adalah kaum muslimin juga, tapi ternyata kami semua lupa, bahwa yang hadir tersebut memiliki warisan yang tak ternilai harganya. Ternyata umat Islam sudah memiliki rumusan dan standar usaha yang telah di bimbing oleh Rasul SAW dan dicontohkan oleh para sahabatnya ra, bimbingan yang sederhana, bimbingan yang sangat mendarat dan manusiawi, penuh fitrah, penuh sunnatullah, dan di-support dengan janji Allah. Allah melibatkan diriNYa atas janjiNya.

Berdasarkan hadis shahih di atas, mari kita urai dan tinjau agar mendapatkan makna dan rumusan agar urusan ujian manusia maupun bisnis muslim ini dapat melibatkan dan tertolong oleh bantuan Allah, sebagai berikut :

“Barangsiapa yang membantu menghilangkan satu kesedihan (kesusahan) dari sebagian banyak kesusahan orang mukmin ketika didunia maka Allah akan menghilangkan satu kesusahan (kesedihan) dari sekian banyak kesusahan dirinya pada hari kiamat kelak”

Siapa sih manusia yang tidak mengalami ujian dan cobaan dalam kehidupannya. Apalagi dalam menjalankan bisnis, ujian naik turun itu menjadi suatu hal yang berulang terjadinya. Ketahuilah setiap hamba Allah pasti mengalami masalah, mengalami kedukaan maupun kesukacitaan , tidak ada satupun yang terlepas dari seleksi Allah. Ujian dan cobaan kepada hamba Allah tersebut untuk menguji siapa yang lebih baik amalnya.

Justru menurut hadist di atas, dan itu adalah sunnah Allah, dikala kita mengalami kesulitan dan kesusahan dalam menghadapi ujian kehidupan, dan kita berharap sekali untuk diangkat kesulitan oleh Allah, justru salah satu solusinya adalah dengan membantu dan menyelesaikan kesusahan hamba yang lain. konsep ini sangat sulit dipahami dengan ilmu keduniaan, apalagi ilmu matematis. tapi inilah hukum Allah, inilah sunnatuLlah. inilah cara agar Allah terlibat! Mulailah dengan cara ini, niscaya permasalahan perekonomian umat akan tuntas.

Ingatlah sebuah contoh nyata yang pernah diabadikan dalam kisah sahabat Abdurrahman bin Auf ra dengan dipersaudarakan Saad bin Rabi ra dari Madinah.

Berkatalah Saad kepada Abdurrahman, Wahai saudaraku, aku adalah penduduk madinah yang kaya raya. Silahkan pilih separuh hartaku dan ambillah, dan aku mempunyai dua isteri, pilihlah salah satu yang menurut anda lebih menarik,dan akan aku ceraikan dia supaya anda bisa memperisterinya.

Jawab Abdurrahman bin Auf, “Semoga Allah memberkati anda, isteri anda dan harta anda. Tunjukkanlah jalan menuju pasar.”

Kemudian abdurrahman menuju pasar, membeli, berdagang dan mendapat untung besar, ketahuilah Allah terlibat! Allah berkahi saling tolong menolong tersebut, saling mendahulukan kepentingan saudaranya.

Pada suatu hari ia mendengar Rasulullah SAW, “Wahai Ibnu Auf, anda termasuk golongan orang kaya, dan anda akan masuk surga secara perlahan lahan. Pinjamkanlah kekayaan itu kepada Allah, pasti Allah mempermudah jalan anda,” semenjak ia mendengar nasehat Rasulullah Saw tersebut, ia mengadakan pinjaman yang baik, maka Allah pun memberi ganjaran padanya dengan berlipatganda.

Ibnu Auf adalah seorang pemimpin yang mengendalikan hartanya, bukan seorang budak yang dikendalikan oleh hartanya. Sebagai buktinya, ia tidak mau celaka dengan menyimpannya. Ia mengumpulkannya dengan santai dan dari jalan yang halal, tetapi ia tidak menikmati sendirian, keluarga, kerabat saudara dan masyarakat pun ikut menikmatinya. Karena begitu luas pemberian serta pertolongannya, orang orang madinah pernah berkata: “seluruh penduduk madinah berserikat (menjalin usaha) dengan Abdurrahman bin Auf pada hartanya. Sepertiga dipinjamkannya kepada mereka, sepertiganya digunakan untuk membayar hutang hutang mereka, dan sepertiga sisanya diberikan dan dibagi bagikan kepada mereka.”

Mereka saling mendahulukan kepentingan saudaranya, Allah bukakan keberkahan, Allah bukakan peluang menguasai ekonomi ummat, Pasar Madinah yang tadinya dikuasai yahudi berpindah ke tangan muslimin, berawal dari sikap tolong-menolong (ta’awun) sesama muslimin, bermula dari saling memecahkan masalah saudaranya, menjadi penguasa ekonomi saat itu, inilah hukum Allah, inilah sunnatullah.

Inilah cara melibatkan Allah… bukan dengan cara bersaing dengan pebisnis non-muslim melalui sistem yang dibuat oleh non-muslim juga, MUSTAHIL akan tampil. Bila ingin ummat ini kembali lagi menuju kejayaannya tidak pernah terjadi dan unggul melalui sistem buatan manusia. Kalau mau tampil harus kembali bersandarkan kepada SunnatuLLah dan Sunnah RasulNya.

Pembahasan ini membuat terhenyak para wirausaha yang hadir, diskusi terhenti dan terhenyak diam, …semoga para peserta diskusi berfikir ulang dan mulai menapak tilas sunnah yang pernah dilakukan untuk membenahi kekuatan ekonomi ummat… Tolonglah sudaramu yang sedang kesulitan…. ini adalah langkah awal menuju kejayaan.

Kriptografi Caesar Chiper


Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plaintext.Text = ""
        chipertext.Text = ""
    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim x As String
        Dim bil As Integer
        chipertext.Text = ""
        For i = 1 To Len(plaintext.Text)
            x = Microsoft.VisualBasic.Mid(plaintext.Text, i, 1)
            bil = Asc(x)
            bil = bil + 3
            x = Chr(bil)
            chipertext.Text = chipertext.Text & x
        Next
    End Sub

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

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(chipertext.Text)
            x = Mid(chipertext.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        plaintext.Text = xkalimat
    End Sub
End Class




Senin, 24 Juni 2013

Cabang-cabang Ilmu Biologi dan Kajiannya

Biologi dan Kajiannya

 Biologi atau ilmu hayat adalah ilmu yang mempelajari aspek fisik kehidupan. Istilah "biologi" dipinjam dari bahasa Belanda, biologie, yang juga diturunkan dari gabungan kata bahasa Yunani, yaitu bios (hidup) dan logos (lambang tau ilmu). Obyek kajian biologi pada masa kini sangat luas dan mencakup semua makhluk hidup dalam berbagai aspek kehidupannya.

Tulisan ini akan mengulas mengenai cabang-cabang ilmu Biologi beserta cakupan dan kajian dari masing-masing ilmu tersebut. Berikut adalah pemaparan yang bisa disimak secara lengkap:

Cabang dari biologi berjumlah ratusan, yang berkembang pesat terutama sejak abad ke-20. Biologi sendiri semula merupakan bagian dari ilmu pengetahuan alam (natural sciences) yang dipelajari oleh para naturalis (ahli ilmu-ilmu alamiah). Biologi sebagai ilmu yang mandiri, dalam arti memiliki perangkat analisis dan konsep-konsep ilmiah yang kokoh, baru terbentuk pada abad ke-18, setelah penemuan mikroskop dan tumbangnya dogma generatio spontanea oleh konsep omne vivum ex vivo. Konsep evolusi, pewarisan sifat (hereditas), dan penemuan DNA sebagai bahan genetik memacu perkembangan biologi secara pesat dan menghasilkan cabang-cabang yang dikenal sekarang ini.

Pembagian biologi di bawah ini tidak bersifat mutlak karena beberapa cabang yang sekarang dianggap mandiri masih memiliki keterkaitan dengan bidang induknya, misalnya genetika dengan fisiologi, biologi molekular dengan genetika, dan sebagainya. Selain itu, karena dinamisnya perkembangan ilmu-ilmu ini, seringkali ilmu-ilmu ini saling bertemu dan menghasilkan kajian antardisiplin yang sukar dipisahkan.

Cabang-Cabang Ilmu Biologi

Biologi merupakan pohon ilmu yang sangat besar. Karena luasnya bahan kajian biologi, biologi dibagi lagi menjadi cabang-cabang ilmu. Beberapa cabang-cabang ilmu biologi antara lain :

1. Zoologi, ilmu yang mempelajari tentang hewan
2. Botani, Ilmu yang mempelajari tentang tumbuhan
3. Fisiologi, Ilmu yang mempelajari tentang faal/fungsi kerja tubuh
4. Anatomi atau ilmu urai tubuh, ilmu yang mempelajari tentang bagian-bagian tubuh
5. Genetika, ilmu yang mempelajari tentang pewarisan sifat
6. Mikrobiologi, ilmu yang mempelajari tentang organism
7. Bakteriologi, ilmu yang mempelajari tentang bakteri
8. Mikobiologi, ilmu yang mempelajari tentang jamur
9. Evolusi, ilmu yang mempelajari perubahan makhluk hidup dalam jangka panjang.
10. Biologi Molekuler, kajian biologi pada tingkat molekul
11. Rekayasa Genetika, ilmu yang mempelajari tentang manipulasi sifat genetic
12. Ekologi, ilmu yang mempelajari tentang hubungan timbale balik antara makhluk hidup dan lingkungannya
13. Taksonomi, ilmu yang mempelajari tentang sistematika makhluk hidup
14. Ikhtiologi, Ilmu yang mempelajari tentang ikan
15. Malakologi, ilmu yang mempelajari tentang moluska
16. Karsinologi, ilmu yang mempelajari tentang crustacean
17. Ornitologi, ilmu yang mempelajari tentang burung
18. Entomologi, Ilmu yang mempelajari tentang serangga
19. Protozoologi, ilmu yang mempelajari tentang protozoa
20. Algologi, ilmu yang mempelajari tentang alga
21. Limnologi, ilmu yang mempelajari tentang rawa
22. Embriologi, ilmu yang mempelajari tentang perkembangan embrio
23. Patologi, ilmu yang mempelajari tentang penyakit
24. Endokrinologi, ilmu yang mempelajari tentang hormone
25. Sitologi, ilmu yang mempelajari tentang sel
26. Histologi, ilmu yang mempelajari tentang jaringan
27. Organologi, ilmu yang mempelajari tentang organ
28. Morfologi, ilmu yang mempelajari tentang bentuk atau ciri luar organism
29. Enzimologi, ilmu yang mempelajari tentang enzim
30. Virologi, ilmu yang mempelajari tentang virus

Kajiannya Cabang-Cabang Biologi

1. Zoologi
Zoologi adalah cabang biologi yang mempelajari struktur, fungsi, perilaku, serta evolusi hewan. Ilmu ini antara lain meliputi anatomi perbandingan, psikologi hewan, biologi molekular, etologi, ekologi perilaku, biologi evolusioner, taksonomi, dan paleontologi. Kajian ilmiah zoologi dimulai sejak sekitar abad ke-16.

2. Botani 

Botani merupakan salah satu bidang kajian dalam biologi yang mengkhususkan diri dalam mempelajari seluruh aspek biologi tumbuh-tumbuhan. Dengan demikian, dalam botani dipelajari semua disiplin ilmu biologi untuk mempelajari pertumbuhan, reproduksi, metabolisme, perkembangan, interaksi dengan komponen biotik dan komponen abiotik, serta evolusi tumbuhan. Orang yang menekuni bidang botani disebut sebagai botanis.

3. Fisiologi 
Fisiologi adalah salah satu dari cabang-cabang biologi yang mempelajari bagaimana kehidupan berfungsi secara fisik dan kimiawi. Istilah ini dibentuk dari kata Yunani Kuno yaitu physis atau hakikat, dan logia, yaitu kajian. Fisiologi menggunakan berbagai metode ilmiah untuk mempelajari biomolekul, sel, jaringan, organ, sistem organ, dan organisme secara keseluruhan menjalankan fungsi fisik dan kimiawinya untuk mendukung kehidupan.

Berdasarkan objek kajiannya dikenal fisiologi manusia, fisiologi tumbuhan, dan fisiologi hewan, meskipun prinsip fisiologi bersifat universal, tidak bergantung pada jenis organisme yang dipelajari. Sebagai contoh, apa yang dipelajari pada fisiologi sel khamir dapat pula diterapkan sebagian atau seluruhnya pada sel manusia.

Fisiologi hewan bermula dari metode dan peralatan yang digunakan dalam pembelajaran fisiologi manusia yang kemudian meluas pada spesies hewan selain manusia. Fisiologi tumbuhan banyak menggunakan teknik dari kedua bidang ini.

Cakupan subjek dari fisiologi hewan adalah semua makhluk hidup. Banyaknya subjek menyebabkan penelitian di bidang fisiologi hewan lebih terkonsentrasi pada pemahaman bagaimana ciri fisiologis berubah sepanjang sejarah evolusi hewan.

Ilmu-ilmu lain telah berkembang dari fisiologi mengingat ilmu ini sudah cukup tua. Beberapa turunan yang penting adalah biokimia, biofisika, biomekanika, genetika sel, farmakologi, dan ekofisiologi. Perkembangan biologi molekuler memengaruhi arah kajian fisiologi.

4. Anatomi 
Anatomi berasal dari bahasa Yunani yaitu anatomia yang berarti memotong adalah cabang dari biologi yang berhubungan dengan struktur dan organisasi dari makhluk hidup. Terdapat juga anatomi hewan atau zootomi dan anatomi tumbuhan atau fitotomi. Beberapa cabang ilmu anatomi adalah anatomi perbandingan, histologi, dan anatomi manusia.

5. Genetika
Genetika berasal dari bahasa Belanda yaitu genetica, dan diadaptasi dari bahasa Inggris yaitu genetics, dibentuk dari kata bahasa Yunani yaitu, genno, yang berarti melahirkan adalah cabang biologi yang mempelajari pewarisan sifat pada organisme maupun suborganisme (seperti virus dan prion). Secara singkat dapat juga dikatakan bahwa genetika adalah ilmu tentang gen dan segala aspeknya. Istilah "genetika" diperkenalkan oleh William Bateson pada suatu surat pribadi kepada Adam Chadwick dan ia menggunakannya pada Konferensi Internasional tentang Genetika ke-3 pada tahun 1906.

6. Mikrobiologi

Mikrobiologi adalah sebuah cabang dari ilmu biologi yang mempelajari mikroorganisme. Objek kajiannya biasanya adalah semua makhluk (hidup) yang perlu dilihat dengan mikroskop, khususnya bakteri, fungi, alga mikroskopik, protozoa, dan Archaea. Virus sering juga dimasukkan walaupun sebenarnya tidak sepenuhnya dapat dianggap sebagai makhluk hidup.

7. Bakteriologi 
Bakteriologi merupakan ilmu yang mempelajari kehidupan dan klasifikasi bakteri. Bakteriologi dapat dikatakan juga sebagai biologi bakteri. Di dalamnya dipelajari struktur anatomi sel bakteri, klasifikasi, cara kerja sel bakteri, interaksi antarsel bakteri, dan juga tanggapan bakteri terhadap perubahan pada lingkungan hidupnya. Bakteriologi merupakan satu bagian penting dalam mikrobiologi.

8. Evolusi
Evolusi dalam kajian biologi berarti perubahan pada sifat-sifat terwariskan suatu populasi organisme dari satu generasi ke generasi berikutnya. Perubahan-perubahan ini disebabkan oleh kombinasi tiga proses utama: variasi, reproduksi, dan seleksi. Sifat-sifat yang menjadi dasar evolusi ini dibawa oleh gen yang diwariskan kepada keturunan suatu makhluk hidup dan menjadi bervariasi dalam suatu populasi.

Ketika organisme bereproduksi, keturunannya akan mempunyai sifat-sifat yang baru. Sifat baru dapat diperoleh dari perubahan gen akibat mutasi ataupun transfer gen antar populasi dan antar spesies. Pada spesies yang bereproduksi secara seksual, kombinasi gen yang baru juga dihasilkan oleh rekombinasi genetika, yang dapat meningkatkan variasi antara organisme. Evolusi terjadi ketika perbedaan-perbedaan terwariskan ini menjadi lebih umum atau langka dalam suatu populasi.

9. Rekayasa Genetika
Rekayasa genetika (Ing. genetic engineering) dalam arti paling luas adalah penerapan genetika untuk kepentingan manusia. Dengan pengertian ini kegiatan pemuliaan hewan atau tanaman melalui seleksi dalam populasi dapat dimasukkan. Demikian pula penerapan mutasi buatan tanpa target dapat pula dimasukkan. Walaupun demikian, masyarakat ilmiah sekarang lebih bersepakat dengan batasan yang lebih sempit, yaitu penerapan teknik-teknik biologi molekular untuk mengubah susunan genetik dalam kromosom atau mengubah sistem ekspresi genetik yang diarahkan pada kemanfaatan tertentu.

10. Taksonomi
Kata taksonomi diambil dari bahasa Yunani tassein yang berarti untuk mengelompokkan dan nomos yang berarti aturan. Taksonomi dapat diartikan sebagai pengelompokan suatu hal berdasarkan hierarki (tingkatan) tertentu. Di mana taksonomi yang lebih tinggi bersifat lebih umum dan taksonomi yang lebih rendah bersifat lebih spesifik.

Kamis, 20 Juni 2013

JAGAD UNIK

Meskipun Cacat, Tupai Ini Jago Melukis




LOUISIANA - Ketika banyak tupai lainnya menghabiskan waktunya dengan memanjat pohon. Seekor tupai bernama Winkelhimer Smith memilih untuk melakukan kegiatan yang lebih berseni.

Winkelhimer sangat piawai dalam melukis. Karya-karyanya dikagumi oleh banyak orang dari berbagai belahan dunia.

Prestasi Winkelhimer itu tidak dicapai dengan mulus. Pada 2011 lalu, tupai itu menjadi cacat karena diserang oleh seekor kucing jalanan.

Winkelhimer sempat stres dengan keterbatasan fisiknya itu. Namun majikannya, Shyla Mouton, memberinya alat lukis dapat mengekspresikan dirinya.

"Tupai adalah hewan yang pintar meniru. Ketika dia melihat saya melukis dia pun berusaha mengikutinya," ujar Mouton seperti dikutip Metro, Kamis (24/5/2013).

"Dia mengayun-ayunkan kuas yang dipeluknya. Kuning adalah warna kesukaannya, dia suka sekali memakai warna itu," tambah Mouton.

Winkelhimer pun menjadi populer di dunia maya. Akun twitterfacebookdan youtubenya diikuti oleh banyak orang.



Jumat, 07 Juni 2013

rekening pembayaran listrik

tampilan awal form

tampilan setelah disimpan kelistview

syntax :
Public Class Form1
    Sub buattabel()
        lv.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        lv.Columns.Add("No Urut", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Pemakaian", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Total Biaya", 80, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        x.Text = daerah.Text
        x.SubItems.Add(pelanggan.Text)
        x.SubItems.Add(daerah.Text)
        x.SubItems.Add(nourut.Text)
        x.SubItems.Add(nama.Text)
        x.SubItems.Add(pemakaian.Text)
        x.SubItems.Add(total.Text)
        lv.Items.Add(x)

    End Sub

 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("001")
        kode.Items.Add("002")
        kode.Items.Add("003")
        kode.Items.Add("004")
        pelanggan.Items.Add("TOK")
        pelanggan.Items.Add("RUM")
        pelanggan.Items.Add("SWA")
        pelanggan.Items.Add("PAB")
        nourut.Items.Add("100")
        nourut.Items.Add("200")
        nourut.Items.Add("300")
        nourut.Items.Add("400")
        buattabel()

    End Sub

    Private Sub Daerah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Daerah.TextChanged


    End Sub

    Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
        isitabel()
        pelanggan.Text = ""
        Daerah.Text = ""
        nourut.Text = ""
        nama.Text = ""
        pemakaian.Text = ""
        total.Text = ""
    End Sub

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

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = pemakaian.Text * 1.5
    End Sub

    Private Sub nourut_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nourut.SelectedIndexChanged
        Select Case nourut.Text
            Case "100" : nama.Text = "tari"
            Case "200" : nama.Text = "rani"
            Case "300" : nama.Text = "aan"
            Case "400" : nama.Text = "nata"

        End Select
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Select Case kode.Text
            Case "001" : Daerah.Text = "Binjai"
            Case "002" : Daerah.Text = "kampung lalang"
            Case "003" : Daerah.Text = "sutomo"
            Case "004" : Daerah.Text = "marendal"
        End Select
    End Sub

    Private Sub pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pelanggan.SelectedIndexChanged
        Select Case pelanggan.Text
            Case "TOK" : pemakaian.Text = 150000 + 500
            Case "RUM" : pemakaian.Text = 5000 + 200
            Case "SWA" : pemakaian.Text = 400000 + 2000
            Case "PAB" : pemakaian.Text = 1000000 + 10000
        End Select
    End Sub
End Class

program penjualan barang

Tampilan awal form penjualan barang
Tampilan listview

syntax
Public Class Form1
    Sub BuatTable()
        lv.Columns.Add("No pembelian", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub IsiTable()
        Dim Lst As New ListViewItem
        Lst.Text = NoPembelian.Text
        Lst.SubItems.Add(KodeBarang.Text)
        Lst.SubItems.Add(NamaBarang.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(JumlahBeli.Text)
        Lst.SubItems.Add(TotalHarga.Text)
        lv.Items.Add(Lst)
    End Sub

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

        KodeBarang.Items.Add("TS001")
        KodeBarang.Items.Add("TS002")
        KodeBarang.Items.Add("VG001")
        KodeBarang.Items.Add("VG002")
        BuatTable()
    End Sub

    Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
        Select Case x
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-Gen"
        End Select
        x = Microsoft.VisualBasic.Right(KodeBarang.Text, 3)
        Select Case x
            Case "001" : NamaBarang.Text = "Flashdisk 4Gb"
            Case "002" : NamaBarang.Text = "Flashdisk 2Gb"
        End Select
        x = Microsoft.VisualBasic.Right(KodeBarang.Text, 5)
        Select Case x
            Case "TS001" : Harga.Text = "100000"
            Case "TS002" : Harga.Text = "75000"
            Case "VG001" : Harga.Text = "50000"
            Case "VG002" : Harga.Text = "25000"
        End Select
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        TotalHarga.Text = Harga.Text * JumlahBeli.Text
    End Sub

    Private Sub Btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpankelistview.Click
        IsiTable()
        NoPembelian.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    End Sub
End Class

Kamis, 16 Mei 2013

Mengatasi Windows hang setelah login ke OS Windows yang di password

Mengatasi Windows hang setelah login ke OS Windows yang di

Beberapa waktu yang lalu saya mengalami sebuah masalah kecil pada laptop saya, lebih tepatnya ke sistem operasinya (saya pake bajakan soalnya :D ). OS saya adalah Windows 7 Ultimate, dan saya beri proteksi, awalnya semua berjalan normal, tapi suatu hari saat saya mencoba menyalakan laptop, kemudian saya isikan password loginnya, setelah itu saya merasakan ada yang ganjil. Windows loading lama sekali dan tidak kunjung muncul dekstop, satu lagi, lampu indikator untuk proses juga berkedip secara periode (rentang waktu teratur) biasanya kedipannya nggak tetatur. Saya coba matikan paksa dan hidupkan lagi, saya menemukan hal yang sama seperti tadi. Selanjutnya saya bingung. Berbekal hp, saya coba tanya Google, beberapa saat surfing saya menemukan sumber masalahnya. Yaitu pada OS Windows nya.
Ada yang bermasalah pada log file windows dan dapat juga dipengaruhi oleh system startup yang terlalu banyak mengerjakan service lain yang tidak begitu penting pada saat startup. Solusinya adalah dengan mengupdate service pack windows anda seperti yang dikatakan microsoft support berikut : http://support.microsoft.com/kb/928228 dan juga meminimalkan startup ketika system di booting.
Nah masalah lain timbul ketika saya sadar, bagaimana bisa update kalo login saja tidak bisa. Nah untuk penuntasan masalah ini anda bisa mengakalinya lewat safe mode.
Bagaimana cara akses ke safe mode? Caranya gampang, ketika windows anda masih dalam keadaan hang setelah anda memasukkan password, langsung matikan paksa laptop anda dengan menekan tombol power laptop selama beberapa detik sampai system mati.
Selanjutnya, tunggu dulu minimal 10 detik lalu nyalakan kembali, anda akan mendapat tampilan booting seperti gambar di bawah ini, pilihlah mode Safe Mode
safemode
Tunggulah sebentar, dalam safemode ini system hanya akan meload file-file penting yang dibutuhkan untuk sekedar ‘menghidupkan’ kinerja pokok laptop. Tidak diperlukan adanya login dengan password seperti pada mode normal. Namun tampilannya juga cukup ‘buruk’ .
Setelah berhasil mencapai dekstop. Kemudian masuk ke System Configurasi dengan menekan tombol Windows+R, lalu ketik msconfig atau masuk ke Command Prompt ketik msconfig (sama saja) akan muncul kotak System Configurasi
System-Configuration
Pilih tab service
System-Configuration
Lalu akan muncul service-service yang dilakukan system di saat booting, lalu centang pada kotak “Hide all microsoft service”. Setelah itu hilangkan semua centang pada semua service yang tersisa, kemudian apply.
System-Configuration
lalu masuk ke tab Startup, klik bagian manufactur. Hilangkan semua centang pada list dengan klik Disable all, lalu centang yang HANYA dari Microsoft Corporation, kemudian Apply, dan OK.
System-Configuration
Terakhir, hilangkan password pada Windows anda melalui Control Panel.
Kemudian Restart, dan update service pack windows anda. Setelah Service pack windows berhasil diupdate, barulah komputer anda bisa diberi password lagi.
Semoga bermanfaat. Salam.

 password