Entri Populer

Jumat, 20 Juni 2014

Pengertian Array

Array (larik) merupakan tipe data tersetruktur dimana didalamnya terdiri dari komponen
– komponen yang mempunyai tipe data yang sama. Didalam suatu array jumlah
komponen banyaknya adalah tetap. Didalam suatu larik atau array setiap kompoenen
ditunjukan oleh suatu index yang unik. Index dari setiap komponen array menunjukan
urutan data atau identitas yang mewakili data yang ada didalamnya.
Logika sederhananya array itu bisa disamakan dengan dua orang dengan nama yang sama
didalam suatu komunitas, untuk membedakan antara nama yang satu atau dengan nama
yang lain maka diberikan initial tambahan untuk setiap nama.

6.2. Deklarasi Array

Didalam penulisan bahasa pemograman setiap penggunaan array harus dideklarsikan
terlebih dahulu. Pendeklarasian array diawali dengan nama variabel array diikuti dengan
indeks array yang dituliskan didalam tanda “[]” , diikuti dengan kata cadangan of dan tipe
data yang dibutuhkan.

Bentuk Umum Penulisan

Tanda_pengenal : array [..tipe index ..] of tipe data;

Contoh :

Var
A : array[1..4] of integer;
B : array[1..5] of string;
C: array[1..10] of real;

Keterangnan :
A,B,C merupakan tanda pengenal/ nama variabel dari array;
1..4     : merupakan tipe indek dari array, yang menunjukan banyaknya data yang mampu
disimpan.
Integer : menunjukan bahwa data yang diinput berupa bilangan bulat.

6.3. Alokasi Penggunaan Array

a. Array Static (Static Array)

array static adalah  model pendeklarasian array dimana tipe data yang digunakan
mempunyai nilai yang tetap. Nilai yang digunakan untuk menentukan jangkauan pada
umumnya bernilai integer. Array Static juga bisa disebut Array dengan deklarasi tipe
indeks subrange integer.

 45


Bentuk Umum

array[indexType1, ..., indexTypen] of baseType

Keterangan = index type menunjukan tipe data ordinal yang menunjukan batasan atau
elemen maksimul terhadap seberapa besar variabel tersebut menyimpan komponen.

Contoh

Var arrayku : array[1..5] of char

Atau juga

type
   jangkauan = 1..5;
var
   nilai : array[jangkauan] of integer;

b. Array Dinamis (Dynamic arrays)

Larik atau array dinamis merupakan array yang tidak mempunyai suatu jangkauan atau
ukuran yang tetap. Tetapi ketika program dijalankan maka memori untuk suatu array
dinamis direalokasikan ketika kita  menugaskan suatu nilai kepada array. Dynamic-Array
jenis ditandai oleh konstruksi (menyangkut) format

Bentuk Umum

array of baseType

Contoh

var nilai: array of Real;

Dari deklarasi tersebut nilai yang merupakan deklarasi array belum memperoleh nilai
yang tetap, tetapi hanya diberikan batasan sebagai tipe data real. Untuk mendeklarasikan
array tersebut kita harus menempatkan array didalam suatu memori, caranya adalah
dengan memanfaatkan fungsi dari perintah sellength.

Selllength(nilai,20)

Dari penggalan program tersebut nilai untuk array nilai tersebut mempunyai range
sebanyak atau cakupan 20 untuk tipe data real, dengan indeex dimulai dari 0 sampai
dengan 20.



pengenalan borland delphi7


Pengenalan Borland Delphi 7


