2.1 PEMROGRAMAN BORLAND DELPHI 7

Diposting oleh Unknown komentar (2)
 2.1 Tugas pemrograman delphi 7
Tugas mata kuliah "PEMROGRAMAN BORLAND DELPHI 7" yang pertama kali ini adalah tentang "membuat program dengan menampilkan grade nilai dengan menggunakan statement case of " dengan kriteria:
nilai 0 s/d 25 Grade = E
nilai 26 s/d 55 Grade = D
nilai 56 s/d 75 Grade = C
nilai 76 s/d 85 Grade = B
nilai >86 Grade = A

dengan menggunakan basis teks maka inilah langkah-langkah mengerjakan delphi 7 :

  • pertama mulailah membuka program delphi 7
  • setelah terbuka pilih menu file > new > other 
  • kemudian akan tampil kotak new items > console application

  • setelah muncul kotak script maka tulislah script tersebut, seperti :
program nilaigrade;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  nilai:integer;
  grade, ket:string;

begin
  write ('masukkan nilai anda = '); readln(nilai);
case nilai of
  0..25 : begin grade:='E'; ket:='jelek' end;
  26..55 : begin grade:='D'; ket:='kurang' end;
  56..75 : begin grade:='C'; ket:='cukup' end;
  76..85 : begin grade:='B'; ket:='baik' end;
  else
  begin grade:='A'; ket:='amat baik' end;

end;
  writeln('Grade = ',grade);
  writeln('keterengan = ',ket);
  readln;

end.

  • jalankan program tersebut dengan run program atau F9 dan akan muncul kotak basis teks seperti di bawah ini :


nilai 24 grade E keterangan "jelek"


nilai 48 grade D keterangan "kurang"



nilai 68 grade C keterangan "cukup"


nilai 83 grade B keterangan "baik"



nilai 99 grade A keterangan "amat baik"


  • dan yang terakhir adalah save jika diperlukan

nama saya : Aisyah Ar-Rudhowi...sekian tugas "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.1 dan akan dilanjutkan tugas delphi dengan nomer urut 2.2...

Jangan dilewatkan yyyy....

 

2.2 PEMROGRAMAN BORLAND DELPHI 7

Diposting oleh Unknown komentar (0)
2.2 Tugas pemrograman delphi 7
             
   Tugas mata kuliah "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.2, diberi tugas oleh dosen mata kuliah dengan tugas "membuat tugas bebas dengan menggunakan case of  minimal tiga pencabangan dengan basis teks" dan kali ini saya mencoba membuat progam tentang potongan harga, karena saya belum pernah belajar tentang ini di sekolah saya dulu SMA maka mohon dimaklumi jika progam saya kurang menarik ya..bagi para pembaca..
Kriteria progam saya:
- Pembeli akan mendapat potongan harga jika barang yang dibeli memenuhi harga yang telah ditentukan di    bawah ini :

  • 200.000 - 500.000 mendapat potongan 30%
  • 600.000 - 1.000.000 mendapat potongan 50%
  • >1.000.000 mendapat potongan 60%
