Monthly Archives: January 2013

Membuat Form Penggajian


Saat ini saya akan berbagi bagaimana membuat Form Penggajian Pegawai menggunakan VB.Vet, dimana sebelumnya saya sudah berbagi dengan topic yang berbeda. Berikut adalah tampilan yang telah selesai pembuatannya.
FORM

untuk melihat Code Scriptnya klikMembuat Program Penggajian Sederhana

Bubble Sort pada Pascal


uses wincrt;
var
i,n,j : integer;
a: array [1..100] of integer;

procedure buble;
var z: integer;
begin
for i:= 1 to n-1 do
begin
for j:= n downto i+1 do
begin
if a[j] < a[j-1] then
begin
z:= a[j];
a[j]:= a[j-1];
a[j-1]:=z;
end; Continue reading

Menyembunyikan Folder melalui Command Prompt


Tekan combinasi tombol Window + R untuk membuka jendela Run, kemudian ketik cmd dan tekan enter Jendela command Prompt telah terbuka, ketikkan “attrib +s +h D:/folder anda” tanpa tanda petik, kemudian tekan enter. (Catatan : D adalah nama drive tempat folder berada, folder anda adalah nama folder yang akan dihidden. Misalnya nama folder : download berada pada drive E, maka yang diketik adalah attrib +s +h E:/download) Continue reading

Menghitung Huruf pada Pascal


saat ini saya akan sharing bagaimana menghitung huruf dalam suatu kalimat. Mungkin ini akan berguna bagi teman-teman semua.
Langkah-langkah adalah sebagai berikut :
Uses WinCrt;
Var
Teks : string;
banyak : array[‘A’..’Z’] of byte;
i : byte;
begin
Write(‘Masukkan Suatu 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))]);
end.
Continue reading