Minggu, 08 Juli 2012

penyebab kan burung bisu/tidak berkicau

Banyak sekali pertanyaan tentang mengapa burung cuma ngeriwik, atau bunyi cuma pagi hari, atau hanya gacor kalau di rumah tetapi tidak gacor di lapangan, atau sebaliknya cuma gacor di lapangan tetapi tidak gacor di rumah.
Sekali lagi ingin saya tekankan bahwa burung apapun yang gacor dalam “segala cuaca” adalah burung yang tidak sakit secara fisik ataupun mental. Berikut ini saya sebutkan sejumlah kondisi burung yang hanya ngeriwik atau hanya bunyi pada waktu dan tempat tertentu.
1. Burung hanya ngeriwik terus.
Burung yang hanya ngeriwik biasanya adalah:
= Burung tua atau pun muda terutama tangkapan hutan. Sebab, meski muda, burung hasil tangkaran biasanya mau gacor. Mengapa? Burung hasil tangkaran besar di lingkungan manusia dan karenanya dia tidak ada kendala takut kepada manusia dan lingkungannya. Sedangkan burung tangkapan hutan, perlu penyesuaian yang lama dengan lingkungan manusia. Dia harus melalui proses penjinakan sehingga cepat beradaptasi.
Kalau Anda memelihara burung tangkapan hutan, kadang perlu waktu berbulan-bulan untuk membuat dia tidak takut lagi dengan manusia. Biasanya, setelah masa mabung barulah dia bisa beradaptasi. Syaratnya, selama waktu itu pula dia ditempatkan di tempat yang relatif ramai, dekat orang rumah berlalu lalang.
Jadi Anda jangan terlalu berharap bahwa burung hasil tangkapan hutan mau gacor dalam waktu singkat sekitar 1-2 bulan. Perlu berbulan-bulan sampai benar-benar tidak takut dengan lingkungan manusia. Dengan demikian, burung yang ngeriwik terus sebenarnya adalah burung yang tidak sehat secara mental, atau mentalnya masih tertekan, dalam hal ini oleh lingkungan yang sama sekali asing bagi dia.
= Burung memasuki masa mabung. Burung mabung biasanya hanya ngeriwik-ngeriwik atau bahkan hanya diam sama sekali. Cek saja kalau burung Anda tiba-tiba tidak gacor, ada kemungkinan memasuki masa mabung. Ada bulu-bulu halus mulai berjatuhan.
= Burung habis mabung, biasanya juga cuma ngeriwik. Dia tidak mau gacor sebagaimana ketika bekum mabung. Hal itu disebabkan, masa rekondisi pasca mabung memang memerlukan waktu sekitar 1-2 bulan. Tentu hal ini tidak berlaku untuk burung-burung tertentu, yang bahkan dalam kondisi mabung masih tetap gacor. Artinya, secara umum, burung yang baru saja mabung sebenarnya adalah burung yang tidak atau belum sehat secara fisik. Untuk mempercepat kesehatannya pulih, pastikan saja kecukupan nutrisinya.
= Burung yang kalah setelah diadu, biasanya juga hanya ngeriwik-ngeriwik terus tidak mau lagi gacor. Kalau hal itu terjadi pada burung Anda, maka burung Anda perlu dikarantina. Sampai kapan? Kadang memerlukan waktu berbulan-bulan untuk memulihkannya, atau biasanya setelah melewati lagi masa mabung. Selama perawatan, Anda jugta perlu memperhatikan kecukupan pakan dan gizinya.
2. Burung hanya gacor pada waktu tertentu.
=
Ada burung tertentu yang hanya gacor pada pagi hari sementara sisa waktu selanjutnya hanya ngeriwik, atau gacor hanya malam hari, dan sebagainya. Hal itu biasanya berlaku pada burung-burung yang sebenarnya sudah tidak takut lingkungan tetapi belum fit secara fisik, dan bisa juga karena tidak atau belum birahi sepenuhnya. Burung yang birahi, biasanya gacor sepanjang hari. Tentu dalam hal ini Anda harus mengusahakan bagaimana agar burung tersebut bisa birahi.
= Burung-burung muda juga punya kebiasaan hanya gacor pada waktu tertentu. Dengan demikian, ini hanya masalah waktu yang menuntut Anda untuk bersabar.
3. Burung hanya gacor di tempat tertentu.
=
Burung yang hanya gacor di rumah tetapi tidak di arena lomba biasanya disebabkan oleh kondisi tidak fit atau bisa juga karena tidak terbiasa diadu dalam keramaian. Dengan demikian, perlu dilihat dan dikondisikan fisiknya sehingga benar-benar fit dan sementara itu juga dilatih secara rutin tetapi terukur kalau Anda memang pengin punya burung yang mau dan terbiasa gacor di arena lomba atau di keramaian.
= Burung yang hanya gacor di arena lomba tetapi tidak gacor di rumah. Burung seperti ini biasanya disebabkan oleh kondisi kurang birahi. Dalam kondisi seperti itu, burung hanya birahi ketika dirangsang oleh datangnya “musuh” atau “pesaing” yakni burung lain. Semetara kalau di rumah, di mana tidak ada musuh, dia tidak bersemangat untuk bersuara. Tingkatkan birahinya, itu salah satu kuncinya.
Namun demikian, ada juga burung yang memang sudah punya karakter seperti itu, yakni hanya mau bunyi kalau ada lawannya. Kalau sudah berbicara mengenai karakter, maka tidak ada obat apapun yang manjur.
Yang pasti, dalam kondisi seperti apa burung Anda saat ini, Anda tetap perlu membaca yang satu ini.
Oke? Salam!

