Penngolahan citra pada rotasi 90 & 270 derajat

Tampilan citra pada rotasi 90 derajat

Tampilan citra pada rotasi 270 derajat

syntax :

Public Class Form1
    Dim gambar As Bitmap

    Private Sub OpenCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenCitraToolStripMenuItem.Click
        OFD.Filter = "BMP|*.bmp|JPG|*.Jpg"
        OFD.ShowDialog()

        If OFD.FileName = "" Then Exit Sub
        Pic1.Image = Image.FromFile(OFD.FileName)
        gambar = New Bitmap(Pic1.Image)

    End Sub

    Private Sub SaveCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveCitraToolStripMenuItem.Click
        SFD.Filter = "JPG|*.Jpg|BMP|*.bmp"
        SFD.ShowDialog()
        If SFD.FileName = "" Then Exit Sub
        If SFD.FilterIndex = 1 Then
            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If
        If SFD.FilterIndex = 2 Then
            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
        End If

    End Sub

    Private Sub GrayscaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrayscaleToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim Rt, vM, vH, vB As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    Rt = (vM + vH + vB) / 3
                    .SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With

    End Sub

    Private Sub NegatifToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegatifToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = 255 - .GetPixel(Pc, Pb).R
                    vH = 255 - .GetPixel(Pc, Pb).G
                    vB = 255 - .GetPixel(Pc, Pb).B
                    If vM <= 0 Then vM = 0
                    If vB <= 0 Then vB = 0
                    If vH <= 0 Then vH = 0
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With

    End Sub

    Private Sub BrigthnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrigthnessToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R + 5
                    vH = .GetPixel(Pc, Pb).G + 5
                    vB = .GetPixel(Pc, Pb).B + 5
                    If vM > 255 Then vM = 255
                    If vB > 255 Then vB = 255
                    If vH > 255 Then vH = 255
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With
    End Sub

    Private Sub DefaultGambarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultGambarToolStripMenuItem.Click
        gambar = New Bitmap(Pic1.Image)
    End Sub

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

    Private Sub BinerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BinerToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim rata, vM, vH, vB As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    rata = (vM + vH + vB) / 3
                    If (rata < 128) Then
                        vM = 0
                        vH = 0
                        vB = 0
                    Else
                        vM = 255
                        vH = 255
                        vB = 255
                    End If

                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With

    End Sub

    Private Sub RotateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.Click
       

    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Dim gambar2 = New Bitmap(Pic2.Image)
        gambar2 = New Bitmap(Pic2.Image)
        Pic2.Image = gambar2
        gambar2.RotateFlip(RotateFlipType.Rotate90FlipY)
        Pic2.Image = gambar2
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Dim gambar2 = New Bitmap(Pic2.Image)
        gambar2 = New Bitmap(Pic2.Image)
        Pic2.Image = gambar2
        gambar2.RotateFlip(RotateFlipType.Rotate270FlipY)
        Pic2.Image = gambar2
    End Sub
End Class

Assalamualaikum..
Pak ini tugas pengolahan citra saya..,

http://www.mesran.blogspot.com/2013/05/tugas-ti-m1118.html

Tugas Kriptografi

Tampilan awal form kriptografi

Tampilan setelah di input.,
syntax:

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plaintext.Text = ""
        chipertext.Text = ""

    End Sub

    Private Sub btnenskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenskripsi.Click
        Dim x As String
        Dim bil As Integer
        chipertext.Text = ""
        For i = 1 To Len(plaintext.Text)
            x = Microsoft.VisualBasic.Mid(plaintext.Text, i, 1)
            bil = Asc(x)
            bil = bil + 3
            x = Chr(bil)
            chipertext.Text = chipertext.Text & x
        Next
    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click
        Dim x As String
        Dim xkalimat As String = ""
        For i = 1 To Len(plaintext.Text)
            x = Microsoft.VisualBasic.Mid(plaintext.Text, i, 1)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        plaintext.Text = (xkalimat)
    End Sub
End Class

Keajaiban Air Susu Ibu? Nikmat dan Ajib…

“ dan Kami telah memerintahkan manusia ( agar berbuat baik) terhadap orang tuany. Ibunya telah mengandungnya dalam keadaan lemah yang bertambah-tambah, dan menyapihnya dalam dua tahun. Bersyukurlah kepada-Ku dan kepada kedua orang tuamu. Hanya kepada Aku kembalimu. ” (Al Qur’an, 31:14)

