Tips Merawat Burung Kenari Muda Agar Cepat Berkicau (gacor)

Burung Kenari Muda (Bakalan) umumnya rajin 

ngriwik bila itu benar berkelamin jantan, agar lebih cepat berkicau burung harus mendapatkan suplemen yang cukup. Untuk itulah burung kenari muda harus mendapatkan perawatan yang insentif agar cepat berkicau. Di usia muda inilah waktu yang tepat untuk memaster burung kenari anda, jika anda ingin burung kenari memiliki berbagai kicauan isian.

Berikut ini adalah Tips merawat burung kenari muda agar cepat gacor menurut pengalaman saya sendiri yang sudah saya alami beberapa kali merawat burung kenari muda 

Ø  Burung Kenari Bakalan setiap pagi sekitar pukul 6 di keluarkan (diangin anginkan) atau di embunkan sekitar pukul 5 pagi.

Ø     Pukul 7 pagi burung dimandikan dengan semprotan yang lembut.

Ø Kemudian bersihkan sangkarnya, ganti atau berikan sayuran/buah, air minum, kenari seed dan telur puyuh. Kemudian jemur burung kenari hingga pukul 9 atau pukul 10 pagi.

Ø    Setelah itu burung di letakkan ditempat yang teduh, diteras...

Ø    Siang hari burung tak perlu dikerodong... biarkan ngriwik dan belajar berkicau.

Ø    Saat di teduhkan ini, burung ditempel saja dengan suara masteran.

Ø  Sore hari menjelang magrib burung kembali di kerodong dan dimasukkan rumah lagi dan di perdengarkan suara masteran.

Ø    Lakukanlah rutin setiap hari kalau ingin menghasilkan kenari muda berprestasi J

Penting untuk dilakukan :

Ø   Jika anda mempunyai burung kenari lebih dari 1, maka sebaiknya berikan jarak yang lumayan jauh, supaya kita bisa mendegarkan kicauannya. Karena bila berdekatan cenderung burung jarang mau berkicau.

Ø    Berikan Sayuran segar berupa sawi putih, sawi hijau, selada, gambas, mentimun secara bergiliran, jangan langsung di masukan semua. Jika ingin hasil yang lebih baik lagi bisa kita berikan buah – buahan yang segar, seperti Apel dan tomat setiap hari secara bergiliran atau bergantian.

Ø   Berikan setiap hari telur puyuh setengah saja, untuk menghindari pembusukan di kandang jika telur puyuh tersebut tidak habis, karena bisa menjadi sarang kuman yang berbahaya buat si kenari muda kita. Sebagian Kenari Mania pada takut memberi telor puyuh karena takut gemuk, namun menurut saya kenari muda akan lebih cepat besar dan mendapat protein yang lebih banyak di bandingkan telur ayam.

Ø   Untuk suplement tambahan bisa berikan juga Cede Kenari sebagai menu tambahan agar stamina burung tambah prima.

Ø   Gantilah air minum setiap hari dengan yang bersih, karena biasanya air minum akan kemasukan sisa – sisa makanan yang ada di mulut si kenari, juga bisa dari kotoran si kenari itu sendiri.

Itulah ulasan sederhana menurut saya  dalam merawat burung kenari muda dari bakalan hingga gacor. Semoga ulasan di atas bisa bermanfaat bagi kita semua penghobi Kenari (Kenari Mania).

cara membuat calculator dgn VB 6.

kali ini saya akan memberi sedikit ilmu cara membuat kalkulator sederhana,mang sudah banyak kalkulator diluarsana yang dibuat menggunakan Visual basic,tapi kali ini saya membuatnya sedikit berbeda. Dengan menambahkan Tombol ON/OFF pada kalkulator ini.
Langsung aja kita mulai
pertama sediakan dulu secangkir kopi buat menemani kitabelajar,hhe :D
langkah pertama kita buka aplikasi Visual Basic 6.0 dan buat project baru
udah pada tau kan caranya..?, kalo belum saya kasih tau deh.
klik aplikasi visual basic –> pilih Standart Exe –> lau pilih Ok
langkah kedua sekarang kita desain Project kalkulator ini seperti gambah di bawah ini

setelah form kita desain sekarang ubah Name setiap komponen

untuk componen Button numeric 0-9

ganti Name menjadi Comammand(angka button tersebut)

misalnya button 1 menjadi Command1,button 2 menjadi Command2 dan seterunya.

sedangkan untuk tombol oprasi sesuaikan dengan caption oprasinya.

