Dana Ahmad Weblog

just sharing and storytelling


Tinggalkan komentar

Alam Semesta (Renugkan)

Dikutip Dari BuzzFeed

1. Ini Bumi, tempat tinggal kita, di mana kita hidup, tumbuh, berkembang biak, menjalin hubungan, sekaligus juga saling berperang dan menyakiti.

This is the Earth! This is where you live.

2. Dan ini Bumi bersama para tetangganya planet di Tata Surya
And this is where you live in your neighborhood, the solar system.
3. Ini jarak antara Bumi dan Bulan, satelitnya: 384.400 km. Terasa dekat namun nyatanya jauh bukan?

Here's the distance, to scale, between the Earth and the moon. Doesn't look too far, does it?

4. Ini yang terjadi jika Anda menjejerkan semua planet dalam Tata Surya secara beraturan dan berjajar. Lihat betapa kecil Bumi kita

THINK AGAIN. Inside that distance you can fit every planet in our solar system, nice and neatly.

5. Ini Amerika Utara jika dibandingkan dengan planet terbesar dalam Tata Surya: Yupiter.
But let's talk about planets. That little green smudge is North America on Jupiter.
6. Ini ukuran enam Bumi dibandingkan dengan Saturnus. Kalah besar!

And here's the size of Earth (well, six Earths) compared with Saturn:

7. Seandainya Bumi memiliki cincin seperti Saturnus, maka akan seperti ini penampakannya

And just for good measure, here's what Saturn's rings would look like if they were around Earth:

8. Ini adalah gambar komet. Manusia baru mendaratkan satelit di atas ‘anak nakal’ ini. Bandingkan ukuran satu komet dengan Kota Los Angeles di Amerika Serikat.

This right here is a comet. We just landed a probe on one of those bad boys. Here's what one looks like compared with Los Angeles:

 

9. Namun tak ada objek di Tata Surya kita yang setara dengan ukuran Matahari. Bumi kita tak ada artinya.

But that's nothing compared to our sun. Just remember:

10. Seperti ini penampakan Bumi jika dilihat dari Bulan

Here's you from the moon:

11. Dan seperti ini bentuk Bumi dari Mars. Nyaris tak terlihat

Here's you from Mars:

12. Bumi bak noktah kecil warna biru jika dilihat dari belakang cincin Saturnus

Here's you from just behind Saturn's rings:

13. Dan ini Bumi dari Neptunus yang berjarak 4 miliar mil jauhnya

And here's you from just beyond Neptune, 4 billion miles away.

14. Ini ukuran Bumi dibandingkan dengan besar Matahari. Benar-benar tak sebanding. Bikin merinding…

Let's step back a bit. Here's the size of Earth compared with the size of our sun. Terrifying, right?

15. Dan seperti ini bentuk Matahari jika dilihat dari permukaan Mars

And here's that same sun from the surface of Mars:

16. Tapi semua itu tak ada apa-apanya. Ada lebih banyak bintang, seperti halnya Matahari, dibanding butiran pasir di setiap pantai di Bumi.

But that's nothing. Again, as Carl once mused, there are more stars in space than there are grains of sand on every beach on Earth:

17. Dan itu berarti ada banyak yang lebih besar daripada Matahari kita. Lihatlah betapa kecilnya Sang Surya dibandingkan yang lain.

Which means that there are ones much, much bigger than little wimpy sun. Just look at how tiny and insignificant our sun is:

18. Tahukah Anda, bintang terbesar di alam Semesta, VY Canis Majoris ukurannya 1 miliar kali lebih besar dari Matahari.

26 Pictures Will Make You Re-Evaluate Your Entire Existence

19. Namun tak ada yang sebanding dengan ukuran galaksi. Jika Anda menyusutkan Matahari ke ukuran sel darah putih dan Galaksi Bima Sakti (Milky Way) dengan skala yang sama — maka galaksi kita berukuran setara dengan Amerika Serikat.

But none of those compares to the size of a galaxy. In fact, if you shrank the sun down to the size of a white blood cell and shrunk the Milky Way galaxy down using the same scale, the Milky Way would be the size of the United States:

