Delphi - Belajar

bikin dulu tampilan form seperti yang diminta pa dosen

caranya ...

buka delpi ...

akan keluar tampilan seperti ini ...

kalo window form ga keluar klik file > new > form

lanjut ke pembuatan desain program ...

Label

Edit

RadioButton

Buttton

ComboBox

kaya gini jadinya ... desain dasar ...

lanjut ... klik Label1 > Caption > NIP

lakukan juga pada label lainnya sehingga menjadi ...

lanjut ... lakukan pula pada Button 1 – 3

oh iya kelupaan RadioButton 1 n 2

agar pada kotak Edit pada saat program nantinya kosong waktu dijalankan maka klik Edit 1 > Text > kosongkan ...

lakukan pula pada Edit 2 – 4 ... sehingga menjadi ...

agar pada combobox berisi tulisan untuk memilih ... klik combobox1 > text > contoh : silahkan anda pilih (contoh)

maka tampilannya menjadi

agar fungsi combobox jalan maka ...

klik combobox1 td dan pilih item

maka akan keluar window

ketikkan golongan 1 – 4 > OK

coba jalankan (F9) maka kalau berhasil tampilannya akan seperti ini ...

apabila di klik tanda panah bawahnya maka akan mengeluarkan pilihan2 spt gambar

lanjut ...

klik 2 kali pada combobox dan msukkan code program spt gambar

maka hasilnya akan seperti ini

apabila kita klik salah satu golongan maka pada gaji pokok akan keluar besaran gaji nya ...

lanjut ...

klik 2 kali pada button hitung ...

masukkan kode program spt gambar ...

hasilnya coba sendiri

lanjut klik 2 kali button reset

klik 2 kali pada button selesai

coba apakah program yg anda buat bisa jalan ...

kalau belum berarti ada kesalahan di pengetikan kode program ...

jng lupa di simpan...

pascal ---> bikin program penghitung huruf

pada saat pertemuan terakhir perkuliahan ... dapat tantangan dari dosen "barang siapa bisa bikin program penghitung huruf dengan pascal maka akan dibebaskan dari uas (ujian akhir semester)" ... jadi semangat nyoba bikin dan berharap akan mengurangi beban pas ujian nanti ... namun kendala utamanya adalah belum memahami sepenuhnya bahasa pascal ... terpaksa deh minta bantuan mr. google tuk cariin listing yang udah jadi ... setelah di kasih tau alamat yang dicari ama mr. google dapet listing sbb :


uses crt;
var  teks : string;
     banyak : array ['A'..'Z'] of byte;
     i : byte;

begin
     clrscr;
     writeln('Program Penghitung Huruf (versi beta)');
     read;
     writeln;
     write('Silakan Anda Ketik Sejumlah Kalimat : ');
     readln(teks);
     for i:=1 to length(teks) do
         banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
     for i:=1 to 26 do
     if (banyak[upcase(chr(64+i))]<>0) then
         writeln(upcase(chr(64+i)), ' banyaknya=' ,banyak[upcase(chr(64+i))]);
     readln;

     gotoxy(45,20);
     writeln('edited by MUJHAN ILMI');
     gotoxy(55,21);
     writeln('09.63.0480');
     readln;

end.

dari beberapa listing yang didapat coba di modifikasi sedikit buat ngeyakinin dosen bahwa itu listing bikinan sendiri ... he he he ... tp kaya nya ketahuan juga sih nantinya ... ga pa2 lah ... namanya juga usaha ... kurang lebih jadi nya seperti ini ...:::