This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

Program Menu Pada Pascal

Pada program pascal menu yang bisa di buat sangat sederhana dengan tujuan untuk menggabungkan 2 program menjadi satu program.
Kedua program tersebut akan digabungkan menjadi satu program dengan menambahkan menu, sehingga semua program bisa dijalankan pada satu waktu.
Untuk itu tentu saja anda harus menggunakan prosedure, sehingga memudahkan dalam menyatukan program program yang ada.
Pada prinsipnya struktur program menu pada pascal, ini bisa terlihat seperti di bawah ini :
Variabel....
....


Procedure InputMahasiswa;
Begin
    {pada bagian ini untuk menginputkan data mahasiswa}
End;
Procedure InformasiMahasiswa;
Begin
    {pada bagian ini untuk menampilkan data mahasiswa}
End;

Begin    {pada bagian ini di program utama dan untuk menu}

End.






Lebih lengkapnya program menu pada Pascal, bisa dilihat dibawah ini :

uses crt ;
type
    mahasiswa = record
      npm   : string[8] ;
      nama  : string[30];
    end;
var
   rmhs     : mahasiswa ;
   fmhs     : file of mahasiswa ;
   i        : byte;
   mad      : char ;
   pil      : byte ;

Procedure informasimahasiswa;
begin
     assign(fmhs,'D:mhs.dat') ;
     {$I-} Reset(fmhs) ;
     {$I+} if IOresult <> 0 then rewrite(fmhs) ;

  clrscr ;
     writeln ('Informasi Data Mahasiswa') ;
     writeln ('--------------------------------');
     seek(fmhs, 0) ;
     i := 1 ;
     while not eof(fmhs) do
     begin
           seek (fmhs, i-1) ;
           read (fmhs, rmhs);
           writeln (i:2, rmhs.npm:9,' ', rmhs.Nama) ;
           inc(i) ;
     end;
     writeln ('--------------------------------');
     readln;
end;

procedure inputmahasiswa;
begin
     assign(fmhs,'D:mhs.dat') ;
     {$I-} Reset(fmhs) ;
     {$I+} if IOresult <> 0 then rewrite(fmhs) ;

     mad :='Y' ;
     while upcase(mad)='Y' do
     begin
          Clrscr ;
          writeln ('Input Data Mahasiswa') ;
          writeln ('--------------------------------');
          write ('NPM      : ') ; readln(rmhs.npm) ;
          write ('Nama     : ') ; readln(rmhs.nama) ;
          writeln ('--------------------------------');

          seek(fmhs, filesize(fmhs)) ;
          write(fmhs, rmhs) ;
          write ('Masih Input Lagi      : ') ; readln(mad);

     end;

end;

begin     pil := 1;
     while pil<>3 do
     begin
          clrscr ;
          writeln(' Menu Utama ');
          writeln('------------------------');
          writeln('[1] Input Mahasiswa');
          writeln('[2] Informasi Mahasiswa');
          writeln('[3] Keluar Program');
          writeln('------------------------');
          write  ('Pilihan Anda : '); readln(pil);
          case pil of
          1 : inputmahasiswa ;
          2 : informasimahasiswa;
          end;
     end;
end. 


divine-music.info
divine-music.info

divine-music.info

R, Bahasa Pemrograman untuk Analisis Data dan Statistik

13710345201737562874

Dosen, Peneliti atau Mahasiswa umumnya mengenal SPSS, SAS, atau MINITAB sebagai program paket (software) untuk mengolah data Statistik, dan Saya berani bertaruh bahwa  yang digunakan umumnya adalah versi bajakan.  Memang program-program tersebut harganya cukup mahal untuk ukuran Dosen, Peneliti apalagi Mahasiswa Indonesia, harganya bisa disandingkan dengan harga sebuah motor bebek.  Sebenarnya tidak perlu membajak atau membeli versi bajakan untuk program-program pengolahan data Statistik, karena kini tersedia program-program sumber terbuka (open source) yang dapat diunduh gratis, dengan kemampuan dan tampilan antar muka graphis (GUI – Graphic User Interface) yang tidak kalah dengan program-program komersial tersebut.

