Tutorial Membuat Bentuk Bidang Datar dan Garis di Delphi 7

Assalamualaikum wr. wb.
Kembali lagi dengan saya penulis di blog ini, disini saya ingin membagi ilmu sedikit yang saya dapatkan. Saya sudah lama tidak menjenguk blog saya ini, apa kabar semua pengunjung blog saya? Semoga kalian sehat selalu, aamiin. Saya disini menggunakan software Delphi 7. Oke sekarang kita mulai ini dia code-nya :

sebelumnya kita bikin desain seperti ini terlebih dahulu

komponen yang digunakan ada Label, EditBox, ScrollBox, Image, dan Button.


dalam lingkaran merah ini letak dimana Image dan ScrollBox berada. Cara meletakkannya tentu kalian tahu kan? Pertama klik icon ScrollBox => klik di form, atur panjang dan lebar sesuai keinginan kalian => klik ScrollBox yang sudah sesuai keinginan => klik icon Image sama seperti tadi klik lagi di bagian ScrollBox-nya.

Ini full code-nya

unit Unit1;

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;

    editx1: TEdit;

    edity1: TEdit;

    editx2: TEdit;

    edity2: TEdit;

    ScrollBox1: TScrollBox;

    Image1: TImage;

    ButtonRec: TButton;

    ButtonEllips: TButton;

    ButtonTri: TButton;

    ButtonLine: TButton;

    ButtonClear: TButton;

    ButtonClose: TButton;

    procedure ButtonRecClick(Sender: TObject);

    procedure ButtonEllipsClick(Sender: TObject);

    procedure ButtonTriClick(Sender: TObject);

    procedure ButtonLineClick(Sender: TObject);

    procedure ButtonClearClick(Sender: TObject);

    procedure ButtonCloseClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

var

  x1,y1,x2,y2 : integer; //variabel public artinya semua menggunakan ini

procedure TForm1.ButtonRecClick(Sender: TObject);

begin

  x1 := StrToInt(editx1.Text); //StrToInt mengkonversi dari String ke Integer

  y1 := StrToInt(edity1.Text);

  x2 := StrToInt(editx2.Text);

  y2 := StrToInt(edity2.Text);

  Image1.Canvas.Pen.Color := clBlue;  //ini untuk warna garis luarnya

  Image1.Canvas.Pen.Style := psSolid; //solid : padat, drash : putus-putus, dot : titik-titik

  Image1.Canvas.Brush.Color := clYellow; //brush warna yang ada di dalam objek

  Image1.Canvas.Brush.Style := bsSolid;

  Image1.Canvas.Rectangle(x1,y1,x2,y2);

end;

procedure TForm1.ButtonEllipsClick(Sender: TObject);

begin

  x1 := StrToInt(editx1.Text);

  y1 := StrToInt(edity1.Text);

  x2 := StrToInt(editx2.Text);

  y2 := StrToInt(edity2.Text);

  Image1.Canvas.Pen.Color := clGreen;

  Image1.Canvas.Pen.Style := psSolid;

  Image1.Canvas.Brush.Color := clRed;

  Image1.Canvas.Brush.Style := bsSolid;

  Image1.Canvas.Ellipse(x1,y1,x2,y2);

end;

procedure TForm1.ButtonTriClick(Sender: TObject);

begin

  x1 := StrToInt(editx1.Text);

  y1 := StrToInt(edity1.Text);

  x2 := StrToInt(editx2.Text);

  y2 := StrToInt(edity2.Text);

  Image1.Canvas.Pen.Color := clGray;

  Image1.Canvas.Pen.Style := psSolid;

  Image1.Canvas.Brush.Color := clPurple;

  Image1.Canvas.Brush.Style := bsSolid;

  Image1.Canvas.MoveTo((x1+(x2-x1)div 2), y1); //move to a1

  Image1.Canvas.LineTo(x2,y2); //line to a2

  Image1.Canvas.LineTo(x1,y2); //line to a3

  Image1.Canvas.LineTo((x1+(x2-x1)div 2), y1); //line to a1

end;

procedure TForm1.ButtonLineClick(Sender: TObject);

begin

  x1 := StrToInt(editx1.Text);

  y1 := StrToInt(edity1.Text);

  x2 := StrToInt(editx2.Text);

  y2 := StrToInt(edity2.Text);

  Image1.Canvas.Pen.Color := clBlack;

  Image1.Canvas.Pen.Style := psSolid;

  Image1.Canvas.Brush.Color := clYellow;

  Image1.Canvas.Brush.Style := bsSolid;

  Image1.Canvas.MoveTo(x1,y1);

  Image1.Canvas.LineTo(x2,y2);

end;

