Pemograman Visual ( Delphi - Part 1)

Kesempatan kali ini kita akan bahas mengenai pemograman visual Delphi. Tapi sebenarnya ini ditujukan untuk para Beginers / Pemula, Karena kita akan bahas dari awal perkenalan. Harapannya bisa membantu teman-teman semua yang baru mempelajarinya.

Kita asumsikan teman-teman sudah memiliki software Borland Delphi. Ini adalah tampilan awal dari Delphi.

Delphi 7

 Gambar diatas adalah tampilan default dari Delphi 7. Saya menggunakan Versi 7. Berikut adalah menu yang ada dalam delphi :

Menu Delphi

Dan gambar dibawah ini adalah Object Ispector, berisi Properties dan Event dari sebuah object :

Properties

Untuk tampilan awal Form akan terlihat seperti Gambar dibawah, disini kita akan mendesain sebuah Tampilan GUI dari program yang akan kitabuat nantinya :

Form Default

Latihan 1 [ Button &  Menampilkan Pesan ]

Pada latihan awal ini kita akan memberikan sebuah Tombol pada form, yang nantinya dari tombol tersebut akan dapat menampilkan pesan (message).

Gunakan Button ( Mark Kuning )

Buat lah tampilan seperti berikut ini, menggunakan Button. Lalu dibagian Inspector => Properties, Edit dibagian Caption , Beri text " Tampilkan Pesan ". Seperti Gambar berikut :

Form dengan button

Jika sudah kita akan menuliskan code /script untuk menampilkan sebuah pesan. Double Klik pada Button1 ( Klik 2x Pada Button1 ). Lalu tuliskan code berikut ( Lihat Tanda Panah Merah ) :

Menampilkan Pesan

Setelah itu coba Run program / Jalankan Program dengan cara Klik Tombol Hijau berikut :

Run Program

Jika program meminta untuk di Save, silahkan save terlebih dahulu. Program akan berjalan seperti berikut :

Klik pada Tombol, Maka Pesan Akan Muncul :

Program Runing

Oke program sudah berjalan... 

Tutorial akan lanjut ke Part 2 ( Menampilkan Pesan Dari Textbox ).

Terimakasih.

Pascal - Kata Tercadang [ Reserved Word ]

Kata Tercadang atau Reserved Word adalah Kata – kata yang tidak boleh digunakan dalam pascal. Kata-kata ini sudah ditentukan dan ada dalam program pascal, kata yang  tergolong sebagai reserved word tidak boleh dipakai untuk menamai label, tipe, variabel, konstanta bernama ataupun prosedur dan fungsi, field dari record, program dan unit.

Program pascal memiliki sebuah struktur, terdiri dari Judul program dan suatu blok program atau body / badan program. Blok dibagi menjadi dua, bagian deklarasi dan pernyataan.

Berikut struktur dasar program pascal :

Judul Program

Blok Program

     Deklarasi

     Peryataan

Begin

     Statement

     ………….

End.

Kita kembali lagi kepembahasan. Kat tercadang seperti yang telah dijelaskan diatas, berikut adalah beberapa kata tercadang atau Reserved Word dalam program Pascal

AND	CASE	DIV	END	IN	PROGRAM
FUNCTION	ASM	CONST	XOR	LABEL	USES
DO	EXPORTS	FILE	ELSE	NOT	VAR
GOTO	UNTIL	IF	FOR	REPEAT	UNIT
ARRAY	DOWNTO	BEGIN	LIBRARY	STRING	SET
OBJECT	TYPE	THEN	PROCEDURE	WHILE	OR

Kata tercadang diatas hanya sebagian, masih banyak sebenarnya, tapi mudah-mudahan ini dapat membantu sobat yah.

Membuat Program Hotel [Pascal-Part3]

Sebelumnya ditutorial part2 kita sudah membuat program hotel dengan fungsi if serta diskon 10%, pada kesempatan kali ini kita juga akan membuat program yang sama, tetapi sedikit akan kita tambahkan fitur/fungsi baru didalamnya. Kita akan coba menambahkan sebuah keterangan Dapat diskon / Tidak Dapat, kelihatanya cukup mudah, tapi perlu konsentrasi yang lebih untuk membuatnya. Seperti biasa pada awal program kita akan menulis code berikut.

