KOMUNITASKU

Diposting oleh Unknown komentar (0)
GPR (GENERASI PEMUDA RODOWO)




Sebuah komunitas terbentuk dengan nama GPR (Generasi Pemuda rodowo). Sebuah komunitas yang mendedikasikan ilmu dan pengalaman untuk meghidupkan dusun, sehingga dusun itu menjadi dusun yang ramai kembali, dusun yang tidak melupakan gotong royong, dusun yang mementingkan kekerabatan dan kesejahteraan.

Dilihat dari namanya saja GPR adalah kumpulan dari pemuda-pemuda dusun rodowo, GPR sendiri mirip dengan organisasi pemuda "Karang Taruna" mulai dari kegiatan dan tujuannya. Kegiatan-kegiatan GPR yang sudah terlaksana adalah seperti TOURING, gotong royong desa, acara idul adha, 17 agustus, dll yang diselenggarakan dengan lancar dan sukses.

JAYA DAN SUKSES SELALU GPR.............

 

PROJECT MENGHITUNG TAHUN KABISAT

Diposting oleh Unknown komentar (0)
kali ini adalah sebuah project menghitung tahun kabisat berjumlah berapa dalam beberapa data tahun yang sudah di masukkan.
PROJECT TAHUN KABISAT
langkah pertama buatlah form untuk project tersebut. lihat form di bawah ini:
setelah itu masukkanlah scriptnya (listing program) supaya berjalan dengan baik, yaitu:
unit kabisat;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    data: TListBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label3: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i,a:integer;
 s:string;
 nilai:array[1..10] of string;
 kabisat:integer;
begin
 s:=inputbox('input data','MASUKKAN JUMLAH DATA:','0');
 kabisat:=0;
 for i:=1 to strtoint(s) do
 begin
  nilai[i]:=inputbox('DATA:'+inttostr(i),'TAHUN','');
  data.Items.Add(nilai[i]);
  edit1.Text:=inttostr(data.Items.count);
  a:=strtoint(nilai[i]);
  if((strtoint(nilai[i])mod 4)=0) then
  begin
   kabisat:=kabisat+1;
  end;

end;
edit2.Text:=inttostr(kabisat);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 data.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 close;
end;

end.

dengan begitu selesailah project di atas dan siap di jalankan sebagai contoh di bawah ini:

a. jika kita memulainya dengan tekan button "input" maka akan keluar sebuah perintah:
 dan suatu perintah:
b. ikuti perintah-perintah di atas/ isikan data-data sesuai perintah kemudian akan terlihat hasilnya:

SEKIAN kawan-kawan untuk tugas kali ini! mau undur diri dulu y......

 

Diposting oleh Unknown komentar (0)

FUNGSI PERULANGAN
            Sebuah program fungsi perulangan digunakan untuk mengulang suatu perintah tanpa menuliskan scriptnya kembali, fungsi perulangan yang di pelajari disini adalah for to do, for down to do, while do dan repeat until. Fungsi pengulangan ini digunakan untuk melakukan perulangan pada suatu baris perintah tertentu dan diulang sejumlah tertentu sesuai kondisi yang diberikan. Salah satu aplikasi fungsi ini adalah untuk menampilkan data dari suatu tabel database.

- Fungsi while

kondisi adalah syarat pengulangan yang akan dijalankan. perintah1, perintah2 dan seterusnya adalah baris-baris program yang akan diulang.

- Fungsi for()
Fungsi for merupakan fungsi pengulangan yang sama dengan while, namun for bersifat lebih rumit atau kompleks.

-Fungsi while …..do()
Fungsi do…while hampir sama dengan fungsi while, perbedaan dengan fungsi while adalah bahwa
 pengujian dilakukan pada akhir pengulangan.

Berikut adalah contoh dari fungsi perulangan :
Pertama buat form seperti gambar di bawah ini
 
Setelah kita selesai membuat formnya klik button dan tulis scripnya:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ForToDo: TButton;
    ForDowntoDo: TButton;
    WhileDo: TButton;
    RepeatUntil: TButton;
    btkeluar: TButton;
    btpangkat: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure btkeluarClick(Sender: TObject);
    procedure ForToDoClick(Sender: TObject);
    procedure ForDowntoDoClick(Sender: TObject);
    procedure WhileDoClick(Sender: TObject);
    procedure RepeatUntilClick(Sender: TObject);
    procedure btpangkatClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.btkeluarClick(Sender: TObject);
begin
 close;
end;

procedure TForm1.ForToDoClick(Sender: TObject);
var
i,j:integer; b:string;
begin
 b:=''; j:=2;
 for i:=1 to 10 do
 begin
  b:=b+inttostr(j)+'';
  j:=j+2;
 end;
 label1.Caption:=b;
end;
procedure TForm1.ForDowntoDoClick(Sender: TObject);
var
 i,j:integer; b:string;
begin
 b:=''; j:=2;
 for i:=10 downto 1 do
 begin
  b:=b+inttostr(i)+'';
  j:=j+2;
 end;
 label2.Caption:=b;
end;

procedure TForm1.WhileDoClick(Sender: TObject);
var
 i,j:integer; b:string;
begin
 i:=1;
 b:='';
 while i<=10 do
 begin
  b:=b+inttostr(i)+'';
  i:=i+1;
 end;
 label3.Caption:=b;
end;

procedure TForm1.RepeatUntilClick(Sender: TObject);
var
 i,j:integer; b:string;
begin
 i:=1;
 b:='';
 repeat
  b:=b+inttostr(i)+'';
  i:=i+1;
 until i>10;
 label4.Caption:=b;
end;

procedure TForm1.btpangkatClick(Sender: TObject);
var
 bil,hasil,pangkat,a:integer;
begin
 bil:=strtoint(edit1.Text);
 hasil:=bil;
 pangkat:=strtoint(edit2.Text);
 if edit2.Text='0' then edit3.Text:='1' else
 if edit2.Text='1' then edit3.Text:=edit1.Text
 else
  begin
   for a:=2 to pangkat do
    hasil:=hasil*bil;

    edit3.Text:=inttostr(hasil);
  end;
end;

end.

Dan selesai, program siap di running muncullah hasil seperti gambar berikut:
 
ini sebenarnya adalah project ke-2 dan telah selesai akan dilanjutkan pada project selanjutnya!!