pemograman kriptografi

Listing Program Form Menu Public Class Menu Private Sub ClloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClloseToolStripMenuItem.Click End End Sub Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click Kriptografi_Caesar.Show() End Sub Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click Kriptografi_Vernam_Chiper.Show() End Sub Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click Kriptografi_Gronsfeld.Show() End Sub Private Sub KriptografiViginereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiViginereToolStripMenuItem.Click Kriptografi_Viginere.Show() End Sub End Class Form Kriptografi Caesar Public Class Kriptografi_Caesar Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click Dim x As String = "" Dim xkalimat As String = "" For i = 1 To Len(plainteks.Text) x = Mid(plainteks.Text, i, i) x = Chr(Asc(x) + 3) xkalimat = xkalimat + x Next Chiperteks.Text = xkalimat End Sub Private Sub btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndekripsi.Click Dim x As String = "" Dim xkalimat As String = "" For i = 1 To Len(plainteks.Text) x = Mid(plainteks.Text, i, i) x = Chr(Asc(x) - 3) xkalimat = xkalimat + x Next Chiperteks.Text = xkalimat End Sub Private Sub Kriptografi_Caesar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Form Kriptografi Vernam Public Class Kriptografi_Vernam_Chiper Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load plainteks.Text = "" kunci.Text = "" chiperteks.Text = "" End Sub Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click Dim j As Integer Dim jum As Integer Dim sKey As String Dim nKata As Integer Dim nKunci As Integer Dim sKata As String Dim sPlain As String = "" Dim nEnc As Integer j = 0 sKata = plainteks.Text jum = Len(sKata) sKey = kunci.Text For i = 1 To jum If j = Len(sKey) Then j = 1 Else j = j + 1 End If nKata = Asc(Mid(sKata, i, 1)) - 65 nKunci = Asc(Mid(sKey, j, 1)) - 65 nEnc = ((nKata + nKunci) Mod 26) sPlain = sPlain & Chr((nEnc) + 65) Next i chiperteks.Text = sPlain End Sub Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress e.KeyChar = UCase(e.KeyChar) Dim tombol As Integer = Asc(e.KeyChar) If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then e.Handled = True End If End Sub Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged End Sub Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress e.KeyChar = UCase(e.KeyChar) Dim tombol As Integer = Asc(e.KeyChar) If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then e.Handled = True End If End Sub Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged End Sub End Class Form Kriptografi Gronsfeld Public Class Kriptografi_Gronsfeld Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load plainteks.Text = "" kunci.Text = "" chiperteks.Text = "" End Sub Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True End Sub Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True End Sub Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click Dim j As Integer Dim jum As Integer Dim sKey As String Dim nKata As Integer Dim nKunci As Integer Dim sKata As String Dim sPlain As String = "" Dim nEnc As Integer j = 0 sKata = plainteks.Text jum = Len(sKata) sKey = kunci.Text For i = 1 To jum If j = Len(sKey) Then j = 1 Else j = j + 1 End If nKata = Asc(Mid(sKata, i, 1)) - 65 nKunci = Asc(Mid(sKey, j, 1)) - 48 nEnc = ((nKata + nKunci) Mod 26) sPlain = sPlain & Chr((nEnc) + 65) Next i chiperteks.Text = sPlain End Sub End Class Form Kriptografi Viginere Public Class Kriptografi_Viginere Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click Chipertext.Text = Enkripsi(Plaintext.Text, Kunci.Text) End Sub Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String Dim j As Integer Dim jum As Integer Dim sKey As String Dim nKata As Integer Dim nKunci As Integer Dim sKata As String Dim sPlain As String Dim nEnc As Integer j = 0 jum = Len(Teks) sPlain = "" sKey = Kunci sKata = Teks For i = 1 To jum If j = Len(sKey) Then j = 1 Else j = j + 1 End If nKata = Asc(Mid(sKata, i, 1)) nKunci = Asc(Mid(sKey, j, 1)) nEnc = ((nKata + nKunci) Mod 256) sPlain = sPlain & Chr((nEnc)) Next i Enkripsi = sPlain End Function Private Sub Kriptografi_Viginere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

