Definisi dan Sejarah Pertanian

Definisi dan Sejarah Pertanian

Definisi
Pertanian adalah suatu jenis produksi yang berlandaskan pada pertumbuhan tanaman, hewn, dan ikan. Dalam arti luas pertanian adalah pengelolaan tanaman, hewan dan ikan serta lingkungannya agar memberikan suatu produk. Sedangkan dalam arti sempit pertanian adalah pengelolaan tanaman dan lingkungannya agar memberikan suatu produk.
Ilmu pertanian adalah ilmu yang mempelajari bagtaimana mengelola tanaman, hewan, dan ikan serta lingkungannya agar memberikan hasil secara maksimal. Berdasrkan spesifikasinya ilmu pertanian dapat dikelompokkan menjadi tiga kelompok besar yaitu ilmu tanaman yang mempelajari khusus tanaman, ilmu peternakan yang mempelajari khusus ternak, dan ilmu perikanan yang mempelajari khusus iakan dan hewan air.
Sejarah Pertanian
Pertanian dimulai pada saat manusia mulai mengamati perilaku tanaman, hewan, dan ikan serta faktor-faktor yang mempengaruhi pertumbuhan dan perkembangannya.
Berdasarkan sejarah perkembangannya pertanian dapat diklasifikasikan menjadi 4 golongan yaitu :

1. Pemburu dan pengumpul
2. Pertanian primitif
3. Pertanian tradisional
4. Pertanian progresif (moderrn)

Perograman Kriptograpi Menggunakan 5 form

Berikut Hasil Dan Cara Kerjanya !


Gambar Form 1 :

Public Class Form1

    Private Sub CaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub ViernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViernamToolStripMenuItem.Click
        Form3.Show()
    End Sub

    Private Sub GronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldToolStripMenuItem.Click
        form4.Show()
    End Sub

    Private Sub VigenoreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenoreToolStripMenuItem.Click
        form5.Show()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Gambar Form 2 :

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PLAIN.Text = ""
        CHIPER.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub

 
    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(PLAIN.Text)
            x = Mid(PLAIN.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        CHIPER.Text = xkalimat
    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click
        Dim x As String = ""
        Dim xenkripsi As String = ""
        For i = 1 To Len(CHIPER.Text)
            x = Mid(CHIPER.Text, i, i)
            x = Chr(Asc(x) - 3)
            xenkripsi = xenkripsi + x
        Next
        CHIPER.Text = xenkripsi
    End Sub
End Class
Gambar Form 3 :

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim skey As String
        Dim nkata As Integer
        Dim nkunci As Integer
        Dim skata As String
        Dim splain As String = ""
        Dim nenc As Integer
        j = 0
        skata = PLAINTEXT.Text
        jum = Len(skata)
        skey = KUNCI.Text
        For i = 1 To jum
            If j = Len(skey) Then
                j = 1
            Else
                j = j + 1
            End If
            nkata = Asc(Mid(skata, i, 1)) - 65
            nkunci = Asc(Mid(skey, j, 1)) - 65
            nenc = ((nkata + nkunci) Mod 26)
            splain = splain & Chr((nenc) + 65)
        Next i
        CHIPPERTEXT.Text = splain
    End Sub

    Private Sub PLAINTEXT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PLAINTEXT.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub KUNCI_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KUNCI.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

End Class

Gambar Form 4 :

Public Class form4

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim skey As String
        Dim nkata As Integer
        Dim nkunci As Integer
        Dim skata As String
        Dim splain As String = ""
        Dim nenc As Integer
        j = 0
        skata = PLAINTEXT.Text
        jum = Len(skata)
        skey = KUNCI.Text
        For i = 1 To jum
            If j = Len(skey) Then
                j = 1
            Else
                j = j + 1
            End If
            nkata = Asc(Mid(skata, i, 1)) - 65
            nkunci = Asc(Mid(skey, j, 1)) - 65
            nenc = ((nkata + nkunci) Mod 26)
            splain = splain & Chr((nenc) + 65)
        Next i
        CHIPPERTEXT.Text = splain
    End Sub

    Private Sub PLAINTEXT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PLAINTEXT.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not ((tombol >= 65) And (tombol <= 90)) Or (tombol = 8) Then
            e.Handled = True
        End If
    End Sub

    Private Sub KUNCI_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KUNCI.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 48) And (tombol <= 57)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub
 
    Private Sub form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

 
End Class

Gambar Form 5 :

Public Class form5

    Private Sub form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim skey As String
        Dim nkata As Integer
        Dim nkunci As Integer
        Dim skata As String
        Dim splain As String = ""
        Dim nenc As Integer
        j = 0
        skata = PLAINTEXT.Text
        jum = Len(skata)
        skey = KUNCI.Text
        For i = 1 To jum
            If j = Len(skey) Then
                j = 1
            Else
                j = j + 1
            End If
            nkata = Asc(Mid(skata, i, 1)) - 65
            nkunci = Asc(Mid(skey, j, 1)) - 65
            nenc = ((nkata + nkunci) Mod 26)
            splain = splain & Chr((nenc) + 65)
        Next i
        CHIPPERTEXT.Text = splain
    End Sub

    Private Sub PLAINTEXT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PLAINTEXT.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub KUNCI_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KUNCI.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 32) And (tombol <= 47)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

  
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub
End Class