PROGRAM Hotel_Citra;
USES Wincrt;
VAR
LM:Byte;
HK, JMLBayar, BayarAkhir:REAL;
Ket:string[40];

Sobat perhatikan code diatas, sudah terlihat perbedaannya.? Betul sekali, dalam code tersebut kita menempatkan variabel LM adalah Byte, sementara var HK, JmlBayar dan BayarAkhir tetap REAL. Kemudian kita juga menambahkan variabel Ket dengan tipe String [40], 40 disini maksudnya adalah pemsanan karakter untuk var Ket/ Keterangan. jika dalam pemesanan karakter kita tuliskan 10 maka kata-kata "Anda Mendapat Diskon 20%" akan tertulis "Anda Menda". Mudah-mudahan sampai disini sobat tidak bingung. Selanjutnya tuliskan code berikut tepat dibawah code sebelumnya.

Begin
Write('Lama Menginap = ');
Readln(LM);
Write('Harga Perhari = ');
Readln(HK);
JMLBayar:=LM*HK;

Kemudian dibawahnya sobat tuliskan code berikut.

IF JMLBayar>=300000
THEN
begin
BayarAkhir:=JMLBayar-(JMLBayar*0.2);
Ket:= 'Anda Mendapat Diskon 20%';
end
ELSE
begin
BayarAkhir:=JMLBayar;
Ket:= 'Maaf Tidak Dapat diskon';
end;

Dalam code diatas setelah Then dan Else terdapat Begin, Mengapa demikian? karena code setelah begin adalah sebuah Proses kembali, Sobat lihat disana terdapat variabel Ket, ini gunanya untuk menampilkan apakah dapat atau tidak dapat diskon, karena diawal kita memesan variabel Ket dengan tipe string[40] maka akan tertulis sesuai dengan keterangan yang kita tulis dalam code diatas. Jika sobat menginginkan kata-kata yang cukup panjang dalam keterangannya, sobat bisa merubah pemesanan karakter [40] sesuai yang dibutuhkan.

Selanjutnya sobat tulis juga code berikut dibawah code sebelumnya.

writeln;
Writeln('Diskon? = ' ,Ket);
Writeln('Yang harus dibayar = ' ,JMLBayar:8:0);
Writeln('Harga Akhir = ' ,BayarAkhir:8:0);
Writeln('TERIMAKASIH...!');
readln;
End.

Kegunaan dari code diatas masih sama, yaitu untuk menampilkan hasil akhir dari proses perhitungan dan juga menampilkan Keterangan diskon atau tidak. Setelah semua code tertulis silahkan uji programnya apakah berjalan dengan baik, tekan Ctrl+F9 untuk menjalankan program. Selesai.

Semoga bermanfaat

Penulis: Firman A-Arrsnet

Keyword

• Pascal Tutorials
• Tutorial Pascal
• Membuat Program Hotel
• Membuat Program di Pascal
• Membuat Program dengan Pascal

Membuat Program Hotel [Pascal-Part2]

Tutorial sebelumnya telah membahas bagaimana membuat program hotel dengan bahasa pascal tetapi tidak menggunakan fungsi if dan discount. Pada tutorial ini kita akan coba membuat program hotel dan mengkolaborasikannya dengan fungsi if , bila sobat belum melihat tutorial pertama, silahkan sobat lihat di Membuat Program Hotel [Pascal-Part1] ,untuk pengguaan codenya tidak banyak perubahan hanya saja kita perlu menambahkan fungsi if. Silakan simak code dibawah ini.

PROGRAM Hotel_Citra;
USES Wincrt;
VAR
LM, HK, JMLBayar, BayarAkhir:REAL;

Judul program silahkan sobat ubah dengan nama program yang sobat buat. uses wincrt; bisa juga menggunakan uses crt; jika sobat menjalankan progran pascal di windows xp. Var adalah variabel yang akan kita gunakan dalam program nantinya. Selanjutnya tulis code dibawah ini tepat dibawah code yang diatas.

Begin
Write('Lama Menginap =');
Readln(LM);
Write('Harga Perhari =');
Readln(HK);
JMLBayar:=LM*HK;

Lalu dibawah code tersebut, sobat tuliskan fungsi if berikut ini.

