Notepad++

Notepad++

Notepad++ adalah sebuah editor yang digunakan untuk mengedit syntaks pada c++,java atau lainnya notepad++ ini sangant membantu dalam mengedit syntaks jika terjadi kesalahan.



Download Notepad++ v.6.1.2

Read More

Free Download Microsoft Visio 2010 + Serial Key

Free Download Microsoft Visio 2010 + Serial Key 

Saya ingin Berbagi Software Berbayar Yaitu Microsoft Visio 2010,Visio ini digunakan untuk membuat flowchart pemrograman,sebelum membuat program kita harus membuat flowchart terlebih dahulu,silahkan download guys.........

Download Visio 2010 (size:293Mb) -- 32bit

Download Visio 2010 (size:343Mb) -- 64bit

 
• Download Pada Link diatas,,dan Install

• Masukkan Serial Number → 228H4-T92MF-Q8PQJ-CGWRG-8KW92
   Dan → Continue

Read More

PROGRAM SEDERHANA DELPHI

PROGRAM SEDERHANA DELPHI

LISTING PROGRAM

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Button5: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure Button5Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin showmessage( 'Nama   :'+edit1.Text+#13#10+ 'NPM    :'+edit2.Text+#13#10+ 'Kelas  :'+edit3.Text); end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Clear; edit2.Clear; edit3.Clear; end; procedure TForm1.Button3Click(Sender: TObject); begin Form1.Color := clYellow; end; procedure TForm1.Button4Click(Sender: TObject); begin Form1.Color := clBlue; end; procedure TForm1.Button5Click(Sender: TObject); begin close; end; end.

LOGIKA PROGRAM

Pada pemrograman kali ini akan membahas mengenai input data mahasiswa yang berupa nama,npm,dan kelas dan merubah warna form dengan menggunakan komponen edit dan button. Berikut adalah listingnya:

Berikutnya adalah menampilkan hasil data yang telah diinput, berikut adalah listingnya:

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(

'Nama :'+edit1.Text+#13#10+

'NPM  :'+edit2.Text+#13#10+

'Kelas  :'+edit3.Text);

end;

Listing program diatas mengartikan bahwa semua data yang sudah di input di komponen edit lalu jika diklik button “OK” akan muncul messagebox dengan data yang sudah kita input.

Berikutnya adalah membersihkan coloums edit yang telah diinput, berikut adalah listingnya:

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

end;

Pada pemrograman diatas berarti kita harus klik tombol button2 dua kali dan listing program di atas digunakan untuk membersihkan coloums atau membersihkan bagian edit1 sampai edit3 yang berupa nama,npm dan kelas.

Berikutnya adalah listing program untuk merubah warna form. Berikut adalah listing programnya:

procedure TForm1.Button3Click(Sender: TObject);

begin

form1.Color:=clYellow;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form1.Color:=clBlue;

end;

Dari listing program di atas kita harus mengklik setiap button3 dua kali untuk menuliskan listing. CLYELLOW berarti kita merubah warna form menjadi kuning, CLBLUE berarti kita merubah warna form menjadi biru.

Berikutnya adalah menutup aplikasi yang telah diinput, berikut adalah listingnya:

procedure TForm1.Button5Click(Sender: TObject);

begin

Close;

end;

Pada pemrograman diatas berarti kita harus klik tombol button5 dua kali dan listing program di atas digunakan untuk menutup aplikasi yang sedang berjalan.

OUTPUT PROGRAM

 1.

2. 

Read More

PERULANGAN DAN PERCABANGAN DELPHI

PERULANGAN DAN PERCABANGAN

LISTING PROGRAM

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Memo1: TMemo;

    ColorDialog1: TColorDialog;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

memo1.Clear;

i:=StrToInt(edit1.Text);

For j:=1 To StrToInt(edit2.Text) do

begin

memo1.Lines.add('ulang ke:' +IntToStr(j) + '=' +IntToStr(i));

i:=i+1;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var i,j,k:integer;

begin

memo1.Clear;

k:=StrToInt(edit1.Text);

j:=1;

for i := StrToInt(edit2.Text)downto j do

begin

memo1.Lines.add('ulang ke:' +IntToStr(j) + '=' +IntToStr(k));

k :=k-1;

j :=j+1;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

application.terminate;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if colordialog1.execute then

Form1.color:=colordialog1.Color;

end;

LOGIKA PROGRAM

Listing pertama yaitu

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

memo1.Clear;

i:=StrToInt(edit1.Text);

For j:=1 To StrToInt(edit2.Text) do

begin

memo1.Lines.add('ulang ke:' +IntToStr(j) + '=' +IntToStr(i));

i:=i+1;

end;

end;

kode diatas menunjukan perintah ketika kita memasukkan angka di label 1 dan label 2 dan meng-klik tombol button For To Do maka output yang akan keluar adalah perulangan angka suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan,kode ini menjelas kan perulangan ke atas,contoh atau outputnya adalah :

FOR TO DO

Listing kedua yaitu

procedure TForm1.Button2Click(Sender: TObject);

var i,j,k:integer;

begin

memo1.Clear;

k:=StrToInt(edit1.Text);

j:=1;

for i := StrToInt(edit2.Text)downto j do

begin

memo1.Lines.add('ulang ke:' +IntToStr(j) + '=' +IntToStr(k));

k :=k-1;

j :=j+1;

end;

end;

kode diatas menunjukan perintah ketika kita memasukkan angka di label 1 dan label 2 dan meng-klik tombol button For DownTo Do maka output yang akan keluar adalah adalah perulangan angka suatu variabel counter yang arah isi counternya berkurang (mundur/turun).secara otomatis ketika perintah yang diulang telah selesai dikerjakan,contoh atau outpunya adalah :

FOR DOWN TO

Listing ketiga yaitu

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

kode Application.Terminate berfungsi untuk untuk menghentikan program disaat kita menekan tombol button exit,dan untuk mengakhiri semua program.

Listing keempat yaitu

procedure TForm1.Button4Click(Sender: TObject);

begin

if colordialog1.execute then

Form1.color:=colordialog1.Color;

end;

kode diatas menunjukan perintah ketika kita meng-klik tombol button macam warna maka akan mengeluarkan message perintah perubahan warna latar output,untuk merubah tnggal klik salah satu warna tersebut,contoh atau outputnya adalah :

COLOR DIALOG

Read More