ARTIKEL YANG BERHUBUNGAN DENGAN MATERI TEKNIK PERTANIAN

Admin Pupuk Super Tani Indonesia

Mesin pemanen padi pada lahan kering

Teknik pertanian merupakan pendekatan teknik (engineering) secara luas dalam bidang pertanian yang sangat dibutuhkan untuk melakukan transformasi sumberdaya alam secara efisien dan efektif untuk pemanfaatannya oleh manusia. Dengan demikian dalam sistematika keilmuan, bidang teknik pertanian tetap bertumpu pada bidang ilmu teknik untuk memcahkan berbagai permasalahan di bidang pertanian. . Terminologi teknik pertanian sebagai padanan Agricultural Engineering diperkenalkan di Indonesia pada paruh 1990-an. Sebelumnya terminologi yang digunakan lebih sempit, yaitu mekanisasi pertanian yang diadopsi dari Agricultural Mechanization, sejak awal 1990-an bersamaan dengan pengenalan dan penggunaan traktor untuk program intensifikasi pertanian.

Bidang cakupan teknik pertanian antara lain adalah sebagai berikut :Alat dan mesin budidaya pertanian, mempelajari penggunaan, pemeliharaan dan pengembangan alat dan mesin budidaya pertanian. Teknik tanah dan air, menelaah persoalan yang berhubungan dengan irigasi, pengawetan dan pelestarian sumberdaya tanah dan air. Energi dan Elektrifikasi Pertanian, mencakup prinsip-prinsip teknologi energi dan daya serta penerapannya dalam kegiatan pertanian. Lingkugan dan bangunan pertanian, mencakup masalah yang berkaitan dengan perencanaan dan konstruksi bangunan khusus untuk keperluan pertanian, termasuk unit penyimpanan tanaman dan peralatan, pusat pengolahan dan sistem pengendalian iklim serta sesuai keadaan lingkungan. Teknik pengolahan pangan dan hasil pertanian, penggunaan mesin untuk menyiapkan hasil pertanian, baik untuk disimpan atau digunakan sebagai bahan pangan atau penggunan lainnya.

Perkembangan ilmu sistem pada tahun 1980-an memberikan imbas pada bidang teknik pertanian, dengan berkembangnya ranah sistem dan manajemen mekanisasi pertanian, yang merupakan penerapan manajamen dan analisis sistem untuk penerapan mekanisasi pertanian. Perkembangan berikutnya, pada abad ke-20 menuju abad ke-21 berkaitan denga ilmu komputasi, teknologi pembantu otak dan otot lewat sistem kontrol, sistem pakar, kecerdasan buatan berupa penerapan robot pada sistem pertanian, menjadikan teknik pertanian berkembang menjadi sistem teknik pertanian (Agricultural System Engineering). Objek formal yang berupa kegiatan reproduksi flora dan fauna serta biota akuatik didekati lebih luas lagi sebagai sistem hayati/biologis dengan orientasi pemecahan masalah pertanian secara holistik. Dalam pendekatan ini sumberdaya hayati berupa mikroba/mikroorganisme turut dijadikan objek formal dalam produksi dan peningkatan biomassa. Di beberapa perguruan tinggi di Amerika dan Jepang, program studi atau departemen yang dulu bernama Teknik Pertanian, kini berganti dengan nama Teknik Sistem Biologis (Biological System Engineering)

                                Mesin pemanen padi pada lahan kering

Cara membuat calculator (VISUAL BASIC) 

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