R adalah salah satu dari program sumber terbuka yang dapat diunduh gratis di http://cran.r-project.org/, yang mana situs resminya ada di http://www.r-project.org/.  R pertama kali diciptakan oleh Ross Ihaka dan Robert Gentleman (- nama R berasal dari huruf pertama nama depan kedua orang ini-), Mereka adalah Statistikawan asal Selandia Baru, sedangkan kini R dikembangkan sebagai upaya kolaborasi pakar-pakar Statistikawan dan komputer di seluruh dunia.  R diluncurkan pertama kali tahun 1997, dan versi terakhir ketika tulisan ini dibuat adalah 3.0.1.  Di Indonesia untuk mengunduh software ini dapat melalui server milik BPPT atau LIPI, biasanya pada saat kita mengunduh R, Kita diminta untuk memilih nama-nama negara terdekat sebagai server mirror agar proses pengunduhan dapat lebih cepat, maka disarankan Anda memilih Indonesia jika berada di Indonesia atau negara sekitarnya.

13710347401671729461 

13710347401671729461 

Selain gratis tentunya ada banyak kelebihan R yang lain yaitu : - R tersedia  untuk berbagai sistem operasi selain Windows, seperti Macintosh, Linux dan UNIX; - memiliki kemampuan membuat graphik yang canggih; - sintaksnya mudah dipelajari dengan banyak fungsi-fungsi statistik yang terpasang; - R dapat dengan mudah diperluas dengan menciptakan fungsi-fungsi buatan pengguna sendiri disamping juga tersedia banyak program-program kecil sebagai tambahan (add in), yang disebut package yang juga dapat diunduh gratis; - R merupakan bahasa pemrograman komputer, sehingga bagi pemrogram menjadi lebih akrab, sedangkan bagi pemakai awal akan merupakan langkah yang mudah untuk memulai sebagai pemrogram komputer.  Bagi sebagian pengguna yang terbiasa mengguna GUI dengan sistem menu, R juga menyediakan banyak GUI yang berbasiskan sistem menu, antara lain R Studio, Tinn-R, R Commander dan bayak lagi yang lainnya, dan dapat diunduh gratis juga.  GUI standar R diperlihatkan oleh gambar di atas yang menyertai tulisan ini.  Walaupun R adalah gratis kemampuannya tidak kalah dengan program-program paket statistik yang komersial, bahkan dalam hal tertentu adalah lebih baik.  Penggunaan R tidak dibatasi, bahkan dapat digunakan untuk tujuan-tujuan komersial.  Kelebihan-kelebihan R inilah yang mungkin menyebabkan kembaran komersial R yaitu S-Plus menjadi mati suri.

13710348511169166403  


Disamping kelebihan yang disebutkan di atas, R juga memiliki kekurangan yaitu, - R tidak menyediakan dukungan komersial, walaupun mungkin ini dapat diatasi dengan mengikuti mailing list R, yang banyak membantu bila Kita menghadapi masalah tertentu; - oleh karena  sejatinya R merupakan bahasa pemrograman maka diperlukan waktu membiasakan dengan sintaks-sintaksnya, yang untuk sebagian orang mungkin merupakan hal yang menakutkan.  Walupun demikian, Anda dapat menggunakan GUI yang berbasiskan sistem menu dan itu sangat membantu.  Blog R yang dikelola dalam bahasa Indonesia beralamat di http://bahasa-r.blogspot.com/, webblog berbahasa Inggris banyak bertebaran di dunia maya, diantaranya ada di: http://www.r-bloggers.com/, http://digitheadslabnotebook.blogspot.com/ dan banyak lagi lainnya, coba saja di googling.  R juga hadir di wikipedia silakan Anda klik di alamat ini, http://en.wikipedia.org/wiki/R_(programming_language).
Jadi jika ada yang gratisan, mangapa Kita menggunakan program ilegal.
 



Langkah2 Cara Menginstall windows 7 (Lengkap dengan Gambar)

Bagi yang belum pernah menginstall windows 7 ke komputer atau laptop. berikut cara menginstall windows 7 lengkap dengan gambar gambarnya. Langkah2 ini baik dengan menggunakan media DVD ataupun media lain seperti memakai flashdisk adalah sama, baik itu untuk versi 32bit maupun versi 64bit, bagi yang belum punya instalasi windows7 menggunakan media flashdisk silahkan dilihat cara menginstall windows 7 menggunakan flashdisk disini.
Yuk kita mulai!.
Masukkan DVD windows 7 atau colokkan flashdisk windows 7 kita, dan kemudian booting lah memakai media yang telah kita pilih, lalu proses loading file akan dimulai.
 
 
Pilih bahasa Anda, waktu & format mata uang, keyboard atau metode input dan klik Next.

Klik Install now
 
 
 Conteng I accept the license terms dan klik Next.


