How to Save The Planet?

Cape Town – Climate change is not about the struggle to save the planet, it's about saving the human race.
click this link News24

 

Komentar

Posting Komentar

Postingan populer dari blog ini

Sudah Sampai Seberapa Jauh Sampah Plastik Di Bumi?

Gambar
Bermacam-macam makhluk yang hidup di bumi kita tercinta ini. Bumi kita yang memiliki ukuran sekitar 510 kilometer persegi (1 kilometer persegi = 1000 meter) ini diperkirakan sudah berumur 4,5 milyar tahun, hanya sekitar 29% dari bumi ini adalah daratan, 71% sisanya adalah lautan. Menurut data penelitian NOAA tahun 2018, lebih dari 80% samudra di bumi ini belum pernah dipetakan, diteliti, bahkan dijelajahi oleh manusia. Titik terdalam bumi ini berada pada Palung Mariana yang lokasinya diperkirakan berada pada kerak bumi. Pada tahun 2014, para peneliti kelautan menemukan banyak pecahan sampah plastik di dasar laut, hingga akhirnya mereka memperkirakan sampai mana sampah plastik ini akan terus tenggelam. Ketika plastik mencapai titik laut terdalam, plastik tidak bisa akan kemana-mana lagi. Para peneliti kelautan, melakukan penelitian pada beberapa palung yang ada di bumi ini, salah satunya adalah Palung Mariana (Mariana Trench). Mereka ingin memastikan bahwa tida...
Baca selengkapnya

Contoh Database Kontak Telepon di Visual Basic 6.0 (Part 2)

Private Sub CmdTambah_Click() If TxtNama.Text = "" Then     MsgBox "Nama belum di isi!", vbCritical, "Peringatan!" ElseIf TxtAlamat.Text = "" Then     MsgBox "Alamat belum di isi!", vbCritical, "Peringatan!" ElseIf TxtNo.Text = "" Then     MsgBox "Nomor Telepon belum di isi!", vbCritical, "Peringatan!" ElseIf MsgBox("Apakah anda ingin menambahkan kontak?", vbYesNo, "") = vbYes Then     FormUtama.Adodc1.Recordset.AddNew     FormUtama.Adodc1.Recordset!Nama = TxtNama.Text     FormUtama.Adodc1.Recordset!Alamat = TxtAlamat.Text     FormUtama.Adodc1.Recordset!NoTelp = TxtNo.Text     MsgBox "Kontak Berhasil di Simpan", vbInformation, "Kontak Tertambah"     Bersih Else     End If End Sub Private Sub CmdKembali_Click() Unload Me End Sub Sub Bersih() TxtNama.Text = "" TxtAlamat.Text = "" TxtNo.Text = "" End Sub Private Sub CmdKe...
Baca selengkapnya

Cyber Security

Cyber security,  secara terminologi, merupakan aktivitas untuk melakukan pengamanan terhadap sumber daya telematika demi mencegah terjadinya tindakan  cyber crime . Cyber crime  adalah istilah yang mengacu pada aktivitas kejahatan yang dilakukan di dunia maya dengan menggunakan teknologi komputer atau jaringan komputer. Jadi untuk lebih mudahnya mengingat  cyber crime  adalah kejahatan di dunia maya. Cyber security  adalah upaya untuk melindungi informasi dari adanya  cyber attack .  Cyber  attack dalam operasi informasi adalah semua jenis tindakan yang sengaja dilakukan untuk mengganggu kerahasiaan ( confidentiality ), integritas ( integrity ), dan ketersedian ( availability ) informasi. Tindakan ini bisa ditujukan untuk mengganggu secara fisik maupun dari alur  logic  sistem informasi.  Cyber attack  merupakan upaya mengganggu informasi yang berfokus pada alur  logic  sistem informasi. Cyber secur...
Baca selengkapnya