Cara Panen Sarang Walet

Cara Panen Sarang Walet

            Memanen sarang wallet ada 3 cara , yaitu :

1.     Panen rampasan
            Cara ini dilaksanakan setelah sarang siap dipakai untuk bertelur, tetapi pasangan walet itu belum sempat bertelur. Cara ini mempunyai keuntungan yaitu jarak waktu panen cepat, kualitas sarang burung bagus dan total produksi sarang burung pertahun lebih banyak. Kelemahan cara ini tidak baik dalam pelestaraian burung walrt karena tidak ada peremajaan. Kondisinya lemah karena dipicu untuk terus menerus membuat sarang sehingga tidak ada waktu istirahat. Kualitas sarangnya pun merosot menjadi kecil dan tipis karena produksi air liur tidak mampu mengimbangi pemacuan waktu untuk membuat sarang dan bertelur.

2.    Panen Buang Telur
Cara ini dilaksanankan setelah burung membuat sarang dan bertelur dua butir. Telur diambil dan dibuang kemudian sarangnya diambil. Pola ini mempunyai keuntungan yaitu dalam setahun dapat dilakukan panen hingga 4 kali dan mutu sarang yang dihasilkan pun baik karena sempurna dan tebal. Adapun kelemahannya yakni, tidak ada kesempatan bagi walet untuk menetaskan telurnya.

3.    Panen Penetasan
Pada pola ini sarang dapat dipanen ketika anak-anak walet menetas dan sudah bisa terbang. Kelemahan pola ini, mutu sarang rendah karena sudah mulai rusak dan dicemari oleh kotorannya. Sedangkan keuntungannya adalah burung walet dapat berkembang biak dengan tenang dan aman sehingga polulasi burung dapat meningkat.

Demikian Cara Budidaya Sarang Burung Walet Agar Sukses, selamat mencoba dan semoga sukses!



Read More

Memulai Budidaya Sarang Walet

            Burung walet adalah salah satu jenis burung komoditas ekspor yang sangat istimewa karena manfaat. Maka dari itu banyak orang yang tertarik untuk membudidayakan sarang burung walet ini. Ada yang membangun gedung-gedung tinggi dan ada pula yang memanfaatkan salah satu ruangan rumahnya untuk dijadikan sarana budidaya sarang walet.

            Sarang burung walet memiliki manfaat yang baik untuk kesehatan, karena demikian sarang burung walet memiliki nilai ekonomi yang sangat tinggi. Sarang burung walet terbuat dari air liurnya (saliva). Sarang burung walet berguna untuk menyembuhkan penyakit paru-paru, panas dalam, melancarkan peredaran darah dan penambah stamina/tenaga.
Ini penampakan sarang wallet
            


Pemilihan Lokasi Sarang Walet
Ada beberapa syarat untuk anda bisa lebih sukses dalam budidaya sarang walet ini. Yaitu sebagai berikut :
1.   Daerah tempat yang ingin anda bangun sarang memiliki ketinggian di bawah 1000 atau di dataran rendah hingga mencapai ketinggian tersebut.
2.   Pilih tempat budidaya dimana tidak ada burung pemangsa daging.
3. Biasanya tempat yang bagus tidak berdekatan dengan keramaian dan juga perkembangan teknologi. Karena burung walet tinggalnya di goa yang sangat jauh dari kebisingan.
4.   Kalau perlu, anda memilih tempat yang dekat dekat dengan pantai, danau, rawa, atau sungai yang jauh dari perkotaan namun masih tetap dalam jangkauan anda untuk membudidayakannya.

Bentuk Bangunan
Pada umumnya pembangunan sarang burung walet seperti bangunan gedung biasanya dengan ukuran besar, memiliki luas bervariasi dari 10×15 m2 sampai 10×20 m2. Perlu diperhatikan semakin tinggi wuwungan (bubungan) dan semakin besar jarak antara wuwungan dan plafon, makin baik rumah walet dan lebih disukai burung walet. Satu lagi yang cukup penting rumah sarang burung walet tidak boleh tertutup oleh pepohonan tinggi haruslah dihalaman terbuka.
            


Mengatur Kelembaban dan Suhu Rumah Walet

Ada beberapa cara yang bisa dilakukan untuk anda mengatur kondisi kelembaban dan suhu rumah walet. Yaitu dengan cara ;
1.    Melapisi atap rumah untuk budidaya walet dengan sekam.
2.    Buat saluran air ataupun kolam di dalam gedung.
3.    Untuk ventilasi, gunakan pipa berbentuk ‘’L’’ dengan diameter 4 cm dan jarak antar ventilasi adalah 5 m antar lobang.
4.    Tutup rapat gedung yang anda bangun, termasuk pintu keluar masuk. Selama proses budidaya sarang walet masih berlangsung.
5.    Untuk lubang keluar masuk, berikan alat penangkal sinar yang mempunyai bentuk corong. Biasanya terbuat dari atau kain dengan warna hitam. Agar keadaan gelap di dalam bangunan lebih terjaga.

