KOEMAZIA v007 T-SEL KHUSUS JABAR

Update  KoemaZia v007 T-sel Jabar,

                                                                   DOWNLOAD

                                                           Password : belajar2015

                                                                    DOWNLOAD

                                                                Password : toke2015



                                                             PENAMPAKAN

                                                                     PRNAMPAKAN

   Ambil di sini ------------------------------> DOWNLOAD
   Ambil di sini ------------------------------> DOWNLOAD

Get paid to share your links!

Silahkan yang mau nyoba ambil link ini atau di bawah Bisa Download 
==================Makasih smog acocok di tempat masing masing==================
                    

Get paid to share your links!

CARA MEMBUAT LED BLINK INJECT DELPHI

Get paid to share your links!

Untuk kesempatan kalinya saya akan berbagi cara buat LedBlink Inject Delphi, sebagaimana kalau
 Inject tampa kedap kedip rsanya kurang asyik (menurut saya), hehee..
Nah sekarang ke Pengerjaan'y cara buat LedBlink Inject.

1. Buka Delphi sobat
2. New Aplikasi (Form1)
3. Tambah 2 buah Shape yg ada di Adittional,
4. 2 sLabel yg ada di Standar menu..


Masukan code di bawah,

public
{ Public declarations }
Procedure LedBlinkUpload;
Procedure LedBlinkDownload;
end;
var
end;
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.LedBlinkUpload;
begin
shape1.Refresh;
if shape1.brush.color=clSilver then
shape1.brush.color:=clred
else
shape1.brush.color:=clSilver;
end;

procedure TForm1.LedBlinkDownload;
begin
shape2.Refresh;
if shape2.brush.color=clSilver then
shape2.brush.color:=clYellow
else
shape2.brush.color:=clSilver;
end;

procedure TForm1.IndyTCPExecute(AThread: TIdMappedPortThread);
begin
LedBlinkUpload;
end;

procedure TForm1.IndyTCPOutboundData(AThread: TIdMappedPortThread);
begin
LedBlinkDownload;
end;

Lalu save Project dan untuk mencoba Run atau F9.
Untuk hasil kurang lebih seperti gambar di bawah


                                                                  PENAMPAKAN

 

 Untuk yang mau nyoba T-SEL INTIMIDASI silahkan ambil di   S O N O

                                                                    PENAMPAKAN

Get paid to share your links!

CARA MASUKAN GAMBAR DI FORM DELPHI

Get paid to share your links!

    Kalo sobat ingin merubah tampilan Project selain SkinManager kita bisa menampilkan Photo di form,
 itu bisa kita atur sesuai ke inginan plus selera anda, Photo yg di tampilkan bisa ber bentuk file PNG. JPG,
GIF dll yg suport hehe..,nah di sini saya akan sedikit berbagi cara menampilkan Photo di Form Delphi..
caranya sangat mudah dan cuma beberapa langkah aj.
 Kita mulai cara yang pertama adalah buka Dhelpi sobat,
-Buat aplikasi form baru.
 Seperti gambar di bawah,. (1)

                                                                  GAMBAR 1

Yang kedua kita tambah kan Image yang ada di Additional, drag ukuran kebutuhan, kita langsung ke Propertis klik TImage di Picture akan muncul dialog seprti gambar di bawah, terus kalian klik load dan akan
mengarah ke file PC kalian dan di sana tinggal pilih gambarnya setelah di klik masuk ke form tersebut dan
kalian tinggal klik OK.
 Seperti gambar di bawah. (3)

                                                                         GAMBAR 2

Langkah yang ke tiga, setelah di klik maka akan masuk ke Form di situ kamu tinggal atur kebutuhan,
untuk menyempurnakan tampilan full kita bisa ke profertis di sana cari  Stretch ubah dari False ke True.
jelsanya seperti gambar di bawah. (3)

                                                                 GAMBAR 3

 Setelah itu kita selesai, hehehe.....
Ok sob cuma itu yg saya tahu mudah2n bisa di mengerti dan ber manfaat buat sobat2..
 Kurang lebih'y sepeti gambar di bawah kalo udah jadi.

                                                             PENAMPAKAN HASIL

Untuk yang butuh TIMage Gif sobat bisa ambil di  SONO 

ini bisa menapilkan gambar Gif di Form Delphi....

============================SALAM DAMAI==============================

Get paid to share your links!

BELAJAR BUAT JAM + 2 LED & TEX BERJALAN

Get paid to share your links!

Ok..sob ada kesempatan lagi ni cara membuat jam, lampu led dan tex berjalan di form, sangat mudah
dan simple bahkan code.y juga lumayan sedikit tpi kalo kita ga teliti lumayan jadi reibet makanya
buat sobat yg mau coba dan belajar simak alat alat yg di perlukan di bawah hehe..

  Ok biasa yang pertama harus di siapakn adalah :
1. Buka Delphi 7 sobat
Untuk jam kita buat aplikasi baru/form
- Tambahkan sLabel
- Tambahkan Timer yang ada di System.
Untuk codenya  di bawah tinggal copy dan klik 2 kali di Timer masukan codenya Untuk merubah kecepatan
di Interval ubah dari 1000 jadi 100,

                                                                  PENAMPAKAN

                                                                 DOWNLOAD

berikut codenya :
    procedure TForm1.Timer1  Timer(Sender: TObject);

    begin

    Label1.caption:=TimetoStr(Now);

    end;
 Terus untuk Tex berjalan kita tambahkan :
- 1-Timer yg ada di system
- 1-Label yang ada di menu standar
Untuk merubah kecepatan masih di Peopertis ubah Interval 1000 dengan ke inginan (kebutuhan)
masukan code di bawah ini dengan 2x klik di Timer

procedure TForm1.Timer1Timer(Sender: TObject);
var
begin
Label3.Left := Label3.Left -5; 
if label3.Left <= -200 then
label1.Left := 422;
end;
end.

Sekarang ke pemasangan lampu Led, kita kembali ke menu Additional masukan 2 buah Shape
ke foem kalian,
- 2 buah Shape
- 1 buah Timer
Untuk pemasangan kta bisa nerubah tampilan Shape tersebut dengan
- stCircle
- stEllipse
- stRectangle
- stRoundRect
dan masih banyak lagi, itu tampilan bisa menjadi bulat, persegi. elip dan lain lain..sesuai kebutuhan,
dan itu bisa di atus di Propertis bagian Shape.
 Untuk codenya copy di bawah ini dan masukan di Timer.

if Shape3.Brush.Color=clWhite then
Shape4.Brush.Color:=clYellow // ini bisa di ubah untuk warna'y.
else
Shape4.Brush.Color:=clWhite;

Nah...simple kan.? Ok yang mau nyoba silahkan dan pehatikan code2'y dam masukan secara
beraturan Insaallah ga bakalan eror, untuk test silahkan Run atau tekan F9.
Sikian dan semoga bermanfaat...
Bisa di dapat untuk melihat yg jadi di  S O N O

Get paid to share your links!