»»  READMORE...

REVIEW MESRAN.NET

saya adalah salah satu mahasiswi di Stmik.Budidarma, sesuai dengan jurusan perkuliahan yang saya ambil,saya banyak mempelajari tentang ilmu pemrograman diantaranya: java,java script,pascal,php,vb.net Dan masih banyak lagi yang lainya.
dalam hal mempelajari ilmu pemrograman saya tidak bisa belajar hanya dalam waktu perkuliahan saja,saya mencoba mempelajari semua itu di rumah,dan saya sangat beruntung karna menemukan sebuah website yaitu Mesran.net yang mana didalamnya banyak terdapat apa yang saya cari mulai dari informasi terkini,ilmu pemrograman,sampai saya juga bisa dengan mudah men-download software-software yang saya butuhkan.
tidak hanya itu Mesran.net juaga banyak menginformasikan tentang workshop-workshop pemrograman buat mahasiswa yang baru pemula, atau yang lagi bingung buat nentuin judul T.A dan Skripsi di mesran.net juga tersedia lengkap.
jadi buat teman-teman yang lagi bingung atau bosan buka situs yang itu-itu aja mendingan langsung aja kunjuning website mesran.net.
saya yakin selain menambah ilmu, disana juga anda akan menemukan wawasan yang lebih luas lagi tentang ilmu-ilmu pemrograman khususnya....
sekian dulu ya ulasan saya tentang mesran.net semoga bermanfaat bagi kalian semua yang ingin menambah ilmu pemrogramannya.:-) 

yg terhormat kepada master blogger kita pak mesran.net..

saya sangat berterima kasih kepada pak mesran,..
karena dngan adanya blogger mesran.net ini saya bisa mempelajari banyak hal...

»»  READMORE...

Quiz Soal 1

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110935")
        npm.Items.Add("12010022")
        npm.Items.Add("12020023")
        kode_dosen.Items.Add("D123")
        kode_dosen.Items.Add("D345")
        kode_dosen.Items.Add("D678")
        kode_matakuliah.Items.Add("K001")
        kode_matakuliah.Items.Add("K002")
        kode_matakuliah.Items.Add("K003")
        Dim i As Integer
        Nilai_kehadiran.Items.Clear()
        For i = 1 To 100
            Nilai_kehadiran.Items.Add(i)
        Next
        Nilai_tugas.Items.Clear()
        For i = 1 To 100
            Nilai_tugas.Items.Add(i)
        Next
        Nilai_UTS.Items.Clear()
        For i = 1 To 100
            Nilai_UTS.Items.Add(i)
        Next
        Nilai_UAS.Items.Clear()
        For i = 1 To 100
            Nilai_UAS.Items.Add(i)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110935"
                nama.Text = "Erixon Andrianus Saruksuk"

            Case "12020023"
                nama.Text = "Abdul Rahmad"

            Case "12010022"
                nama.Text = "Rinaldi Pratama"


        End Select
        Dim x As String
        x = Strings.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "02" Then
            jurusan.Text = "Manajemen Informatika"
        ElseIf x = "01" Then
            jurusan.Text = "Teknik Komputer"
        End If
        x = Strings.Mid(npm.Text, 3, 2)
        If x = "11" Then
            Jenjang.Text = "S I"
        ElseIf x = "02" Then
            Jenjang.Text = "D III"
        ElseIf x = "01" Then
            Jenjang.Text = "D I"
        End If
    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "D123"
                Nama_dosen.Text = "Mesran,S.kom, M.Kom"
            Case "D345"
                Nama_dosen.Text = "Rivalry K Hondro, S.Kom"
            Case "D678"
                Nama_dosen.Text = "Kenedi Tampubolon,S.si, M.Kom"

        End Select
    End Sub

    Private Sub KM_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        Select Case kode_matakuliah.Text
            Case "K001"
                nama_mata_kuliah.Text = "Pemrograman Visual 1"
            Case "K002"
                nama_mata_kuliah.Text = "Sistem Basis Data"
            Case "K003"
                nama_mata_kuliah.Text = "Matriks dan Transformasi Linear"
        End Select
    End Sub

    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click

        Nilai_Akhir.Text = 0.1 * Nilai_kehadiran.Text + 0.15 * Nilai_tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
        If Nilai_Akhir.Text >= 80 Then
            Nilai_Huruf.Text = "A"
        ElseIf Nilai_Akhir.Text >= 70 Then
            Nilai_Huruf.Text = "B"
        ElseIf Nilai_Akhir.Text >= 60 Then
            Nilai_Huruf.Text = "C"
        ElseIf Nilai_Akhir.Text >= 50 Then
            Nilai_Huruf.Text = "D"
        Else
            Nilai_Huruf.Text = "E"
        End If
        If Nilai_Akhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If
    End Sub


    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        Close()
    End Sub

    Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click
        nama.Text = ""
        npm.Text = ""
        Keterangan.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Nilai_tugas.Text = ""
        Nilai_kehadiran.Text = ""
        Nilai_Akhir.Text = ""
        kode_dosen.Text = ""
        kode_matakuliah.Text = ""
        Nilai_Huruf.Text = ""
        Nama_dosen.Text = ""
        nama_mata_kuliah.Text = ""
        Jenjang.Text = ""
        jurusan.Text = ""
    End Sub