20. Itu karena Galaksi Bima Sakti sangatlah luas. Dan di tengah belantara luas itu lah manusia hidup.

That's because the Milky Way galaxy is huge. This is where you live inside there:

21. Namun hanya ini yang bisa disaksikan manusia. Semua bintang yang kita saksikan malam hari hanya seukuran lingkaran kuning itu.
But this is all you ever see:

 

22. Tapi, ukuran galaksi kita sangat kerdil jika dibandingkan yang lain. Ini perbandingan Galaksi Bima Sakti (Milky Way) dengan IC 1011, yang berjarak 350 juta tahun cahaya dari Bumi.
But even our galaxy is a little runt compared with some others. Here's the Milky Way compared to IC 1011, 350 million light years away from Earth:
23. Marilah kita membuka pikiran. Ini hanyalah sebagian kecil gambar yang diambil Teleskop Hubble. Ada ribuan galaksi, yang masing-masing memiliki jutaan bintang. Masing-masing memiliki planet-planetnya sendiri.

But let's think bigger. In JUST this picture taken by the Hubble telescope, there are thousands and thousands of galaxies, each containing millions of stars, each with their own planets.

24. Dan ini adalah gambar galaksi UDF 423. Yang berjarak 10 miliar tahun cahaya dari Bumi. Saat Anda melihat gambar ini, Anda melihat miliaran tahun ke masa lalu.
Here's one of the galaxies pictured, UDF 423. This galaxy is 10 BILLION light years away. When you look at this picture, you are looking billions of years into the past.
Sejumlah galaksi diperkirakan terbentuk hanya beberapa ratus juta trahun  setelah Dentuman Besar (Big Bang). Lebih tua dari galaksi kita.

25. Dan camkan yang satu ini. Ini adalah gambar dari satu bagian kecil yang sangat, sangat kecil dari alam semesta. Bagai bagian tak penting di langit malam.

And just keep this in mind — that's a picture of a very small, small part of the universe. It's just an insignificant fraction of the night sky.

26. Cukup aman untuk mengasumsikan ada banyak lubang hitam (black hole) di luar sana. Berikut ini adalah ukuran sebuah black hole dibandingkan dengan ukuran Bumi. Mengerikan…

And, you know, it's pretty safe to assume that there are some black holes out there. Here's the size of a black hole compared with Earth's orbit, just to terrify you:

Dan, jika Anda merasa kecewa berat gara-gara konser penyanyi kesukaan Anda dibatalkan. Saat merasa dunia runtuh ketika diputuskan pacar. Ingatlah…

Selanjutnya: Jika kita merasa besar, ingatlah…

Jika kita merasa besar, ingatlah…

Rumah kita ada di sini,

This is your home.

Ini Bumi jika dibandingkan dengan keseluruhan Tata Surya,

This is what happens when you zoom out from your home to your solar system.

Ini Bumi jika dilihat dari posisi yang lebih jauh lagi

And this is what happens when you zoom out farther...

dan lebih jauh

And farther...

dan lebih jauh lagi

Keep going...

lebih jauh lagi

Just a little bit farther...

Dan, seandainya alam semesta bisa diumpamakan seperti ini, Bumi sama sekali tak ada artinya.

 


Tinggalkan komentar

Program delphi pertemuan ke 3 ( fungsi case of )

1

1. Buka program delphi

2. buat sebuah label dengan caption yang dikosongi dan beri nama “lrange

3. Buat sebuah Edit dan beri nama “Enilai

4. Buat sebuah button. double ckick button tersebut dan beri script seperti dibawah ini.

    nilai := StrToint (enilai.Text);
        case nilai of
            1,3,7,9 : lrange.Caption  :=  ‘nilai ganjil’ ;
             2,4,8   : lrange.caption  :=  ‘nilai genap’   ;
              10      : lrange.caption  :=  ‘ nilai anda 10’ ;
        else
     lrange.caption  :=  ‘nilai maksimal 10’ ;
     end;

//nb : jangan lupa buat variablenya

  Var
  nilai : byte ;

Jalankan programnya dengan tekan f9

2


Tinggalkan komentar