Susu ibu merupakan  cairan ciptaan Allah yang tiada tandingannya untuk memenuhi kebutuhan gizi bayi dan melindunginya terhadap infeksi. Keseimbangan zat-zat gizi dalam air susu ibu berada pada tingkat terbaik dan air susunya memiliki bentuk paling baik bagi tubuh bayi yang baru lahir. Pada saat yang sama, ASI juga sangat kaya akan nutrisi yang mempercepat pertumbuhan sel-sel otak dan perkembangan sistem saraf. Makanan bayi yang terbuat dengan teknologi tidak dapat menggantikan keajaiban cairan ciptaanNya ini.
Banyak manfaat yang terkandung dalam ASI. Penelitian telah menunjukkan bahwa bayi yang diberi ASI secara khusus terlindung dari serangan penyakit,  sistem pernapasan dan sistem pencernaan.  Hal Itu karena antibodi dalam ASI memberikan perlindungan langsung melawan infeksi. Anti-infeksi lainnya yaitu bahwa ASI menyediakan lingkungan yang ramah bagi bakteri “baik” yang disebut “flora normal” sehingga merupakan penghalang terhadap bakteri berbahaya, virus dan parasit. Selain itu, juga telah ditetapkan bahwa ada faktor-faktor dalam ASI yang mengatur sistem kekebalan tubuh terhadap penyakit menular dan memungkinkan untuk berfungsi secara tepat.
ASI telah diramu khusus, makanan yang paling mudah dicerna untuk bayi, selain sangat kaya nutrisi, juga  mudah dicerna oleh sistem pencernaan bayi yang masih rentan, karena itulah bayi mengeluarkan lebih sedikit energi dalam mencerna ASI.  Dia mampu menggunakan energi selebihnya untuk pertumbuhan dan perkembangan organ tubuh lainnya.