End Class

»»  READMORE...

Tips Motivasi Diri

Untuk berjaya dalam hidup, motivasi diri boleh dikatakan suatu keperluan. Kita mesti tahu bagaimana untuk memotivasikan diri kita. Kita juga perlu mempunyai semangat yang tinggi walau dalam keadaan seteruk mana pun. Sesiapa yang kehilangan semangat ketika melalui situasi yang sukar akan berdepan dengan kekalahan walaupun perjalanannya belum pun berakhir.
Persoalannya disini, bagaimana cara untuk mendapatkan motivasi diri. Disini ada diberikan sedikit tips motivasi diri yang sedikit sebanyak diharap boleh membantu anda dalam mengharungi kesulitan mahupun kesukaran dalam perjalanan kehidupan. Artikel motivasi ini membincangkan tentang apa yang perlu ada dalam diri untuk sentiasa bersemangat dalam mengejar cita-cita.

Tahu Tujuan

Tiada sumber motivasi yang lebih kuat untuk anda berjaya dari tujuan anda melakukannya. Tujuan anda adalah inspirasi terbaik untuk memberi perangsang dalam menghadapi kesulitan di kemudian hari. Ia akan dapat membantu anda melakukan perkara-perkara yang dilihat mustahil  pada pandangan manusia normal. Bila anda fikir anda sudah tiada semangat untuk meneruskan perjalanan, ingat balik tujuan anda melakukannya dan motivasi itu akan kembali kepada anda serta merta.

Tetapkan Impian atau Matlamat.

Tujuan anda untuk berjaya merupakan sumber motivasi yang kuat tapi masih belum cukup untuk merealisasikan apa yang anda mahukan. Anda perlu ada impian atau matlamat. Anda perlu bayangkan apa yang akan berlaku pada anda apabila anda berjaya mencapai tujuan anda. Memiliki impian sangat penting sebab sangat susah untuk bermotivasi jika anda tiada matlamat yang khusus.  Bayangkan pemain bola sepak. Adakah mereka akan bermotivasi jika tiada pintu gol untuk dijaringkan? Mereka memerlukan matlamat. Begitu juga anda. Matlamat atau impian yang ditetapkan mestilah cukup besar untuk menginspirasikan anda. Ia harus realistik dan mencabar untuk mengeluarkan anda dari zon selesa yang anda duduki sekarang ini.

Mempunyai Keinginan Yang Kuat

Untuk benar-benar mendapat motivasi diri yang jitu, anda mesti mempunyai keinginan yang kuat. Ini akan membantu anda ketika melalui situasi-situasi yang sulit dan memastikan anda berusaha untuk melakukan prestasi yang terbaik walau dalam apa jua keadaan sekalipun. Jika anda berasa seperti keinginan anda semakin pudar, apa yang perlu anda lakukan ialah untuk  melihat kembali kepada impian dan matlamat anda. Ini akan memberikan motivasi kepada diri anda dan meningkatkan lagi rasa keinginan anda.

