Forum - Tecgag

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

untuk mengunduh kontent didalam forum, dan untuk menjawab topik yang ada. silahkan register terlebih dahulu
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


contact email : ForumBargedos@live.com

Forum - Tecgag

Total Posts : 10608 | Total Members : 16811 | Kita punya temen baru nih, giel
 

Share | 
 

 Kumpulan Script-Script Membuat Sebuah Program

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Ezio_U1
Administrator
avatar

Posts Posts : 1160
Gold Gold : 107412
Reputasi Reputasi : 1366
Join date Join date : 26.11.10
Age Age : 20
Lokasi Lokasi : Belakangmu..

PostSubyek: Kumpulan Script-Script Membuat Sebuah Program   Sat 26 Feb 2011, 23:32

Kumpulan Script-Script Membuat Sebuah Program













<blockquote class="postcontent restore ">
Nii adalah contoh 4 dari sekian banyaknya tugas program yang pernah 9uw buat,

Program Animasi

Code:
[b][size=7][b]unit Rendevouztd;

interface

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

type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
Var i : integer;
begin
For i := 1 to 5000 Do
Begin
Canvas.Pen.Color := clBlue;
Canvas.Pen.Style := psDashDot;
Canvas.MoveTo(ClientWidth div 2, ClientHeight div 2);
Canvas.LineTo(random(ClientWidth),random(ClientHeight));
end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Invalidate;
end;

end.[/b][/size][/b]

PROGRAM MENEMUKAN FORM
Untuk Form pertama :



Code:
[b][size=7][b]unit Rendevouztd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, XPMan;
type
TForm1 = class(TForm)
ProgressBar1: TProgressBar;
Button1: TButton;
XPManifest1: TXPManifest;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses uAbryan;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Caption:='Pencarian form';
button1.Caption:='Cari form';
form1.Position:=poDesktopCenter;
form1.BorderStyle:= bsDialog;
end;
procedure TForm1.Button1Click(Sender: TObject);
var baris,nilai:integer;
begin
baris:=150000;
ProgressBar1.Max:=baris;
ProgressBar1.Min:=0;
for nilai:= 1 to baris do
ProgressBar1.Position:= nilai;
form2.ShowModal;
end;
end.[/b][/size][/b]

form kedua

Code:
[b][size=7][b]unit Rendevouztd1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm2 = class(TForm)
Button1: TButton;
XPManifest1: TXPManifest;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
form2.Width:= 300;
form2.Height:= 300;
form2.Position:=poDesktopCenter;
button1.Caption:='close';
form2.Caption:='Form lain sudah ditemukan';
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
close;
end;[/b][/size][/b]

dan skript untuk program games.

Code:
[b][size=7][b]unit Rendevouztd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible:=false;
Button2.Visible:=true;
Form1.Color:= clBlack;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Visible:=false;
Button3.Visible:=true;
Form1.Color:= clRed;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Button3.Visible:=false;
Button4.Visible:=true;
Form1.Color:= clAqua
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Button4.Visible:=false;
Button5.Visible:=true;
Form1.Color:= clGreen;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Button5.Visible:=false;
Button6.Visible:=true;
Form1.Color:= clWhite;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Button6.Visible:=false;
Button7.Visible:=true;
Form1.Color:= clLime;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Button7.Visible:=false;
Button8.Visible:=true;
Form1.Color:= clFuchsia;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Button8.Visible:=false;
Button9.Visible:=true;
Form1.Color:= clBlue;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Button9.Visible:=false;
Button10.Visible:=true;
Form1.Color:= clYellow;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Button10.Visible:=false;
Button11.Visible:=true;
Form1.Color:= clSkyBlue;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
Button11.Visible:=false;
Button12.Visible:=true;
Form1.Color:= clSilver;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Button12.Visible:=false;
Button13.Visible:=true;
Form1.Color:= clPurple;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
Button13.Visible:=false;
Application.MessageBox('Thankz Bro...!!!','Pesan');
Close;
end;
end.


[/b][/size][/b]program perkalian dan penjumlahan

Code:
[b][size=7][b]unit Rendevouztd;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
XPManifest1: TXPManifest;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i,kolom,baris :integer;
begin
for kolom:=1 to 10 do
StringGrid1.Cells[kolom,0] := IntToStr(kolom);

for baris:=1 to 10 do
StringGrid1.Cells[0,baris] := IntToStr(baris);

end;

procedure TForm1.Button1Click(Sender: TObject);
var kolom,baris:integer;
begin
StringGrid1.Cells [0,0]:=' + ';

for kolom :=1 to 10 do
for baris := 1 to 10 do
StringGrid1.Cells [kolom,baris]:= IntToStr(kolom+baris);

end;

procedure TForm1.Button2Click(Sender: TObject);
var kolom,baris:integer;
begin
StringGrid1.Cells [0,0]:=' * ';

for kolom :=1 to 10 do
for baris := 1 to 10 do
StringGrid1.Cells [kolom,baris]:= IntToStr(kolom*baris);

end;

end.[/b][/size][/b]

kl ada yang mau tambahun lagi script" program lainnya, silahkan menambahkan..

atau mungkin mengoreksi script 9uw ada yg salah atau ada yg lebih singat lagi scriptnya..

silahkan.


</blockquote>









-No JUNK
-No
FLOOD
-No SARA

-No
OOT Please.

Kembali Ke Atas Go down
http://cyberunesia.co.cc
 

Kumpulan Script-Script Membuat Sebuah Program

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» bikin blog hemat energi!
» Hanya Sebuah Kalimat Sederhana
» Hal-Hal yang dapat membuat kaum lelaki menangis
» [Tutorial] Cara membuat forum forumotion
» Cara membuat pendataan&list list barang menjadi seperti di sini?
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum - Tecgag ::  MISCELLANOUS :: Delphi-
Navigasi:  

| Contact us | Donasi | Statistics |
www.forumbargedoz.ce.ms | www.bargedoz.marocs.net
Hosted and powered by : Forummotion and phpBB
Bargedoz not responsible for any fraud on behalf of Bargedoz, both occur within and outside this website.
By joining Bargedoz, then you already understand all existing consistent.

Friends : [Update] [Update] [Update] [Update]
Annoucemment : Bargstore - Buy 4 More ! ayo naikkan gold-mu dan dapatkan items Bargstore sekarang juga ! klik disini untuk masuk Bargstore ! | dan jangan lupa untuk "Likes" Facebook fanpage kami, klik disini untuk melihat Fanpage, dan follow twitter kami untuk mendapatkan topik-topik terhangat dari kami, di di @Forumbargedos. | Dibuka pendaftaran staff untuk subforum games di berbagai jenis SF games, dan jenis staff. info lebih lanjut silahkan klik linknya disini!
Membuat forum | © phpBB | Free forum support | Kontak | Report an abuse | Create your own blog