CONTOH PERULANGAN DELPHI

Pengulangan pada Delphi

Saya akan menjelaskan pemrograman delphi yang menjelaskan tentang perulangan
Berikut ini adalah alur dan logika program diatas.

unit Program perulangan;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Memo1: TMemo;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Pertama-tama adalah membuat desain, langkah ini sangat mudah dilakukan, yaitu dengan cara mengarahkan mouse pada butoon atau component yang diinginkkan. Pada program ini saya membuat 3 label, 2 edit.text, 2 button dan 1 memo. Setelah mendesain dengan componet tersebut, maka otomatis delphi mengkoding seperti code diatas. Code diatas adalah 1 form, 3 label, 2 edit.text, 2 button dan 1 memo. Kemudian, ini adalah bagian terpenting yaitu, merubah nama masing - masing component tersebut. Pada program ini saya merubah :

Label1 = PROGRAM PENGULANGAN

Label2 = Angka Awal

Label3 = Banyak Ulang

Edit1 = (Kosong)

Edit2 = (Kosong)

Button1 = WHILE – DO

Button2 = Cancel

Memo1=(Kosong)

Langkah yang kedua adalah klik 2x pada button While-Do, maka akan muncul isian codenya. Setelah muncul masukkan code yang ada dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

E,F : Integer;

begin

Memo1.Clear;

E:= Strtoint(Edit1.Text);

F:= 1;

while F <> Strtoint(Edit2.Text) do

begin

Memo1.Lines.add('Perulangan ke- '+inttostr(F)+' = '+inttostr(E));

E:=E+1;

F:=F+1;

end;

end;

Fungsi dari button  While-Do adalah untuk menampilkan perulangan.

Langkah yang ketiga adalah dengan cara yang sama seperti tadi, klik 2x pada button Cancel, dan masukkan code yang ada dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);

begin

if (Application.MessageBox('Ingin keluar dari program ini ?','Konfirmasi',Mb_YesNo)=ID_Yes)

then

begin

Application.Terminate;

end;

end;

end.

SEORANG ANAK YANG SENGSARA

MANUSIA DAN PENDERITAAN

Cerita ini manceritakan tentang kehidupan seorang anak perantau yang mencari ilmu ke luar kota dan menumpang dengan tantenya, tetapi tanpa di duga kelakuan dan sifat tantenya tidak sesuai dengan apa yag dia pikirkan, tetapi ana ini tetap tegar dan tabah dalm menjalaninya, karena dia menganggap ini sebagai pelajaran buat kehidupannya di depan nanti dan selalu meminta pertolongan dari tuhan yang menciptakannya .

SEORANG ANAK YANG SENGSARA

Pada suatu hari di dalam sebuah keluarga ada empat orang dalam satu rumah yaitu seorang ibu dan tiga orang anak yang tinggal ayahnya untuk mencari nafkah luar kota, dalam keluarga itu ada seorang anak yang bernama DONI yang pada ahirnya dia telah menyekesaikan sekolah SMAnya dan lulus dengan nilai yang cukup, itulah saatnya dia menjadi tumbuh dewasa dan akan melanjutkan pendidikannya untuk mencapai cita-citanya, saat itu dia berpikir ingin melanjukan kuliah dimana dan akirnya dia memutuskan untuk pergi merantau di Jakarta untuk mencari ilmu dan membantu ayahnya yang ada di Jakarta juga. Setelah beberapa minggu kemudian sesudah menerima kelulusan akhirnya DONI pun pergi dengan hati yang senang tapi sedih untuk meninggalkan ibunya yang sendirian merawat adik-adik dari doni yaitu ADI dan ADAM, saat mobil keberangkatan sampai akhirnya DONI berangkat dan memeluk ibunya untuk berpamitan ingin pergi menggapai cita-citanya di luar kota dan akhirnya DONI pun naik mobil dan melambaikan tangan pada keluarganya .