Tetapkan Haluan Sendiri

Membandingkan diri anda dengan orang lain biasanya akan mengurangkan keyakinan anda. Walaupun anda pada mulanya bersemangat, lama-kelamaan anda mula terasa kekurangan diri jika dibandingkan dengan orang lain. Elakkan ini terjadi kepada anda. Anda mempunyai matlamat sendiri dan apa yang orang lain kecapi tidak perlu dibandingkan dengan diri anda. Setiap orang mempunyai perjalanan hidup dan keadaan yang berbeza.  Membandingkan diri anda dengan orang lain adalah seperti membandingkan prestasi seorang perenang dengan seorang pelari menggunakan standard masa yang sama. Mereka berdua dalam situasi yang berbeza jadi ianya adalah tidak relevan untuk membandingkan kedua-dua orang ini.

Berani Meneruskan Perjalanan

Apabila anda bertemu dengan cabaran dalam perjalanan anda untuk berjaya, anda mungkin cenderung untuk menghentikan perjalanan itu. Anda mungkin berfikiri bahawa ia terlalu sukar untuk diteruskan. Tetapi, ini sebenarnya adalah saat dimana anda boleh melihat perbezaan antara seorang yang menang ataupun seorang yang kalah. Meskipun kedua-duanya menghadapi kesulitan yang sama, tetapi satu perkara yang membezakan adalah keberanian untuk meneruskan perjalanan itu. Jika berhadapan dalam situasi yang sukar, fokuskan pemikiran anda untuk meneruskan langkah kehadapan. Jangan berfikir bagaimana untuk menyelesaikan perlumbaan atau berapa banyak lagi cabaran yang akan ditempuhi. Tetapi, hanya fokus untuk mengambil langkah yang seterusnya.

Lupakan Masa Silam

Percaya atau tidak, salah satu pemusnah motivasi diri anda adalah masa silam anda sendiri. Ia boleh memberi beban yang berat diatas bahu yang perlu anda pikul. Walaupun begitu, ia adalah sesuatu yang boleh anda tinggalkan. Anda mungkin membuat kesalahan pada masa lalu. Anda mungkin telah mengecewakan orang lain dengan apa yang anda lakukan. Tapi itu semua sudah berlalu. Ia adalah sesuatu yang tidak dapat anda ubah lagi hakikatnya. Hari ini adalah hari yang baru dan anda sentiasa mempunyai peluang untuk memulakan semula hari anda. Tidak kira seteruk mana masa silam anda, masih ada masa depan yang cerah menanti jika anda berani meneruskan perjalanan.

Sekian, semoga tips motivasi diri yang diberikan diatas boleh membantu anda untuk mengecapi kejayaan dalam hidup. Tidak kira sesusah mana pun cabaran yang dihadapi, teruskan usaha anda, berdoalah untuk mendapat yang terbaik, dan bertawakal kepada Allah.

»»  READMORE...

Setiap Manusia Adalah Perahu Yang Berlayar Di Samudra Kehidupan

Hidup kita ibarat perahu ditengah samudra luas yang penuh badai dan angin kencang namun ddidalam perahu itu sudah dilengkapi dengan alat-alat komunikasi dan kompas, ketika seorang insan sudah terlalu jauh dari jalan yang harusnya ditempuh maka  alat komunikasinya adalah Allah dan kompasnya adalah alqur'an dan alhadits, tidak ada yang lain.
Lebih dari itu... Manusia diciptakan dengan sangat baik oleh Allah, dilengkapi dengan bakat serta kemampuan yg luar biasa. Diberi hati nurani dan akal budi serta kebebasan untuk menjalankan perahu kehidupan kita secara baik dan benar. 


