tugas 5

Untitled-4

 

 

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurus.Text = “”
txtpro.Text = “”
txttahun.Text = “”
txtno.Text = “”
txtdaftar.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurus.Text = “”
txtpro.Text = “”
txttahun.Text = “”
txtno.Text = “”
txtdaftar.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttotal.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim a, b As String

a = Left(txtnpm.Text, 1)
If a = “E” Or a = “e” Then
txtkelas.Text = “Eksekutif”
txtbangun.Text = “1250000″
ElseIf a = “R” Or a = “r” Then
txtkelas.Text = “Reguler”
txtbangun.Text = “1000000″
End If

txtpropti.Text = “600000″

a = Mid(txtnpm.Text, 5, 1)
If a = “1″ Then
txtjurus.Text = “Sistem Informasi”
ElseIf a = “2″ Then
txtjurus.Text = “Manajemen Informatika”
ElseIf a = “3″ Then
txtjurus.Text = “Manajemen dan Komp.Akutansi”
End If

a = Mid(txtnpm.Text, 6, 2)
If a = “01″ Then
txtpro.Text = “Strata Satu”
txtdaftar.Text = “200000″
ElseIf a = “02″ Then
txtpro.Text = “Diploma Tiga”
txtdaftar.Text = “150000″
ElseIf a = “03″ Then
txtpro.Text = “Diploma Satu”
txtdaftar.Text = “150000″
End If
txtno.Text = Right(txtnpm.Text, 3)

txttahun.Text = “20″ & Mid(txtnpm.Text, 3, 2)

If txtkelas.Text = “Eksekutif” And txtpro.Text = “Strata Satu” Then
txtbiaya.Text = “1900000″
ElseIf txtkelas.Text = “Eksekutif” And txtpro.Text = “Diploma Tiga” Then
txtbiaya.Text = “1650000″
ElseIf txtkelas.Text = “Eksekutif” And txtpro.Text = “Diploma Satu” Then
txtbiaya.Text = “1350000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Strata Satu” Then
txtbiaya.Text = “1500000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Diploma Tiga” Then
txtbiaya.Text = “1250000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Diploma Satu” Then
txtbiaya.Text = “1250000″
End If

txttotal.Text = Val(txtdaftar.Text) + Val(txtbiaya.Text) + Val(txtbangun.Text) + Val(txtpropti.Text)

End Sub

Private Sub Form_Activate()
txtnama.SetFocus
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

 

Advertisements

tugas VISUAL BASIC

 

 

 

 

1. NPM :

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

2. Nama Mahasiswa:
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtps.SetFocus
End If
End Sub

3. Program Studi :
Private Sub txtps_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjurusan.SetFocus
End If
End Sub

4. Jurusan :
Private Sub txtjurusan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsemester.SetFocus
End If
End Sub

5. Semester :
Private Sub txtsemester_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub

6. Lagi :
Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub

7. Batal :
Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub

8. Keluar :
Private Sub cmdkeluar_Click()
end
End Sub

 

1. Kode Buah :

Private Sub txtkb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnb.SetFocus

End If

End Sub

2. Nama Buah :

Private Sub txtnb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthb.SetFocus

End If

End Sub

3. Harga Buah :

Private Sub txthb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjb.SetFocus

End If

End Sub

4. Jumlah Beli :

Private Sub txtjb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttb.Text = Val(txthb.Text) * (txtjb.Text)

End If

End Sub

5. Total Bayar :

Private Sub txttb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End If

End Sub

 

6. Lagi :

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = “”

txtnb = “”

txthb = “”

txtjb = “”

txttb = “”

End Sub

 

7. Batal :

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = “”

txtnb = “”

txthb = “”

txtjb = “”

txttb = “”

End Sub

8. Keluar :

Private Sub cmdkeluar_Click()

End

End Sub

PENANGKARAN BURUNG HANTU

  • Print
  • Email
Published on Thursday, 29 September 2011 10:43
Written by Bagian Humas