Sabtu, 28 Januari 2012

Jawaban soal 3 (Riza mochtar dahari lubis)

soal no.3 


listing program:

PROGRAM SERVER

Dim ClientIndex As Byte
Dim cRequest As Integer
Dim cData As String
Dim i As Integer
Dim iGD As Integer

Sub MulaiServer()
        WS(0).LocalPort = 3000
        WS(0).Listen
        cRequest = 1
        ClientIndex = 1
End Sub

Private Sub Form_Load()
        MulaiServer
        GD.Rows = 41
        For i = 1 To 40
            GD.Col = 0
            GD.Row = i
            GD.Text = i
        Next i
        iGD = 1
End Sub

Private Sub Timer1_Timer()

    For i = 1 To GD.Rows - 1
        GD.Row = i
        GD.Col = 4
        If GD.Text = "START" Then
            GD.Col = 3
            GD.Text = Time
        End If
    Next i
End Sub

Private Sub Timer2_Timer()
WS.SendData "PAKAI-" & Pakai.Value & "/" & 3000
End Sub

Private Sub WS_ConnectionRequest(index As Integer, ByVal requestID As Long)
        Load WS(cRequest)
        WS(cRequest).Close
        WS(cRequest).Accept requestID
        cRequest = cRequest + 1 '
Timer1.Enabled = True
Timer2.Enabled = True

End Sub

Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
        WS(index).GetData cData, vbString, bytesTotal
        Call CekData(index)
       
End Sub

Sub CekData(index)
        Dim kata() As String
        kata = Split(cData, "-")
        Select Case kata(0)
        Case "START"
                        GD.Row = iGD
                        GD.Col = 1
                        GD.Text = kata(1) 'WS(index).RemoteHostIP
                        GD.Col = 2
                        GD.Text = Time
                        GD.Col = 4
                        GD.Text = "START"
                        GD.Col = 5
                        GD.Text = kata(2)
                        iGD = iGD
        Case "STOP"
            For i = 1 To GD.Rows - 1
                GD.Row = i
                GD.Col = 1
                If GD.Text = kata(1) Then
                        GD.Col = 4
                        GD.Text = "STOP"
                End If
            Next i
        End Select
End Sub
       