IF JMLBayar>=100000
THEN
BayarAkhir:=JMLBayar-(JMLBayar*0.1)
ELSE
BayarAkhir:=JMLBayar;

Writeln;
Writeln('Harus di Bayar=',JMLBayar:8:2);
Writeln('Bayar Akhir=',BayarAkhir:8:2);
Readln;
End.

Sobat perhatikan dalam code diatas terdapat if then dan else. Maksudnya adalah Jika variabel JmlBayar lebih dari atau sama dengan 100.000, kemudian BayarAkhir = JmlBayar dikuragi ( - ) JmlBayar x 0.1 (0.1 = diskon 10%). Else, jika JmlBayar kurang dari atau tidak sama dengan 100.000, BayarAkhir = JmlBayar (tidak mendapat diskon). Sampai disini mudah-mudahan sobat faham. Kemudian:

Writeln;
Writeln('Harus di Bayar=',JMLBayar:8:2);
Writeln('Bayar Akhir=',BayarAkhir:8:2);
Readln;
End.

Code tersebut fungsinya untuk menampilkan hasil akhir dari proses perhitungan, untuk penjelasannya silahkan soat buka tutorial part1. Setelah selesai menuliskan code-code tersebut, sekarang coba Run/Jalankan program yang sobat buat, tekan (Ctrl+F9) untuk menjalankan. Jika sudah sesuai dan berjalan normal silahkan simpan pekerjaan sobat.

Tutorial berikutnya kita akan membuat program hotel ini memiliki keterangan, jika harga bayar misal lebih dari = 200.000 maka akan muncul keterangan Anda mendapat diskon  20%, jika tidak, akan muncul keterangan Anda Tidak mendapat diskon.

Semoga bermanfaat

Penuls: Firman A-Arrsnet

Keyword

• Pascal Tutorials
• Tutorial Pascal
• Membuat Program Hotel
• Membuat Program di Pascal
• Membuat Program dengan Pascal

Membuat Program Hotel [Pascal-Part1]

   Kali ini kita akan membahas seputar Bahasa Pascal, tapi sebelumnya sobat harus memiliki dulu programnya, silahkan sobat cari terlebihdahulu. Hari ini kita akan coba membuat program sederhana yaitu program perhitungan untuk hotel, kenapa harus hotel? karena program yang kita akan buat tidak terlalu sulit jadi kita cari mudahnya, untuk membuat sebuah program tentu kita harus menuliskan codenya, tentusaja kita akan menulis kode tersebut. Sobat simak kode dibawah ini.

PROGRAM Hotel_Arrs;
USES Wincrt;
VAR
LM, HK, JMLBayar:REAL;

    Kode diatas adalah kode awal, sobat tuliskan seperti kode diatas. Sobat dapat merubah Hotel_Arrs dengan judul program yang sobat buat sendiri. 

uses wincrt; bisa juga menggunakan uses crt; jika sobat menjalankan progran pascal di windows xp. Var adalah Variabel yang akan kita gunakan didalam program, disana tertulis LM untuk Lama Menginap, HK untuk Harga Kamar, JMLBayar untuk Jumlah Bayar dan :Real menyatakan bilangan real.

    Selanjutnya tuliskan kode berikut dibawah kode sebelumnya.

Begin
Write('Lama Menginap =');
Readln(LM);
Write('Harga Perhari =');
Readln(HK);
JMLBayar:=LM*HK;

Writeln;
Writeln('Harus di Bayar=',JMLBayar:8:2);
Readln;
End.

Kode diatas diawali dengan Begin, ini ditujukan untuk memulai sebuah proses.

Write('Lama Menginap =');   // Kegunaanya untuk menampilkan kata Lama Menginap =

Readln(LM);   // Untuk membaca variabel LM:Real

Write('Harga Perhari =');   // Kegunaanya untuk menampilkan kata Harga Perhari =

Readln(HK);   // Untuk membaca variabel LM:Real

JMLBayar:=LM*HK;   // Ini adalah rumus, lama menginap x harga perhari

Writeln;

Writeln('Harus diBayar =',JMLBayar:8:0);   // Kegunaanya untuk menampilkan kata Harus dibayar = . dengan variabel Jumlah Bayar. 8 spasi dari tanda = , dan 0 karakter dibelakang nominal harga (tanpa koma)

