Tutorial Tulisan Berjalan di Delphi 7

Assalamualaikum...
Saya kembali lagi menulis di blog saya ini, saya ingin berbagi ilmu dengan kalian maupun sedikit namun semoga bermanfaat yah... :)

Buatlah tampilan formnya seperti ini :

dan ini full code nya :

unit Utama; 

interface 

uses

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

  Dialogs, StdCtrls;

type

  TFormUtama = class(TForm)

    LabelNama: TLabel;

    EditNama: TEdit;

    LabelHasil: TLabel;

    ButtonAksi: TButton;

    ButtonHapus: TButton;

    ButtonGabung: TButton;

    ButtonClose: TButton;

    ButtonJalan: TButton;

    procedure ButtonAksiClick(Sender: TObject);

    procedure ButtonHapusClick(Sender: TObject);

    procedure ButtonGabungClick(Sender: TObject);

    procedure ButtonCloseClick(Sender: TObject);

    procedure ButtonJalanClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormUtama: TFormUtama;

implementation

{$R *.dfm}

//mulai dari sini yang boleh diotak-atik buat nambah code, kalau udah profesional boleh dari awal code diubah

procedure TFormUtama.ButtonAksiClick(Sender: TObject);

begin

LabelHasil.Caption := 'Novia Mardiana';

end;

procedure TFormUtama.ButtonHapusClick(Sender: TObject);

begin

LabelHasil.Caption := '';

end;

procedure TFormUtama.ButtonGabungClick(Sender: TObject);

begin

LabelHasil.Caption := 'Halooo '+EditNama.Text;

end;

procedure TFormUtama.ButtonCloseClick(Sender: TObject);

begin

close;

end;

procedure TFormUtama.ButtonJalanClick(Sender: TObject);

//Deklarasi Variabel Local

Var

  i : integer;

begin

  //Mengisi Caption LabelHasil dengan Text dari EditNama;

  LabelHasil.Caption := EditNama.Text;

  //meletakkan posisi kiri LabelHasil

  LabelHasil.Left := 16;

  //loop dari posisi awal ke posisi 750

  for i:= 16 to 750 do

  begin

    //posisi kiri LabelHasil diubah ke posisi i

    LabelHasil.Left := i;

    //berhenti sejenak agar penonton dapat melihat textnya berjalan

    Sleep(50);

    //repaint agar kondisi saat itu ditampilkan

    LabelHasil.Repaint;

  end;

end;

end.

Read More

KILAUAN

Picture by NASA

Kilauan hanya sebatas ketidakjelasan
Tak tahu kearah mana ingin pergi
Berdiam tak bergerak
Tak menjadi sorotan publik
Semua terasa sia-sia

Kilauan bertanya pada diri sendiri
Terpukau pada satu titik
Tersadar akan adanya perubahan yang signifikan
Berusaha menggapainya
Perlahan dia mencapai punjak kejayaannya
Dimana Kilauan menjadi sorotan
Tak lagi sebatas ketidakjelasan
Kilauan yang positif membuat semua menganga
Semua bersorak bahagia

~Novia Mardiana~
Jakarta, 30 Maret 2016

Read More

GELOMBANG

Dimensi tak terbilang dan tak terjelang
Engkaulah ketunggalan sebelum meledaknya segala percabangan
Bersatu denganmu menjadikan aku mata semesta
Berpisah menjadikan aku tanya dan engkau jawabnya
Berdua kita berkejaran tanpa pernah lagi bersua

Mencecapmu lewat mimpi
Terjauh yang sanggup kujalani
Meski hanya satu malam dari ribuan malam
Sekejap bersamamu menjadi tujuan peraduanku
Sekali mengenalmu menjadi tujuan hidupku

Selapis kelopak mata membatasi aku dan engkau
Setiap napas mendekatkan sekaligus menjauhkan kita
Engkau membuatku putus asa dan mencinta
Pada saat yang sama