Klik Upgrade jika Anda sudah mempunyai versi Windows sebelumnya atau Custom (advanced) jika anda tidak memiliki versi Windows sebelumnya atau ingin menginstal salinan baru Windows 7.


(Lewati langkah ini jika Anda memilih Upgrade dan hanya memiliki satu partisi) Pilih drive mana Anda ingin menginstal Windows 7 dan klik Next. Jika Anda ingin membuat partisi, klik opsi Drive options (advanced), buatlah partisi dan kemudian klik Next.

Sekarang akan dimulai menginstal Windows 7. Langkah pertama, (yaitu Windows mulai menyalin file) sudah dilakukan ketika anda booting DVD/fd Windows 7 sehingga akan selesai seketika.


Setelah menyelesaikan langkah pertama, ia akan memperluas (decompress) file yang telah disalin.
 

 

Langkah ketiga dan keempat juga akan diselesaikan langsung seperti langkah pertama.

 
 
Setelah itu secara otomatis akan restart setelah 15 detik dan melanjutkan setup. Anda juga dapat klik Restart now untuk restart tanpa perlu menunggu.
 
 
 
 
 


Setelah restart untuk pertama kalinya, proses setup akan dilanjutkan. Ini adalah langkah terakhir sehingga akan mengambil waktu yang agak lamadaripada langkah sebelumnya.

Sekarang akan otomatis restart lagi dan melanjutkan setup. Anda dapat klik Restart now untuk restart tanpa perlu menunggu.

 
 
  

Ketik nama pengguna yang Anda inginkan dalam kotak-teks dan klik Next. Nama komputer akan otomatis terisi.
  


Jika Anda ingin mengatur sandi, ketik di kotak teks dan klik Next.

Ketik kunci produk Anda dalam kotak-teks dan klik Next. Anda juga dapat melewatkan langkah ini dan cukup klik Next jika Anda ingin mengetik kunci produk nanti. Windows akan berjalan hanya selama 30 hari jika Anda melakukan ini.
  


Pilih opsi yang Anda inginkan untuk Windows Update.
  


Pilih zona waktu dan klik Next.
  


Jika anda terhubung ke jaringan apapun, ia akan meminta Anda untuk menetapkan lokasi jaringan.

 
 
  

 
 
  

 
 
Nah selesai sudah proses penginstallan windows7 baik dengan menggunakan flashdisk maupun DVD. Jika ada pertanyaan, silahkan tinggalkan komentarnya.
 

KONSEP DASAR PEMROGRAMAN PASCAL

KONSEP DASAR PEMROGRAMAN PASCAL

Algoritma & Pemrogram