Readln;   // Tujuannya aga pengguna dapat melihat preview akhir, jika tidak ada kode ini pengguna program tidak dapat melihat harga akhir yang harus dibayar, karena program akan otomatis mengClose.

    Silahkan sobat mencobanya, tutorial berikutnya kita akan menggunakan fungsi IF dan akan kita masukan kode pemotongan harga atau Diskon dengan minimal harga sewa tertentu.

Semoga bermanfaat

Penulis: Firman A-Arrsnet

Keyword

• Pascal Tutorials
• Tutorial Pascal
• Membuat Program Hotel
• Membuat Program di Pascal
• Membuat Program dengan Pascal

Memulai Pascal di Lazarus

Lazarus sebuah aplikasi yang membantu kita menuliskan sebuah bahasa pemograman, karena kita sedang berbicara bahasa pascal, maka kita tidak akan berbicara tentang bahasa Basic apalagi Cobol.

Lazarus bisa disebut juga software multi, mengapa demikian? sobat penasaran? jika iya jawabanya adalah sobat cobalah sendri aplikasi ini. Langsung pada pembahasannya, untuk memulai penulisan bahasa pascal atau coding dengan bahasa pascal, langka awal adalah:

• Sobat buka Lazarus yang telah didownload
• Kemudian sobat ke menu File lalu pilih New.. setelah itu akan ada form yang muncul.
• Pada form tersebut sobat klik Project kemudian double klick di Simple Program 

Setelah itu maka form baru akan muncul, di form tersebut telah tertulis 

---

program Project1;

begin
end.

---

Nah pada bagian itulah sobat tuliskan coding-coding nya. Mudah bukan? sekarang sobat sudah bisa ber experimen dengan bahasa pascal tanpa perlu menggunakan Dos Box, ataupun XpMode dan bagi sobat yang kurang suka dengan latar belakang Turbo Pascal yang berwarna biru, sobat bisa gunakan Lazarus di windows 7 64bit mengingat Tpw 1.5 tidak work di 64bit.

---

Semoga membantu

Penulis: Firman A-Arrsnet

Tips Menjadi Programer

Banyak diantara kita yang mungkin berkeinginan menjadi seorang programer, baik itu programer aplikasi desktop maupun aplikasi berbasis web. Sering sekali kita berkhayal bisa menjadi seorang programer yang handal, saya pun pernah berkhayal demikian, namun didunia ini memang tidak ada yang instan, bahkan mie instanpun perlu direbus dulu agar bisa dinikmati, sama halnya dengan seorang programer. Sebelum menjadi programer, seseorang perlu melewati beberapa tahapan-tahapan. Tentunya tahapan paling awal adalah belajar. Seorang yang bertekad dan bersunguh-sungguh untuk menjadi programer pasti ia akan berusaha keras untuk belajar mengerti dan memahami syarat untuk menjadi seorang programer. Oke berikut adalah Tips Menjadi seorang Programer versi saya.

Niatkan dari sekarang, Anda ingin menjadi programer apa? aplikasi desktop atau web aplikasi?

Ini bertujuan untuk memfokuskan tujuan sobat agar nanti terarah dari sekarang.

Logika

Seorang programer dituntut untuk memiliki logika yang kuat, karena seorang programer harus bisa mengambil keputusan / kesimpulan dengan cepat dan tepat. Pernyataan seperti True, False, 0, 1, If, Then,dll akan bayak dijumpai jika sobat bergelut didunia programer. Itulah alasannya mengapa banyak matakuliah eksak di jurusan Teknik Informatika. Jika sobat yang alergi dengan eksak, sebaiknya fikir 2kali jika ingin mengambil jurusan teknik informatika.

Berfikir Cepat

Kaitanya dengan logika. Seorang programer harus berfikir cepat, contohnya penarikan kesimpulan, ada beberapa permis, dari permis tersebut harus kita tarik kesimpulannya :

P  → Q

Q → R

R → S

S → Z

 Dari pernyataan di atas dapat ditarik kesimpulanya yaitu :- P → Z .  ini adalah contoh yang mudah, masih banyk contoh-contoh yang lain.