Bahkan seekor lalat pun rezekinya sudah diatur oleh Maha Besar Allah, lalu bagaimana mungkin seorang manusia yang jauh lebih sempurna (memiliki akal budi & perasaan) masih mengeluh bahwa hidup ini tidak adil, mengeluh bahwa rezeki mereka terlalu sempit, mengeluh bahwa tidak ada satupun kesempatan yang datang pada mereka. bukankah semua keluhan itu bisa menjadikan mereka muslim yang kufur? bagi mereka yang sering berpikiran demikian tidak ada salahnya jika sesama muslim kita saling mengigatkan, cobalah ajak mereka berjalan keluar dan mengelilingi daerah sekitarnya, cobalah minta mereka tidak hanya melihat dengan mata tapi juga melihat dengan hati dan pikiran yang jernih, lhat bagaimana seorang pemulung masih bisa makan, cobalah lihat bagaimana seorang tukang parkir masih bisa bertahan hidup, cobalah lihat seroang penjual kerupuk masih bisa bersyukur, dan banyak lagi! apa kurang cukup bukti bahwa manusia sudah ditakdiran sebagai salah satu penciptaan Allah yang paling sempurna, hanya orang-orang kufur yang bisanya mengelu dan mengatakan hidup ini tidak adil.

Tidak ada gunanya perahu yang hebat jika hanya ditambat di dermaga. Sejatinya hidup kita adalah berlayar mengarungi samudra, melawan badai, menembus ombak dan menemukan pantai harapan. Sejatinya hidup selalu ada masalah, dan manusia akan selalu dihadapkan dengannya tinggal bagaimana manusia mengunakan alat komunikasi dan kompasnya untuk menghadapi semua masalah itu.

Mari kita kembangkan layar, penuhi dada kita dengan keyakinan bahwa Allah bersama kita...
Allah Hu Akbar!!!

»»  READMORE...

Sejarah bahasa C

Akar dari bahasa C adalah bahasa BCPL yang dikembangkan oleh Martin Richards (1967). Ken Thompson mengembangkan bahasa yang disebut dengan B pada tahun 1970. Bahasa C pertama kali digunakan pada komputer Digital Equipment Corporation (DEC) PDP-11 yang menggunakan sistem operasi UNIX. Standar bahasa C yang asli adalah standar dari UNIX. ANSI (American National Standards Institute) membentuk suatu komite (ANSI committee X3J11) pada tahun 1983 yang kemudian menetapkan standar ANSI untuk bahasa C.
Bahasa C digolongkan bahasa tingkat menengah. Lebih sulit dari Pascal dan Basic (bahasa tingkat tinggi). C mengkombinasikan antara bahasa tingkat rendah (mesin / assembly) dengan bahasa tingkat tinggi. Tujuannya untuk kemudahan membuat program dari bahasa tingkat tingga dikombinasikan dengan kecepatan eksekusi dari bahasa tingkat rendah.
Kelebihan bahasa C

• Tersedia hampir di semua jenis komputer.
• Kodenya bersifat portabel. Aplikasi yang ditulis dengan C untuk suatu komputer tertentu dapat digunakan di komputer lain hanya dengan sedikit modifikasi.
• Struktur bahasa yang baik,mudah dipelajari, memudahkan pembuatan program, memudahkan
• pelacakan kesalahan program.
• Dibandingkan bahasa mesin atau assembly, C jauh lebih mudah dipahami. C berorientasi pada permasalahan, bukan pada mesin.
• Dapat memanipulasi data dalam bentuk bit atau byte.
• Memungkinkan untuk memanipulasi alamat dari suatu data atau pointer.

Kelemahan Bahasa C

• Banyaknya operator serta fleksibilitas penulisan program kadang-kadang membingungkan pemakai.
• Para pemrogram C tingkat pemula umumnya belum pernah mengenal pointer dan tidak terbiasa menggunakannya padahal keampuhan C justru terletak pada pointer.

Compiler dan Linker

• Sebelum program C dapat dijalankan, harus di compile dan di linking terlebih dahulu.
• Compile adalah proses menterjemahkan seluruh program ke dalam bahasa mesin sekaligus.
• Compile dapat berhasil jika dalam program tidak ada kesalahan kaidah sama sekali.
• List program asli dapat dirahasiakan.
• Linking adalah proses untuk menggabungkan beberapa file program hasil kompilasi.

Interpreter

