Konversi Delphi

siph".... haha setelah lama vacum untuk nge-blog, sekarang ane mau ngeshare tentang delphi. yuk mari simak :D


Dalam delphi kita mengenal tentang pengkonversian. Pengkonversian ini di tujukan untuk mengubah suatu string(tampilan) menjadi tipe datannya masing".... misalkan untuk mengkonversi string menjadi integer maka syntax-nya "StrToInt(.....)". Nah misalkan agan" bertanya "kenapa kita harus mengkonversikan ?", pertanyaan bagus(weleh" kyak ibu guru ane, hehe). Itu di karenakan Semua yg tampil, yg ada atau yg kita lihat di form itu semua bersifat string

jadi kita tidak bisa melakukan proses aritmatika. nih ane share beberapa syntax pengkonversia, sebagai berikut :D....

Type data	Konversi Program	Konversi Kelayer
Integer	StrToInt	IntToStr
Date	StrToDate	DateToStr
Time	StrToTime	TimeToStr
Real	StrToFloat	FloatToStr
Currency	StrToCurr	CurrToStr

nah tuh lumayan banyak kan.... tapi itu di balik" aja kok hehe....
Dalam pengkonversian tersebut juga berkaitan dengan variabel. nih syntax untuk ngasih variabel.
var  namavar1, namavar2 : Type_data1 ;
     namavar3,namavar4  : Type_data2 ;


nih ane beri contoh deh gan ;D
pertama sediain dulu 3 EditBox, 1 Button dan 2 Label atur seperti gambar dibawah

setelah itu ganti namanya beserta captionnya. untuk menggantinya, klik object lalu pada tabel properties ganti "name" dan "caption"nya

lalu ubah object"nya sebagai berikut :D

Object	Properties
Edit1	Name	EdData1
	Text	0
Label1	Caption	+
Edit2	Name	EdData2
	Text	0
Button1	Name	BtResult
	Caption	Result
Label2	Caption	Hasil
Edit3	Name	EdHasil
	Text	0

setelah agan ganti, klik dua kali(double click) pada button result

ket:
1 -> itu adalah pendeklarasian variabel yg akan kita gunakan dalam proses program. peletakannya memang disana(diantara procedur dan begin). kalo agan naruhnya di dalam begin, gag mau jalan gan :D
2 -> itu adalah pengkonversi string menjadi integer, karena kita akan melakukan proses aritmatika
3 -> itu adalah proses aritmatikanya
4 -> itu adalah menampilkan kembali ke layer hasil dari proses aritmatika tadi
nah begitu deh gan.... coba" aja, nanti pasti bisa kok....
kalo agan bisa yg diatas, coba buat program sederhana berikut gan, nih Downloadnya :D


udah dulu ya gan mpe disini dulu. nannti pada sesion berikutnya ane share yg laen.... :D
salam blogger agan" :)


"Selalu bekerja keras, meskipu kita gagal belumtentu kita berakhir. Mari kita berdiri lagi dan belajar dari kegagalan kita tersebut untuk mencapai ke Suksesan kita"

Struktur perulangan For dalam pascal

seperti pada judul diatas kita akan mengulas tentang struktur perulangan for dalam pascal sampai habis :D
perulangan ini digunakan untuk mempersingkat perintah yg diulang-ulang, benerkan? daripada ngetik script panjang-panjang lebih baik pakai perulangan kan? :D
sok tancap gan:

for Variable:= integer to integer do
 begin
  statement_yang_mau_diulang;
 end;

yap, diatas tadi syntax-nya
nah ini contoh kasusnya

uses wincrt;
var
 js,per:integer;
 nm,kls:string;
begin
 write('Jumlah Siswa   : ');readln(js);
 for per:=1 to js do
  begin
   write('Nama           : ');readln(nm);
   write('Kelas          : ');readln(kls);
  end;
end.

siiip......
segitu aja ya?, ane takutnya kalo ane nulis artikel panjang" nanti agan" bosen....:D
jadi ane langsung ke "point utamanya" OK ;D
sip-sip kalo mao liat contoh perulangan bertingkat atau nested for langsung aja gan kepostingan sebelah :)

wassalam......
Selalu Berusaha untuk menjalani KeSuksesan kita.