procedure TForm1.ButtonClearClick(Sender: TObject);

begin

  Image1.Canvas.Pen.Color := clWhite;

  Image1.Canvas.Pen.Style := psSolid;

  Image1.Canvas.Brush.Color := clWhite;

  Image1.Canvas.Brush.Style := bsSolid;

  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);

end;

procedure TForm1.ButtonCloseClick(Sender: TObject);

begin

  close;

end;

end.

Ini wujudnya setelah di running

Rectangle

 

Ellipse

 

Triangle

Untuk membuat bentuk seperti ini menggunakan MoveTo - LineTo

 

Sekian ilmu yang dapat saya bagikan semoga bermanfaat untuk kalian yah :) :-)

Wassalamualaikum  

Read More

TAFAKUR ALAM UKR ISLAM UBM

Villa Lembah Pertiwi, Puncak Bogor, Jawa Barat

            Pada Sabtu, 30 Mei 2015 kami segenap UKR Islam UBM mengadakan kegiatan di luar kampus yang dinamakan tafakur alam. Kegiatan ini ditarik tarif Rp.180.000,-, tarif ini terbilang cukup bersahabat dengan menginap 2 hari 1 malam. Kami semua meeting point di Lawson kampus, berangkat pukul 09.00 WIB dari kampus. Transportasi yang digunakan 2 mobil pribadi. Selama di perjalanan mobil yang aku tumpangi bersama driver, ka Pambudi, Nabila, Afredo, dan Irwan bercerita tentang apa yang telah dilakukan salah satu dari kami. Sedangkan di mobil satunya ada ka Malik, ka Diyah, ka Leni, ka Maul, dan ka Virda. Selama masuk tol mobil sebelah belanja terus wkwk. Mobil yang aku tumpangi jajan di tol hanya beberapa. Jalan di tol macet panjang karena jalurnya buka tutup sehingga ada yang puter balik karena lelah menunggu.

            Setelah keluar dari tol juga masih macet, jalan yang dilewati menuju tempat penginapan cukup ekstrim, dimana ada tanjakan curam dengan jalan yang rusak, ada jurang di kanan maupun kiri, lewati sungai kecil, agak menegangkan sebenarnya bagiku. Sesampainya di Villa Lembah Pertiwi apa yang pertama mencuri perhatian pandanganku adalah pemandangannya yang indah mengingatkanku pada Purbalingga, Jawa Tengah yang hampir seperti itu. Tak lupa untuk mengabadikan pemandangan yang begitu elok. Kami disambut hangat oleh pemandu wisata di villa tersebut. Kami datang kumpul di aula untuk makan, setelah itu baru ke kamar untuk meletakkan barang bawaan. Kegiatan kebanyakan di aula.

            Kami semua disana juga banyak yang didapat seperti permainan yang melatih otak kanan dan kiri, malamnya ada training motivasi, dsb. Disana malam hari terasa dingin tapi tidak terlalu. Dan air disana seperti es namun slalu mengalir. Kalau dipikir misal itu sayang sekali slalu mengalir tanpa henti. Malam hari mas Dayat, ka Ade, ka Arif dan temannya datang untuk mengunjungi kegiatan kami. Disaat waktunya tidur aku insomnia baru bisa tidur jam 3-an. Jam 4-an terdengar suara anjing menggonggong yang datang dari atas sana. Tak tahu artinya apa untuk membangunkan atau ada sesuatu yang tidak kasat mata oleh penglihatan manusia pada umumnya. Pukul 6.00 kami melakukan senam pagi sebelum melanjukan tracking ke Curug Kembar yang berada tidak jauh dari villa.

ini curug yang airnya bisa diminum

ini yang satunya

            Selama perjalanan menuju curug, menyenangkan jalurnya tingkatannya diatas sedikit dari jalur-jalur curug yang pernah ku jamahi di Purbalingga. Salah satu dari 2 curug airnya bisa diminum langsung karena sudah diuji. Sayangnya aku tak mencicipinya, pengen mainan air tapi cukup tangan dan kaki saja yang bermain. Selama perjalan juga menemukan hewan sejenis lintah namanya pacet dia memakan darah kotor, teman-teman ada yang terkena oleh hewan tersebut. Jalurnya melewati hutan-hutan tapi seru. Biasa kalau pergi ke tempat lain tidak ketinggalan dengan mengabadikannya. Kami berfoto bersama disana, tidak lupa juga dengan selfie.

            Setelah cukup lama di curug kami melanjutkan tracking untuk kembali ke penginapan. Banyak kejadian-kejadian lucu tapi tidak lucu sebenarnya. Ada sandal hanyut, kaki berdarah, jatuh terpeleset, dsb. Sesampainya di penginapan lanjut bermain lagi yaitu outbound setelah itu berenang-renang di kolam.

            Dalam 2 hari 1 malam ini cukup untuk menambah memori di otakku. Aku senang dengan kegiatan seperti ini. Karna aku juga suka dengan alam. Kami pulang jam 1-an. Selama perjalanan semua terlihat kelelahan. Mampir ke pusat oleh-oleh namun ku tak tertarik jadi tidak membelinya. Mampir ke rumah makan untuk mengisi perut yang sudah berbunyi. Sesampainya di UBM lagi jam 9-an. Ngobrol-ngobrol dulu sebelum pulang.