Setelah tiga hari dalam perjalan ke Jakarta DONI akhirya sampai juga dan ayahnya telah menunggu untuk mnjemput anaknya tersebut lalu berangkat lagi untuk pergi ke rumah keluarga yang ada di Jakarta. Dalam perjalanan ayahnya menceritakan tentang masa kecilnya saat sekolah di Jakarta dan memberitahu untuk menjaga diri di Jakarta dari kerusakan yang ada di kota tersebut, setelah beberapa jam dalam perjalanan ke rumah kakeknya DONI pun sampai dengan selamat dan di sambut oleh keluarga yang ada di sana dan membagi-bagi kan oleh-oleh dari kampung untuk keluarganya, setelah beberapa jam ayahnya pergi lagi untuk melanjutkan pekerjaannya dan meninggalkan DONI tinggal di rumah tersebut untuk sementara dan ayahnya pun berpamitan pada kakek dan pergi melanjutkan perjuangannya untu mencari nafkah, setelah beberapa hari di tinggal akhirnya dia mencari universitas mana yang ingin dia tetapi dan akhirnya dia mencoba pada tiga universitas yaitu UI, UNJ, dan DARMA PERSADA lalu dia mendaftarkan diri pada tiga universitas itu dan mengikuti ujian coba untuk masuk dlam universitas tersebut, pada akhirnya saat menerima hasll ujian tersebut dan dia lolos pada tiga universitas itu dan dia memilih untuk mengambil UI untuk melanjutkan pendidikannya.

Setelah semua seleai dia pun pergi ke depok dan tinggal dengan tantenya yang ada di sana dan berharap agar di terima dengan baik dalam keluarga tersebut, lalu dia pergi dan berpamitan pada kake dan keluarganya yang ada di situ dan DONI melanjutkn perjalanannya, saat beberapa jam kemudia DONI akhirnya sampai dengan selamat di rumah tantenya dan tantenya senang karna baru pertama kalinya melihat DONI, setelah beberapa hari dia tinggal di situ suasana dalm keluarga itu berubah, setiap saat DONI di suruh-suruh untuk mengerjakan pekerjaan rumah seperti cuci piring, menyetrika, menyapu, mengepel dan sebagainya, setiap saat doni tidak bisa beristirahat dan belajar selayaknya seorang mahasiswa, setiap DONI ingin belajar dia disuruh ini itu yang membuat waktunya terbuang percuma, setiap hari disuruh-suruh seperti pembantu yang tidak diberi waktu untuk beristirahat dan diapun selalu kelelahan saat pergi untuk kuliah. Saat ada sesuatu yang rusak yang akan di salahkan adalah DONI yang tidak tau apa-apa tentang hal tersebut .

Setiap saat DONI selalu diperlakukan secara tidak wajar dalam keluarga itu, dia selalu di dia caci maki di bulli dan bahkan di pukuli dengan alasan yang bukan dia kerjaan, saat keluarga itu ingin makan pada sebuah restoran si DONI hanya di suruh menunggu tanpa diberi makan walau hanya sedikit saja, DONI hanya disuruh untuk menjaga di mobil agar tidak hilang dan DONI pun tdak bisa berbuat apa-apa dengan keadaan keuarganya ang seperti itu, setiap tantenya ingin belanja DONI disuruh untuk membawa semua belanjaannya yang berat-berat sampai ke rumah dengan jalan kaki. Dalam keluarga itu ada seorang anaknya yang sangat benci dengan DONI karena dia merasa iri dengan DONI yang bisa mendapatkan pendidikan di UI, setiap hari DONI di pukul oleh anak tante tersebut dan setiap ada kesalahan yang dia lakukan pasti di alihkan kesalahan itu pada DONI dan akhirnya selalu saja disalhkan pada DONI sehingga doni tidak tenang saat ada masalah apapun yang dilakukan anak tantenya tersebut.

Setiap saat rumah kosong DONI selalu bersembunyi-sembunyi untuk makan dan minum karena tidak pernah di perhatikan oleh tantenya, sehingga sampai saat ini dia tetep melakukan ha tersebut untuk bertahan hidup, Karena orang tuanya mengirim uang untuk ongkosnya tidak bisa terlalu banya, jadi tidak ada uang lebih untuk dia makan dan minum di luar, jadi dia terpaksa mengambil uang tantenta secara bersembunyi-sembunyi, tetapi dia tidak ketahuan melakukan hal tersebut oleh tantenya dan DONI selalu saja melakukannya, setiap di kelas dia ngantuk dan tidur dalam kelas karea di rumah dia selalu tidur malam karena melakuka hal-hal yang berat setiap malam hari dan tidak punya cukup waktu u uk beristirahat .

Tetapi DONI setiap dalam soalatnya dia berdoa kepada tuhan agar menjaganya dari bahaya dan berdoa agar semua yang dialaminya itu adalah cobaan dari tuhan untuk menuju cita-cita yang ingin dia capai, dan DONI tidak pernah mengeluh untuk melakukannya dan selalu tabah dalam menjalani kehidupannya itu, karena dia berpikir setelah semua selesai mungkin akan lebuh susah dari apa yang dia alami saat ini dan dia selalu bertawakal agar diberi petunjuk yang benar, dia berjuang sekuat tenaga untuk menjalaninya.