Untuk cara panen bisa dilihat di Cara Panen Sarang Walet
Sumber :  www.berwirausaha.net

                Obatrindu.com
Read More

Bisnis Sarang Walet, Sukses Dengan Modal Kecil

 Satu terobosan baru budi daya walet telah ditemukan. Hanya dengan modal kecil, Anda bisa membuat rumah walet yang ideal. Padahal, umumnya orang menghabiskan dana ratusan juta rupiah, bahkan bisa miliaran rupiah jika hendak membangun rumah walet.

Mengapa bisnis sarang walet ?  kamu tau tidak  Harga sarang burung walet bisa Rp 14 juta sampai Rp 15 juta per kg. Sangat menggiurkan bukan ?

            Membangun rumah walet hemat tidak mesti membangun bangunan baru. Anda juga bisa memanfaatkan bangunan yang sudah ada, seperti kamar, garasi, gudang, dan pondok di sawah atau kebun. Dengan begitu, penghematan biayanya bisa mencapai 70% dibandingkan membangun bangunan baru dengan ukuran yang sama.

            Beberapa media yang bisa digunakan untuk rumah walet hemat, di antaranya rumah walet kamar. Dengan memanfaatkan ruang kamar yang ada, Anda bisa menyulapnya menjadi rumah walet kamar. Jika ada populasi walet di sekitarnya, niscaya kamar yang baru Anda sulap tersebut akan segera dihuni walet. 

            Kalaupun Anda ingin membuat bangunan baru, mulailah dari ukuran kecil, 2 x 3 meter persegi. Bahan-bahannya bisa Anda gunakan dari sekitar Anda. Misalnya, untuk peredam panas, manfaatkan bahan-bahan dari limbah styrofoam atau memanfaatkan atap yang didesain dari daun pandan atau sirap. Sedangkan untuk dindingnya, bisa dibuat dari papan atau tembok semen dengan ketebalan tipis, sekitar 2 cm.
            Berdasarkan hasil eksperimen, desain sederhana ini telah terbukti keberhasilannya. Dalam kurun waktu dua tahun, ruangan tersebut mampu menghasilkan sarang walet sekitar 0.5 kg per bulan, bahkan ada yang mencapai 4 kg. Biaya pembuatan rumah walet hemat ini sekitar 2 - 40 juta rupiah. Tergantung ukuran dan bahan yang digunakan.

Terus bagaimana cara nya agar burung wallet segera mengisi bangunan anda ?
Anda bisa mendapatkan infonya di Memulai Budidaya Sarang Burung Walet

Sumber : agromedia.net
              Indonesia-product.com
Read More

Belajar Membuat Applikasi Jadwal Ekskul Menggunakan VS 2012


Pertama kita buat databasenya menggunakan SQL SERVER Management , buat nama dbnya kasih aja "ekskul"

sebagai catatan , ingat yah , di post ini ane beri judul "belajar" , jadi kalian harus experiment sendiri , karena ane hanya memberi 1 contoh form lengkap dengan kode , sisanya biar kalian yang mencari.

trus bikin deh desain tablenya seperti dibawah ini

tb_guru

tb_mata_ekskul

tb_kelas

tb_jadwal