Air susu ibu yang memiliki bayi prematur mengandung lebih banyak zat lemak, protein, natrium klorida, dan besi untuk memenuhi kebutuhan bayi. Telah dibuktikan bahwa fungsi mata bayi berkembang lebih baik pada bayi prematur yang diberi ASI dan mereka memperlihatkan kecakapan yang lebih baik dalam tes kecerdasan. Selain itu juga memiliki banyak manfaat lainnya.
Salah satu cara membuktikan bahwa ASI merupakan cairan penting untuk perkembangan bayi  yang baru lahir yaitu  kenyataan bahwa ASI mengandung  minyak omega-3 asam linoleat alfa. Selain sebagai senyawa penting bagi otak manusia dan retina, hal ini juga sangat penting dari sudut pandang bayi baru lahir. Omega-3 sangat penting terutama selama kehamilan dan tahap awal masa kanak-kanak.  Sedangkan otak dan saraf untuk berkembang secara normal. Para ilmuwan secara khusus menekankan pentingnya ASI sebagai makanan alami dan sempurna dari omega-3.
Selain itu, penelitian yang dilakukan para ilmuwan Universitas Bristol mengungkapkan  bahwa di antara manfaat jangka panjang ASI yaitu dampak baiknya terhadap tekanan darah dan risiko serangan jantung berkurang. Tim peneliti menyimpulkan bahwa sifat perlindungan yang diberikan ASI disebabkan oleh kandungan zat gizinya. Menurut hasil penelitian yang diterbitkan dalam jurnal kedokteran Circulation, bayi yang diberi ASI lebih kecil kemungkinannya untuk terserang penyakit jantung. Telah diungkapkan  bahwa keberadaan asam lemak rantai panjang tak jenuh ganda pada ASI mencegah pengerasan arteri. Bersama dengan fakta bahwa bayi yang diberi ASI menelan sedikit natrium ini berhubungan erat dengan tekanan darah dan tidak. Sebagai hasilnya, memperoleh berat badan seimbang , ini merupakan beberapa manfaat ASI  bagi jantung.
Selain itu, tim yang dipimpin oleh Dr Lisa Martin, dari Pusat medis Rumah Sakit Anak  Cincinnati di Amerika Serikat, menemukan kandungan tinggi hormon protein yang dikenal sebagai adiponectin pada ASI.  Kadar darah tinggi adiponektin berhubungan dengan penurunan risiko serangan jantung. Rendahnya tingkat adiponektin ditemukan pada orang yang mengalami obesitas yang berada pada peningkatan risiko serangan jantung. Oleh karena itu risiko obesitas pada bayi yang diberi ASI berkurang dengan adanya hormon ini. Selain itu, juga ditemukan keberadaan hormon lain yang disebut leptin di dalam ASI yang memiliki peran utama dalam metabolisme lemak. Leptin diyakini  sebagai sinyal ke otak bahwa ada lemak di tubuh. Menurut pernyataan Dr. Martin,  oleh karena itu hormon ini diserap pada anak-anak melalui ASI yang mampu mengurangi risiko penyakit seperti diabetes tipe 2, obesitas, daya tahan insulin dan penyakit jantung.
Fakta-fakta tentang ASI memang tidak terbatas. Kontribusi ASI untuk kesehatan bayi berubah seiring tahapan bayi dengan menyesuaikan bahan makanan yang dibutuhkan pada tahapan tertentu. Kandungan ASI berubah untuk memenuhi kebutuhan yang sangat khusus. ASI, yang selalu siap setiap saat dan pada suhu yang ideal, memainkan peran utama dalam perkembangan otak karena gula dan lemak yang dikandungnya. Selain itu, unsur-unsur seperti kalsium di dalamnya memainkan peran besar dalam perkembangan tulang bayi.
Meskipun disebut sebagai susu, cairan ajaib ini sebenarnya sebagian besar terdiri dari air. Hal ini merupakan keistimewaan, karena selain makanan bayi juga membutuhkan cairan dalam bentuk air. Kebersihan dan kesehatan ASI yang begitu alaminya mungkin tidak bisa ditemukan pada air atau bahan makanan lain yang mampu memenuhi kebutuhan bayi akan air dalam cara yang paling bersih dan sehat.
Penelitian ilmiah menunjukkan bahwa perkembangan kemampuan otak pada bayi yang diberi ASI lebih besar daripada bayi yang tidak diberikan ASI. Sebuah analisis komparatif bayi yang diberi ASI dan susu formula bayi oleh James W. Anderson, ilmuwan dari University of Kentucky, menetapkan bahwa IQ bayi yang diberi ASI lebih tinggi 5 angka daripada bayi lainnya yang tidak diberi ASI. Sebagai hasil dari penelitian ini, ditetapkan bahwa ASI sangat bermanfaat bagi kecerdasan hingga 6 bulan dan bahwa anak-anak yang disusui kurang dari 8 minggu menunjukan tidak adanya perkembangan IQ yang signifikan.
Sebagai hasil dari semua penelitian yang telah dilakukan, terbukti bahwa ASI yang dibahas dalam ratusan tulisan yang telah terbit, melindungi bayi terhadap kanker. Fakta menunjukan  bahwa mekanisme yang belum sepenuhnya dipahami. Ketika sebuah protein ASI membunuh sel-sel tumor yang telah ditumbuhkan di dalam laboratorium tanpa merusak sel yang sehat, para peneliti menyatakan bahwa sebuah potensi besar telah muncul. Catharina Svanborg, profesor imunologi klinis di Universitas Lund di Swedia, memimpin kelompok penelitian yang menemukan rahasia mengagumkan dari ASI. Tim ini di Universitas Lund menjelaskan kemampuan ASI dalam memberikan perlindungan melawan beragam jenis kanker sebagai penemuan yang ajaib .
Awalnya, para peneliti memberi perlakuan sel-sel selaput lendir usus yang diambil dari bayi yang baru lahir dengan ASI. Mereka mengamati bahwa gangguan yang disebabkan oleh bakteri Pneumococcus dan dikenal sebagai pneumonia berhasil dengan mudah dihentikan oleh ASI. Terlebih lagi, bayi yang diberi ASI mengalami kesulitan pendengaran jauh lebih sedikit daripada mereka yang diberi susu formula, dan  juga menderita infeksi saluran pernapasan jauh lebih sedikit. Setelah serangkaian penelitian dilakukan, diperlihatkan bahwa ASI juga memberikan perlindungan melawan kanker. Penyakit kanker getah bening yang teramati pada usia anak-anak sembilan kali lebih besar pada anak-anak yang diberi susu formula.  Mereka menyadari bahwa hasil yang sama berlaku pula untuk jenis kanker lainnya. Jadi, ASI secara akurat menempatkan sel-sel kanker dan kemudian membunuhnya. Hal Ini dikarenakan adanya zat yang disebut alpha-lac (alphalactalbumin), yang hadir dalam jumlah besar di dalam ASI, kemudian menempatkan dan membunuh sel-sel kanker. Alpha-lac dihasilkan oleh sebuah protein yang membantu dalam pembuatan laktosa gula pada susu.
Keistimewaan ASI lainnya yaitu fakta bahwa sangat bermanfaat bagi  bayi untuk mengkonsumsi ASI selama dua tahun. Ini merupakan  informasi penting yang baru saja ditemukan oleh ilmu pengetahuan, namun  telah diungkapkan oleh Allah empat belas abad yang lalu dalam ayat: “Dan Ibu-Ibu  hendaklah  menyusui anak-anaknya selama dua tahun penuh. Bagi yang ingin menyusui secara sempurna……”. (Al Qur’an, 2:233)
Seorang ibu tidak memutuskan untuk memproduksi susu, yang merupakan  sumber makanan  yang paling ideal untuk bayi yang  tak berdaya dan membutuhkan makanan di dalam tubuhnya, juga dia tidak memutuskan berbagai tingkat gizi di dalamnya. Ini merupakan rahmat Allah SWT, yang Maha Mengetahui setiap  kebutuhan makhlukNya, yang menciptakan ASI untuk bayi di dalam tubuh ibu. – Dani Fitriyani-
QURANIC SCIENCE