Petani Desa Tlogoweru Kecamatan Guntur belakangan ini getol melakukan penangkaran burung hantu. Burung dengan nama latin Tyto Alba tersebut ditangkarkan karena mampu diandalkan petani untuk menjadi predator tikus.

Menurut Kades Tlogoweru Sutejo, koloni tikus kerap menyerang lahan pertanian hingga mengakibatkan kerugian mencapai 40 persen per hektar, baik pada tanaman padi maupun jagung. “Karena itulah, kami tergerak untuk menangkarkan burung hantu. Sejumlah petani bahkan belajar menangkarkan predator tikus itu hingga ke Rambi Ngawi Jawa Timur,” kata Sutejo.

Disampaikan, saat ini populasi burung hantu hasil tangkaran petani sudah mencapai 62 ekor. Burung-burung itu ditempatkan dalam kandang penangkaran, pagupon juga di pohon-pohon. “Kandang penangkarannya sendiri kita buat menghabiskan dana Rp 70 juta. Adapun untuk membuat per unit pagupon yang ditempatkan di sawah biayanya mencapai Rp 1,8 juta,” terang Sutejo.

Dijelaskan, populasi burung hantu yang tersebar di Dusun Gatak, Weru dan Sugihwaras itu kini berumur antara 4 hingga 9 bulan. “Burung berumur 4 bulan baru bisa terbang. Pada umur 5 bulan, burung itu mulai bisa menerkam tikus. Kemudian yang berumur 9 bulan sudah bertelur. Dan ratusan telur kini dalam proses penetasan, sehingga tak lama lagi populasi burung hantu di Tlogoweru akan semakin banyak,” ungkapnya.

Sutejo menambahkan, dalam semalam seekor burung hantu mampu memangsa dua ekor tikus. Lebih dari itu, dengan naluri membunuh mangsa yang sangat tinggi, burung hantu terbukti efektif menakuti tikus. “Kendati demikian, burung hantu tidak memangsa ternak. Kami sudah melakukan uji coba. Di lokasi penangkaran, ayam maupun bebek yang kami lepaskan begitu saja ternyata tidak dimangsa,” imbuhnya.

Bupati tinjau penangkaran

Saat meninjau lokasi penangkaran burung hantu, Selasa (27/9), Bupati H Tafta Zani mengatakan, apa yang dilakukan petani Tlogoweru tersebut merupakan solusi atas kesulitan petani dalam mengendalikan hama tikus selama ini. “Tikus itu ada di mana-mana. Petani pun melakukan berbagai cara untuk membasminya. Ada yang pakai setrum, pestisida, perangkap hingga gropyokkan. Namun, rupanya ‘burung hantu’ inilah yang paling efektif dan efisien,” kata Tafta.

Karena itu bupati mendukung upaya penangkaran burung hantu dan akan mengembangkannya di desa-desa lain. “Bagi petani yang ingin belajar menangkarkan burung hantu silahkan saja datang ke Tlogoweru. Inofasi ini saya dukung lantaran berpotensi meningkatkan kesejahteraan petani,” ujarnya.

Sementara itu, dalam melakukan tinjauan ke lokasi penangkaran, bupati didampingi Asisten Ekonomi Eko Pringgolaksito, Kepala Dispertan Wibowo, Kepala Bappeluh KP Wahyu Tri Hapsari, Kabag Humas Rudi Santosa, juga Camat Guntur Syahrie.

BUDIDAYA IKAN CUPANG

 