Setelah itu , kita buka Visual Studio 2012 , buat project lalu kasih nama "Jadwal Ekskul"
di Form 1 , kalian desainkan seperti dibawah ini . Untuk yg ditengah , kalian pasang panel saja , dan yang di sisi sebelah kiri , itu semua button. sisanya adalah lable.
setelah itu , buat folder di project kalian , terus beri nama "tampil". Hanya untuk memudahkan kita membuat program , tapi seterah kalian saja.
untuk membuatnya , klik kanan di JadwalEkskul lalu pilih add -> new folder
jika sudah , lalu kalian buat formnya seperti gambar diatas didalam folder tampil . selanjutnya , kita ambil 1 contoh form yaitu form guru. desain form gurunya seperti dibawah
Jika Sudah , lalu tambahkan script seperti dibawah
Imports System.Data.SqlClient
Public Class guru_tampil
    Private Sub guru_tampil_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        opentable()
    End Sub
    Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
        Call opentable()
    End Sub
    Sub opentable()
        If txtcari.Text = "" Then
            cmd.Connection = cn
            cmd.CommandText = "SELECT * FROM tb_guru"
        Else
            cmd.Connection = cn
            cmd.CommandText = "SELECT * FROM tb_guru WHERE nama LIKE '%" & txtcari.Text & "%' "
        End If

        Dim temp_read As SqlDataReader = cmd.ExecuteReader
        Dim tampil_guru As New DataTable

        tampil_guru.Load(temp_read)
        dgv_guru.DataSource = tampil_guru

        dgv_guru.Columns(0).HeaderText = "Kode Guru"
        dgv_guru.Columns(1).HeaderText = "Nama Guru"
        dgv_guru.Columns(2).HeaderText = "Alamat"
        dgv_guru.Columns(3).HeaderText = "No Telp"
    End Sub
    Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        guru_input.Show()
        guru_input.autonumber()
    End Sub
    Private Sub dgv_guru_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_guru.CellContentDoubleClick
        guru_input.txtkode.Text = dgv_guru.SelectedCells(0).Value
        guru_input.txtnama.Text = dgv_guru.SelectedCells(1).Value
        guru_input.txtalamat.Text = dgv_guru.SelectedCells(2).Value
        guru_input.txtno.Text = dgv_guru.SelectedCells(3).Value

        guru_input.btntambah.Text = "Ubah"
        guru_input.Show()
    End Sub
End Class


Lalu , kalian buat folder input , dan isi dalam folder seperti gambar dibawah 
Lalu buka guru_input , dan desainkan seperti dibawah ini 
setelah itu beri script
Public Class guru_input
    Dim auto As New DataTable
    Sub autonumber()
        cmd.Connection = cn
        cmd.CommandText = "SELECT kode_guru FROM tb_guru ORDER BY kode_guru DESC"

        auto.Load(cmd.ExecuteReader)

        If auto.Rows.Count = 0 Then
            txtkode.Text = 1
        Else
            With auto.Rows(0)
                txtkode.Text = .Item("kode_guru")
                txtkode.Focus()
            End With
            txtkode.Text = txtkode.Text + 1
        End If
    End Sub
    Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        If btntambah.Text = "Tambah" Then
            Try
                cmd.Connection = cn
                cmd.CommandText = "INSERT INTO tb_guru VALUES ('" & txtkode.Text &
                                  "','" & txtnama.Text &
                                  "','" & txtalamat.Text &
                                  "','" & txtno.Text & "')"
                cmd.ExecuteNonQuery()

                MsgBox("Data Berhasil Ditambah")
                Call guru_tampil.opentable()
            Catch ex As Exception
                MsgBox("Data Gagal Ditambah")
            End Try
        Else
            Try
                cmd.Connection = cn
                cmd.CommandText = "UPDATE tb_guru SET kode_guru = '" & txtkode.Text &
                                  "' , nama = '" & txtnama.Text &
                                  "' , alamat = '" & txtalamat.Text &
                                  "' , no_telp = '" & txtno.Text &
                                  "' WHERE kode_guru = '" & txtkode.Text & "' "
                cmd.ExecuteNonQuery()
                MsgBox("Data Berhasil Diedit")
                Call guru_tampil.opentable()
            Catch ex As Exception
                MsgBox("Data Gagal Diedit")
            End Try
        End If
    End Sub
    Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
        Try
            cmd.Connection = cn
            cmd.CommandText = "DELETE FROM tb_guru WHERE kode_guru = '" & txtkode.Text & "' "
            cmd.ExecuteNonQuery()

            MsgBox("Data Berhasil Dihapus")
            Call guru_tampil.opentable()
        Catch ex As Exception
            MsgBox("Data Gagal Dihapus")
        End Try
    End Sub
    Private Sub btnkembali_Click(sender As Object, e As EventArgs) Handles btnkembali.Click
        Me.Close()
    End Sub
End Class

Jika , sudah , maka coba 

Sekian dari post saya , mohon maaf apabila kurang jelas . Nanti akan saya perjelas di post selanjutnya , setelah saya melengkapi program saya agar menjadi "jadwal ekskul" yang benar (menururt saya sih) , dan nanti akan saya upload kan juga source codenya .

Sampai ketemu lagi sobat :)

Read More

CRUD on VB : Pendaftaraan Siswa


hai sobat , lama nggk update nih blog . sang bloggernya sedang sibuk di dunia nyata sana.
Disini saya mau memberikan contoh CRUD di VB dalam kasus pendaftaran siswa . saya menggunakan VS 2012 (baru update) dan databasenya menggunakan SQL Server . oke bro silahkan di check aja code nya -->