Berikut cara membuat program tersebut:
  • pertama mulailah membuka program delphi 7
  • setelah terbuka pilih menu file > new > other 

  • akan muncul kotak new items > console application



    • setelah muncul kotak script tulislah script pada kotak tersebut
    program jumlahdiskon;

    {$APPTYPE CONSOLE}

    uses
      SysUtils;

    var
      nilai:integer;
      ket, potongan:string;

    begin
      write ('masukkan jumlah harga = Rp.'); readln(nilai);

    case nilai of
      200000..500000 : begin ket:='selamat anda mendapat potongan';
      potongan:='30%' end;
      600000..1000000 : begin ket:='selamat anda mendapat potongan';
      potongan:='50%' end;
      else
      begin ket:='selamat anda mendapat potongan';potongan:='60%' end;

    end;
      writeln('keterangan = ', ket);
      writeln('jumlah potongan yang didapat = Rp. ', potongan);
      readln;

    end.


    • jalankan program tersebut dengan "run program" atau F9 dan akan muncul kotak basis teks seperti berikut.



    gambar runing program


    harga 345.000 dengan potongan 30%


    harga 673.000 dengan potongan 50%


    harga 2.348.000 dengan potongan 60%



    • dan yang terakhir adalah save jika diperlukan
    Nama saya : Aisyah Ar-Rudhowi ...sekian tugas "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.2

    Sekian tugas yang 2 tunggu tugas-tugas yang lain y.......

     

    Diposting oleh Unknown komentar (0)

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;

    type
      TForm1 = class(TForm)
        Masukkan_Nilai: TLabel;
        txtNilai: TEdit;
        Keterangan: TLabel;
        txtstatus: TEdit;
        cmdHasil: TButton;
        Label3: TLabel;
        GroupBox1: TGroupBox;
        Label1: TLabel;
        Label2: TLabel;
        procedure cmdHasilClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.cmdHasilClick(Sender: TObject);
    Var
      nl:integer;
    begin
      nl := strtoint(txtNilai.text);
      if nl >70 then txtstatus.Text := 'Lulus'
      else txtstatus.Text := 'Tidak lulus';

    end;

    end.

     

    KARAY KE-2 qw

    Diposting oleh Unknown komentar (0)
    RATAPAN TAKDIR INI




    RATAPAN TAKDIR

    Dalam jiwa sepi
    Relung hati yang hampa
    Sebuah jalan bertepi
    Yang tak tentu dimana

    Hidup tak bertuan
    Penuh tantang dan rintang
    Tak peduli ratapan
    Waktu tetaplah riang

    Tak mau berhenti
    Karna waktu tetap maju
    Entah sampai kapan terjadi
    Hingga matahari tersipu malu

    Menyerah ataulah pasrah
    Semua hampir sama
    Obsesi ataulah optimis
    Seakan terlihat beda

    Terima takdir buka tangan
    Iringi waktu yang nyaman
    Meski sakit dirasa ngilu
    Dengan tangguh jiwa tetaplah maju

    maju.........maju.....maju
    Bahagia berada di depan

     

    Diposting oleh Unknown komentar (0)
    <a href="http://www.kampungblog.com"><img src="http://www.kampungblog.com/button.php?u=aisyaharrudowi" alt="KampungBlog.com - Kumpulan Blog-Blog Indonesia" border="0" /></a>

     

    Diposting oleh Unknown komentar (0)
    Lomba Resensi  5  Buku Penerbit Jendela (Grup Zikrul Hakim) 

















    Assalamualaikum Wr, Wbb
    Salam kreatif!
    Buku saat ini bukan hanya sekedar bahan bacaan pengisi waktu luang semata. Lebih dari itu buku memiliki peran tersendiri sebagai sesuatu yang menginspirasi serta menyebarkan hal-hal positif yang tentunya berguna dalam kehidupan sehari-hari.
    Sebagai penerbit yang konsen menghadirkan buku-buku inspiratif dan berkualitas, Jendela (Grup Zikrul Hakim) terus memberikan alternatif bacaan yang segar, menghibur, inspiratif dan tentu saja mencerahkan pembacanya. Ini dibuktikan dengan buku-buku yang telah terbit dan berhasil menarik animo masyarakat luas.
    Beberapa buku yang baru saja diluncurkan belakangan ini juga tak kalah menarik, 5 buku inspiratif yang siap memberi warna berbeda pada dunia perbukuan di negeri ini.
    Kelima buku tersebut adalahOrang Bilang Aku Teroris (Pipiet Senja), Cintaku di Negeri Jackie Chan (Ida Raihan), Catatan Cinta dari Mekkah (Awy Ameer Qolawun), Aku Tidak Membeli Cintamu (Desni Intan Suri) dan Catatan Ibu Bahagia (Leyla Hana).
    Untuk itu kami mengajak pembaca sekalian untuk berpartisipasi dalam Lomba Resensi Buku Jendela (Grup Zikrul Hakim) dengan ketentuan sebagai berikut:
    1. Peserta adalah WNI berdomisili di mana pun
    2. Membuat resensi dari 5 buku yang disebutkan di atas (boleh salah satu/semuanya) dengan ketentuan panjang naskah 2-3 halaman folio, margin 3 (atas, bawah, kanan, kiri), jarak spasi 1,5, font Times New Roman
    3. Naskah  dikirim ke email pipiet_senja@yahoo.com cc: remonagus@yahoo.com dalam format attachment (bukan di badan email) disertai biodata dan nomor yang bisa dihubungi dan mencantumkan LOMBA RESENSI PENERBIT GRUP ZIKRUL HAKIM_NAMA PESERTA (contoh: LOMBA RESENSI PENERBIT GRUP ZIKRUL HAKIM _TANIA PUTRI) pada subject email dan juga melampirkan bukti pembelian buku berupa scan struk pembelian.
    4. Selain dikirim via email, peserta wajib mempublikasikan naskah resensi di internet. Boleh melalui blog, website atau catatan/note Facebook dengan men-tag atau share ke akun Pipiet Senja dan Remon Agus serta menyebarkan info lomba ini (boleh terpisah/menyatu dengan naskah lomba) kepada minimal 10 orang  atau  ditampilkan di blog atau website masing-masiing. Bisa juga link naskah resensi dicantumkan pada situs www.zikrulhakim.com di bagian buku tamu.
    5. Lomba ini dilaksanakan mulai 14 Maret 2012 dan ditutup pada 16 Mei 2012 pukul 24.00 WIB
    6. Keputusan juri tidak dapat diganggu gugat.
    Adapun pemenang lomba ini akan diambil 5 pemenang dengan hadiah sbb:
    Pemenang pertama        :Paket buku senilai Rp. 750.000,-
    Pemenang kedua            :Paket buku senilai Rp. 600.000,-
    Pemenang ketiga            :Paket buku senilai Rp. 500.000,-
    Pemenang keempat        :Paket buku senilai Rp. 400.000,-
    Pemenang kelima           :Paket buku senilai Rp. 300.000,-
    Serta ada hadiah spesial untuk siapapun yang naskah resensinya dimuat di media cetak (koran/majalah).
    Selamat membaca buku-buku terbaik dari Jendela (Grup Zikrul Hakim) dan berbagi kesan kepada masyarakat literasi Indonesia..
    Selamat berkarya!
    PJ Jendela (Grup Zikrul Hakim)

    Aisyah Ar-Rudhowi

     

    resensi novel Cintaku di Negeri Jakcie Chan

    Diposting oleh Unknown komentar (2)

    judul           : Cintaku di Negeri Jackie Chan

    Harga           : Rp. 50.000.00

    pengarang       : Ida Raihan

    Penerbit        : jendela lini Zikrul Hakim

    Tahun terbit    : 2012

    Tempat terbit   : Jakarta

    Ukuran buku     : 14 cm x 20,5 cm 

    jumlah halaman  : 304 halaman

    Katagori        : novel


    NOVEL INSPIRATIF ISLAMI IDA RAIHAN YANG TERPUTUS


    Ida Raihan lahir pada 13 juni di Lampung. mulai menekuni menulis sejak mengenal FLP Hong Kong, 2007. sejak itu karyanya berupa cerpen, puisi, artikel, menghiasi media massa berbahasa indonesia di Hong Kong dan Taiwan. salah satu karya novel di tahun 2012-nya adalah " Cintaku di Negeri Jakcie Chan".


    Cerita ini dimulai dari gagalnya sebuah cita-cita. Azura nama gadis itu akhirnya bertekad menjadi seorang TKW di Hong Kong, dengan membawa sebuah harapan untuk menyekolahkan adik-adiknya supaya tidak menjadi manusia bodoh. Di Hong Kong inilah awal dari sebuah kehidupan yang penuh perjuangan.Menjalani 2 kehidupan dunia, yang pertama dunia nyata yang berjuang untuk memecahkan teka-teki amplop putih dari lidya untuk sheril, masalahnya yang dihadapi dengan Grace, pekrjaan di wiharanya serta beberapa forum yang menjadi bagian hidup Azura. Dan yang kedua adalah dunia kemayaan, Azura mengenal dunia luar melalui dunia maya seperti chating, blogging, browsing. Dunia maya juga mengingatkannya akan haus ilmu.


    Herri, Thoriq, Amar, Harun, Irhas, Abi Sabrina, Abu Ridho, Amri, Fahmi, dan Haikal adalah orang-orang yang pernah mewarnai hidup Azura dalam dunia kemayaan. merasakan kecewa, sedih, patah hati, cinta di dalam kemayaan, itu yang dialami Azura.


    Cerita yang sungguh menarik, penulis mampu menyuguhkan cerita dengan latar yang sangat bagus sehingga pembaca seolah-olah berada juga di tempat itu dan mengetahui situasi disana. "Bangunan sogo dengan kaca gelapnya terlihat cemerlang di sisi kanan station MTR. Aku melangkah memutuskan untuk menyusuri Paterson Street. biarpun disana terlihat ramai orang yang berlalu lalang, tapi jalannya lebih luas dibanding trotoar Hannessy road. Begitu aku keluar dari Paterson Street, jembatan bundar langsung terlihat jelas....(hal. 44)


    Dengan menyisipkan sekelumit nasehat dari Al-Qur'an dan pencitraan cerita secara islami tanpa dengan sengaja penulis sudah memberi beberapa nasehat kepada setiap pembaca, dipadu dengan flashback (alur maju-mundur atau kilas balik) yang tidak membuat pembaca menjadi bingung dan menambah daya tarik pembaca untuk mengetahui ceritanya.


    Ada beberapa amanat yang telah tersampaikan di dalam novel ini salah satunya adalah bahwa TKW bukanlah hanya bekerja tetapi dia bisa juga berorganisasi dan berkarya, pengorbanan yang memang karena Allah SWT pasti akan mendapat balasan yang indah sesuai pengorbanannya tidak ada masalah yang tidak dapat diselesaikan, serta Allah SWT telah menyiapkan jodoh untuk siapa saja ( wanita yang hebat hanya untuk pria yang hebat). Sungguh bermanfaat bagi para pembaca yang mampu mengambil secercah nasehat atau amanat yang tersampaikan dalam novel ini.

     

    Cerita yang tidak begitu mendewasa atau kekanak-kanakan di dalam novel ini sehingga cocok untuk dibaca oleh para remaja, dewasa, atau para orang tua, atau juga novel ini bisa disebut novel untuk semua kalangan karena isi dari novel ini tidak membatasi pada setiap umur untuk membacanya.


    saat membaca novel tersebut masih ada saja bahasa yang mungkin belum semua pembaca mengerti artinya, terdapat beberapa bahasa yang kurang baku serta sulit difahami bagi setiap pembaca. " sebelum aku sadar apa yang terjadi, gedebuk keras berdentum tidak jauh dariku.....(hal. 16)" dan " Ianya tidak akan pernah sepi kecuali diatas jam sebelas malam...(hal. 40)"


    Ketika akan sampai pada batas akhir sebuah novel ini dan sudah menyelesaikan dalam membacanya seperti ada yang hilang dari sebuah cerita tersebut, apakah memang bersambung dan akan ada kisah selanjutnya? entahlah....! Cerita yang terputus membuat ketidakpuasan pembaca, pembaca yang mulai dari awal sudah memperkirakan akan kebahagian Azura entah menikah atau menggapai cita-citanya ternyata cerita itu terputus hanya dengan lambaian tangan untuk seorang ustadz yang akan meminangnya saat akan pergi ke Hong Kong. Hal tersebut bisa menyebabkan pembaca hanya ingin menyelesaikan kewajiban apa yang sudah dimulainya untuk diakhiri. Harapan selanjutnya, semoga buku atau novel selanjutnya bisa lebih baik atau mungkin yang terbaik dari yang baik dan bermanfaat bagi semua pembaca.

     

    Hidup

    Diposting oleh Unknown komentar (0)

     Kehidupan Dunia

    kehidupan adalah sebuah jalan gelap dimana pemainnya wajib mencari lampu. Entah saling membantu atau individu itu terserah. menuju tempat indah nan damai. Siapa yang benar jalannya maka ia mendapat tempat yang diinginkan, tapi jika ia tersesat atau salah jalan maka tempat itu adalah jurang yang menjatuhkannya. Jangan sia-siakan hidupmu karena permainan dan waktu permainan mu masih ada, carilah lampu sebanyak-banyaknya agar semakin terang.