Cara Budidaya Ikan Cupang Yang Benar – mungkin banyak yang mengira bahwa membudidayakan ikan Cupang pekerjaan yang susah dan memerlukan biaya yang mahal dalam prosesnya,tapi kali ini saya akan memeberikan cara yang efektif dan efesien  dari segi waktu,cara maupun biaya..silahkan disimak semoga jadi inspirasi buat anda..
Pertama- tama Silahkan siapkan indukan yang bagus dan siap dikawinkan minimal berumur 3-4 bulan dengan cirir-ciri khusus jantan sudah mengeluarkan gelembung-gelembung dan betina sudah ada bercak putih di kelaminya,tidak kalah penting pilihlah indukan yang sehat dan memiliki warna yang bagus karena akan memepengaruhi pada keturunannya .
Pijahkan indukan terpilih dalam wadah atau Baskom
beternak cupang
Biarkan proses tersebut selama 42 jam (2hari)  di hari pertama ikan cupang jantan  akan membuat gelembung untuk telur dan hari kedua proses perkawinan dan telur akan disimpan oleh jantan di gelembung tersebut.Setelah hari kedua kemudian angkat/pisahkan ikan cupang betina  dari wadah/baskom dan biarkan indukan jantan dengan telur.
 Simpanlah wadah/baskom tersebut di tempat yang gelap (pencahayaannya kurang) dan jangan di pindah-pindah karena jiga telur jatuh dari gelembung maka telur tersebut akan busuk atau mati.dan dalam proses tersebut ikan jantan tidak usah di beri pakan. biarkan proses tersebut hingga 10 hari atau 1 minggu,setelah itu indukan jantan di angkat kemudian pindahkan anakan ke tempat yang lebih besar secara hati-hati untuk mengurangi kematian.
dan untuk pakan anakan ikan cupang beumur 1 minggu bisa dengan air kol (hasil remdaman sayur kol) karena air rendaman ikan kol mengandung bakteri / plankton atau bisa juga dengan jentik nyamuk yang disaring.
Anakan ikan Cupang yang sudah berumur 3 minggu akan mulai terlihat warnanya. semoga artikel saya kali ini bisa bermanfaat bagi temen semua.
kalau ingin bertanya atau ada yang kurang di mengerti silahkan tinggalkan pertanyaan di kotak komentar

Mudahnya Budidaya Lobster Air Tawar

Budidaya lobster air tawar merupakan salah satu usaha yang dapat ditekuni. Harganya di pasaran cukup tinggi, sekitar 100 ribu rupiah per kilogram, membuat budidaya lobster air tawar menjanjikan keuntungan bila dilakukan dengan teknik yang benar.

Salah satu lokasi budidaya lobster air tawar terdapat di Desa Bojong Kantong, Kecamatan Langen Sari, Banjar, Jawa Barat. Proses pembesaran dilakukan di kolam sawah, sehingga lobster dapat tumbuh lebih cepat.

Lokasi budidaya lobster air tawar di Banjar, Jawa Barat, dari Jakarta dapat dicapai melalui jalan tol Cipularang. Keluar di pintu tol Cileunyi, perjalanan kemudian dilanjutkan ke arah Priangan Timur, tepatnya di Desa Bojong Kantong, kecamatan Langen Sari.

Disinilah budidaya lobster air tawar di lakukan, di areal seluas 1.400 meter persegi milik Endang Hardi. Dia telah menekuni usaha ini sejak 8 tahun lalu, dengan bantuan teknis dari Universitas Galuh Ciamis.

Lobster yang dibudidayakan disini jenis red clow atau penjapit merah, yang bibitnya didatangkan dari Australia. Jenis ini paling banyak diminati pasar, terutama untuk restoran sea food, dan hotel berbintang.

Budidaya lobster air tawar disini mulai dari pemijahan. Proses pemijahan dilakukan di bak semen. Induk lobster disatukan di dalam bak hingga terjadi perkawinan dan membuahkan telur.

Proses pembesaran lobster dilakukan di kolam tanah di tengah sawah. Lobster tumbuh optimal di kolam air tawar dengan ph antara 7 hingga 9, dan suhu antara 23 hingga 30 derajat celsius.

Pemeliharan lobster air tawar relatif tidak sulit. Untuk kolam tanah, makanannya tersedia secara alami berupa plankton. Sebagai makanan tambahan diberikan campuran parutan singkong, buah pepaya dan pelet. Pakan tambahan ini ditebarkan ke kolam sekali sehari.

Lobster dipanen setelah dipelihara selama enam bulan. Pada usia tiga bulan seperti ini, lobster sudah dapat dikonsumsi, namun dari sisi ukuran belum layak, karena belum memenuhi kriteria permintaan pasar.