Ajaibnya Air mata, Maka Janganlah Ragu untuk Menangis

Air Mata ternyata mempunyai beberapa fungsi yang sangat ajaib, jadi siapa bilang orang yang menangis terus maka air matanya kering? Justeru orang yang menangis mempunyai beberapa kelebihan akibat dari kesan yang ditimbulkan air matanya.
Siapa kata menangis tak ada gunanya? Akibat dari menangis yang terlalu lama akan membuatkan mata menjadi merah dan bengkak. Tapi jangan salah, menangis dan mengeluarkan air mata ternyata jadi obat ajaib yang berguna bagi kesehatan tubuh dan fikiran. Apa saja keajaiban air mata itu? Dapati fungsi air mata dan kesehatan mata anda. Dan pastikan menangislah kerana Allah Taala.

1. Membantu penglihatan
Air mata ternyata membantu penglihatan seseorang, jadi bukan hanya mata itu sendiri. Cairan yang keluar dari mata dapat mencegah dehidrasi pada mata yang dapat membuat penglihatan menjadi kabur.
2. Membunuh bakteria
Tak perlu obat tetes mata, cukuplah air mata yang berfungsi sebagai antibiotik. Di dalam air mata terkandung cairan yang disebut dengan lisozom yang dapat membunuh sekitar 90-95 peratus bakteria-bakteria yang tertinggal dari keyboard komputer, pegangan tangga, bersin dan tempat-tempat yang mengandung bakteria, hanya dalam 5 menit.
3. Meningkatkan mood
Seseorang yang menangis bisa menurunkan kadar emosi kerana dengan menangis, mood seseorang akan terangkat kembali. Air mata yang dihasilkan dari menangis kerana emosi mengandungi 24 peratus protein albumin yang berguna dalam meregulasi sistem metabolisme tubuh dibanding air mata yang dihasilkan dari iritasi mata.
4. Mengeluarkan racun
Seorang ahli biokimia, William Frey telah melakukan beberapa kajian tentang air mata dan menemui bahawa air mata yang keluar dari hasil menangis kerana emosional ternyata mengandung racun. Tapi jangan salah, keluarnya air mata yang beracun itu menandakan bahawa ia membawa racun dari dalam tubuh dan mengeluarkannya dari mata.
5. Mengurangkan stres
Bagaimana menangis bisa mengurangkan stress? Air mata juga mengeluarkan hormon stres yang terdapat dalam tubuh yaitu endorphin leucine-enkaphalin dan prolactin. Selain menurunkan level stress, air mata juga membantu melawan penyakit-penyakit yang disebabkan oleh stress seperti tekanan darah tinggi.
6. Membina komunikasi
Selain baik untuk kesihatan fisik, menangis juga membantu seseorang untuk bangun dengan semangat dan azam baru. Biasanya seseorang menangis setelah menceritakan masalahnya pada teman-temannya atau seseorang yang memberikan bantuan, dan hal ini meningkatkan kemampuan berkomunikasi dengan lebih tenang.
7. Melegakan perasaan
Semua orang rasanya merasa demikian. Walaupun anda didera berbagai macam masalah dan cobaan, namun setelah menangis biasanya akan muncul perasaan lega. Setelah menangis, sistem dalam badan, otak dan jantung akan menjadi lancar, dan hal itu membuat seseorang merasa lebih baik dan lega. Keluarkanlah masalah di fikiranmu dengan menangis, jangan dipendam kerana anda bisa menangis dengan penuh penyesalan.
So…jangan ragu…Seringlah Menangislah …terlebih ditengah malam yang sepi, dengan bermunajat dengan Rabb…selain adanya kesehatan pada mata, dan tentunya mata kita akan menjadi mata yang terhindar dari panasnya api neraka…karena kita menangis karena Allah…
Sumber: Hakaluka