Thanks Udah MEmbaca dan Menjalankannya ...

10 Tip Memulai Usaha Kecil dan Meraih Sukses

Kalau Anda melihat Bill Gates atau Mark Zuckenberg, pasti Anda tergiur dengan kekayaan mereka yang luar biasa. Tapi sadarkah Anda, bahwa mereka juga memulai semuanya dari usaha kecil mereka. Dan tak satupun dari mereka yang menduga bakal mencetak keberhasilan seperti sekarang.

Perusahaan pemula yang berubah menjadi perusahaan sukses bernilai miliaran bahkan triliunan, dalam dunia bisnis tak bedanya dengan pemenang lotere. Meletakkan semua uang Anda dan berharap mendapatkan jackpot, Anda justru bakalan terpuruk.

Berikut 10 aturan untuk memulai usaha kecil. Daftar ini lebih untuk membuat Anda menyadari kenyataan yang ada, ketimbang gila-gilaan mengejar impian terdahsyat Anda dalam berbisnis.

Lebih realistis. Saat membuat model bisnis, coba lihat ke sekeliling dan cari contoh sukses dari model bisnis yang Anda kehendaki, lalu pelajari. Bila Anda tak dapat menemukan, entah Anda yang luar biasa jenius, atau model bisnis Anda tidak bakal berhasil di dunia nyata.

Yuk ! belajar pemrograman visual basic dot net di mesran.net

Yuk ! belajar pemrograman visual basic dot net di mesran.net
 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

        kodebarang.Items.Add("TS001")

        kodebarang.Items.Add("TS002")

        kodebarang.Items.Add("VG001")

        kodebarang.Items.Add("VG002")

    End Sub

Manfaat dan Dampak Negatif Buah Durian

Manfaat dan Dampak Negatif Buah Durian 

Durian adalah nama tumbuhan tropis yang berasal dari Asia tenggara dan nama tersebut sekaligus dipakai sebagai nama buahnya. Durian biasa disebut dengan King Of fruit atau Rajanya buah. Meskipun banyak orang yang menyukainya tetapi banyak juga orang yang tidak menyukainya karena aromanya yang sangat tajam dan menyengat bahkan ada yang merasakan pusing jika tercium aroma buah durian. Bagi orang-orang yang menyukainya, buah durian adalah buah yang sangat lezat dengan aroma yang sangat harum.

 Dan ternyata buah durian adalah salah satu makanan sehat yang mempunyai banyak manfaat bagi kesehatan tubuh, meskipun ada dampak negatifnya bagi orang-orang yang memang berpantang makan durian karena menderita penyakit tertentu. Kalau bagi orang yang bertubuh sehat tentu tidak masalah jika mengkonsumsi durian asal tidak berlebihan, karena akan menimbulkan dampak negatif bagi tubuh

CARA MEMBUAT ORANG TUA BAHAGIA

Cara Membuat Orang Tua Bahagia

Terkadang kita sebagai anak selalu menyusahkan orang tua, mungkin ada anak yang sampai bingung apa yang harus dilakukan untuk membuat orang tuanya bahagia. Ini gan ada beberapa cara membuat Orang Tuamu Bahagia

1. Jangan berkata “ah , nanti ,terserah , udah napa” kepada ibu

2. Bangunlah pagi hari dan sapa mereka dengan senyuman dan Bantulah pekerjaan rumah mereka

3. Cium tangan mereka ketika hendak atau sepulang dari berpergian dan Selalu ucapkan salam

4. Jangan membentak mereka dan Jangan membuat mereka menangis

5. Makanlah dengan lahap masakan ibumu dan jangan ragu memuji kelezatannya

6. Panaskanlah setiap pagi kendaraan mereka sebelum mereka berangkat bekerja

pengertian AMD

Pengertian AMD 

AMD (Advanced Micro Devices, Inc) NYSE: AMD adalah perusahaan semikonduktor multinasional Amerika Serikat yang berbasis di Sunnyvale, California yang mengembangkan prosesor komputer dan teknologi yang terkait untuk pasar konsumen dan komersial. Produk yang utama termasuk mikroprosesor, chipset motherboard, embedded prosesor kartu grafis (GPU) dan prosesor untuk server, workstation dan komputer pribadi (PC), dan teknologi prosesor untuk perangkat genggam, televisi digital, mobil, konsol game, dan aplikasi lainnya yang terdapat sistem.

AMD adalah terbesar kedua pemasok global mikroprosesor berdasarkan arsitektur x86 setelah Intel Corporation, dan ketiga terbesar pemasok unit pengolahan grafis. Ia juga memiliki 21 persen dari Spansion, pemasok non-volatile memori flash. Pada tahun 2007, AMD peringkat kesebelas antara produsen semi konduktor  dari segi pendapatan.

Pabrik pertama berada di Austin, Texas, Amerika dan pabrik kedua berada di Dresden, Jerman yang ditetapkan untuk memproduksi Athlon saja. Bila semuanya berjalan lancar, mimpi harga sistim PC akan dapat lebih murah bisa terwujud karena tidak lagi di monopoli oleh Intel.