.

KEKUATAN CINTA SEJATI

MANUSIA DAN CINTA KASIH

Dalam mejalankan hidup itu kita harus mempunyai pasangan hidup agar dalam hiduup kita tidak sepi sendiri tanpa seorang pendampig hidup di dunia ini jadi manfaatkan hidupmu untuk ri mencari pasangan sehidup sematimu, dalam cerita berikut ini adalah pertemuan antara dua pasangan yang saling mencintai dan saling menyayangi dan tidak memperdulikan orng lain yang igin memisahkan ikatan mereka berdua walau apapun yang terjadi, semoga tesentuh hatinya bagi yang membacanya .

KEKUATAN CINTA SEJATI

  Di suatu tempat tinggallah seorang laki-laki yang bernama Rizki, dia adalah anak dari kedua orang tua yang berkehidupan sederhana tapi mereka bahagia. Pada suatu hari anaknya ini teleh menyelesaikan pendidikan SMAnya dan akan melanjutkan kuliah yang bertempat tidak jauh dari rumhnya, disisi lain dari keluarga perempuan atau bisa di bilang pasangan dari laki-laki tadi yang tinggal dalam keluarga yang berkehidupan cukup mapan nama perempuan itu adalah Hany dan sudah menyelesaikan SMAnya dan melanjutkan kuliah di tempat yan sama dengan Rizki tetapi mereka belum saling kenal.

Setelah mereka berdua lulus tes dalam universitas yang sama akhirnya mereka mengikuti ospek dan melakukan hal-hal yang di suruh oleh kakak kelasnya, nah pada kesempatan itu mereka saling melirik-lirik malu tetapi belum saling mengenal satu sama lain, pada saat itu mereka bertanya-tanya pada dirinya “ siapakah namanya “ tetapi mereka masih belum berani untuk berkenalan. Setelah ospek selesai dan perkuliahan di mulai mereka tidak tau dimanakah orang yang bertemu pada saat ospek waktu lalu dan merekapun sudah tidak ingat lagi tentang itu dn menjalani kuliah seperti biasanya .

Beberapa bulan kemudian waktu bergulir pada satu kesempatan Rizki sepulang dari perkuliahannya dia pergi mengunungi kosan temanya, tanpa di sengaja dia melihat perempuan yang saat hari ospek waktu itu, tetapi Rizki tidak menyapanya dan si perempuan juga melihatnya dan tidak menyapa, setelah itu tanpa di sengaja teman dari Rizki ingin memanggil seorang temannya yang berteman dengan Hany tetapi yang menengok malah si Hany dan dia menyangka bahwa yang memanggil itu adalah Rizki, tetapi mereka tidak menyapa, tanpa disadari Hany meminta pin BB dari temanya Rizki dan ingin mengivite Rizki dan diterima oleh Rizki pertemanannya.

Pada saat itu Hany pun mengechat dengan si Rizki dan merekapun sudah saling kenal satu sama lain, karena sudah lama sekali mereka chatingan akhirnya timbul rasa suka antara keduanya dan tanpa ragu Rizkipun menembak Hany, disitulah awal dari cerita cinta mereka di mulai .

Mereka adalah pasangan yang serasi dan sehati, setiap keinginan, hobi, kegemaran dan sebagainya selalu sama tanpa perbedaan sekecil apapun, dari boneka yan mereka miliki, jumlahnya, club sepak bola dan sebagainya tidak ada yang beda, mungkin ini yang dinamakan cinta sejati mereka. Setiap ada masalah mereka hadapi berdua memecahkan masalah tersebut, susah senang mereka jalani bersama dan karena Hany saking cinta kepada Riski, dia tidak pernah mempercayai omongan-omongan orang yang mejelek-jelekkan Rizki, Hany hanya percaya sepenuhnya pada Rizki.