Jangan Menghafal Script

Banyak yang berkata bahwa untuk menjadi seorang programer kita harus hafal script, ini sebenarnya tidak salah, hanya saja kurang efektif, kenapa? ya, karena kapasitas otak setiap orang berbeda-beda, ada yang menghafal kemudian bisa langsung ingat, ada yang harus menghafal berkalai-kali baru bisa ingat, ada yang menghafal lalu ingat, esok harinya lupa. Makadari itu metode menghafal kurang efektif.

Untuk solusinya adalah berlatih, dengan berlatih rutin dan continue (berlanjut) perlahan-lahan otak akan dapat mengingat,menagkap juga mengerti dan memahami kegunaan / fungsi dari script yang kita gunakan dalam berlatih. Berbeda dengan menghafal script, mungkin kita akan dapat mengingat scriptnya, tetapi Fungsinya? (penggunaan logika tidak terlepas disetiap metode berlatih.)

Jangan  ragu untuk mencoba dan Terus Berlatih.

Langkah dasar untuk pemula dalam berlatih dan mencoba. Mulailah dari bahasa pemograman yang dasar, seperti Pascal. Caranya bertahap saja.

Untuk programer Web juga sama. Penggunaan software Dreamweaver tidak salah karna hanya untuk proses awal belajar, asalkan fahami betul-betul script beserta fungsinya. Setelah merasa bisa, barulah sobat perlahan beralih ke software Teks Editor, seperti Notepad ++ , Sublime dll, dengan begitu proses belajar akn lebih teratur dan tertata, dibanding sobat langsung menggunakan software untuk para profesional, padahal sobat belum faham apapun. Itulah sedikit dari saya , Tips Menjadi Programer.

Semoga Bermanfaat

Penulis: Firman A-ArrsNet

Keyword

• Menjadi Programer
• Software Programmers
• Web Programmers
• Website Programmers
• Web Programming Php
• Tips Menjadi Programmer
• Trick Menjadi Programmer

Baca Juga:

1. Membuat Program persegi panjang [pascal]

Pascal Tutorial Membuat Program Luas dan Keliling Persegi Panjang

Dengan bekal pengetahuan tentang program Pascal beserta variabel-variabelnya, kini kita akan ujicoba untuk membuat sebuah program penghitungan Luas Persegi Panjang dan Kelilingnya, sebelum itu kita akan melihat dulu alur dari program yang akan kita buat, dalam hal ini saya telah membuat sebuah Flow Cart yang akan menjadi acuan kita dalam membuat sebuah program. Silahkan bisa sobat lihat terlebihdahulu Flow Cartnya, 

Dari Flowa Cart di atas dapat disimpulkan bahwa nantinya program yang akan kita buat memiliki sebuah proses, dari awal dimulai dengan START, lalu ada sebuah Input data, disinilah varabel akan diinput, kemudian data akan di Proses pada bagian ke 3 dan 4. Bagian ke 3 adalah proses perhitungan luas persegi panjang dengan rumus P*L, lalu di bagian ke 4 adalah proses perhitungan keliling dengan rumus 2* (P+L), selanjutnya di bagian Output akan menampilkan hasil dari sebuah proses pada bagian ke 3 dan 4, hasilnya berupa Luas Persegi Panjang dan Keliling. Setelah selesai,pada bagian akhir diakhiri dengan END. 

Oke kita langsung terjun ke coding, berikut adalah kodenya:

PROGRAM Persegi;
{----------------------------------------------------------}
{   Program Menghitung Luas Persegi Panjang                }
{                  Dan Keliling Persegi Panjang            }
{----------------------------------------------------------}
USES WINCRT;
VAR
   Panjang, Lebar, Luas, Keliling : REAL;
BEGIN
     Clrscr;
     write('Panjang = ');
     readln(Panjang);
     write('Lebar = ');
     readln(Lebar);
     Luas := Panjang * Lebar;
     Keliling := 2 * (Panjang+Lebar);
     writeln;
     writeln('Luas = ', Luas:3:1);
     writeln('Keliling = ', Keliling:3:1);
END.

Keterangan:

PROGRAM Persegi;  

{----------------------------------------------------------}

{   Program Menghitung Luas Persegi Panjang     }