Read More

CINTA DALAM DIAM

Menulis adalah caraku
Bercerita tanpa suara
Mencintai tanpa mengusikmu
Karena Allah SWT semata

Wahai kekasihku...
Yang sedang dirahasiakan olehNya
Izinkan aku menyapamu dalam setiap doaku
Menyapa kasih dalam cintaNya

Yaa Rabbii...
Sampaikan rasa cinta ini
Kepada cinta yang hakiki

Bukan fisik yang tampan
Tapi ibadah yang mapan

Bukan perlu rumah yang mewah
Tapi hidup sederhana dengan sifat peramah

Bukan dia yang berbuat maksiat
Tapi dia yang taat

Yaa Rabbi...
Damaikan hati ini
Biarlah kecewa meratap pergi
Biarlah kasih mengikat diri

Yaa Rabbi...
Aku hanya meminta sekeping hati
Kepada pemilik hati
Yaitu kepada Sang Ilahi
Meminta cinta yang hakiki
Agarku temukan cinta sejati

Read More

I LOVE YOU NENEK

Andai kau masih ada

Kita masih bersama

Ku lebih memilih bersamamu

Lebih indah bersamamu

Lebih damai bersamamu

Lebih sejuk bersamamu

Lebih semuanya jika bersamamu

Nenek...

Bisakah kau mendengarnya

Ku merindukanmu

Ku ingin bersamamu

Ku ingin memelukmu

Ku ingin menciummu

Ku ingin mendekapmu

Segalanya ingin bersamamu

Allah SWT sayang sama nenek

Nenek dipanggil tuk bersamaNya

Agar nenek tak merasakan sakit berkepanjangan

Novi sayang sama nenek

Hanya dengan tulisan ini

Dan doa dariku untukmu

Yang bisa mewakilkan perasaanku

Nenek adalah pahlawan

Nenek segalanya

Nenek penyemangatku

I love you nenek

Read More

April Kenangan

          Di kampusku khususnya di prodi yang aku dalami, organisasi prodiku mengadakan suatu kegiatan ke luar kota. Aku anak semester 2 mengikuti kegiatan ini bersama yang lainnya juga. Sebelumnya para peserta dikumpulkan jauh hari untuk mengikuti breafing, apa saja persiapannya untuk kegiatan tersebut. Tarif peserta 165.000,-.

          Kami semua berangkat Jum'at, 24 April 2015, kumpul di kampus pukul 06.30 WIB. Di rumah perkiraan aku, cuma aku saja yang bawaannya rempong. Sesampai di kampus bukan cuma aku saja yang rempong hehe, akhirnya ada teman juga sesama rempong hihi. Kami naik mobil TNI AL "serasa seperti anggota TNI hihi". Sebelum melakukan perjalanan tidak lupa kami semua berdoa. Kira-kira perjalanan untuk sampai ke tujuan 2 jam-an. Dalam perjalanan aku dan teman-teman yang 1 mobil bersuka ria sambil bernyanyi-nyanyi menikmati perjalanan ke luar kota. Tidak tahu suasana mobil yang lainnya bagaimana, mungkin saja sama bersuka ria.

              Sesampainya di lokasi kami menaruh barang-barang di kamar masing-masing. Setelah itu kumpul di aula untuk makan siang bersama. Setelah makan habis lanjut kegiatan yang sudah disusun panitia. Selama kegiatan merasa senang, ini seperti waktu aku SMA yang kegiatannya 3 hari 2 malam. Namun, masih mending saat kuliah ini. Sore sampai malam disana diberi bekal ilmu oleh dosen. Hari pertama disana lumayan. Tapi penasaran ada satu ruangan yang selalu tertutup sepertinya. Ruangan itu berada disamping kolam renang. Sore atau malam hari kami anak cewek mendengar suara tangisan anak kecil dekat kamar. Tapi kami mengiranya itu suara anaknya dosen. Udara disana sama seperti di Purbalingga, Jawa Tengah tempat yang pernah ku singgahi dan tinggal disana selama 10 tahun.

             Di hari kedua Sabtu, 25 April 2015 full disana 24 jam. Dini hari kami bermain-main. Oh iya lupa aku kelompok 4 dalam kegiatan ini.