program delphi pertemuan kedua ( membuat program penghitung segitiga dan persegi)

1. buat sebuah panel dan captionnya diganti “rumus menghitung luas. kemudian align nya diganti al top

a

2. kemudian buat panel lagi dengan 2 radio button didalamnya. alignnya juga pakai al top.

1. radio button dengan caption rumus segitiga dan name rsegitiga

2. radio button dengan caption rumus persegi dan name rpersegi

b

3.  buat sebuah panel lagi dengan nama psegitiga. dan buat sebuat edit didalamnya dengan nama ealas dan etinggi.

c

4.  buat sebuah panel lagi dengan nama ppersegi. dan buat sebuat edit didalamnya dengan nama esisi.

d

5. buat sebuah panel lagi dengan align al client yang didalamnya ada label dengan nama lhasil dan sebuah button.

 

e

6. double klick radio button yang segitiga lalu beri script

if rsegitiga.Checked = True then
  begin
   rpersegi.Checked := False;
   PPERSEGI.Visible := False;
   PSEGITIGA.Visible := True;
  end;

7. double klick radio button yang persegi lalu beri script

if rpersegi.Checked = True then
  begin
   rsegitiga.Checked := False;
   PSEGITIGA.Visible := False;
   PPERSEGI.Visible := True;
  end;

8. double klick button dan beri script.

If rsegitiga.Checked = true Then
       begin
          a := StrToFloat(ealas.Text);
          t := StrToFloat(etinggi.Text);
          lsegitiga := 0.5 * a* t;
          lhasil.Caption := ‘Luas Segitiga = ‘+FloatToStr(lsegitiga);
       end

       else
       begin
          s := StrToFloat(esisi.Text);
          lpersegi := s * s;
          lhasil.Caption := ‘Luas Persegi = ‘+FloatToStr(lpersegi);
       end;

jangan lupa buat variablenya

var
  lsegitiga,lpersegi,a,t,s : Double;

f

lalu tekan f9 untuk menjalankan program.

pertanyaan via twitter @ahmaddana18


Tinggalkan komentar

pemograman delpi – pertemuan pertama ( fungsi IF )

misal kita disuruh membuat seperti ini :

jika nilai antara 91-100 maka akan muncul pesan ‘grade nilai anda adalah a’

jika nilai antara 81-90 maka akan muncul pesan ‘grade nilai anda adalah b’

jika nilai antara 71-80 maka akan muncul pesan ‘grade nilai anda adalah b-‘

jika nilai antara 65-70 maka akan muncul pesan ‘grade nilai anda adalah c’

jika nilai antara 0-64maka akan muncul pesan ‘grade nilai anda adalah d’

jika nilai yang muncul diatas 100 maka muncul pesan ‘nilai maksimal anda adalah 100’

 

langkah-langkahnya sebagai berikut :

 

1. buka program delphi

2. buat sebuah label.

3. pada properties cari caption kemudian ganti dengan kata “nilai”.

1

4. buat lagi sebuah “edit” lalu pada properties cari menu text dan hapus semua kata  di text tersebut. pada name beri nama “enilai”.

2

5. buat sebuah button. dan pada caption beri nama check.

3

 

6. double klick button tersebut dan mulai mengisi script.

7. pertama kita buat variable dulu. kita buat variabel nilai dengan mengetik nilai : integer ;  ( kalo bisa pakai byte, ya pakai byte aja)

5

8. kemudaian isi script seperti ini.

nilai := StrToInt (Enilai.Text) ;
   if nilai  > 100 then
   ShowMessage (‘nilai maksimal anda adalah 100’)
   else if nilai >= 91 then
   ShowMessage (‘grade nilai anda adalah a’)
    else if nilai >= 81 then
   ShowMessage (‘grade nilai anda adalah b’)
    else if nilai >= 71 then
   ShowMessage (‘grade nilai anda adalah b-‘)
    else if nilai >= 65 then
   ShowMessage (‘grade nilai anda adalah c’)
    else if nilai >= 0 then
   ShowMessage(‘grade nilai anda adalah d’) ;

6

9. kalo suda jalankan programnya dengan tekan f9