Dampak negatif teknologi

Dampak Negatif

Meskipun memiliki banyak dampak positif, akan tetapi ternyata teknologi informasi dan komunikasi memiliki beberapa dampak negatif yang cukup mengganggu kehidupan sehari-hari. Kebanyakan dampak tersebut disebabkan karena penyalahgunaan dari teknologi informasi dan komunikasi, ataupun disebabkan karena kurangnya pemahaman user akan etika dan juga cara untuk menggunakan teknologi informasi dan juga komunkasi dengan baik dan juga benar.
Berikut ini adalah beberapa dampak negative dari teknologi informasi dan juga komunikasi:

  1. Individu menjadi malas untuk bersosialisasi secara fisik
  2. Meningkatnya penipuan dan juga kejahatan cyber
  3. Cyber Bullying
  4. Konten negative yang berkembang pesat
  5. Fitnah dan juga pencemaran nama baik secara luas
  6. Menjauhkan yang dekat
  7. Mengabaikan tugas dan juga pekerjaan
  8. Mebuang-buang waktu untuk hal yang tidak berguna (baca juga: bahaya kecanduan internet)
  9. Menurunnya prestasi belajar dan juga kemampuan bekerja seseorang    

sumber: https://dosenit.com/kuliah-it/teknologi-informasi/dampak-positif-dan-negatif-penggunaan-teknologi-informasi-dan-komunikasi

Komentar

Posting Komentar

Postingan populer dari blog ini

kalkulator tanpa keypress

Gambar
Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub cmdhitung_Click() txttotal1 = Val(txtn1) + Val(txtn2) txttotal2 = Val(txtn3) / Val(txtn4) txttotal3 = Val(txtn5) - Val(txtn6) txttotal4 = Val(txtn7) * Val(txtn8) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetF...
Baca selengkapnya

tugas 3.6

Gambar
Private Sub cmdbatal_Click() txtkode.SetFocus txtkode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode.SetFocus txtkode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" End Sub Private Sub cmdproses_Click() Dim A As String A = Left(txtkode, 3) If A = "SIM" Then txtjudul = "Sistem Informasi Manageman" txtpengarang = "Fadila Ulfa" txtharga = "75900" ElseIf A = "EDP" Then txtjudul = "Elektronik Data Processing" txtpengarang = "Nurul Agustina" txtharga = "62000" ElseIf A = "MNJ" Then txtjudul = "Manajeman" txtpengarang = "Riyan Hidayat" txtharga = "42000" ElseIf A = "CDR" Then txtjudul = ...
Baca selengkapnya

Buruan! Batas Upgrade Gratis Windows 10 Hanya Sampai Desember 2017

Gambar
Microsoft, seperti yang kita kenal bahwa perusahaan tersebut merupakan salah satu perusahaan software tersbesar di dunia dan sangat berpengaruh di duni gadget. Perusahaan yang berpusat di Redmond, Amerika Serikat tersebut dikabarkan akan memberikan batasan upgrade gratis windows 10 yaitu sampai 31 Desember 2017. Seperti yang telah dijelaskan Engadget dalam halaman Okezone Techno yang mengungkapkan bahwa Microsoft telah memperbarui situsnya dan mengungkapkan bahwa upgrade gratis bagi mereka yang menggunakan ‘ assitive technologies ‘ akan berakhir pada 31 Desember 2017. Bagi kamu yang masih menggunakan Windows 7 atau Windows 8.1 maka masih ada sekisar dua bulan untuk segera upgrade perangkat PC kamu menjadi Windows 10. Jika kesempatkan ini kamu lewatkan maka kamu harus membayar sejumlah uang untuk mulai menggunakan Windows 1o. Karena, apabila kamu mengupgrade Windows 10 maka kamu bisa merasakan beberapa fitur baru yang tidak ada pada generasi sebelumnya. Microsoft telah...
Baca selengkapnya