Step 1 :
buat new project di vb , lalu beri nama pendaftaran_siswa

Step 2 :
Buat Designya menjadi seperti yg dibawah ini (untuk tablenya menggunakan datagridview) :


untuk nama textbox , kalian ubah di properties->name dengan format(txtnama , txtalamat, txttanggal dll)

Step 3 : lalu klik kanan di solution explorer -> pendaftaran_siswa , pilih add -> module . Beri nama config

Step 4  : trus pastekan kodenya dibawah ini (dengan catatan : masukkan nama database kalian di Data Source )
Imports System.Data.SqlClient

Module config
    Public cn As New SqlConnection
    Public cmd As New SqlCommand

    Sub opendb()
        cn.ConnectionString = "DATA SOURCE= NAMA SERVER di SQL SERVER;Initial Catalog=NAMA TABLENYA ;Integrated Security=True;"
        cn.Open()

        If cn.State = ConnectionState.Open Then
            'MessageBox.Show("db open")
        Else
            MessageBox.Show("db close")
        End If
    End Sub

End Module

Step 5 : kembali ke form1 , klik 2 kali pada form , pastekan di bawah End Sub
Sub opentable()
        cmd.Connection = cn
        cmd.CommandText = "SELECT * FROM pendaftar"
        Dim temp_read As SqlDataReader = cmd.ExecuteReader

        tampil_pendaftar.Load(temp_read)
        dg_pendaftar.DataSource = tampil_pendaftar

        dg_pendaftar.Columns(0).HeaderText = "Id Pendaftaraan"
        dg_pendaftar.Columns(1).HeaderText = "Nama Pendaftaraan"
        dg_pendaftar.Columns(2).HeaderText = "Tempat Lahir"
        dg_pendaftar.Columns(3).HeaderText = "Tanggal Lahir"
        dg_pendaftar.Columns(4).HeaderText = "Asal Sekolah"
        dg_pendaftar.Columns(5).HeaderText = "Alamat Sekolah"

        dg_pendaftar.Columns(0).Width = 100
End Sub
jika sudah , ketik di dalam form1 "call opentable()"

Step 6 : klik 2 kali pada tombol simpan, lalu ketik kode dibawah ini 
Try
            cmd.Connection = cn
            cmd.CommandText = "INSERT INTO tb_pendaftar VALUES ('" & txt_idpendaftar.Text &
                              "','" & txt_namapendaftar.Text &
                              "','" & txt_tempat.Text &
                              "','" & Microsoft.VisualBasic.Left(tanggal.Value, 10) &
                              "','" & txt_asalsekolah.Text &
                              "','" & txt_alamat.Text & "')"
            cmd.ExecuteNonQuery()

            MsgBox("Data Berhasil Ditambah")
            Call opentable()
        Catch ex As Exception
            MsgBox("Data Gagal Ditambah")
        End Try

Selanjutnya lakukan hal yang sama seperti diatas pada tombol update 

Try
            cmd.Connection = cn
            cmd.CommandText = "UPDATE tb_pendaftar SET id_pendaftar = '" & txt_idpendaftar.Text &
                              "' , nama = '" & txt_namapendaftar.Text &
                              "' , tempat_lahir = '" & txt_tempat.Text &
                              "' , tanggal_lahir = '" & Microsoft.VisualBasic.Left(tanggal.Value, 10) &
                              "' , asal_sekolah = '" & txt_asalsekolah.Text &
                              "' , alamat_pendaftar = '" & txt_alamat.Text &
                              "' WHERE id_pendaftar = '" & txt_idpendaftar.Text & "' "
            cmd.ExecuteNonQuery()
            MsgBox("Data Berhasil Diedit")
            Call opentable()
        Catch ex As Exception
            MsgBox("Data Gagal Diedit")
        End Try

lalu tombol delete 

 Try
            cmd.Connection = cn
            cmd.CommandText = "DELETE FROM tb_pendaftar WHERE id_pendaftar '" & txt_idpendaftar.Text & "' "
            cmd.ExecuteNonQuery()

            MsgBox("Data Berhasil Dihapus")
            Call opentable()
        Catch ex As Exception
            MsgBox("Data Gagal Dihapus")
        End Try

Step 7 : buka form1[design] , lalu klik 2 kali datagridviewnya , lalu ubah menjadi CellContentDoubleClick. Jika sudah , ketik kode dibawah ini 