1.1 Perkembangan Pascal
Pascal adalah bahasa tingkat tinggi yang orientasinya pada segala tujuan, dirancang oleh Prof. Niklaus Wirth dari Technical University di Zurich, Switzerland. Nama pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematik dan philosophi terkenal abad 17 dari Perancis.
1.2 Struktur Program Pascal
Struktur dari suatu program pascal terdiri dari sebuah judul program dan suatu blok program atau badan program. Blok program dibagi lagi menjadi dua bagian, yaitu : bagian deklarasi dan bagian pernyataan. Secara ringkas, struktur suatu program pascal dapat terdiri dari :
1. Judul program
2. Blok program
a. Bagian deklarasi
- deklarasi label
- deklarasi konstanta
- deklarasi tipe
- deklarasi variable
- deklarasi prosedur
- deklarasi fungsi
b. Bagian pernyataan
Program pascal yang paling sederhana adalah program yang hanya terdiri dari sebuah bagian pernyataan saja.
Begin
End.
Bentuk umum dari bagian pernyataan adalah :
Begin
Statement;
End .
Konsep dasar pemrograman pascal
Algoritma & Pemrogram 2A
Contoh :
Begin
Writeln ( ‘Saya pascal’ );
Writeln ( ‘--------------‘ )
End .
Outputnya : Saya pascal
---------------
Program pascal tidak mengenal aturan penulisan di kolom tertentu, jadi boleh ditulis mulai kolom berapapun. Penulisan statement-statement pada contoh program yang menjorok masuk beberapa kolom tidak mempunyai pengaruh diproses, hanya dimaksudkan supaya mempermudah pembacaan program, sehingga akan lebih terlihat bagian-bagiannya, dan baik untuk dokumentasi.
Judul program sifatnya optional dan tidak signifikan didalam program. Jika ditulis dapat digunakan untuk memberi nama program dan daftar dari parameter tentang komunikasi program dengan lingkungannya yang sifatnya sebagai dokumentasi saja. Judul program bila ditulis harus terletak pada awal dari program dan diakhiri dengan titik koma.
Contoh :
Program contoh ;
Begin
Writeln ( ‘Gunadarma’ );
Writeln( ‘---------------‘ );
End .
1.3 Deklarasi
Bagian deklarasi digunakan bila didalam program menggunakan pengenal (identifier) yang dapat berupa label, konstanta, tipe, variable, prosedur dan fungsi.
1.3.1 Deklarasi Konstanta
Definisi konstanta diawali dengan kata cadangan Const diikuti oleh kumpulan identifier yang diberi suatu nilai konstanta. Data konstanta nilainya sudah ditentukan dan pasti, tidak dapat dirubah didalam program.
Konsep dasar pemrograman pascal
Algoritma & Pemrogram 2A
Contoh :
Program contoh_konstanta;
Const
Potongan = 0.2 ;
Gaji = 25000 ;
Namaperusahaan = ‘PT ABC’ ;
Begin
Writeln ( ‘Potongan =’, Potongan ) ;
Writeln ( ‘Gaji =’, Gaji ) ;
Writeln ( ‘Nama =’, Namaperusahaan) ;
End .
1.3.2 Deklarasi Variabel
Variabel adalah identifier yang berisi data yang dapat diubah-ubah nilainya didalam program. Menggunakan kata cadangan Var sebagai judul didalam bagian deklarasi variable dan diikuti oleh satu atau lebih identifier yang dipisahkan koma, diikuti dengan titik dua dan tipe dari datanya diakhiri dengan titik koma.
Contoh :
Var
Total, Gaji, Tunjangan : real ;
Jumlahanak : integer ;
Keterangan : string [25] ;
Begin
Gaji : = 500000 ;
Jumlahanak : = 3 ;
Tunjangan : = 0.25 * Gaji + Jumlahanak * 30000 ;
Total : = Gaji + Tunjangan ;
Keterangan : = ‘Karyawan Teladan’ ;
Writeln ( ‘ Gaji bulanan = Rp. ‘ , Gaji ) ;
Writeln ( ‘ Tunjangan = Rp. ‘ , Tunjangan ) ;
Writeln ( ‘ Total gaji = Rp. ‘ , Total ) ;
Writeln ( ‘ Keterangan = Rp. ‘ , Keterangan ) ;
End .
1.3.3 Deklarasi Tipe
Pascal menyediakan beberapa macam tipe data, yaitu :
1. tipe data sederhana, terdiri dari :
a. tipe data standar : integer, real, char, string, Boolean.
Konsep dasar pemrograman pascal
Algoritma & Pemrogram 2A
b. Tipe data didefinisikan pemakai : enumerated atau scalar, subrange
2. Tipe data terstruktur : array, record, file, set
3. Tipe data penunjuk
Contoh :
Type
Pecahan = real ;
Bulat = integer ;
Huruf = string [25] ;
Begin
……..
……..
……..
End .
1.3.4 Deklarasi Label
Jika program menggunakan statement Goto untuk meloncat ke suatu statement yang tertentu, maka dibutuhkan suatu label pada statement yang dituju dan label tersebut harus di deklarasikan terlebih dahulu pada bagian deklarasi. Menggunakan kata cadangan Label diikuti oleh kumpulan identifier label dengan dipisahkan oleh koma dan diakhiri dengan titik koma.
Contoh :
Label
Output : Bahasa
Pascal
100, selesai ;
Begin
Writeln ( ‘Bahasa’ ) ;
Goto 100 ;
Writeln ( ‘Cobol’ ) ;
100 :
Writeln ( ‘Pascal’ ) ;
Goto selesai ;
Writeln ( ‘Fortran’ ) ;
Selesai :
End .
1.3.5 Deklarasi Prosedur
Prosedur merupakan bagian yang terpisah dari program dan dapat diaktifkan dimanapun didalam program. Prosedur dibuat sendiri bilamana program akan dibagi-bagi menjadi beberapa blok-blok modul. Prosedur dibuat didalam program dengan cara mendeklarasikannya dibagian deklarasi prosedur. Menggunakan kata cadangan Procedure.
Konsep dasar pemrograman pascal
Algoritma & Pemrogram 2A
Contoh :
Procedure tambah ( x, y : integer ; var hasil : integer ) ;
Begin
Hasil : = x + y ;
End ;
Output :
2 + 3 = 5
{program utama}
var
z : integer ;
Begin
Tambah ( 2, 3, z ) ;
Writeln ( ‘ 2 + 3 = ‘, z );
End .
1.3.6 Deklarasi Fungsi
Fungsi juga merupakan bagian program yang terpisah mirip dengan prosedur, tetapi ada beberapa perbedaannya. Kata cadangan yang digunakan Function.
Contoh :
Function Tambah ( x, y : integer ) : integer ;
Begin
Tambah : = x + y ;
End ;
{program utama}
Begin
Writeln ( ‘ 2 + 3 = ‘ , Tambah ( 2, 3)) ;
End .
1.4 Unit
Suatu unit adalah kumpulan dari konstanta, tipe-tipe data, variable, prosedur dan fungsi-fungsi. Tiap-tiap unit tampak seperti suatu program Pascal yang terpisah. Unit standar sudah merupakan kode mesin (sudah dikompilasi), bukan kode sumber Pascal lagi dan sudah diletakkan di memori pada waktu menggunakan pascal. Untuk menggunakan suatu unit, harus diletakkan suatu anak kalimat Uses diawal blok program, diikuti oleh daftar nama unit yang digunakan.
1.4.1 Unit System
Sebenarnya adalah pustaka dari runtime Turbo Pascal yang mendukung semua proses yang dibutuhkan pada waktu runtime. Unit system berisi semua prosedur dan fungsi standar turbo pascal. Unit system ini akan secara otomatis digunakan didalam program, sehingga boleh tidak disebutkan didalam anak kalimat Uses.
Konsep dasar pemrograman pascal
Algoritma & Pemrogram 2A
1.4.2 Unit Crt
Digunakan untuk memanipulasi layer teks ( windowing, peletakkan cursor dilayar, color untuk teks, kode extanded keyboard dan lainnya). Unit standar crt hanya dapat digunakan oleh program yang digunakan dikomputer IBM PC, IBM AT, IBM PS/2 atau yang kompatibel dengannya.
Contoh :
Uses crt ;
Begin
Clrscr ;
Writeln ( ‘Hallo’ ) ;
Writeln ( ‘-------‘ ) ;
End .
Prosedur standar yang menggunakan unit crt adalah :
AssignCrt
HighVideo
Sound
ClrEol
InsLine
TextBackground
ClrScr
LowVideo
TextColor
Delay
NormVideo
TextMode
DelLine
NoSound
Window
GotoXY
Fungsi standar yang menggunakan unit Crt adalah :
KeyPressed
ReadKey
WhereX
WhereY
1.4.3 Unit Printer
Merupakan unit yang sangat kecil dirancang untuk penggunaan printer didalam program.
Contoh :
Uses printer ;
Begin
Writeln ( Lst, ‘Hallo’ ) ;
Writeln ( Lst, ‘-------‘ ) ;
End .
Konsep dasar pemrograman pascal
Algoritma & Pemrogram 2A
1.4.4 Unit Dos
Digunakan bila akan menggunakan prosedur-prosedur dan fungsi-fungsi standar yang berhubungan dengan DOS call, semacam DetTime, SetTime, DiskSize, DiskFree dan lainnya.
Contoh :
Uses Dos ;
Begin
Writeln ( DiskFree(0), ‘ byte sisa isi disk ‘ ) ;
End .
1.4.5 Unit Graph
menyediakan suatu kumpulan rutin grafik yang canggih, sehingga dapat memanfaatkannya untuk keperluan-keperluan pembuatan grafik.
contoh :
Uses graph ;
Var
DriveGrafik, ModeGrafik : integer ;
I, x, y : integer ;
Begin
DriveGrafik : = detect ;
…….
…….
End .
Konsep dasar pemrograman pascal

Aplikasi encryption kryptographic

Aplikasi encryption kryptographic

Form dari beberapa Algoritma Kriptografi 

 

Form Caesar Chiper

 

Source Code Caesar Chiper

Public Class caesar_chiper
    Private Sub caesar_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plaintxt.Text = ""
        chipertxt.Text = ""
    End Sub
Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click
        Dim jumlah As Double = Len(plaintxt.Text)
        Dim x As String
        Dim x_kalimat As String = ""
        Dim i As Double
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(plaintxt.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            x_kalimat = x_kalimat + x
        Next i
        chipertxt.Text = x_kalimat
    End Sub
End Class