Cara membuat animasi tulisan berjalan dan waktu menggunakan delphi 2010

Cara membuat animasi tulisan berjalan dan membuat waktu menggunakan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Dalam pembuatan program kita kali ini sangat sederhana dan mudah untuk di fahami selain itu jga untuk mempercantik tampilan yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini dqadapun cara penbuatan program tulisan berjalan dan wantu menggunakan delphi antara lain yang pertama buka delphi 2010 kemudianbuat form baru  dan masukan komponen kedalam form komponenya adalah antara lain:

Nama komponen	caption	nama
Tlabel	Desigprogram717	Designprogram717
Tpanel	-	Waktu
Timage	-	Image1
Tbutton	Exit	Exit
TTimer	-	Timer1
TTimer	-	Timer2

Dan pengkodeanya adalah sebagai berikut masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, jpeg;

type

  TForm1 = class(TForm)

    Image1: TImage;

    waktu2: TPanel;

    Exit: TButton;

    designprogram717: TLabel;

    Timer1: TTimer;

    Timer2: TTimer;

    procedure ExitClick(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ExitClick(Sender: TObject);

begin

close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if designprogram717.Left<-designprogram717.Width then

designprogram717.Left:=Width

else

designprogram717.Left:=designprogram717.Left-1;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

waktu2.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

end.

Selesai deh program kita kali ini

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717

Cara memasukan gambar menggunakan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Pertemuan kita kali ini sangat sederhana munagkin yang sudah bisa tidak perlu lgi menbaca panduan ini dan saya yakin pasti bisa membuat lebih dan memodifikasi sendiri

Langkah awal yang harus kita lakukan adalah :

buka delphi 2010

 kemudian masukan image yang adaodi tool pelete

setelah itu pilih aditional dan pilih timage

kemudian masukan kedalam form,

Setelah timage di masukan kedalam form

kemudian pilih properti picture dan klik (...)

Kemudian pilih load

pilih image yang kita simpan 

jika udah selesai lalu tekan ok

agar gambar pas dengan ukuran yang kita bikin

maka strecth = true

dan jika formatnya panggilan menggunakan button maka

masukan button kedalam form lalu captionya di ganti dengan load image

setelah itu masukan image 1 lagi kedalam form dan klik 2x pada button dan masukan kode3 seperti berikut

IMAGE2.PICTURE.LOADFROMFILE('tempat nyimpan di e,d, atau c setelah itu :/ nama folder tempat kita nyimpanOUTBOND PRAMUKA/jika masih ada folder maka masukan lagi nama folder FOTO EDIT/ nama gambar yang kita masukan beserta formatnyaOK.BMP');

Contoh:

IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/OK.BMP');

Di usahakan karna untuk yang bersifat panggilan format file yang mudah di dukung adalah bmp.

Selesai deh pembelajaran kita kali ini

Semoga ini bermanfaat buat kita semua amien

Selamat mencoba

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717

Cara membuat urutan angka menggunakan for dengan delphi 2010

Cara membuat urutan angka menggunakan for dengan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Dalam pembuatan program kita kali ini sangat sederhana dan mudah untuk di fahami yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini dqadapun cara penbuatan program urutan angka menggunakan fordengan  delphi 2010 caranya antara lain yang pertama buka delphi 2010 kemudianbuar form baru  dan masukan komponen kedalam form komponenya adalah antara lain:

Nama komponen	caption	nama
Tlistbox	-	Listbox1
Tlabel	Dessignprogram717	Label1
Tpanel	-	waktu
Ttimer	-	Timer1
Ttimer	-	Timer2

Dan pengkodeanya adalah sebagai berikut masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    ListBox1: TListBox;

    Label1: TLabel;

    Timer1: TTimer;

    waktu: TPanel;

    Timer2: TTimer;

    procedure FormCreate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Kemudian klik from 2x dan masukan kode seperti di bawah ini

procedure TForm1.FormCreate(Sender: TObject);

var i :integer;

begin

listbox1.items.clear;

for i:=1 to 5 do

begin

listbox1.Items.add(inttostr(i));

end;

end;

nah timer ni seperti biasa untuk membuat animasi tulisan berjalan

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Left<-Label1.Width then

Label1.Left:=Width

else

label1.Left:=label1.Left-1;

end;

dan yang satu ini untuk menampilkan waktu

procedure TForm1.Timer2Timer(Sender: TObject);

begin

waktu.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

end.

Selesai deh program kita kali ini oy untuk warna tulisan dan besarnya tulisan silakan di pilih sendiri misal label1 pilih properti dan pilih fon di situlah kita atur besarnya tulisan dan warna

Selamat mencoba...

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717

Cara membuat sambutan awal menggunaka delphi 2010

Cara membuat sambutan awal menggunaka delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Dalam pembuatan program kita kali ini sangat sederhana dan mudah untuk di fahami yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini dqadapun cara penbuatan program sambutan awal menggunakan delphi antara lain yang pertama buka delphi 2010 kemudianbuar form baru  dan masukan komponen kedalam form komponenya adalah antara lain:

Nama komponen	caption	nama
TLabel	Designprogram717	Label1
TLabel	Choose country	Label2
Tlabel	-	Label3
TLabel	-	Label4
TButton	close	button1
TListBox	-	listBox1
TTimer	-	timer1
TTimer	-	timer2
tpanel	-	waktu

Dan pengkodeanya adalah sebagai berikut masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit Membuat_program_Sambutan_awal;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    ListBox1: TListBox;

    Timer1: TTimer;

    waktu: TPanel;

    Timer2: TTimer;

    procedure FormCreate(Sender: TObject);

    procedure ListBox1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Klick botton 2x dan masukan kode seperti di bawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

dan klic 2x pada form utama kemudian masukan kode seperti di bawah ini

procedure TForm1.FormCreate(Sender: TObject);

begin

listbox1.Items [0]:='England';

listbox1.Items [1]:='Germany';

listbox1.Items [2]:='Spain';

listbox1.Items [3]:='Italy';

end;

masih tetap di even on clik pada listbox dan masukan kode seperti  di bawah ini

procedure TForm1.ListBox1Click(Sender: TObject);

begin

label3.Caption :=listbox1.items[listbox1.itemindex];

case listbox1.ItemIndex of

0:label4.Caption :='hallo, programmer';

1:label4.Caption :='hello, programierer';

2:label4.Caption :='hola, programador';

3:label4.Caption :='Ciao, programator';

end;

end;

kemudian pemberian kode pada timer untuk membuat tulisan berjalan oy pada properti timer terus interval kita gantti nilainya 10 agar jalanya sedikit halus. Kodenya adalah sebagai berikut:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Left<-Label1.Width then

Label1.Left:=Width

else

label1.Left:=label1.Left-1;

end;

yang terakhir adalah pengkodean untuk menampilkan waktu

procedure TForm1.Timer2Timer(Sender: TObject);

begin

 waktu.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

end.

 Selesai deh program kita kali ini mudahkan

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717

Pembelajaran sederhana menggunakan delphi 2010

Pembelajaran sederhana menggunakan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Untuk pertemuan kita kali ini kita akan mencoba membuat pembelajaran sederhana menggunakan delphi 2010 seperti calculator,  membuat Pgrm Rumus Phytagoras jika a dan b diketahui, Menentukan Luas persegi panjang, Menentukan Bil terbesar dari 2 bil,  Menentukan bilangan genap atau ganjil dan Menentukan nilai yang lebih besar  langkah awal kali ini kita akan membuat form terlebih dahulu komponennya antara lain : di bawah ini dan untuk panel di letakan di paling bawah atau paling atas .

Karna ini dulu adalah tugs sewaktu saya kuliah maka saya beri nama pak redi formnya heheheh g papakan

Nama komponen	caption	nama
Tedit	-	J1
Tedit	-	J2
Tedit	-	J3
Tedit	-	J4
Tedit	-	J5
Tedit	-	J6
Tedit	-	J7
Tedit	-	J8
Tedit	-	J9
Tedit	-	J10
Tedit	-	J11
Tedit	-	J12
Tedit	-	J13
TEdit	-	J14
TEdit	-	J15
Tbutton	KURANG	KURANG
Tbutton	KALI	KALI
Tbutton	TAMBAH	TAMBAH
Tbutton	BAGI	BAGI
Tbutton	HASIL	HASIL
TButton	PROSES	PROSES
TButton	HITUNG	HITUNG
TButton	NILAI	NILAI1
TRadioGroup	-	radioGroup1
Timage	-	IMAGE1
Timage	-	IMAGE2
Timage	-	IMAGE3
Timage	-	IMAGE4
Timage	-	IMAGE5
Timage	-	IMAGE6
TImage	-	IMAGE7
TPanel	VARIABEL A	Panel1
TPanel	VARIABEL B	Panel2
Tpanel	NILAI	Panel3
Tpanel	PANJANG	Panel4
Tpanel	LEBAR	Panel5
Tpanel	NILAI KE 1	Panel6
TPanel	NILAI KE 2	Panel7
Tpanel	NO 1	NO1
Tpanel	NO 2	NO2
Tpanel	NO 3	NO3
Tpanel	NO 4	NO4
Tpanel	NO 5	NO5
TPanel	NO 6	NO6
TLABEL1	-	LABEL1
TLABEL	Designprogram717	LABEL2
TTimer	-	Timer2
TTimer	-	Timer2

unit Tugas_pak_redi;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, jpeg;

type

  TForm1 = class(TForm)

    J1: TEdit;

    J2: TEdit;

    J3: TEdit;

    Kurang: TButton;

    Kali: TButton;

    Bagi: TButton;

    Tambah: TButton;

    J6: TEdit;

    J5: TEdit;

    J4: TEdit;

    Hasil: TButton;

    J7: TEdit;

    Proses: TButton;

    J8: TEdit;

    J9: TEdit;

    J10: TEdit;

    Hitung: TButton;

    J12: TEdit;

    J11: TEdit;

    Nilai1: TButton;

    J13: TEdit;

    J14: TEdit;

    RadioGroup1: TRadioGroup;

    J15: TEdit;

    Image1: TImage;

    Image2: TImage;

    Image3: TImage;

    Image4: TImage;

    Image5: TImage;

    Image6: TImage;

    Image7: TImage;

    Panel1: TPanel;

    Panel2: TPanel;

    Panel3: TPanel;

    Panel4: TPanel;

    Panel5: TPanel;

    Panel6: TPanel;

    Panel7: TPanel;

    ComboBox1: TComboBox;

    No1: TPanel;

    No2: TPanel;

    No3: TPanel;

    No4: TPanel;

    No5: TPanel;

    No6: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Timer1: TTimer;

    waktu12: TPanel;

    Timer2: TTimer;

    procedure TambahClick(Sender: TObject);

    procedure KurangClick(Sender: TObject);

    procedure KaliClick(Sender: TObject);

    procedure BagiClick(Sender: TObject);

    procedure HasilClick(Sender: TObject);

    procedure ProsesClick(Sender: TObject);

    procedure HitungClick(Sender: TObject);

    procedure Nilai1Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Brikut adalah pengkodean untuk membagi

procedure TForm1.BagiClick(Sender: TObject);

var a,b: real;

begin

a:=strtoint (J1.Text);

b:=strtoint (J2.Text);

J3.Text:=floattostr (a/b);

end;

berikut adalah pengkodean untuk mencari luas persegi panjang

procedure TForm1.HitungClick(Sender: TObject);

var a,b:integer;

begin

a:=strtoint (J8.text);

b:=strtoint (J9.text);

J10.text:=inttostr (a*b);

end;

nah yang ini teman teman berfungsi untuk meberi penjelasan bahwa sanya gambar no 1-5 itu program apa sih pengkodeanya midah tinggal masukan di item combobx nya NO 1 _ SAMPAI   NO_6 pengkodeanya adalah menggunakan perinita atau even on chang lalu masukan kode seoerti di bawah ini

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if combobox1.Text='No 1' then label1.Caption:=('M pgrm Kalkulator');

if combobox1.Text='No 2' then label1.Caption:=('M Pgrm Rumus Phytagoras jika a dan b diketahui');

if combobox1.Text='No 3' then label1.Caption:=('M Pgrm untk Menentukan bilangan genap atau ganjil');

if combobox1.Text='No 4' then label1.Caption:=('M Pgrm Menentukan Luas persegi panjang');

if combobox1.Text='No 5' then label1.Caption:=('M Pgrm Menentukan Bil terbesar dari 2 bil');

if combobox1.Text='No 6' then label1.Caption:=('Menentukan nilai yang lebih besar');

end;

program membuat rumus pyta goras pengkodeanya adalah seperti di bawah ini

procedure TForm1.HasilClick(Sender: TObject);

var a,b,c: real;

begin

a:=strtofloat (J4.text);

b:=strtofloat (J5.text);

J6.text:=floattostr (sqrt(sqr(a)+sqr(b)));

end;

berikut adalah perintah untuk membuat perkalian

procedure TForm1.KaliClick(Sender: TObject);

var a,b: integer;

begin

a:=strtoint (J1.Text);

b:=strtoint (J2.Text);

J3.Text:=inttostr (a*b);

end;

dan ini untuk kode pengurangan

procedure TForm1.KurangClick(Sender: TObject);

var a,b: integer;

begin

a:=strtoint (J1.Text);

b:=strtoint (J2.Text);

J3.Text:=inttostr (a-b);

end;

dan berikut adalah rumus untuk membuat nilai yang lebih besar

procedure TForm1.Nilai1Click(Sender: TObject);

var a,b:integer;

begin

a:=strtoint (J11.text);

b:=strtoint (J12.text);

if a>b then showmessage ('Nilai ke 1 Lebih besar')

else

if a<b then showmessage ('Nilai ke 2 lebih besar')

else

if a=b then showmessage ('2=2');

end;

berikut adalah rumus untuk menentukan bilangan genap atau ganjil

procedure TForm1.ProsesClick(Sender: TObject);

var a,b:integer;

begin

a:=strtoint (J7.text);

b:=a mod 2;

if b=0 then showmessage ('Bilangan Genap')

else

showmessage ('Bilangan Ganjil');

end;

dan yang ini adalah rumus untuk menentukan bialangan terbesar dari 2 bilangan

procedure TForm1.RadioGroup1Click(Sender: TObject);

var a,b,c:real;

begin

if radiogroup1.ItemIndex =0 then

begin

b:=strtofloat(J14.Text );

c:=strtofloat(J15.Text );

J13.Text:=floattostr(sqrt(sqr(c)-sqr(b)));

end else

if radiogroup1.itemindex=1 then

begin

a:=strtofloat(J13.Text );

c:=strtofloat(J15.Text );

J14.Text:=floattostr(sqrt(sqr(c)-sqr(a)));

end else

if radiogroup1.ItemIndex =2 then

begin

a:=strtofloat(J13.Text );

b:=strtofloat(J14.Text );

J15.Text:=floattostr(sqrt(sqr(a)+sqr(b)));

end else

end;

membuat rumus untuk penjumlahankodenya adalah sebagai berikut

procedure TForm1.TambahClick(Sender: TObject);

var a,b: integer;

begin

a:=strtoint (J1.Text);

b:=strtoint (J2.Text);

J3.Text:=inttostr (a+b);

end;

dan yang ini adalah untu membuat tulisan berjalan pengkodeanya adalah,

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if label2.Left <= 700 then

label2.Left := label2.Left + 2

else

label2.Left := -310;

end;

dan yang terakhir ini untuk membuat/ menampilkan waktu di area program kita

procedure TForm1.Timer2Timer(Sender: TObject);

begin

waktu12.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

end.

Selesai dech program yang kita buat kali ini jangan lupa even2 yang akan kita beri perintah yea

Semoga ini bermanfaat buat kita semua amien

Selamat mencoba

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717