Struktur Nested For dalam Pascal

oke.....Assalamualaikum Gan? nested for tau gan? kalo belum tau liat di postingan yang ini neh gan "If Bertingkat dalam Pascal" , kalo gag mao kesana sininih ane kasih tau tapi singkat...

Nested for itu perulangan for yang didalam for tersebut ada for lagi, ya keliatannya seperti anaknya gitu hehe:D
kalo kurang jelas langsung aja nih Syntax-nya cekidot:

for variable:=integer to integer do
 begin
  for variable:=integer to integer do
   begin
    statement_yang_mau_diulang;
   end;
 end;

kalo masih bingung??? langsung aja nih gan liat contohnya

uses wincrt;
var
 jk,js:integer;

  nm,kls:string;
begin
 write('Jumlah kelas    : );readln(jk);
 for jk:=1 to jk do
  begin
   write('Jumlah Siswa    : ');readln(js);
   writeln('Kelas ke',jk);
   for js:=1 to js do
    begin
     write('Nama            : ');readln(nm);
     write('Kelas           : ');readln(kls);
    end;
  end;
end.

oke mungkin itu cukup jelas ya gan?  hehe, maklum ane masih nubi gan...
ane tutup sampai disini kalo ada kata yang salah mohon di maapin ya gan, kalo perlu kasih komentarnya gan... :D

If Bertingkat dalam Pascal

nah jumpa lagi nih.... hehe...
sesuai janji saya pada postingan sebelumnya "Struktur IF dalam Pascal"  saya akan kasih sesuatu neh gan... :D
pada postingan ini saya akan kasih syntax dan contoh if bertingkat ato sering dikenal dengan NESTED IF.
yaudah ni syntaxnya gan.... monggo disimak :D


if kondisi then
 begin
  if kondisi then
   begin
    statement_benar;
   end
  else
   begin
    Statement_salah;
   end;
 end
else
 begin
  statement_salah;
 end;


nah ini scriptnya nih gan....
monggo coba di TPW-nya... :)



uses wincrt;
var
 j:string;
 n1,n2,n3:integer;
 rata:real;
begin
 Write('Jenis Ulangan   : ');readln(j);
 write('Nilai1          : ');readln(n1);
 write('Nilai2          : ');readln(n2);
 write('Nilai3          : ');readln(n3);
 writeln;
 rata:=(n1+n2+n3)/3;
 if (j='P') or (j='p') then
  begin
   if rata>=70 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Produktif dengan nilai ',rata:0:2);
    end
   else
    begin
     writeln('Anda dinyatakan GAGAL pada bidang Produktif dengan nilai ',rata:0:2);
    end;
  end
 else if (j='A') or (j='a') then
  begin
   if rata>=74 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Adaptif dengan nilai ',rata:0:2);
    end
   else
    begin
     writeln('Anda dinyatakan GAGAL pada bidang Adaptif dengan nilai ',rata:0:2);
    end;
  end
 else
  begin
   if rata>=68 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Normatif dengan nilai ',rata:0:2);
    end
  else
   begin
    writeln('Anda dinyatakan GAGAL pada bidang Normatif dengan nilai ',rata:0:2);
   end;
  end;
end. 


segitu dulu ya :D
nanti ane posting yg laen ok ;D
"Selalu Belajar untuk keSUKSESan"

Struktur IF dalam Pascal

hmmmm....... dah lama nih gag mposting artikel di blog neh, haha kebanyakan tugas luar yg tak bisa di tunda. Ok  menuju ke pokok pembahasan. Pada postingan kali ini ane mau ngasih sedikit tentang IF dari bahasa pemrograman pascal. 


Struktur IF merupakan struktur yg paling lazim dimiliki semua bahasa pemrograman  terutama pascal. Penggunaan if  digunakan untuk mengambil keputusan apabila ada sebuah kondisi yg ditemui. Jika kondisi tersebut bernilai benar, maka pernyataan di dalam struktur if akan dijalankan. Sebaliknya jika bernilai salah, maka struktur if akan diabaikan dan melanjutkan ke pernyataan selanjutnya. Syntax IF nya bisa dilihat langsung gan.