Assalamualaikum Temen Temen Semua, Salam Semangat Untuk hari ini, Wah Wah Wah ketemu lagi kita di achmadanwar2a.blogspot.com. Tentang Pemrograman Borland Delphi 7.0 yang akan kita gunakan untuk pembelajaran kedepan.. Monggo Disimak Temen Temen Semua.Borland Delphi 7 -> Pengenalan Awal yuk. Delphi adalah suatu bahasa pemograman ( development language ) yang digunakan untuk merancang suatu aplikasi program. keunggulan Delphi dibanding bahasa pemograman lainnya :
1. IDE ( integrated Development Environment ) yakni lingkungan aplikasi yang didalamnya terdapat menu menu yang memudahkan kita untuk membuat suatu proyek program.
2. mudah digunakan, source kode delphi yang merupakan turudan dari pascal.
3. sifatnya multi purphase yakni mudah digunakan untuk mengembangkan berbagai keperluan pengembangan aplikasi
Berikut ini yuk kita Mengenal Lembar Kerja Delphi 7 :
Untuk Membuka Program Pilih Start -> Program File  -> Borland Delphi 7 -> Delphi 7.exe
Lembar Kerja Delphi
Berikut ini adalah Bagian Bagian dari Lembar Kerja Delphi, Berikut Penjabarannya :
1. Object Tree View -> diagram pohon yang menggambarkan hubungan logis komponen kompenen dalam project program. meliputi FormModulFrame yang sesuai dengan penempatannya.
Jendela Object Tree View
2. Object Inspector -> Merupakan jendela yang digunakan guna mengatur tampilan komponen pada form, seperti menulisan tampilan Caption, Penamaan dari suatu komponent. Object Inspector secara umum terbagi menjadi 2 tab, Yakni :
Object Properties yang digunakan untuk mengatur tampilan dalam suatu komponen baik itu nama, warna, font, border dan lain sebagainya.
Jendela Object Inspektor Properties
Object Event yang digunakan untuk memberikan fungsi yang lebih detail dari perintah-perintah coding yang kita buat didalam komponent, agar berjalan seperti yang kita inginkan.
Jendela Object Inspector Event
 3. Form Designer -> Merupakan tempat yang digunakan untuk merancang suatu tampilan aplikasi program yang dapat dimasukkan komponen komponent pallete.
Tampilan Form Designer
4. Component Pallete -> Merupakan Kumpulan Icon yang Digunakan untuk merancang suatu aplikasi, dimana mereka akan membentuk suatu interface sebuah aplikasi. Dalam Setiap komponen Pallete semua icon dikelompokkan dalam berbagai komponen sesuai dengan fungsi dan kegunaannya.
Berikut Beberapa Fungsi Dari Suatu Pallete Standart :
Component dan Fungsi Pallete
5. Code Editor -> Bagian dari Delphi yang kita gunakan dalam penulisan Kode Program. Pada bagian Code Editor terdapat 3 bagian tama yakni = bagian paling kiri yang berupa angka menunjukan baris dan kolom dan keterangan modified menunjukan bahwa telah terjadi modifikasi terhadap baris program. dan yang paling kanan menunjukkan tentang tombol insert atau overwrite.
Tampilan Jendela Unit.
Nah itulah beberapa komponen dari Borland Delphi nich, Sederhana kan kita tinggal memperbanyak praktek praktek dalam penggunaan delphi ini jika kita sudah mengetahui beberapa component standar yang akan kita temui nanti dalam pembuatan aplikasi Delphi. Nah pindahan kedua sudah sukses tetap ditunggu materi pindahan selanjutnya ya dan juga materi materi terbaru dari borland delphi yang akan saya lanjutkan di EkoEriyanah Personal Blog, Untuk yang mau mampir di rumah saya Catatan Eko monggo hanya mungkin udah lama gak update hehehehe tapi untuk materi delphi dasar disana lumayan karena disini belum dipindahin semuanya ( satu satu aja biar gak cape hehehe ). Nah untuk materi selanjutnya kita akan mulai praktek dan latihan latihan terus nich sambil mengenal bahasa bahasa coding dari delphi.

pemrogramman convert ASCII ke huruf/angka

Thanks…bro…
Udah menunggu postinganku lagi,,,,kita akan belajar ASCII
kode Standar Amerika untuk Pertukaran Informasi atau ASCII (American Standard Code for Information Interchange) merupakan suatu standar internasional dalam kodehuruf dan simbol seperti Hex dan Unicode tetapi ASCII lebih bersifat universal, contohnya 124 adalah untuk karakter "|". Ia selalu digunakan oleh komputer dan alat komunikasi lain untuk menunjukkan teks. Kode ASCII sebenarnya memiliki komposisi bilangan biner sebanyak 7 bit. Namun, ASCII disimpan sebagai sandi 8 bit dengan menambakan satu angka 0 sebagai bit significant paling tinggi. Bit tambahan ini sering digunakan untuk uji prioritas. Karakter control pada ASCII dibedakan menjadi 5 kelompok sesuai dengan penggunaan yaitu berturut-turut meliputi logical communication, Device control, Information separator, Code extention, dan physical communication. Code ASCII ini banyak dijumpai pada papan ketik (keyboard) computer atau instrument-instrument digital.
Jumlah kode ASCII adalah 255 kode. Kode ASCII 0..127 merupakan kode ASCII untuk manipulasi teks; sedangkan kode ASCII 128..255 merupakan kode ASCII untuk manipulasi grafik. Kode ASCII sendiri dapat dikelompokkan lagi kedalam beberapa bagian:
·         Kode yang tidak terlihat simbolnya seperti Kode 10(Line Feed), 13(Carriage Return), 8(Tab), 32(Space)
·         Kode yang terlihat simbolnya seperti abjad (A..Z), numerik (0..9), karakter khusus (~!@#$%^&*()_+?:”{})
·         Kode yang tidak ada di keyboard namun dapat ditampilkan. Kode ini umumnya untuk kode-kode grafik.
Dan kita akan membuat program convert  Bahasa ASCII ke angka/huruf
Cekidot…monggo di sedot…
.Desain form




Desain properties
object
caption
name
Label1
Ketikkan angka dari kode ASCII
Label1
Label2
Karakter dari kode ASCII tersebut adalah
Label2
Edit1
-

Edit2
-

Button1
ok
bok
Groupbox1
Konversi dari kode ASCII tersebut adalah
Groupbox1

Listing program
procedure TForm1.bokClick(Sender: TObject);
var
angka:integer;
begin
angka:=strtoint(eangka.Text);
ehuruf.Text:=chr(angka);
end;
end.

Hasil screenshot program dijalankan


















pemrogramman entry tanggal delphi7(procedure,function)

Assalamualaikum…mas bro…mbak bro…

Kembali lagi kita bertemu….untuk membahas program Delphi 7
Saat ini kita akan membuat program  entry tanggal untuk mengetahui hari apa saat kita inputkan tanggal tersebut….
Oke kita sedot…cekidot….:p

Kita buat dulu formnya













Catatan propertiesnya
object
caption
name
Label1
Tanggal
Label1
Label2
Bulan
Label2
Label3
Tahun
Label3
Label4
Hari pada tanggal tersebut adalah
Label4
Groupbox1
Entry tanggal113233003
Groupbox1
Edit1
-
Etgl
Edit2
-
Ebln
Edit3
-
Ethn
Edit4
-
Ehari
Command1

ok

. Listing Program

Program untuk Command OK

procedure TForm1.Command1Click(Sender: TObject);
type
  x=string[7];
const
  faktorbln:array[1..12]of byte=(0,3,3,6,1,4,6,2,5,0,3,5);
  hari:array[0..8]of x=('minggu','senin','selasa','','rabu','kamis','','jum''at','sabtu');
var
  hr:string[255];
j1,j2,j3,j4:integer;
  tanggal,bulan,tahun:integer;
begin
tanggal:=strtoint(etngl.text);
bulan:=strtoint(ebln.text);
tahun:=strtoint(ethn.text);
if tahun>1900 then tahun:=tahun-1900;
j1:=trunc(tahun*365.25);
j2:=j1+faktorbln[bulan];
if(tahun/4=int(tahun/4))and(bulan<3)then j2:=j2-j1;
j3:=j2+tanggal;
j4:=trunc(frac(j3/7)*10);
hr:=hari[j4];
ehari.text:=hr;
end;
end.



screen shot hasil jadi…



 

Kamis, 19 Juni 2014

pemrogramman perhitungan sederhana delphi7

Program perhitungan pegangan guru
Selamat siang Gan….
Kali ini saya akan membuat tutorial tentang perhitungan pada pemrogaman DELPHI 7..
Oke langsung saja tutorial dari saya
Pertama Buat desain seperti ini :














Kemudian atur propertinya seperti berikut:
object
name
caption
Label1
Label1
Program perhitungan type achmad/113223003
Label2
Label2
Nilai praktik 1
Label3
Label3
Nilai praktik 2
Label4
Label4
Nilai perhitungan
Label5
Label5
Hasil
Label6
Label6
Hasil
Label7
Label7
Hasil
Label8
Label8
hasil

object
name
caption
Edit1
Enil1
-
Edit2
Enil2
-
Edit3
Ehtambah
-
Edit4
ehkali
-
Edit5
ehbagi
-
Edit6
ehkurang
-

Object
name
caption
Button1
btambah
tambah
Button2
bkali
kali
Button3
Bbagi
Bagi
Button4
Bkurang
kurang
Button5
bclose
Keluar

d. Listing Program

 Catatan =
Dalam bahasa pemograman Delphi semua data yang diinput melalui
edit box dideklarasikan dengan tipe data string, sehingga ketika kita
akan melakukan proses perkalian atau pengurangan kita tidak bisa
mengalikan secara langsung  edit  box yang dimaksud tetap kita
perlu merubah menjadi nilai dengan tipe data yang dapat dikalikan.

1. Program Tambah

Digunakan untuk menampilkan hasil penjumlahan antara nilai praktek 1
dengan nilai praktek II, cara double klik pada buton tambah dan tuliskan
kode berikut ini =

procedure TForm2.BtambahClick(Sender: TObject);
var
  nil1, nil2 : real;
  tambah: real;
begin
nil1 := strtofloat(enil1.text);
nil2 := strtofloat(enil2.text);
tambah := nil1 + nil2;
ehtambah.text := floattostr(tambah);
end; 
   
  Catatan
   Var
    Nil1,nil2 : real;
    Tambah ; real;
  
  Var digunakan untuk mendeklarasikan suatu nama varibael yag dibuat
oleh programmer yang berfungsi untuk menyimpan nilai atau data selama
proses program berjalan.


 
  Nil1,nil2 dan tambah adalah nama variabel baru yang dibentuk oleh
progrmmer

 Real  adalah nama dari sekeian banyak tipe data yang dikenal dalam
bahasa peograman Delphi. Cakupan tipe data real adalah membaca
bilangan angka dalam bentuk decimal.

 
 17
Strtofloat  adalah fungsi yang digunakan merubah nilai dari tipe data
string menjadi tipe data numeric.

 Floattostr adalah fungsi yang digunakan merubah nilai pecahan menjadi
data string.



2. Program untuk kali

procedure TForm2.BkaliClick(Sender: TObject);
var
   bil1,bil2:real;
   kali : real;
begin
bil1 := strtofloat(enil1.text);
bil2 := strtofloat(enil2.text);
kali := bil1*bil2;
ehkali.text := floattostr(kali);
{ehkali.text := inttostr(strtoint(enil1.text) *
strtoint(enil2.text));}
end;
3 Program untuk bagi

procedure TForm2.BbagiClick(Sender: TObject);
var
  bil1,bil2    : real;
  bagi : real;
begin
bil1 := strtofloat(enil1.Text);
bil2 := strtofloat(enil2.Text);
bagi := bil1/bil2;
ehbagi.Text := floattostr(bagi);
end; 

  
4. Program untuk kurang

procedure TForm2.BkurangClick(Sender: TObject);
var
bil1,bil2,kurang : real;
begin
bil1 :=  strtofloat(enil1.Text);
 18
bil2 := strtofloat(enil2.Text);
kurang := bil1 - bil2;
ekurang.Text := floattostr(kurang);
end;

5. Program untuk keluar

procedure TForm2.bcloseClick(Sender: TObject);
begin
messageDlg('Ingin Menutup form',mterror, [mbok],0);
close;
end;

Catatan
Messagedlg adalah penggalan program yang digunakan untuk
menampilkan kotak pesan.

Close  digunakan untuk menutup form.

Screenshot hasil jadi










Screenshot program

jika di tutup

















Listing program keseluruhan
                                                                                                                                                       
procedure Tachmadanwarb.BtambahClick(Sender: TObject);
var
nil1,nil2:real;
tambah:real;
begin
nil1:=strtofloat(enil1.text);
nil2:=strtofloat(enil2.text);
tambah:=nil1+nil2;
ehtambah.text:=floattostr(tambah);
end;
procedure Tachmadanwarb.BkaliClick(Sender: TObject);
var
  bil1,bil2:real;
  kali:real;
begin
bil1:=strtofloat(enil1.text);
bil2:=strtofloat(enil2.text);
kali:=bil1*bil2;
ehkali.text:=floattostr(kali);
{ehkali.text:=inttostr(strtoint(enil1.text)*strtoint(enil2.text));}
end;

procedure Tachmadanwarb.BbagiClick(Sender: TObject);
var
  bil1,bil2:real;
  bagi:real;
begin
bil1:=strtofloat(enil1.text);
bil2:=strtofloat(enil2.text);
bagi:=bil1/bil2;
ehbagi.text:=floattostr(bagi);

end;

procedure Tachmadanwarb.BkurangClick(Sender: TObject);
var
bil1,bil2,kurang:real;
begin
bil1:=strtofloat(enil1.text);
bil2:=strtofloat(enil2.text);
kurang:=bil1-bil2;
ehkurang.text:=floattostr(kurang);
end;
procedure Tachmadanwarb.BcloseClick(Sender: TObject);
begin
messagedlg('ingin menutup form',mterror,[mbok],0);
close;
end;

end.