misalkan button ” + ” name kita ganti menjadi “tambah” dan yang lainnya juga sama seperti itu.

oiya Untuk button kurang ganti captionnya menjadi “__” undescor dua kali bukan “–” strip.

dan untuk tombol “ON” ganti name menjadi “nyalah” sedangkan tombol “OFF” menjadi “mati

langkah selanjutnya kita klik kanan pada form lalu pilih “view code”

setelah itu kita bersihkan dulu  kolom codenya dengan cara CTRL+A dan tekan BackSpace atau delete.

nah kalo langkah diatas udah semua sekarang copy dan paste code dibawah ini:

Private Sub bagi_Click()

If Label1.Caption = “” Then

Label1.Caption = Text1.Text

Label5.Caption = bagi.Caption

End If

If Label5.Caption <> “” Then

Label5.Caption = “/”

End If

Text1.Text = “”

End Sub

Private Sub Command0_Click()

Text1.Text = (Text1.Text) + Command0.Caption

End Sub

Private Sub Command1_Click()

Text1.Text = (Text1.Text) + Command1.Caption

End Sub

Private Sub Command10_Click()

Text1.Text = “”

Label1.Caption = “”

Label2.Caption = “”

Label4.Caption = “”

Label5.Caption = “”

End Sub

Private Sub Command11_Click()

Text1.Text = “”

End Sub

Private Sub Command2_Click()

Text1.Text = (Text1.Text) + Command2.Caption

End Sub

Private Sub Command3_Click()

Text1.Text = (Text1.Text) + Command3.Caption

End Sub

Private Sub Command4_Click()

Text1.Text = (Text1.Text) + Command4.Caption

End Sub

Private Sub Command5_Click()

Text1.Text = (Text1.Text) + Command5.Caption

End Sub

Private Sub Command6_Click()

Text1.Text = (Text1.Text) + Command6.Caption

End Sub

Private Sub Command7_Click()

Text1.Text = (Text1.Text) + Command7.Caption

End Sub

Private Sub Command8_Click()

Text1.Text = (Text1.Text) + Command8.Caption

End Sub

Private Sub Command9_Click()

Text1.Text = (Text1.Text) + Command9.Caption

End Sub

Private Sub Form_Activate()

For Each Control In Me

If TypeName(Control) = “CommandButton” Then

Control.Enabled = False

End If

Next

nyalah.Enabled = True

Form1.BackColor = &H0&

Text1.BackColor = &H0&

Label1.BackColor = &H0&

Label2.BackColor = &H0&

Label4.BackColor = &H0&

Label5.BackColor = &H0&

Label3.BackColor = &H0&

End Sub

Private Sub hasil_Click()

If Label1.Caption And Text1.Text <> “” Then

Label2.Caption = Text1.Text

Select Case Label5.Caption

Case “+”

Label4.Caption = Val(Label1.Caption) + Val(Label2.Caption)

Case “/”

Label4.Caption = Val(Label1.Caption) / Val(Label2.Caption)

Case “X”

Label4.Caption = Val(Label1.Caption) * Val(Label2.Caption)

Case “__”

Label4.Caption = Val(Label1.Caption) – Val(Label2.Caption)

End Select

End If

Text1.Text = “”

End Sub

Private Sub kali_Click()

If Label1.Caption = “” Then

Label1.Caption = Text1.Text

Label5.Caption = kali.Caption

End If

If Label5.Caption <> “” Then

Label5.Caption = “X”

End If

Text1.Text = “”

End Sub

Private Sub kurang_Click()

If Label1.Caption = “” Then

Label1.Caption = Text1.Text

Label5.Caption = kurang.Caption

End If

If Label5.Caption <> “” Then

Label5.Caption = “__”

End If

Text1.Text = “”

End Sub

Private Sub nyalah_Click()

For Each Control In Me

If TypeName(Control) = “CommandButton” Then

Control.Enabled = True

End If

Next

Form1.BackColor = &HFFFF80

Text1.BackColor = &HFFFF80

Label1.BackColor = &HFFFF80

Label2.BackColor = &HFFFF80

Label4.BackColor = &HFFFF80

Label5.BackColor = &HFFFF80

Label3.BackColor = &HFFFF80

End Sub

Private Sub tambah_Click()

If Label1.Caption = “” Then

Label1.Caption = Text1.Text

Label5.Caption = tambah.Caption

End If

If Label5.Caption <> “” Then

Label5.Caption = “+”

End If

Text1.Text = “”

End Sub

=============================================================================================

sumber : http://anggaisfire.wordpress.com/cara-membuat-calculator-dgn-vb-6/