if kondisi then
 begin
  statmen_benar;
 end
else
 begin
  statement_salah;
 end;


catatan nih gan, jika statement-nya lebih dari satu, kita harus menggunakan begin dan end  kalo cuma satu boleh gag pake. tapi kalo ane saranin lebih baik pakai begin ama end


nah contoh programnya ini, kebetulan ane pake turbo pascal 1.5 (TPW 1.5) nih gan


uses wincrt;
var
 n:integer;
begin
 write('Nilai  :');readln(n);
 if n>=70 then
  begin
   writeln('LULUS');
  end
 else
  begin
   writeln('GAGAL');
  end;
end.


segini dulu ya gan. nanti selanjutnya ane mao mposting tentang NESTED IF
OK  ;D
"selalu belajar untuk menuju keSUKSESan"

Tipe Data pada Pascal

1.    Tipe data sederhana

a.    Tipe data standard (standard data type)

1)   Integer

Tipe data yang menerima angka dan bisa dilakukan proses aritmatika. Tipe data ini adalah tipe data bilangan bulat

2)   Real

Tipe data yang menerima angka dan koma serta bisa dilakukan proses aritmatika

3)   Boolean

Boolean adalah tipe data yang hanya mempunyai dua kemungkinan, yaitu true dan false. Biasanya digunakan untuk operasi logika dengan ungkapan AND, OR, atau NOT

4)   Char

Tipe data ini adalah tipe data yang menerima kumpulan karakter (huruf, angka, symbol) tipe data ini tidak bisa dilakukan proses aritmatika

5)   String

Tipe data yang menerima kumpulan karakter (huruf, angka, symbol) tipe data ini tidak bisa dilakukan proses aritmatika

b.      Tipe data didefinisikan pemakai (user defined data type)

1)   Subrange

Tipe data ini merupakan pemberian batas nilai yang mungkin untuk suatu variabel dari tipe data yang telah di definisikan. Sebagai contoh, jangkauan yang mungkin dari nilai ujian adalah dari 0 sampai 100.

Type nilai = 0..100;

2)   Enumerated

Disebut tipe enumerated (terbilang) karena semua nilai disebut satu persatu, contoh:

TYPE hari = {MINGGU, SENIN, SELASA, RABU, KAMIS, JUMAT, SABTU, MINGGU};

2.  Tipe data terstruktur

a.    Array

Array atau lark adalah tipe terstruktur yang mempunyai komonen dalam jumlah yang tetap dan setiap komponen mempunyai tipe data yang sama. Posisi masing-masing komponen dalam array dinyatakan sebagi nomor index. Contoh:

Type

     Tipe_saya=array[1..100] of integer

Var

     Var_baru   : tipe_saya;

b.    Record

Definisi Record hampir sama dengan Array, tetapi yang membedakan antara keduanya adalah kalau Array semua komponennya bertipe data yang sama sedangkan Record setiap komponennya bisa bertipe data yang beda-beda. Contoh:

TYPE my_rec = RECORD

   Nama : STRING[90]; Npm  : STRING[ 8] ;

     Nilai : REAL;

END;

VAR

   Data nya    : my re c;

c.    Set

Himpunan (set) adalah kumpulan obyek yang mempunyai tipe data yang sama dan urutan penulisannya tidak diperhatikan. Setiap obyek dalam suatu himpunan disebut dengan anggota atau elemen himpunan. Contoh:

TYPE irama = (JAZZ, POP, ROCK ,DANGDUT, SKA);

      Musik = SET OF irama;

VAR

     Jenis musik : Musik;

d.    File

File (Berkas) adalah kumpulan sejumlah komponen yang bertipe data sama, yang jumlahnya tidak tertentu, dan biasanya tersimpan dalam suatu media penyimpan luar

3.  Tipe data penunjuk

a.    Pointer

Tipe data pointer merupakan tipe data yang berbeda dengan yang lainnya. Semua tipe data yang lainnya bersifat STATIS sedangkan tipe Pointer bersifat DINAMIS. Tipe ini merupakan tipe data untuk suatu variabel, dimana isi variabel ini berupa alamat variabel lain, dalam artian variabel pointer adalah variabel yang menunjuk nilai atau alamat variabel lainnya