Sunday, September 25, 2016

Saat Program ini Running kira2 seperti ini

Silahkan Desain Formnya seperti diatas
Setelah itu langsung ke coding,, nah ini syarat terpenting untuk bisa menggunakan fungsi tersebut
harus ada "StrUtils;"

saran saya sich coba letakkan pada gambar dibawah ini:

Nah Untuk Coding Pada Buttonnya (button Proses/Ulangi) :
Silahkan Copas aja setelah anda klik 2x button itu tentunya pada event OnClick:

Ok, sedikit saya ceritakan tentang coding diatas:
Sebenarnya coding fungsinya terletak pada
    // Fungsi Left untuk mencari jabatan
    Edit2.Text:=LeftStr(Edit1.Text,2);

    //Fungsi Untuk Mencari Bagian / Bidang seorang karyawan
    Edit3.Text:=MidStr(Edit1.Text,4,2);

    // Fungsi Right untuk mencari Nomor Urut Karyawan
    Edit4.Text:=RightStr(Edit1.Text,2);

Langsung saja saya jelaskan dari fungsi itu:
Ini sama seperti rumus pada MS.Excel:
MS.Excel : =Left(A1,2) , Maksutnya pada cell A1 diambil 2 karakter terkiri
Delphi :=  Edit2.Text:=LeftStr(Edit1.Text,2); , Maksudnya Tulis Pada Edit2 yg isinya 2 karakter terkiri pada Edit1.

MS.Excel:=Mid(A1,4,2) , Maksutnya pada cell A1 diambil 2 karakter dan dimulai pada karakter ke 4
Dlphi:= Edit3.Text:=MidStr(Edit1.Text,4,2); , Maksudnya Tulis Pada Edit3 yang isinya 2 karakter yang diambil dan dimulai pada karakter ke 4

Untuk Right hampir sama dgn left,, ingat aja arti indonya ya Left--> kiri, Right---> kanan, Mid---> tengah

Link pojectnya bisa sedot disini : SEDOT

Biasa dan Budayakan berkomentar ya setelah membaca sebuah artikel!

{ 2 komentar... read them below or Comment }

  1. Thank you gan, sangat bermanfaat bagi pemula spt saya.
    penjelasannya mudah dipahami.
    sekali lagi, terima kasih ya ..... :)

    ReplyDelete

Budayakan Berkomentar ya Agan-Agan ^_^

Welcome to My Blog

PAPAN PENGUMUMAN

Segala file yang dibagikan pada blog ini berformat 7z disarankan mengextrak filenya menggunakan aplikasi 7-zip agar tidak terjadinya file korrup.

Server Kutucugum, Partagora dan Copiapop Sudah Dihapus. Server 1 Sudah Suspend Sedang membeckup data yang masih ada ke gdrive unlimiteed.

Link Openload.co diblokir TELKOM solusi gunakan domain https://oload.info/

Grup Delphi Via Telegram
Untuk Kalian yang ingin Belajar Delphi dan Khususnya tinggal di Pekanbaru silahkan Gabung Ke Grup Telegram Delphi Pekanbaru. Adminnya Semua Admin Blog ini Link TKP : https://t.me/delphipekanbaru

Last Update

Butuh Jasa Pembuatan Program Aplikasi Tugas Akhir, Skripsi Atau Resmi?

Popular Post

- Copyright © Delphi Anime Lover | Riko Software -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -