Faktor-Faktor yang Menyebabkan Perubahan Kebudayaan

 

 

 

Faktor-Faktor yang Menyebabkan Perubahan Kebudayaan

   
 Seiring dengan perkembangan zaman, kebudayaan suatu bangsa pun akan mengalami perkembangan dan perubahan. Dimulai dari kebudayaan tradisional, kebudayaan peralihan, hingga kebudayaan modern. Perubahan kebudayaan merupakan suatu kejadian yang terjadi dalam kehidupan di dunia ini. Pengertian perubahan kebudayaan sendiri adalah
adanya ketidak sesuaian di antara unsur-unsur kebudayaan yang saling berbeda, sehingga terjadilah keadaan yang tidak sesuai dengan fungsinya bagi kehidupan.

     Perubahan kebudayaan yang terjadi dalam suatu bangsa tidak luput dari faktor-faktor yang mempengaruhi. Menurut Soerjono Soekanto faktor-faktor tersebut terbagi menjadi 2, yaitu faktor intern dan faktor ekstern.

     Faktor intern merupakan faktor yang berasal dari masyarakat itu sendiri yang menyebabkan perubahan kebudayaan, yang diantaranya:

1. Perubahan penduduk, seperti: Kelahiran, Kematian, dan Migrasi. 
2. Adanya penemuan baru, seperti: Adanya ide atau alat baru yang sebelumnya belum pernah ada (Discovery), Penyempurnaan penemuan baru (Invention), dan Proses pembaharuan atau melengkapi atau mengganti yang telah ada (Innovation).
3. Konflik yang terjadi di dalam masyarakat. Konflik dapat merubah kepribadian orang-orang yang terlibat di dalamnya, misalnya menjadi pendiam, murung, tidak mau bergaul, atau bahkan berusaha memperbaiki keadaan tersebut supaya menjadi lebih baik.
4. Pemberontakan atau revolusi. Hal ini menyebabkan perubahan pada struktur pemerintahan pada suatu negara.

     Faktor ekstern merupakan faktor yang berasal dari luar masyarakat melalui interaksi sosial yang mendorong terjadinya suatu perubahan kebudayaan, yang diantaranya:

1. Peperangan. Hal ini dapat menyebabkan perubahan yang mendasar pada suatu negara baik seluruh wujud budaya (sistem budaya, sistem sosial, dan unsur-unsur budaya fisik) maupun seluruh unsur budaya (sistem pengetahuan, teknologi, ekonomi, bahasa, kesenian, sistem religi, dan kemasyarakatan). Biasanya akibat ini lebih berpengaruh kepada negara yang kalah.
2. Perubahan alam. Pada zaman sekarang sebagian besar hal ini disebabkan oleh tindakan manusia sendiri yang menyebabkan kerusakan alam, seperti mebuang sampah sembarangan, penebangan liar, pembangunan terus menerus di lahan pertanian, dan masih banyak lagi. Hal ini dapat merugikan manusia sendiri seperti kehilangan keluarga, tempat tinggal, harta benda, dan sarana umum lainnya.
3. Pengaruh budaya lain, seperti: Penyebaran kebudayaan (Difusi), Pembauran antar budaya yang masih terlihat masing-masing sifat khasnya (Akulturasi), dan Pembauran antar budaya yang menghasilkan budaya yang baru tanpa terlihat budaya yang lama sama sekali (Asimilasi).http://rohayananasution27.blogspot.com/

PERISTIWA SINABUNG

Abu Vulkanik Sinabung Batalkan 12 Penerbangan di Kualanamu

• Peristiwa
• 0
• 10 Okt 2014 03:12

---

(Liputan 6 TV)

Liputan6.com, Medan - Gunung Sinabung terus mengeluarkan gempa. Guguran dan luncuran awan panas terus-menerus mengarah langsung ke Selatan dan Tenggara menjelang Kamis 9 Oktober 2014 sore.

Menurut keterangan Pusat Vulkanologi Mitigasi dan Bencana Geologi (PVMBG), sepanjang Kamis kemarin setidaknya telah terjadi 102 kali erupsi. Terkait hal ini, status Gunung Sinabung kini berada pada siaga level 3.

Seperti ditayangkan Liputan 6 Malam SCTV, Kamis (9/10/2014), Kepala Pos Pemantau Gunung Api Sinabung, Armen Putra meminta warga mewaspadai sebaran abu vulkanik yang bisa menjangkau jauh.

Sementara itu, sebaran abu vukanik turut menyelimuti Bandara Internasional Kualanamu di Deli Serdang, Sumatera Utara yang berjarak 80 kilometer dari kaki Gunung Sinabung.

Hingga Kamis sore, sebanyak 12 penerbangan telah dibatalkan, antara lain Malaysia Arlines tujuan Kualalumpur, Silk Air tujuan Singapura, dan Airasia tujuan Penang. Sementara 4 penerbangan tujuan Jakarta dan Batam ditunda. Pembatalan sejumlah penerbangan ini mengakibatkan terjadi penumpukan penumpang di ruang tunggu bandara.

Selain Kabupaten Deli Serdang  dan Kabupaten Serdang Bedagai, debu vulkanik dikabarkan telah sampai ke Kota Tebing Tinggi yang berjarak100 meter dari kaki Gunung Sinabung.

Di ibukota Sumatera Utara, Medan yang berjarak 150 kilometer dari Brastagi, dampak erupsi Gunung Sinabung belum mengganggu jarak pandang.
Meski demikian, di sejumlah ruas jalan protokol, petugas dari Satuan Polisi Pamong Praja (Satpol PP) hingga relawan Badan Nasional Penanggulangan Bencana membagi bagikan 10 ribu  masker.