• Biasa digunakan pada bahasa Basic.
• Menerjemahkan baris per baris intsruksi pada program untuk setiap saat.
• Proses pengujian program cepat (+).
• Running program menjadi lambat (-).
• Program asli tidak dapat dirahasiakan (-).

Struktur penulisan C

• Program C tersusun atas sejumlah fungsi.
• Minimal dalam satu program bahasa C ada satu fungsi yaitu fungsi main().
• Setiap fungsi terdiri dari satu atau beberapa pernyataan.
• Penulisan suatu fungsi diawali dengan ‘{‘ dan diakhiri dengan ‘}’.
• C disebut bahasa terstruktur -> strukturnya menggunakan fungsi-fungsi sebagai program-program bagian (subroutine).

main()                       // fungsi utama
{ 
   statemen-statemen;
}
fungsi_fungsi_lainnya()      // fungsi-fungsi lainnya
{
   statemen-statemen;
}

Preprocessor directive (#include)

• #include merupakan salah satu jenis pengarah praprosesor (preprocessor directive).
• Dipakai untuk membaca file yang di antaranya berisi deklarasi fungsi dan definisi konstanta.
• Beberapa file judul disediakan dalam C dan nama filenya diakhiri dengan ekstensi .h.
• #include <stdio.h> menyatakan pada kompiler agar membaca file bernama stdio.h saat pelaksanaan kompilasi.
• Bentuk umum #include: #include “namafile”

Fungsi printf()
Digunakan untuk menampilkan suatu keluaran pada layar/monitor (output).
Bentuk umum:

printf("string kontrol", daftar argumen); 

Contoh dalam Program :

#include <stdio.h>
main( )
{
printf("No : %d\n", 10);
printf("Nama : %s\n", "Ali");
printf("Nilai : %f\n",80.5);
printf("Huruf : %c\n",'A');
}

Untuk menampilkan kalimat “Hello World”
digunakan perintah:

printf("Hello World"); 

Tanda ‘\’ dapat digunakan pada fungsi printf:
\” menyatakan karakter petik ganda.
\\ menyatakan karakter backslash ‘\’.
\t menyatakan karakter tab.
Komentar dalam program
Digunakan untuk keperluan dokumentasi
Dimulai dengan tanda /* dan diakhiri dengan tanda */
Untuk komentar yang hanya satu baris ditulis dengan diawali tanda “//”
Contoh:

textpop-up

/*Tanda ini adalah komentar
tidak masuk dalam eksekusi program */
#include <stdio.h>
main()
{
printf("Belajar Bahasa C \n"); //komentar satu baris
}

»»  READMORE...

PENGERTIAN PROGRAM KOMPUTER |APA ITU PROGRAM KOMPUTER?

by Fikrul Huda

setelah belajar tentang apa itu bahasa pemrograman, sekarang kita belajar
apa itu program komputer. program komputer adalah perangkat lunak (software) yang sebenarnya merupakan runtutan intruksi yang ditulis dalam bentuk kode kode menggunakan bahasa pemrograman tertentu, dan telah dikompilasi dengan menggunakan kompiler yang sesuai. program komputer tersebut kemudian digunakan untuk keperluan keperluan spesifik yang bersifat aplikatif di berbagai bidang tertentu. seperti telekomunikasi, bisnis dan lainnya.

sebagai ilustrasi bagi anda, berikut ini digambarkan bagaimana proses transformasi yang terjadi dalam pembentukan program komputer dari bahasa pemrograman tingkat tinggi ,

penjelasannya sebagai berikut

1.  mula mula kode program ditulis dalam bahasa pemrograman tingkat tinggi misalnya PASCAL
2. melalui program kompiler kode tersebut akan diterjmahkan kedalam bahasa assembly (bahasa rakitan) 
3. bahasa assembly itu akan diterjemahkan lagi oleh program assembler manjadi bahasa mesin
4. apa bila dalam program yang kita tulis menggunakan library lain, maka linker akan menghubungkannya dalam program
5. dari kode objek inilah terbentuk program komputer

sekian dulu dari SITUS BELAJAR PEMROGRAMAN BAHASA PASCAL tentang apa itu program komputer. bertsambung ke artikel berikutnya

»»  READMORE...