Lobster jenis penjapit merah dipasarkan di kota-kota di Pulau Jawa. Harganya sekitar 100 ribu rupiah per kilogram. Harga jual lobster di pasaran yang cukup menggiurkan, membuat usaha budidaya ini layak untuk ditekuni karena menjanjikan keuntungan.

Permintaan lobster air tawar jenis penjapit merah cukup tinggi dan belum seluruhnya dapat dipenuhi. Setiap minggunya sentra budidaya lobster air tawar ini menerima permintaan sekitar 5 kwintal lobster, namun baru dapat dipenuhi sekitar 1 kwintal saja.

Kini saatnya untuk mencicipi kelezatan rasa lobster air tawar. Kebetulan Pak Endang dan keluarganya telah menyiapkan lobster untuk kami nikmati bersama-sama. Hmmm, ternyata, rasa lobster air tawar ini memang lezat. Tidak salah bila banyak digemari dan harganya mahal.(Helmi Azahari/Ijs)

 

BUDIDAYA KALAJENGKING

Scorpion (kalajengking)

Kalajengking berfungsi: mengobati penyumbatan pembuluh darah kronis. mengobati keluhan akibat penyumbatan darah, Selain melancarkan peredaran darah, menyembuhkan penyakit stroke, jantung dan sirosis hati, penghilang rasa sakit, pereda ketegangan otot, antikanker, antimikroba, dan antikejang.

dimanfaatkan untuk terapi strabismus (mata juling) , blepharospasm (kejang kelopak mata), dan vagisnismus (kekejangan otot vagina), selain buat Souveneer, pembuatan film sinetron.

Kalajengking, hewan arthropoda (hewan dengan kaki beruas-ruas) yang memiliki:
a. delapan kaki
b. Tubuh kalajengking terdiri atas dua segmen yang disebut:
a. cephalothorax dan
b. abdomen. Bagian abdomen pada tubuh kalajengking tersebut terbagi menjadi dua bagian, yaitu:
a. mesosoma dan
b. metasoma.
c. kalajengking memiliki bisa (racun) yang menyakitkan dan mengakibatkan bengkak bila ada bagian tubuh yang disengatnya. Bisa yang dimiliki beberapa spesies kalajengking bahkan bisa menyebabkan kematian.

Makanan Kalajengking:
serangga-serangga kecil seperti jangkrik, kecoa atau udang. ”Selain itu kalajengking juga bisa diberi pakan berupa cacing tanah dan hewan-hewan kecil tanah lainnya,” Selain memiliki sifat kanibal (memakan sesamanya).

Puluhan ekor bayi kalajengking berada dekat induknya, tepatnya di atas induknya. Mungkin untuk melindungi anak-anaknya, ibunya memapah bayi-bayi kalajengkingnya dalam satu pikulan di punggungnya.http://picasaweb.google.com/taqygeo/KPK?feat=directlink

Rp25.000,- per ekor (dewasa)
Cara Pembayaran: Transfer Bank (T/T)
Kemas & Pengiriman: bubung bambu (sangkar)
Keterangan: Kalajengking berfungsi: mengobatai penyumbatan pembuluh darah kornis. mengobati keluhan akibat penyumbatan darah, Selain melancarkan peredaran darah, menyembuhkan penyakit stroke, jantung dan sirosis hati. penghilang rasa sakit, pereda ketegangan otot, antikanker, antimikroba, dan antikejang. dimanfaatkan untuk terapi strabismus ( mata juling) , blepharospasm ( kejang kelopak mata) , dan vagisnismus ( kekejangan otot vagina) .
Souveneer, pembuatan film sinetron

KOMUNITAS MOTOR RX KING

5945 6

13270542861768323507Mungkin banyak orang yang lupa tetapi diyakini banyak juga orang yang masih ingat bahwa popularitas sepeda motor Yamaha yang sangat melegenda itu didongkrak oleh siraja jalanan RX King.