txt_idpendaftar.Text = dg_pendaftar.SelectedCells(0).Value
        txt_namapendaftar.Text = dg_pendaftar.SelectedCells(1).Value
        txt_tempat.Text = dg_pendaftar.SelectedCells(2).Value
        tanggal.Text = dg_pendaftar.SelectedCells(3).Value
        txt_asalsekolah.Text = dg_pendaftar.SelectedCells(4).Value
        txt_alamat.Text = dg_pendaftar.SelectedCells(5).Value

Step 8 : klik 2 kali pada tombol reset , lalu ketik 

txt_idpendaftar.Text = ""
        txt_namapendaftar.Text = ""
        txt_tempat.Text = ""
        tanggal.Text = ""
        txt_asalsekolah.Text = ""
        txt_alamat.Text = ""


Selesai , Pendaftaran Siswa bisa dijalankan . 

Jika ada yang ingin bertanya silahkan komen saja dibawah ini. 
Read More

Ganti BBM , Hilangkan Polusi! #ideKUUntukPLN

Mengingat indonesia yang akan kaya alam , kita sebagai manusia harus menggunakannya . Melihat orang-orang yang merusak alam , sangat tidak mensyukuri dengan ciptaan tuhan yang maha esa.

Selama ini yang saya ketahui , PLN menggunakan BBM untuk menghidupkan generator listrik agar dapat mengaliri listrik di rumah-rumah atau di kota-kota . Jika anda pernah pergi ke tempat PLN nya , pasti anda pernah mendengar suara mesin yang sangat ribut , menandakan bahwa generator sedang bekerja menghasilkan listrik untuk kita.

BBM itu kan bahan bakar yang dapat habis kapan saja . Dan juga BBM menghasilkan polusi yang buruk bagi kita. Mengingat hutan-hutan juga mulai dirusak oleh pertambangan , apakah anda tidak takut bahwa jika nanti polusi yang dihasilkan dari mesin berbahan bakar BBM lebih banyak dibandingkan dengan oksigen yang dihasilkan oleh pohon-pohon yang dirusak oleh manusia ?

Kenapa tidak menggantikan BBM dengan yang lain ? Misalnya air. Lautan di indonesia lebih luas dari daratannya kan . Ada pemuda-pemuda di indonesia yang sudah membuat alternatif pembangkit listrik tenaga air . Tinggal bagaimana selanjutnya kita dapat mengembangkannya agar tidak menggunakan BBM .


Jika tidak bisa dengan air , ayo kita coba dengan Tata Surya . Indonesia adalah negara yang mempunya 2 musim , musim hujan dan musim kemarau . Di musim kemarau biasanya banyak desa-desa yang kekurangan air bersih untuk kebutuhan pertaniannya atau kebutuhan sehari-hari . Coba kita ambil sisi positifnya , bagaimana jika kita gunakan panasnya matahari di saat musim kemarau untuk membuat Pembangkit listrik tenaga surya . lalu kita gunakan untuk mengalirkan air bersih dari kota ke desa-desa yang kekurangan air ? pasti bermanfaat bagi banyak orang kan. Atau bisa juga untuk membuatkan Pembangkit listrik tenaga surya untuk desa-desa yang belum mempunyai aliran listrik.


Jadi anda siap tidak untuk membuat indonesia lebih maju menggunakan tenaga alam yang tidak tanpa merusak alam ?
Terima kasih buat PLN dan BlogDetik karna telah mengadakan lomba blog , yang membuat saya dapat mengeluarkan ide saya yang sudah tertanam sejak dulu.Semoga saja ide saya dapat terwujud dan berguna bagi banyak orang .








Read More

Membuat contoh program kondisi dengan Visual Studio 2013

hallo sobat blogger , ketemu lagi ..
Sekarang saya mau tutorial cara membuat contoh program kondisi(if) di Visual Studio 2012









Buka Visual Studio 2012 , pilih New Project dan beri nama "Kondisi"

setelah itu desain aplikasinya seperti yang dibawah ini .



trus desain


ganti nama variabel nya seperti dibawah ini

textbox1 = nis
textbox2 = nama
textbox3 = tugas
textbox4 = u_harian
textbox5 = u_semester
textbox6 = n_akhir
textbox7 = n_huruf

klik tombol hitung 2x , terus masukkan code di bawah ini

n_akhir.Text = Val(50 / 100 * tugas.Text) + Val(20 / 100 * u_harian.Text) + Val(30 / 100 * u_semester.Text)
        If n_akhir.Text > 85 Then
            n_huruf.Text = "A"
        ElseIf n_akhir.Text > 75 Then
            n_huruf.Text = "B"
        ElseIf n_akhir.Text > 60 Then
            n_huruf.Text = "C"
        Else
            n_huruf.Text = "D"
        End If




Read More
Powered By Blogger · Designed By Seo Blogger Templates