kelompok 4

Kami kelompok 4 mendapat hadiah saat di hari pertama sebagai kelompok terbagus dalam menyampaikan presentasi. Di hari kedua ini semua bermain lagi. Untuk mendapatkan uang terbanyak. Di malam harinya kami semua perform. Dua jenis yang kami tampilkan, yaitu paduan suara sambil berjoged dan drama musikal.

            Minggu, 26 April 2015 dimana hari terakhir disana. Kami semua bermain perang-perangan pada akhirnya tidak tahu siapa yang menang dan yang kalah. Setelah semua berakhir bergegas untuk membereskan barang bawaan karena akan segera pulang. Pukul 11.00 kami semua menuju mobil TNI yang sudah menjemput kami. Selama dalam perjalan pulang semua kelihatan lelah. Di dalam mobil kebanyakan tidur. Ketika mobil terhenti ku kira macet panjang ternyata salah. Kami mampir ke pusat oleh-oleh CIMORY. Semuanya turun dari mobil dan memburu oleh-oleh yang ada disana. Setelah puas membeli oleh-oleh kami semua kembali melanjutkan perjalanan. Ketika sampai di kampus ada yang langsung pulang. Aku dan teman-temanku istirahat sebentar sambil menikmati makanan yang ada disana. Setelah kenyang aku dan teman-teman pulang bersama.

ini yang terlihat dari tempat yang kami singgahi, begitu indah bukan.

ini kami para cewek semester 2 yang ikut

Read More

Database XAMPP 3.2.1

Meggunakan aplikasi XAMPP 3.2.1

klik shell

1. Ketik mysql -u root sebelum masuk

2. Buat database baru   create database <nama yang diinginkan>;

    contoh : create database myblog;

3. Gunakan database yang sudah dibuat sebelum mengisi database tersebut use <nama database>;

     contoh : use myblog;

4. Membuat tabel baru create table <nama table> ( <nama field> <tipe data>);

    contoh : create table apa(

            nomor int(4) primary key,

            nama varchar(30),

            jenis_kelamin char(1));

5. Melihat semua database yang sudah dibuat show databases;

6. Melihat semua table yang dibuat dalam database tersebut show tables;

7. Melihat table yang dibuat desc <nama table>;

    contoh : desc apa;

8. Mengisi table insert into <nama table>('....','....','....');

    contoh : insert into apa(

           '1',

           'abcd',

           'P');

9. Melihat semua inputan dalam table select * from <nama table>;

    contoh : select * from apa;

10. Menghapus table drop table <nama table>;

      contoh : drop table apa; 

11. Menghapus database drop database <nama database>;

      contoh : drop database myblog;

12. Menambahkan nama field dalam table alter table <nama table> add <nama field> <tipe data>;

      contoh : alter table apa add hobi varchar(5);

13. Menghapus field delete from <nama table> where <nama field>;

      contoh : delete from apa where hobi;

14. Mengganti nama table alter table <nama table lama> rename to <nama table baru>;

      contoh : alter table apa rename to apalah;

15. Tampilkan nomor & nama yang jenis kelaminnya L

       contoh : select nomor, nama from apa where jenis_kelamin='L';

16.  Jika lupa menentukan primary key pada table yang sudah dibuat alter table <nama table> add primary key (<nama field>);

       contoh : alter table apa add primary key (nomor);

17. Tampilkan isi field 1 saja select * from <nama table> where <nama field='...'>;

      contoh : select * from apa where nama='abcd';

18. alter table <nama table> alter <nama field> set default '.....';

19. select * from <nama table> where <nama field='...'> and <nama field='...'>;

20. Mengisi field yang masih kosong update <nama table> set <nama field='..'> where <nama field='..'>;

21. Menghapus 1 record delete from <nama table> where <nama field='...'>;

22. Mengganti nama field alter table <nama table> change <field lama> <field baru> <tipe data>;

23. Menghapus semua isi table truncate table <nama table>;

24. Menghapus kolom alter table <nama table> drop <nama field>;

25. Menampilkan normalisasi yang sama hanya ditampilkan 1 saja select distinct <nama field> from <nama table>;

26. Menampilkan field-field berdasarkan field yang diurutkan secara descending select <nama field1>, <nama field2> from <nama table> order by <nama field1> desc;

kebalikannya select <nama field1>, <nama field2> from <nama table> order by <nama field1> asc;

27. select * from <nama table> group by <nama field>;
28. select nama_table.nama_field, table.nama_field from kota, provinsi;

 29.

 30.

 31.

 32.

 33.

 34.

 35.

 36.

 37.

 38.

Read More