Pada saat pertama rizki menembak Hany sehingga dia menjadi sngat cinta dan tidak ingin berpisah dengan Rizki karena pada saat itu Rizki berkata “ Hany sebenarnya aku tidak ingin menembak kamu untuk menjadi pacar aku, tapi aku akan menyatakan apakah kamu mau jadi pendamping hidupku untuk selamanya, mau suasah, senang, setiap kita dalam masalah sekecil apapun itu kita harus menjalaninya dengan sama-sama apapun yang ingin orang katakan jangan di perdulikan dan kita harus yakin dan saling mempercayai satu sama lain “nah dengan kata-kata itulah hati Hany menjadi luluh dan tanpa keraguan menjawab iya pada Rizki dan akhirnya sampai sekarang mereka tidak pernah mengalami masalah dalam hubungan mereka, setiap teman bertanya pada Rizki tentang pacarnya, Rizki menjawab dia tidak mempunyai pacar dan itu membuat teman-temannya heran, sehingga temannya itu melaporka pada Hany dan Hany pun menjawab bahwa Rizki bukanlah pacar dia karena Rizki adalah pendaming hidup untuk selamanya dan itu membuat teman-temannya mengerti apa itu cinta yang sebenarnya.

Dan pada akhirnya cinta mereka tidak pernah pudar dan luntur sampai sekarang dan cinta mereka malah semakin menguat bagaikan tembok yang menghalang pengganggu masuk untuk merusak hubungan antara mereka berdua, dan mereka hidup dengan bahagia dan berjanji akan sehidup semati.

CODINGAN LATEX

1. TABEL LEVEL

\documentclass{article}
\usepackage{multirow}
\begin{document}
\title{My Document}
\author{Abdul Ghafiqi Yamini}
\maketitle
This is my {\it first} document. This document will contained some of common document editing such as
\begin{itemize}
\item Bullets \& Numbering
\item {\bf Bold}, {\it Italic}, \underline{underline} texts
\item Table making
\item Paragraph
\end{itemize}
Hope this document help you understand well \LaTeX\
\begin{table}[h]
\begin{center}
\begin{tabular}{|c|c|c|}
\hline
\bf Language Level & \bf Name & \bf Visual Compiler \\
\hline
\multirow{2}{*}{\bf 1(Low Level)} & Machine language & - \\
& Assembly & Turbo Assembler \\
\hline
\multirow{3}{*}{\bf 2 (High Level)} & Pascal & Delphi \\
& BASIC & Visual Basic \\
& C++ & Microsoft C++ \\
\hline
\bf 3 (Very High Level) & mIRC script & - \\
\hline
\end{tabular}
\end{center}
\caption{Table of Computer Language Level}
\end{table}
\end{document}

2. TABEL MAHASISWA

\documentclass{article}
\begin{document}
\begin{center}
LAPORAN AKHIR
LATEX
\end{center}
\begin{flushleft}
{\it Nama : Abdul Ghafiqi Yamini} \\
{\it Kelas : 1KB03} \\
\underline{NPM : 20112028} \\
\end{flushleft}
\begin{center}
Tabel Mahasiswa \\
\begin{tabular}{|c|c|c|c|c|}
\hline
\bf No &\bf NAMA &\bf KELAS &\bf NPM &\bf JURUSAN \\
\hline
    1 & Adam & 1KA03 & 20112920 & Sistem Informasi \\
\hline
    2 & Fian & 1KB02 & 20112221 & Sist Komputer \\
\hline
    3 & Radi & 1KB03 & 22112339 & Sistem Komputer \\
\hline
    4 & Faris & 1EA14 & 23112429 & Manajemen \\
\hline
    5 & Sulis & 1KA03 & 20112202 & Sistem Informasi \\
\hline
\end{tabular}
\begin{table}
\caption{Tabel Mahasiswa}
\end{table}
\end{center}
\end{document}

3. PERUSAHAAN

\documentclass{article}
\usepackage{amsmath}
\usepackage{amssymb}
\usepackage{graphics}
\begin{document}
\title{\textbf{\underline{YAMINI FOOD}}}
\author{Abdul Ghafiqi Yamini}
\maketitle{}
\textbf{Menyediakan Berbagai Macam Menu}\\
\textit
%This Is a Comment \\
 Menu Makanan dan Minuman :
 \begin{enumerate}
 \item MAKANAN
 \begin{enumerate}
 \item Ayam Bakar
 \item Bebek Goreng Tepung
 \item Mie Yamin
 \item Nasi Goreng
 \item Steak Sapi
 \item Ayam kecap
 \item Ayam Penyet
 \item NASGEM
 \item DLL
 \end{enumerate}
 \item MINUMAN
 \begin{enumerate}
 \item Es Teh
 \item Es Jeruk
 \item Juice Alpukat
 \item Juice Mangga
 \item Juice Sirsak
 \item Juice Jambu
 \item DLL
 \end{enumerate}
 \end{enumerate}
\end{document}


Di atas adalah conto kecil untuk kodingan pada latex, semoga dapat bermanfaat .