Tampilan yang  Up to Date (tidak ketinggalan zaman hingga hari ini),daya jelajahnya yang kuat,raungannya yang khas (hingga dari kejauhan saja orang pasti mengenali…”itu RX King…”) sukar untuk ditimpali sepeda motor manapun.

Silegenda jalan raya ini memiliki komunitas tak terbatas usia, tua muda,orang kota dan orang desa sangat menyukainya dan ingin memilikinya saat itu, bahkan sampai hari ini didaerah-daerah Yamaha RX King masih saja mampu menjadi kebanggaan pemiliknya, baik yang masih original maupun yang sudah dimodifikasi.

Kepopulerannya merambah keberbagai komunitas sehingga dipercaya sebagai tunggangannya. Para bandit/  preman dan penegak hukum, para anak muda dikota dan didesa, para pengusaha dan pegawai negeri.

Terlepas dari berbagai alasan para pengguna RX King yang beragam itu, yang pasti ada hal yang mempersatukan mereka yaitu RX King dipercaya sebagai tunggangan karena memiliki nilai prestasi dan prestise.

Prestasi karena kecepatan,kekuatan,kehandalannya yang dibutuhkan para penggunanya,prestise karena saat itu RX King memang sesuatu yang sangat bergengsi.

Bagi pencinta RX King, pelarangan pengoperasian sepeda motor bersistem 2 tak adalah bencana sebab dengan kebijaksanaan ini keberadaan RX King dijalanan menjadi terancam,padahal  saat ini masih jutaan RX King yang tetap terawat dengan baik oleh pemiliknya. Menjadi pertanyaan besar juga, apa ya kendaraan sepeda motor 2 tak sebagai sumber pencemaran udara ? Harapan penggunanya tentu saja ada perhatian dari pihak Yamaha dalam memberi solusi terbaik kepada komunitas pengguna RX King ini agar silegenda ini tidak hilang dari jalanan.

Sukar untuk menunjuk model sepeda motor Yamaha mana yang dapat menggeser popularitas RX King khususnya dikalangan Masyarakat Indonesia. Sulit bagi sepeda motor lainnya untuk menggeser popularitasnya yang sangat fenomenal itu. Mungkin untuk soal jumlah pemakaian,ada sepeda motor lainnya yang lebih besar dibanding RX King ini tetapi untuk soal prestise atau kebanggaan tersendiri bagi pemiliknya,RX King lah yang pernah menggenggamnya.

Secara spesifik sukar untuk menunjukkan keistimewaan RX King ini,dilihat dari mode dan tampilannya sangat sederhana dengan striping yang juga simpel dibanding dengan sepeda motor yang ada pada saat yang sama.

Tetapi bagaimanapun sederhananya kegarangan RX King tetap dirasakan oleh pemilik dan orang yang melihatnya.

Dan silegenda ini pula yang pertama berani melakukan perubahan bentuk tangki minyak sepeda motor secara revolusioner. Tradisi bentuk tangki yang umumnya bulat ia rombak dengan polesan sudut-sudut bersegi yang itu pula menjadi jati diri sang legenda itu. Demikian pula soal sadel yang nyaman untuk diduduki sipengemudi dan penumpangnya.

Tidak gampang untuk meraih prestasi sebagaimana yang dicapai oleh legendaris RX King berkekuatan 135 cc ini. Hanya ada beberapa saja merek dan jenis sepeda motor yang mampu meraihnya,itupun oleh sepeda motor yang tidak sekelas RX King ini. Bagi pihak Yamaha,wajarlah jika tidak mengkesampingkan prestasi yang pernah disumbangkan oleh siraja jalanan RX King ini dan tentu saja mau memberi solusi bagi komunitas yang masih memilikinya dan mengendarainya. Perhatian dan solusi yang diberikan tentu saja hal yang sangat berharga bagi komunitas pemiliknya dan bagi pihak Yamaha sendiri. Yamaha RX King memang tiada duanya, dia legendaris yang fenomenal dalam sejarah yang telah ia tulis.