Mewaspadai timbulnya gangguan pernafasan, Pemerinta Kota Medan juga mewajibkan Puskesmas buka selama 24 jam. (Ali)
Baca juga:
Terkait Sinabung, Gubernur Sumut Diminta Tak Hanya Jadi Penonton
Erupsi Gunung Sinabung Tak Berhenti, Murid SD Tetap Belajar
Abu Gunung Sinabung Tunda Sejumlah Penerbangan

jawaban quis

Menu Utama
 

   

Public Class Menu

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

    End Sub

    Private Sub KaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaryawanToolStripMenuItem.Click

        Form1.MdiParent = Me

        Form1.Show()

    End Sub

    Private Sub BagianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BagianToolStripMenuItem.Click

        Formproduk.MdiParent = Me

        Formproduk.Show()

    End Sub

    Private Sub JabatanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JabatanToolStripMenuItem.Click

        Formsiswa.MdiParent = Me

        Formsiswa.Show()

    End Sub

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

        End

    End Sub

End Class

        Listening program Form Kendaraan

Imports System.Data.OleDb

Public Class Form1

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        nobk.Text = ""

        pemilik.Text = ""

        alamat.Text = ""

        tahun.Text = ""

        warna.Text = ""

        norangkamesin.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM kendaraan", DB)

        DS = New DataSet

        ADP.Fill(DS, "kendaraan")

    End Sub

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

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        nobk.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO kendaraan(nobk, pemilik, alamat, tahun, warna, norangkamesin)" & _

                        " VALUES ('" & nobk.Text & "','" & _

                                       pemilik.Text & "','" & _

                                       alamat.Text & "','" & _

                                       tahun.Text & "','" & _

                                       warna.Text & "','" & _

                                        norangkamesin.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM kendaraan Where nobk='" & nobk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub nobk_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nobk.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from kendaraan where nobk='" & nobk.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                pemilik.Text = DR.Item(1)

                alamat.Text = DR.Item(2)

                tahun.Text = DR.Item(3)

                warna.Text = DR.Item(4)

                norangkamesin.Text = DR.Item(5)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = nobk.Text

                Call HapusText()

                nobk.Text = xkode

                Call ButtonSimpan()

            End If

            pemilik.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        nobk.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE kendaraan SET pemilik='" & pemilik.Text & "' " & _

                                ",alamat='" & alamat.Text & "' " & _

                                ",tahun='" & tahun.Text & "' " & _

                                ",warna='" & warna.Text & "' " & _

                                ",norangkamesin='" & norangkamesin.Text & "' " & _

                                "Where nobk='" & nobk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

     Listening program Form Produk

Imports System.Data.OleDb

Public Class Formproduk

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        kode.Text = ""

        nama.Text = ""

        satuan.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM produk", DB)

        DS = New DataSet

        ADP.Fill(DS, "produk")

    End Sub

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

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO produk(kodeproduk, namaproduk, satuan, harga, jumlah)" & _

                        " VALUES ('" & kode.Text & "','" & _

                                       nama.Text & "','" & _

                                       satuan.Text & "','" & _

                                       harga.Text & "','" & _

                                        jumlah.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM produk Where kodeproduk='" & kode.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from produk where kodeproduk='" & kode.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                nama.Text = DR.Item(1)

                satuan.Text = DR.Item(2)

                harga.Text = DR.Item(3)

                jumlah.Text = DR.Item(4)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = kode.Text

                Call HapusText()

                kode.Text = xkode

                Call ButtonSimpan()

            End If

            nama.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE produk SET nama='" & nama.Text & "' " & _

                                ",satuan='" & satuan.Text & "' " & _

                                ",harga='" & harga.Text & "' " & _

                                ",jumlah='" & jumlah.Text & "' " & _

                                "Where kode='" & kode.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

   Listening program Form Siswa

Imports System.Data.OleDb

Public Class Formsiswa

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        NIS.Text = ""

        namasiswa.Text = ""

        alamat.Text = ""

        namawali.Text = ""

        tanggallahir.Text = ""

        agama.Text = ""

        jeniskelamin.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM siswa", DB)

        DS = New DataSet

        ADP.Fill(DS, "siswa")

    End Sub

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

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        NIS.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO siswa(NIS, namasiswa, alamat, namawali, tanggallahir, agama, jeniskelamin)" & _

                        " VALUES ('" & NIS.Text & "','" & _

                                       namasiswa.Text & "','" & _

                                       alamat.Text & "','" & _

                                       namawali.Text & "','" & _

                                       tanggallahir.Text & "','" & _

                                       agama.Text & "','" & _

                                        jeniskelamin.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM produk Where NIS='" & NIS.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub NIS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NIS.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from siswa where NIS='" & NIS.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                namasiswa.Text = DR.Item(1)

                alamat.Text = DR.Item(2)

                namawali.Text = DR.Item(3)

                tanggallahir.Text = DR.Item(4)

                agama.Text = DR.Item(5)

                jeniskelamin.Text = DR.Item(6)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = NIS.Text

                Call HapusText()

                NIS.Text = xkode

                Call ButtonSimpan()

            End If

            namasiswa.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        NIS.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE siswa SET namasiswa='" & namasiswa.Text & "' " & _

                                ",alamat='" & alamat.Text & "' " & _

                                ",namawali='" & namawali.Text & "' " & _

                                ",tanggallahir='" & tanggallahir.Text & "' " & _

                                ",agama='" & agama.Text & "' " & _

                                ",jeniskelamin='" & jeniskelamin.Text & "' " & _

                                "Where NIS='" & NIS.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class