Dipetik dari buku Gelombang karya Dee Lestari. Karya yang menurut saya luar biasa. Menambah kosa kata bagi saya.

Read More

LILIN

Mungkin aku hanyalah sebuah lilin
Yang kau cari ketika gelap
Dan kau enyahkan ketika cahaya menghampirimu
Kau hanya diam membisu
Disaat kau tak bisa melihat dikegelapan
Kau mencari yang bisa menerangi
Saat itu ketemu kau merasa aman
Namun disaat cahaya paling terang datang
Kau tinggalkan cahaya yang menghangatkanmu ketika gelap dan sendiri
Lilin hanya bisa tersenyum saat kau menemukan
Lilin tersayat ketika ada yang lebih menghampirimu
Lilin berusaha memberikan kehangatan
Walau tubuhnya harus tak sempurna lagi
Dan menunggu ketika kau akan menggunakannya lagi

Feb 29, 2016
~NM~

Read More

OBJEK WISATA BATURRADEN

Assalamualaikum wr. wb.

Hello, aku kembali lagi menulis di blogku ini, entah rasanya ingin kembali memberikan suguhan walau terkadang tidak menarik :'). Disini aku ingin memberi info tempat-tempat populer atau yang pernah aku kunjungi.

Pada Hari Jumat, 31 Juli 2015 saya libur semester 2 yang akan memasuki semester 3, libur kali ini panjang sekitar 2 bulan, bagi yang mempunyai banyak uang pasti mereka mempuaskan hari-hari libur mereka sehingga mereka senang. Libur semester saat itu aku tidak menghabiskan hari-hari dengan berlibur bergembira. Nikamatin saja hidup yang ada, namun tetap seiringan dengan doa dan usaha J . Aku akan bercerita tentang tempat yang aku kunjungi pada saat liburan tahun lalu.

Perkenalan dahulu, apakah kalian tahu BATURRADEN? Ya tempat dimana yang konon katanya memiliki sebuah cerita yang masih ada mempercayainya. Cerita yang aku tahu begini, ada sepasang kekasih yang bernama Raden dan Batur, mereka menjalin hubungan tetapi orang tua tidak menyetujui mereka. Jadi mitosnya sepasang pemuda yang berpacaran di Baturraden pulang dari situ mereka akan putus. Kalian percaya atau tidak ada pada diri kalian kok? Aku tidak percaya, karena ini hanya sebuah cerita rakyat, namun jika ada yang pernah membuktikan, itu bisa terjadi beberapa faktor sih sebenarnya.

Baturraden ini berada di Provinsi Jawa Tengah, yang berada juga di Pulau Jawa J . Di Jawa Tengah banyak tempat-tempat menarik yang saat ini banyak bermunculan loh. Obyek Wisata Baturraden salah satu namanya, disana banyak destinasi yang bagus apalagi bagi kalian yang suka dunia fotografi bisa memplubikasikan keindahan-keindahan yang ada disana. Oh ya harga tiket pada saat itu Rp14.000/orang. Disana ada fasilitas gratis loh, mau tahu apa aja? Ada kolam renang, cascadane, sepeda air, papan luncur, dan mandi air panas. Kenapa aku tahu, karena tertera di tiket masuknya heheh. Iya sampai saat ini tiket masuknya masih ada. Ya niatnya dulu buat kenang-kenangan.

Di dalam foto ini salah satunya yaitu air mancur. Oh iya hampir lupa, Baturraden sendiri juga terletak di kaki Gunung Slamet loh. Gunung Slamet adalah gunung terbesar di Pulau Jawa. Air-air disini asli dari Gunung Slamet, nuansa alamnya mengikat bagi kalian yang suka suasana alam. Aku sendiri lebih asyik outdoor apalagi yang berbau alam, entah kenapa begitu senang jika bertemu yang bernuansa alam yang di outdoor. Jika kalian mau kesini mudah kok tinggal lurus doang J. Jalan raya yang di depan UNSOED tinggal lurus doang ketemu POLTEKKES PURWOKERTO lurus lagi.

Read More