Ternyata Permukaan Bumi ini Mengkerut…

Allah SWT berfirman,
“Dan apakah mereka tidak melihat bahwa sesungguhnya Kami mendatangi daerah daerah (orang orang kafir), lalu Kami kurangi daerah daerah itu sedikit demi sedikit dari tepi tepinya. Dan Allah menetapkan hukum (menurut kehendakNya), tidak ada yang dapat menolak ketetapanNya; dan Dialah yang maha cepat hisabNya (QS Ar Rad : 41)
Makna Erosi dari Tepi
Permukaan bumi ini tidak sama. Ada yang  berdataran tinggi, ada yang berbentuk lembah yang sangat rendah, dan ada juga yang datar. Dari sisi lain, bumi ini berbentuk elips dan memiliki dua kutub serta satu garis khatulistiwa. Kesemuaan permukaan bumi ini disebut bagian tepi bumi (outlying parts).
Kalangan ahli tafsir zaman klasik menyebutkan bahwa pengurangan bumi dari tepi tepinya mengandung dua pengertian:
Pertama, meninggalnya para ulama, dengan alasan meninggalnya para ulama menyebabkan kehancuran besar di muka bumi.
Kedua, menyempitnya wilayah wilayah kafir akibat adanya ekspansi kaum muslimin.
Akan tetapi, sains modern memberikan penegasan tentang fakta kosmologis yang mencengangkan, bahwa bumi itu ternyata mengalami pengerutan (pengempisan) secara terus menerus, sehingga sedikit demi sedikit semua tepinya (permukaan bumi) tertarik ke dalam.
Faktor penyebab pengerutan bumi sebenarnya adalah keluarnya kandungan materi dan energi dalam jumlah besar dalam bentuk gas, uap, dan zat cair dan padat. Semua materi ini keluar melalui kawah gunung berapi secara periodik dalam jumlah jutaan ton. Proses ini menyebabkan terjadinya pengerutan bumi secara terus menerus, disamping pasang surut gelombang laut yang menyebabkan  erosi tepi batas daratan.
Para ilmuwan pun menegaskan bahwa pada mulanya permukaan daratan di bumi ini sangat besar,bahkan  luas bumi minimal 200 kali lipat dari ukuran bumi sekarang ini. Wallahu Alam wa ahkam.
Sumber : Dr Zaghlul an Najjar, Min Ayat al I’jaz fi Al Qur’an al Karim

Fakta Keajaiban Dalam Tubuh Manusia

45-60 helai rambut setiap hari, tetapi kerana manusia memiliki 125.000 helai rambut baru setiap hari kita sebagai manusia tidak menyadari hal tersebut.

2. Otak manusia mempunyai 10 milyar sel saraf, yang mempunyai kemampuan merekam lebih dari 86 juta bite  (lebih kurang 11juta huruf) / perhari atau jika dikalkulasikan memori manusia selama hidupnya mencapai 100 triliun bite  (sekitar 12,5 triliun huruf) Amazing!

 

3. Sel darah merah di dalam manusia yang mempunyai masa hidup sekitar 4 bulan menempuh perjalanan sekitar 1.600 km di dalam tubuh kita selama masa hidupnya

 