{                  Dan Keliling Persegi Panjang            }

{----------------------------------------------------------}

Ini adalah judul dari sebuh program yang kita buat.

USES WINCRT;

Ini adalah code yang harus ada, di widows xp menggunakan USES CRT;

di widows 7 menggunakan USES WINCRT;

VAR

   Panjang, Lebar, Luas, Keliling : REAL;

Pada bagian ini kita Input variabelnya, seperti di flowcart tadi, variabel panjang,lebar,luas,keliling kita input disini. Penulisanya seperti diatas.

BEGIN                        [Jika di flowcart ini adalah bagian proses,]

     Clrscr;

     write('Panjang = '); [Code ini memanggil variabel Panjang]

     readln(Panjang);     [Code ini membaca variabel Panjang,berupa angka]

     write('Lebar = ');     [Code ini memanggil variabel Lebar]

     readln(Lebar);         [Code ini membaca variabel Lebar,berupa angka]

     Luas := Panjang * Lebar; [Ini adalah rumus Luas]

     Keliling := 2 * (Panjang+Lebar); [Ini adalah rumus keliling]

Hasil

     writeln;

     writeln('Luas = ', Luas:3:1);

     writeln('Keliling = ', Keliling:3:1);

Disini akan ditampilkan hasil dari perhitungan luas dan keliling. Luas:3:1 dan Keliling:3:1, Maksudnya adalah, pada hasil Luas dan Keliling kita memesan 3 spasi dari simbol = sampai ke hasil perhitungan. Contoh: Luas/Keliling =(3spasi)120.0 .

Nah :1 ini maksudnya apa? Ini adalah kode untuk memesan carakter di belakang tanda titik (.)  Contoh: Luas/Keliling =(3spasi)120.0

Bagaimana jika kita memberikan Luas:3:3 Keliling:3:3 dan ? maka hasilnya akan seperti ini Luas/Keliling=(3spasi)120.000

END.

Ini adalah simbol/tanda/code untuk mengakhiri sebuah program.

Jangan lupa, tanda (: ; ‘ , ) ini wajib, jangan sampai lupa menuliskannya, jika ada salah satu code yang tidak sempurna seperti  writeln('Luas = ', Luas:3:1)  Maka akan terjadi error, karena code tersebut kurang tanda ; diakhirnya.

Selamat mencoba,

Semoga Bermanfaat,

Penulis: Firman A-ArrsNet

Baca Juga:

1. Struktur dan komponen dasar Pascal
2. Aturan dalam program Pascal
3. Bahasa Pascal

Beberapa aturan dalam program Pascal

Mencoba berbagi Ilmu yang didapat dari Dosen, dengan harapan bisa bermanfaat untuk sobat semua.
Monggo disimak

·Akhir sebuah program Pascal ditandai dengan tanda baca titik (.) setelah END yang  paling akhir.

·Tanda titik koma (;) merupakan pemisah antar instruksi satu dengan lainnya.

· Beberapa statement boleh ditulis menjadi satu baris dipisahkan dengan tanda baca titk koma (;)

Contoh : simpan  :=  akhir;   akhir := simpan + awal;

· Baris komentar diletakkan diantara tanda (* dan *) atau diantara tanda { dan }

Contoh :          Var      rerata   : real;               (*nilai rata-rata*)

                                    Nil1   : real;               {nilai ujian}    

Statement  (pernyataan)

            Adalah instruksi atau gabungan instruksi, yang menyebabkan komputer melakukan aksi.

Type statement dalam Pascal terdiri atas :

1.      Sederhana :

- menandai sebuah item data ke sebuah variabel (assigment statement)

            contoh : X := Y * 4.135

-         pemanggilan procedure dan goto statement

2.      Terstruktur:

- Compound Statement

            contoh : Begin

                                    read (x) ;

                                    y := x + 5;

                                    write (y)

                          End.

      - Repetitive Statement

            contoh :           For I := 1 to 100 do

                                    write (count);

     - Conditional Statement

            contoh :           If x > 100 then write (s)

                                                else write (p) ;






#ArrsNet

Baca Juga:

1. Struktur dan komponen dasar Pascal
2. Membuat program luas persegi panjang [pascal]
3. Bahasa Pascal