Private Sub WS_Error(index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
        WS(index).Close
End Sub


PROGRAM CLIENT

Dim IPS As String
Dim User As String

Private Sub Command1_Click()
    WS.SendData "START-" & User & "-
ElysaYamin"
End Sub

Private Sub Command2_Click()
    WS.SendData "STOP-" & User
End Sub

Private Sub Form_Load()
    IPS = "127.0.0.1"
    User = WS.LocalIP
    WS.Connect IPS, 3000
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
WS.GetData xKirim, vbString, bytesTotal
Call CheckData
End Sub

Sub CheckData()
xdata1 = Split(xKirim, "-")
xdata2 = Split(xdata1(1), "/")

Select Case xdata1(0)
    Case "PAKAI"
    mulai.Value = xdata2(0)
    selesai.Value = xdata2(1)
    pakai.Value = xdata2(2)
    biaya.Text = (Val(Hour(pakai.Value) * 60) + Val(Minute(pakai.Value) * 50))
    End Select

Jawaban soal 2 (Riza mochtar dahari lubis)

listing program:


SERVER

MODULE
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public SQL As String
Sub opendb()
    If db.State = adStateOpen Then db.Close
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Sony\My Documents\belajar server\test2.mdb;Persist Security Info=False"
End Sub
Sub clearform(f As Form)
    Dim ctl As Control
    For Each ctl In f
        If TypeOf ctl Is TextBox Then ctl.Text = ""
        If TypeOf ctl Is ComboBox Then ctl.Text = ""
    Next
End Sub
Sub center(f As Form)
    f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
   
End Sub
Sub rubahcmd(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
    f.cmdproses(0).Enabled = L0
    f.cmdproses(1).Enabled = L1
    f.cmdproses(2).Enabled = L2
    f.cmdproses(3).Enabled = L3
End Sub


LISTING PROGRAM SERVER

Private Sub cmdproses_Click(Index As Integer)
Select Case Index
    Case 0
        Call hapus
        kode.SetFocus
    Case 1
        If cmdproses(1).Caption = "&Simpan" Then
            Call prosesDB(0)
        Else
            Call prosesDB(1)
        End If
    Case 2
        X = MsgBox("yakin RECORD barang akan dihapus...!", vbQuestion + vbYesNo, "barang")
        If X = vbYes Then prosesDB 2
        Call hapus
        kode.SetFocus
    Case 3
        Call hapus
        kode.SetFocus
    Case 4
    Unload Me
End Select
       
End Sub

Sub hapus()
kode.Enabled = True
clearform Me
Call rubahcmd(Me, True, False, False, False)
cmdproses(1).Caption = " &Simpan"
End Sub


Private Sub Form_Load()
Call opendb
Call hapus
mulaiserver
End Sub
Sub prosesDB(log As Byte)

Select Case log
    Case 0
        SQL = "INSERT INTO barang(kode,nama,harga)" & _
        "values('" & kode.Text & _
        "','" & nama.Text & _
        "','" & harga.Text & "')"
    Case 1
        SQL = "UPDATE barang SET nama='" & nama.Text & "'," & _
            "harga='" & harga.Text & "' " & _
            "WHERE kode='" & kode.Text & "'"
    Case 2
        SQL = "DELETE  FROM barang WHERE kode='" & kode.Text & "'"
    End Select
MsgBox "Pemrosesan  record Database telah berhasil....!!", vbInformation, "Data Barang"
    db.BeginTrans
    db.Execute SQL, adCmdTable
    db.CommitTrans
    Call hapus
    Adodc1.Refresh
    kode.SetFocus

End Sub
Sub tampilbarang()
    On Error Resume Next
    kode.Text = rs!kode
    nama.Text = rs!nama
    harga.Text = rs!harga
   
End Sub


Private Sub kode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If kode.Text = "" Then
        MsgBox "Masukkan Kode Barang!", vbInformation, "Barang"
        kode.SetFocus
        Exit Sub
End If
SQL = " SELECT * FROM barang WHERE kode='" & kode.Text & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
    tampilbarang
    Call rubahcmd(Me, False, True, True, True)
    cmdproses(1).Caption = "&Edit"
    kode.Enabled = False

    Else
        X = kode.Text
        Call hapus
        kode.Text = X
        Call rubahcmd(Me, False, True, False, True)
          cmdproses(1).Caption = "&Simpan"
End If
nama.SetFocus
End If
  
End Sub

Sub mulaiserver()
ws.LocalPort = 1000
ws.Listen
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
Me.Caption = "server-client" & ws.RemoteHostIP & "connect"

End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim xkirim As String
Dim xData1() As String
Dim xData2() As String
ws.GetData xkirim, vbString, bytesTotal

xData1 = Split(xkirim, "-")
Select Case xData1(0)
    Case "SEARCH"
    SQL = " delete * FROM barang " & _
    " where kode= '" & xData1(1) & "'"
    SQL = "SELECT * FROM barang WHERE kode='" & xData1(1) & "'"
    If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
    ws.SendData "RECORD-" & rs!nama & "/" & rs!harga
   
    Else
        ws.SendData "NOTHING-DATA"
    End If
    Case "INSERT"
   
    Case "EDIT"
   
    Case "DELETE"
    SQL = " delete * FROM barang " & _
    " where kode= '" & xData1(1) & "'"
    db.BeginTrans
    db.Execute SQL, adCmdTable
    db.CommitTrans
    Adodc1.Refresh
    ws.SendData "DEL-xxx"
   
    Case "UPDATE"
    db.BeginTrans
    db.Execute xData1(1), adCmdTable
    db.CommitTrans
   End Select
End Sub

hasil program:



listing program:

CLIENT
MODULE
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public SQL As String
Sub opendb()
    If db.State = adStateOpen Then db.Close
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Sriwahyu-a562c3\vb2\vb\test.mdb;Persist Security Info=False"
End Sub
Sub clearform(f As Form)
    Dim ctl As Control
    For Each ctl In f
        If TypeOf ctl Is TextBox Then ctl.Text = ""
        If TypeOf ctl Is ComboBox Then ctl.Text = ""
    Next
End Sub
Sub center(f As Form)
    f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
   
End Sub
Sub rubahcmd(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
    f.cmdproses(0).Enabled = L0
    f.cmdproses(1).Enabled = L1
    f.cmdproses(2).Enabled = L2
    f.cmdproses(3).Enabled = L3
End Sub


LISTING PROGRAM SERVER

Private Sub cmdproses_Click(Index As Integer)
Select Case Index
    Case 0
        Call hapus
        kode.SetFocus
    Case 1
        If cmdproses(1).Caption = "&Simpan" Then
            Call prosesDB(0)
        Else
            Call prosesDB(1)
        End If
    Case 2
        X = MsgBox("yakin RECORD barang akan dihapus...!", vbQuestion + vbYesNo, "barang")
        If X = vbYes Then prosesDB 2
        Call hapus
        kode.SetFocus
    Case 3
        Call hapus
        kode.SetFocus
    Case 4
    Unload Me
End Select
       
End Sub

Sub hapus()
kode.Enabled = True
clearform Me
Call rubahcmd(Me, True, False, False, False)
cmdproses(1).Caption = " &Simpan"
End Sub


Private Sub Form_Load()
Call opendb
Call hapus
mulaiserver
End Sub
Sub prosesDB(log As Byte)

Select Case log
    Case 0
        SQL = "INSERT INTO barang(kode,nama,harga)" & _
        "values('" & kode.Text & _
        "','" & nama.Text & _
        "','" & harga.Text & "')"
    Case 1
        SQL = "UPDATE barang SET nama='" & nama.Text & "'," & _
            "harga='" & harga.Text & "' " & _
            "WHERE kode='" & kode.Text & "'"
    Case 2
        SQL = "DELETE  FROM barang WHERE kode='" & kode.Text & "'"
    End Select
MsgBox "Pemrosesan  record Database telah berhasil....!!", vbInformation, "Data Barang"
    db.BeginTrans
    db.Execute SQL, adCmdTable
    db.CommitTrans
    Call hapus
    Adodc1.Refresh
    kode.SetFocus

End Sub
Sub tampilbarang()
    On Error Resume Next
    kode.Text = rs!kode
    nama.Text = rs!nama
    harga.Text = rs!harga
   
End Sub


Private Sub kode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If kode.Text = "" Then
        MsgBox "Masukkan Kode Barang!", vbInformation, "Barang"
        kode.SetFocus
        Exit Sub
End If
SQL = " SELECT * FROM barang WHERE kode='" & kode.Text & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
    tampilbarang
    Call rubahcmd(Me, False, True, True, True)
    cmdproses(1).Caption = "&Edit"
    kode.Enabled = False

    Else
        X = kode.Text
        Call hapus
        kode.Text = X
        Call rubahcmd(Me, False, True, False, True)
          cmdproses(1).Caption = "&Simpan"
End If
nama.SetFocus
End If
  
End Sub

Sub mulaiserver()
ws.LocalPort = 1000
ws.Listen
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
Me.Caption = "server-client" & ws.RemoteHostIP & "connect"

End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim xkirim As String
Dim xData1() As String
Dim xData2() As String
ws.GetData xkirim, vbString, bytesTotal

xData1 = Split(xkirim, "-")
Select Case xData1(0)
    Case "SEARCH"
    SQL = " delete * FROM barang " & _
    " where kode= '" & xData1(1) & "'"
    SQL = "SELECT * FROM barang WHERE kode='" & xData1(1) & "'"
    If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
    ws.SendData "RECORD-" & rs!nama & "/" & rs!harga
   
    Else
        ws.SendData "NOTHING-DATA"
    End If
    Case "INSERT"
   
    Case "EDIT"
   
    Case "DELETE"
    SQL = " delete * FROM barang " & _
    " where kode= '" & xData1(1) & "'"
    db.BeginTrans
    db.Execute SQL, adCmdTable
    db.CommitTrans
    Adodc1.Refresh
    ws.SendData "DEL-xxx"
   
    Case "UPDATE"
    db.BeginTrans
    db.Execute xData1(1), adCmdTable
    db.CommitTrans
   End Select
End Sub

hasil program:


Rabu, 09 November 2011

tips memelihara ikan hias dirumah

selain memancing saya juga suka memelihara ikan di rumah..
dan berikut ini beberapa tips memelihara ikan hias di rumah:
Bukan hal yang sulit untuk menghadirkan keindahan kehidupan air di rumah. Baik itu berasal dari lingkungan air tawar, maupun dari lingkungan laut, dengan memelihara ikan hias. Yang diperlukan adalah sebuah bak kaca dan beberapa alat pendukung kehidupan mahluk air tersebut, sedikit pengetahuan dasar tentang kimia air, sedikit informasi mengenai perilaku penghuni, dan sedikit sentuhan seni.
Satu hal yang perlu diingat bahwa keberhasilan memelihara ikan hias tergantung pada keberhasilan “memelihara” airnya. Apabila kita berhasil “memelihara” airnya maka ikan dan penghuni akuarium lainnya otomatis akan dapat memelihara dirinya sendiri. Adakalanya kita akan menyadari, bahwa menjadi seorang penyuka ikan cantik ini, mau tidak mau, secara otomatis akan sekaligus pula menjadi seorang orang “ahli” kimia, fisika, biologi dan matematika. Spesies Ikan Hias tertentu bisa hidup dalam waktu yang sangat lama bila dirawat dengan baik. Oleh karena itu, anda harus memiliki komitmen jangka panjang sebelum mulai memeliharanya.
Berikut ini langkah-langkah yang perlu Anda lakukan sebelum mulai memelihara ikan hias:
1. Cari informasi sebanyak mungkin sebelum membeli ikan. Perhatikan faktor-faktor berikut:
  • Seberapa besar ikan tersebut bila dewasa dan apakah Anda mempunyai akuarium yang cukup besar untuk mengakomodasi ukuran tubuh ikan setelah dewasa.
  • Cari tahu mengenai suhu air, rentang pH dan sebagainya Jenis makanan ikan Temperamen spesies ikan hias.
  • Apakah spesies tertentu cocok untuk disatukan dengan jenis ikan yang sudah Anda miliki atau ingin Anda pelihara di masa mendatang.
  • Apakah spesies yang akan Anda pelihara mampu berkembang biak dengan cepat?
  • Apakah anda memiliki peralatan pada saat ikan berkembang biak?
  • Apakah ikan yang akan dibeli rentan terhadap penyakit tertentu?
2. Belilah akuarium sebesar mungkin sesuai dengan anggaran dan ruang yang Anda miliki. Akuarium yang besar menyebabkan air dalam akuarium lebih stabil. Sebagai contoh, bila pemanas suhu rusak, dan toko-toko Jual Ikan sudah tutup, suhu air akan lebih stabil dalam akuarium yang besar.
3. Pelajari tentang siklus nitrogen dalam akuarium
4. Pelajari peralatan akuarium
5. Belilah buku-buku tentang ikan hias.
6. Sediakan banyak tempat bersembunyi bagi ikan. Tempat bersembunyi akan menjadi tempat pengungsian ikan dan akan menurunkan level stress ikan.
7. Beli test kit air akuarium untuk memonitor siklus nitrogen akuarium. Anda dapat membeli test kit untuk menguji kadar amonia, nitrit, nitrat dan pH. Anda juga harus menguji air ledeng bila menggunakan air PAM.
8. Jangan meletakkan akuarium di dekat jendela. Cahaya matahari yang memasuki akuarium akan menyebabkan ledakan ganggang hijau. Sinar matahari langsung juga akan menyebabkan suhu air dalam akuarium meningkat.
9. Jangan mengikuti aturan 1 inci ikan per 1 galon air. Aturan yang lebih baik adalah 1 inci ikan per 2-3 galon air.
10. Lakukan deklorinasi air ledeng sebelum dimasukkan ke dalam akuarium
11. Beli filter akuarium yang memiliki beberapa cartridge, sehingga anda bisa mengganti salah satu bila sudah kotor.
12. Jangan membilas filter dengan air ledeng. Gunakan air dalam akuarium yang sudah Anda saring saat mengganti air ikan hias. Klorin dan kloramin dalam air ledeng akan membunuh bakteri penghilang nitrit dan nitrat dalam filter.

lanjutan mengenal burung kicauan untuk pemula 2

Sampai mana ya>>? Sampai burung Pleci to..
Burung Pleci juga disarankan dipelihara oleh para penghobi burung kicauan yang baru.


Burung pleci ini ada bermacam macam lho..Ada Pleci Kacamata..Pleci Gentong dan lain lainnya..Tetapi semua Pleci ini sama mudahnya kok dalam memeliharanya..
Pleci kacamata harganya sih murah..dengan 5 ribu rupiah saja kita bisa membelinya..
tapi jangan salah,,.burung ini mahal lho kalau sudah jadi alias bisa teler..bener lho burung pleci ini kalau sudah teler lucu banget walaupun suaranya kecil saat teler.
Untuk perawatannya sih super mudahhhh.. Kasih aja makanan yang disukai..yaitu pisang, pepaya ataupun serangga kecil, misalnya uler balap dll. Tapi jangan lupa kasih minum yanhg banyak karena burung ini walaupun kecil minumnya buanyak banget. Dan kasih juga voer yang lembut ya untuk tambah gizi..Mudah lho buat burung kecil ini mau makan voer.. tapi nanti dulu ya caranya. Masih banyak yang harus aku tulis untuk anda..Burung Pleci Genthong asyik juga lho untuk dipelihara..Suaranya kayak burung Robin..masih ingat burung Robin kan... Tapi Sampai sekarang saya belum bisa membedakan mana yang jantan ataupun betina. Cara peliharanya sama kok dengan Pleci kacamata. Dan makanannya pun juga sama.

CARA PELIHARA BURUNG KICAUAN

selain memancing saya juga sangat suka memelihara burung.
berikut saya berikan cara pelihara burung kicauan..


burung ciblek yang gagah

Burung Ciblek berkicau dengan suara lantangnya.. Burung kecil ini termasuk burung petarung yang handal. Jangan remehkan burung ini..walaupun kecil tapi suaranya dapat membelah angkasa..Burung petarung ini biasa kita jumpai di Sawah,pinggiran hutan dan terkadang juga di perkampungan yang masih jauh dari keramaian. Burung ciblek ini sering diperdagangkan karena suaranya yang keras dan naluri fighternya yang bagus. Jika sudah terlatih burung ini jika kita pegang dan kita kasih kaca didepannya dia akan berkicau seolah mau bertarung dengan bayangannya sendiri. Coba saja anda pelihara burung ini.. dan latihlah dia untuk menjadi petarung sejati.
Ciri -ciri burung ciblek jantan:
Biasanya burung ini mempunyai alis dimatanya.
Dadanya berwarna hitam legam
Badan tegap dan berekor panjang atau lebih panjang di banding betina
Jika kita pegang dan dihadapkan kesesama ciblek jantan akan menunjukkan sikap mau bertarung
Pegang si ciblek..perhatikan baik baik di kepalanya..biasanya ada beberapa bulu yang menyerupai rambut yang keluar
Selamat mencoba burung petarung kecil ini..dan nikmati kicauannya yang lantang

memancing

Banyak orang yang memiliki hoby memancing. Namun tak sedikit juga orang yang menggantungkan hidupnya dengan pekerjaan ini. Memang, kegiatan memancing bisa memberikan kepuasan tersendiri bagi penggemarnya. Pernah saya ditanya oleh seorang kawan tentang hoby ini. Katanya, “ngapain capek-capek mancing nyari ikan, toh hasilnya nggak seberapa juga ?” Saya tak menyalahkan teman itu, tapi mungkin karena ia memang tak suka mancing, jadi nggak tahu bagaimana asyiknya ketika ikan mematuk umpan dan kita berusaha untuk mendapatkan ikannya.

Memancing bukan hanya sekedar mencari ikan. Tapi, memancing merupakan seni untuk mendapatkan ikan. Karena ia berhubungan dengan seni, maka ia berhubungan dengan keindahan. Bagi yang tak suka mancing, kegiatan ini sungguh membosankan. Berjam-jam waktu digunakan sepertinya secara percuma. Apalagi bila tak mendapatkan seekor ikan pun. Bagi para maniak mancing, waktu terasa singkat apabila pancing telah dipasang.
Hoby ini tak mengenal tua dan muda, lelaki atau perempuan. Semua orang pasti bisa menyenangi kegiatan ini, yang penting memiliki rasa sabar yang tinggi. Memang, bagi yang tak sabar kegiatan ini sangat menjemukan.
Lokasi memancing bisa dimana saja. Parit, selokan, sungai pantai, lautan, atau bahkan kolam pemancingan. Ikan yang didapat seperti gabus, papupyu, kakapar, lais, baung, dan berbagai jenis ikan lainnya. Adanya kolam pemancingan ini merupakan tanda bahwa kegiatan memancing sudah merambah ke kegiatan bisnis. Bahkan sekarang ini di televisi banyak ditayangkan acara memancing.
Bagi masyarakat pedesaan, kegiatan memancing merupakan kegiatan untuk menambah penghasilan. Sebab, sebagian dari hasil memancing dapat dijual ke para tetangga. Apalagi bila hasil yang didapatkan sangat banyak.
Untuk memancing, dapat menggunakan berbagai macam umpan. Cacing, ulat, jangkrik, induk semut rang-rang, sampai ke beberapa jenis kua dapat dijadikan umpan pancing. Pernah beberapa waktu yang lalu pernah saya memancing dengan menggunakan umpan “kerak nasi”. Ikan yang didapat waktu itu yaitu ikan “lawang”, sejenis ikan patin tetapi lebih kecil. Jenis kue yang bisa digunakan untuk umpat biasanya “untuk-untuk” (sejenis unde-unde), “bingka”, atau jenis kua lainnya. Rupanya ikan punya selera juga dengan beberapa jenis kue tersebut. Namun sekarang banyak juga orang yang menggunakan umpan “palit”. Saya nggak tahu umpan ini dibuat dari bahan apa. Pernah saya dengar bahwa jenis umpan ini dibuat dari ikan juga yang dibusukkan, dan diberi mentega serta dicampur dengan kapas, agar bisa dijadikan umpan.

Di desa memang belum mengenal umpan yang dibuat oleh perusahaan pemancingan seperti yang sering digunakan oleh para pemancing professional. Umpan-umpan tersebut pasti harganya mahal, dan masih belum cocok untuk digunakan di desa yang masih tradisional. Di desa dengan bermodalkan Rp 5000,- rupiah sudah dapat pancing beserta dengan umpannya. Sederhana sekali.
Sukakah anda memancing ? kalau suka ayu kita mancing bersama