4. Rangkaian saraf otak manusia yang kini baru sebahagian dipetakan oleh ahli saraf, mempunyai daya kompleks 1400 kali lebih kompleks jika dibandingkan dengan rangkaian telepon saat ini

 

5. Setiap inci persegi tubuh manusia dihuni rata-rata 32 juta bakteria sehingga bakteria yang ada di seluruh tubuh manusia mencapai 100 milyar bakteria atau 20 kali  berbanding dengan jumlah populasi manusia saat ini.

 

6. Jantung setiap hari menghabiskan tenaga yang besarnya cukup untuk mengangkat beban seberat hampir 1 ton ke ketinggian 13 meter. Maka sebagai contoh, jantung manusia yang telah berumur 50 tahun telah melakukan kerja yang sama dengan mengangkat beban 18.000 ton ke ketinggian 230 km atau boleh dikatakan berat itu sendiri beberapa kali lebih berat berbanding muatan terberat yang pernah ditempatkan di orbit bumi, Subhanallah

 

7. Pada saat anda berbaring tubuh anda menuntut agar anda menghirup udara sekitar 8 quart (1 quart = 0,9463 Liter) tiap menit. Jika anda bangun dari tidur (sit-up) = 16 quart, berjalan 24 quart, berlari 50 quart. Bayangkan berapa liter banyaknya oksigen yang telah kita hirup setiap hari, bagaimana jika seluruh penduduk dunia? Bagaimana jika dijual? Subhanallah

 

8. Pada saat ini juga di otak anda setiap detiknya, kira-kira 100,000 reaksi kimia yang berlainan.

 

9. Impuls saraf dari saraf ke saraf di dalam otak berkecepatan sampai 400km/jam

 

10. Jika manusia melakukan aktivititas hubungan badan, setiap pasangan jika ditukar ke dalam tenaga elektrik dapat membangkitkan tenaga tidak kurang dari 3.000 watt yang cukup untuk menyalakan televisi, kulkas, Air Conditioner dan elektronik yang lain.

• BERANDA
• JURNAL
• KOMENTAR
• KONTAK

Aplikasi Untuk Mengkompile Bahasa C

minGW

minGW adalah salah satu aplikasi yng digunakan untuk mengkompile bahasa C agar dapat dipahami oleh bahasa mesin (asembler) pada komputer. Aplikasi ini dapat di unduh secara gratis. Namun ada beberapa langkah-langkah untuk dapat memakai aplikasi ini, yaitu :

1. Install minGW sebagaimana menginstall aplikasi lain. ikutilah petunjuk yang ada pada saat instalasi.
2. Masuk ke dalam folder bin pada folder instalasi minGW, yaitu C:\minGW\bin.
3. kemudian copy link C:\minGW\bin tersebut.
4. Buka environment variables, untuk windows seven klik kanan pada folder drive komputer, kemudian klik properties, lalu masuk ke Advance system settings, lalu masuk ke environment variables, pada tabel bawah carilah folder path, kemudian klik edit di bagian bawahnya, kemudian tambahkan \;seblum mempaste link C:\minGW\bin, setelah itu klik ok.
5. Cara untuk mengetahui apakah minGW sudah dapat digunakan adalah dengan masuk ke dalam Command prompt, kemudian ketikan gcc lalu enter. apabila muncul "'gcc' is not recognized as iternal or external command operable program or batch file." maka instalasi anda gagal.
6. Untuk mengkompile file .c adalah dengan masuk kedalam folder dimana file program .c di simpan (gunakan nama drive: untuk pindah partisi, atau cd nama folder untuk pindah ke folder yang du tuju).
7. Setelah berada di dalam folder yang tersimpan file program .c, ketikan "gcc (nama folder) -o (nama aplikasi)" kemudian enter.
8. untuk menjalankan aplikasi yang telah dibuat dengan ketikan "gcc (nama aplikasi)".
9. Program telah dijalankan, jika terjadi kesalahan dalam menyusun program akan muncul keterangan baris dan kesalahan yang dibuat pada source code nya.

Semoga artikel tentang Aplikasi Untuk Mengkompile Bahasa C bermanfaat untuk anda dan jika ingin copy-paste artikel ini mohon untuk meletakkan link dibawah ini sebagai sumbenya.