Tugasnya suruh buat program primbon
Ni saya kasih program utamanya dulu biar agak paham
Klik >>>DOWNLOAD<<< untuk men-download program Primbon
ini .pas nya >>>DOWNLOAD<<< nah yang dibawah kodingnya sama penjelasannya
Created by:
1. Yosua Putera Ambika W (saya) @iYosambika fb: Iyos Imp
2. Stefanus Kurniawan W H (teman saya) fb: Stefanus Awan
Ini interfacenya
Nih kodingnya bro
Semoga paham yaaaa .__________.
program Primbon_Sakti;
uses crt;
var
n,a,b,c,d,p,q,i,kelip,tanggal,bulan,tahun,hari,ceksatu,cekdua,cektahun:longint;
input:char;
tentukanhari,tentukanweton:string;
procedure kotak; [ini prosedur untuk membuat kotak loading (kotak luarnya doang)]
begin
gotoxy(32,15);
for p:=1 to 22 do
begin
write(#205);
end;
gotoxy(31,15);
write(#201);
gotoxy(31,16);
write(#186);
gotoxy(31,17);
write(#200);
gotoxy(54,15);
write(#187);
gotoxy(54,16);
write(#186);
gotoxy(54,17);
write(#188);
gotoxy(32,17);
for q:=1 to 22 do
begin
write(#205);
end;
end;
procedure pr1; [yang ini untuk membuat tulisan 'WELCOME']
begin
write('****');
end;
procedure pr2;
begin
write(' ***');
end;
procedure pr3;
begin
write('*** ');
end;
procedure pr4;
begin
write('** ');
end;
procedure pr5;
begin
write('**');
end;
procedure pr6;
begin
write(' ');
end;
procedure pr7;
begin
write(' ');
end;
procedure pr8;
begin
write('***');
end;
procedure nol; [ini prosedur ramalan nya, disini saya buat 4 jenis ramalan 3:)]
begin
writeln('--------------------------------------------------');
gotoxy(15,13); write('Weton Anda: ',tentukanhari,' ',tentukanweton);
gotoxy(1,14); writeln('--------------------------------------------------');
writeln('Karakter Anda: banyak rejekinya, boros, tapi pelit');
writeln('Warna : golden (warna poop)');
writeln('Angka hoki : 1, 3, 5, sesuai frekuensi poop per hari');
writeln('Jodoh : pemadam kebakaran');
writeln('Pekerjaan : Anda tidak cocok kerja di udara');
write('==================================================');
readln;
end;
procedure satu;
begin
writeln('--------------------------------------------------');
gotoxy(15,13); write('Weton Anda: ',tentukanhari,' ',tentukanweton);
gotoxy(1,14); writeln('--------------------------------------------------');
writeln('Karakter Anda: rekinya biasa banget, suka menabung, suka kucing');
writeln('Warna : abu abu');
writeln('Angka hoki : 1, 2, 3, sesuai jumlah kucing yang anda miliki');
writeln('Jodoh : orang kantoran');
writeln('Pekerjaan : Anda cocok bekerja di kantor');
write('==================================================');
readln;
end;
procedure dua;
begin
writeln('--------------------------------------------------');
gotoxy(15,13); write('Weton Anda: ',tentukanhari,' ',tentukanweton);
gotoxy(1,14); writeln('--------------------------------------------------');
writeln('Karakter Anda: rejekinya kadang dikit kadang banyak, tapi cenderung dikit');
writeln('Warna : hitam');
writeln('Angka hoki : Anda tidak punya angka hoki');
writeln('Jodoh : Maaf coba lagi');
writeln('Pekerjaan : Tukang santet, tukang ramal, pesulap');
write('==================================================');
readln;
end;
procedure tiga;
begin
writeln('--------------------------------------------------');
gotoxy(15,13); write('Weton Anda: ',tentukanhari,' ',tentukanweton);
gotoxy(1,14); writeln('--------------------------------------------------');
writeln('Karakter Anda: banyak rejekinya, ganteng/cantik');
writeln('Warna : tergantung warna kesukaan');
writeln('Angka hoki : 7, 8, 9, yang menentukan tingkat kegantengan/kecantikan Anda');
writeln('Jodoh : Jodoh sudah ada di depan mata Anda');
writeln('Pekerjaan : Model, System Analys, Game Designer, Musisi');
write('==================================================');
readln;
end;
procedure kelapkelip; [ini kelap kelip yang pas menu exit]
begin
cursoroff;
clrscr;
for kelip:=1 to 2000 do
begin
if kelip mod 4 = 0 then [kalo di mod 4 = 0 dia write titik di sekitar x<=80 & y<=10]
begin
gotoxy(random(80),random(10));
textcolor(random(10));
delay(25);
write(#4);
end
else if kelip mod 3 = 1 then [kalo di mod 3 = 1 dia write titik di sekitar x<=80 & y>=16]
begin
gotoxy(random(80),16+random(10));
textcolor(random(10));
delay(25);
write(#4);
end
else if kelip mod 10 = 0 then [penjelasannya sama kayak yang di atas]
begin
gotoxy(random(30),10+random(6));
textcolor(random(10));
delay(25);
write(#4);
end
else if kelip mod 15 = 0 then
begin
gotoxy(53+random(27),10+random(6));
textcolor(random(10));
delay(25);
write(#4);
end;
end;
for i:=1 to 100 do
begin [pada akhir kelap kelip akan ada space kotak yang tidak terisi oleh titik]
gotoxy(35,11); textcolor(white); write('COPYRIGHT 2013');
delay(100-i);
gotoxy(35,13); textcolor(i); write('Awan 672013032');
gotoxy(35,14); textcolor(i); write('Iyos 672013033');
end;
end;
procedure menu; [prosedur menu primbon]
begin
textcolor(7);
clrscr;
write('=================================');
gotoxy(10,2);
write('PRIMBON SAKTI');
gotoxy(1,3);
writeln('---------------------------------');
writeln('[1] Primbon Sakti');
writeln('[2] About Us');
writeln('[3] Exit');
writeln('---------------------------------');
write('Pilihan Anda: '); readln(input);
if input='1' then
begin
clrscr;
hari:=0;
n:=0;
write('==================================================');
gotoxy(20,2);
write('PRIMBON SAKTI');
gotoxy(1,3);
writeln('==================================================');
writeln('Anda pingin tahu arti hari lahir dan pasaran Anda?');
gotoxy(3,5);
write('Masukkan tanggal lahir Anda di form berikut.');
gotoxy(1,6);
writeln('--------------------------------------------------');
writeln;
write('Masukkan tanggal : '); readln(tanggal);
write('Masukkan bulan : '); readln(bulan);
write('Masukkan tahun : '); readln(tahun);
writeln;
if (tanggal=29) and (bulan=2) then [intinya di program ini kita cari jumlah hari dari tanggal, bulan, tahun inputan ke tanggal 1 januari 1901]
begin
for ceksatu:=1901 to tahun do
begin
if ceksatu mod 4 = 0 then [ini untuk mengecek ada berapa tahun kabisat antara tahun inputan ke tahun 1901]
begin
n:=n+1;
end;
end;
cekdua:=tahun-1900;
cektahun:=cekdua-n;
case bulan of
1:bulan:=31;
2:bulan:=60;
3:bulan:=91;
4:bulan:=121;
5:bulan:=152;
6:bulan:=182;
7:bulan:=213;
8:bulan:=244;
9:bulan:=274;
10:bulan:=305;
11:bulan:=336;
12:bulan:=366;
else bulan:=31;
end;
hari:=(n*366)+(cektahun*365)+bulan+(tanggal); [ini rumus menentukan jumlah hari]
case (hari mod 7) of [ini caranya menentukan hari]
0:tentukanhari:='Jumat';
1:tentukanhari:='Sabtu';
2:tentukanhari:='Minggu';
3:tentukanhari:='Senin';
4:tentukanhari:='Selasa';
5:tentukanhari:='Rabu';
6:tentukanhari:='Kamis';
end;
case (hari mod 5) of [ini untuk menentukan weton]
0:tentukanweton:='Legi';
1:tentukanweton:='Pahing';
2:tentukanweton:='Pon';
3:tentukanweton:='Wage';
4:tentukanweton:='Kliwon';
end;
if hari mod 4 = 0 then [menentukan ramalan]
begin
nol;
end
else if hari mod 4 = 1 then
begin
satu;
end
else if hari mod 4 = 2 then
begin
dua;
end
else if hari mod 4 = 3 then
begin
tiga;
end;
menu;
end
else if tahun mod 4 = 0 then [ini cara menghitung hari kalo tahun inputan kabisat]
begin
for ceksatu:=1901 to tahun do
begin
if ceksatu mod 4 = 0 then
begin
n:=n+1;
end;
end;
cekdua:=tahun-1900;
cektahun:=cekdua-n;
case bulan of
1:bulan:=31;
2:bulan:=60;
3:bulan:=91;
4:bulan:=121;
5:bulan:=152;
6:bulan:=182;
7:bulan:=213;
8:bulan:=244;
9:bulan:=274;
10:bulan:=305;
11:bulan:=336;
12:bulan:=366;
end;
if (bulan=31) or (bulan=91) or (bulan=152) or (bulan=213) or (bulan=244) or (bulan=366) then
begin [ini untuk menghitung hari yang satu bulannya harinya berjumlah 31]
hari:=(n*366)+(cektahun*365)+bulan+(tanggal-2);
case (hari mod 7) of
0:tentukanhari:='Jumat';
1:tentukanhari:='Sabtu';
2:tentukanhari:='Minggu';
3:tentukanhari:='Senin';
4:tentukanhari:='Selasa';
5:tentukanhari:='Rabu';
6:tentukanhari:='Kamis';
end;
case (hari mod 5) of
0:tentukanweton:='Legi';
1:tentukanweton:='Pahing';
2:tentukanweton:='Pon';
3:tentukanweton:='Wage';
4:tentukanweton:='Kliwon';
end;
if hari mod 4 = 0 then
begin
nol;
end
else if hari mod 4 = 1 then
begin
satu;
end
else if hari mod 4 = 2 then
begin
dua;
end
else if hari mod 4 = 3 then
begin
tiga;
end;
menu;
end
else
begin
hari:=(n*366)+(cektahun*365)+bulan+(tanggal-1);
case (hari mod 7) of
0:tentukanhari:='Jumat';
1:tentukanhari:='Sabtu';
2:tentukanhari:='Minggu';
3:tentukanhari:='Senin';
4:tentukanhari:='Selasa';
5:tentukanhari:='Rabu';
6:tentukanhari:='Kamis';
end;
case (hari mod 5) of
0:tentukanweton:='Legi';
1:tentukanweton:='Pahing';
2:tentukanweton:='Pon';
3:tentukanweton:='Wage';
4:tentukanweton:='Kliwon';
end;
if hari mod 4 = 0 then
begin
nol;
end
else if hari mod 4 = 1 then
begin
satu;
end
else if hari mod 4 = 2 then
begin
dua;
end
else if hari mod 4 = 3 then
begin
tiga;
end;
menu;
end;
end
else
begin
for ceksatu:=1901 to tahun do [ini untuk non kabisat]
begin
if ceksatu mod 4 = 0 then
begin
n:=n+1;
end;
end;
cekdua:=tahun-1900;
cektahun:=cekdua-n;
case bulan of
1:bulan:=31;
2:bulan:=59;
3:bulan:=90;
4:bulan:=120;
5:bulan:=151;
6:bulan:=181;
7:bulan:=212;
8:bulan:=243;
9:bulan:=273;
10:bulan:=304;
11:bulan:=334;
12:bulan:=365;
else bulan:=31;
end;
if (bulan=31) or (bulan=90) or (bulan=151) or (bulan=212) or (bulan=243) or (bulan=365) then
begin [ini untuk yang jumlah harinya ada 31]
hari:=(n*366)+(cektahun*365)+bulan+(tanggal-1);
case (hari mod 7) of
0:tentukanhari:='Jumat';
1:tentukanhari:='Sabtu';
2:tentukanhari:='Minggu';
3:tentukanhari:='Senin';
4:tentukanhari:='Selasa';
5:tentukanhari:='Rabu';
6:tentukanhari:='Kamis';
end;
case (hari mod 5) of
0:tentukanweton:='Legi';
1:tentukanweton:='Pahing';
2:tentukanweton:='Pon';
3:tentukanweton:='Wage';
4:tentukanweton:='Kliwon';
end;
if hari mod 4 = 0 then
begin
nol;
end
else if hari mod 4 = 1 then
begin
satu;
end
else if hari mod 4 = 2 then
begin
dua;
end
else if hari mod 4 = 3 then
begin
tiga;
end;
menu;
end
else
begin
hari:=(n*366)+(cektahun*365)+bulan+(tanggal);
case (hari mod 7) of
0:tentukanhari:='Jumat';
1:tentukanhari:='Sabtu';
2:tentukanhari:='Minggu';
3:tentukanhari:='Senin';
4:tentukanhari:='Selasa';
5:tentukanhari:='Rabu';
6:tentukanhari:='Kamis';
end;
case (hari mod 5) of
0:tentukanweton:='Legi';
1:tentukanweton:='Pahing';
2:tentukanweton:='Pon';
3:tentukanweton:='Wage';
4:tentukanweton:='Kliwon';
end;
if hari mod 4 = 0 then
begin
nol;
end
else if hari mod 4 = 1 then
begin
satu;
end
else if hari mod 4 = 2 then
begin
dua;
end
else if hari mod 4 = 3 then
begin
tiga;
end;
menu;
end;
end;
end
else if (input='2') then [ini untuk membuat menu about us]
begin
cursoroff;
clrscr;
for i:=1 to 78 do begin
gotoxy(0+i,1);textcolor(lightgreen);write('*'); delay(10);
gotoxy(80-i,25);textcolor(lightgreen);write('*');delay(10);
end;
for i:=1 to 24 do begin
gotoxy(79,0+i);textcolor(lightgreen);write('*'); delay(10);
gotoxy(1,26-i);textcolor(lightgreen);write('*');delay(10);
end;
for i:= 1 to 77 do begin
gotoxy(i+1,2);textcolor(lightblue);write('*');delay(10);
gotoxy(79-i,24);textcolor(lightblue);write('*');delay(10);
end;
for i:=1 to 23 do begin
gotoxy(78,1+i);textcolor(lightblue);write('*'); delay(10);
gotoxy(2,25-i);textcolor(lightblue);write('*');delay(10);
end;
for i:= 1 to 75 do begin
gotoxy(2+i,3);textcolor(lightgreen);write('*');delay(10);
gotoxy(78-i,23);textcolor(lightgreen);write('*');delay(10);
end;
for i:=1 to 21 do begin
gotoxy(77,2+i);textcolor(lightgreen);write('*'); delay(10);
gotoxy(3,24-i);textcolor(lightgreen);write('*');delay(10);
end;
for i:= 1 to 73 do begin
gotoxy(3+i,4);textcolor(lightblue);write('*');delay(10);
gotoxy(77-i,22);textcolor(lightblue);write('*');delay(10);
end;
for i:=1 to 19 do begin
gotoxy(76,3+i);textcolor(lightblue);write('*'); delay(10);
gotoxy(4,23-i);textcolor(lightblue);write('*');delay(10);
end;
for i:= 1 to 71 do begin
gotoxy(4+i,5);textcolor(lightgreen);write('*');delay(10);
gotoxy(76-i,21);textcolor(lightgreen);write('*');delay(10);
end;
for i:=1 to 17 do begin
gotoxy(75,4+i);textcolor(lightgreen);write('*'); delay(10);
gotoxy(5,22-i);textcolor(lightgreen);write('*');delay(10);
end;
for i:= 1 to 69 do begin
gotoxy(5+i,6);textcolor(lightblue);write('*');delay(10);
gotoxy(75-i,20);textcolor(lightblue);write('*');delay(10);
end;
for i:=1 to 15 do begin
gotoxy(74,5+i);textcolor(lightblue);write('*'); delay(10);
gotoxy(6,21-i);textcolor(lightblue);write('*');delay(10);
end;
for i:= 1 to 67 do begin
gotoxy(6+i,7);textcolor(lightgreen);write('*');delay(10);
gotoxy(74-i,19);textcolor(lightgreen);write('*');delay(10);
end;
for i:=1 to 12 do begin
gotoxy(73,6+i);textcolor(lightgreen);write('*'); delay(10);
gotoxy(7,20-i);textcolor(lightgreen);write('*');delay(10);
end;
for i:= 1 to 65 do begin
gotoxy(7+i,8);textcolor(lightblue);write('*');delay(10);
gotoxy(73-i,18);textcolor(lightblue);write('*');delay(10);
end;
for i:=1 to 11 do begin
gotoxy(72,7+i);textcolor(lightblue);write('*'); delay(10);
gotoxy(8,19-i);textcolor(lightblue);write('*');delay(10);
end;
for i:= 1 to 63 do begin
gotoxy(8+i,9);textcolor(lightgreen);write('*');delay(10);
gotoxy(72-i,17);textcolor(lightgreen);write('*');delay(10);
end;
for i:=1 to 8 do begin
gotoxy(71,8+i);textcolor(lightgreen);write('*'); delay(10);
gotoxy(9,18-i);textcolor(lightgreen);write('*');delay(10);
end;
for i:=1 to 100 do begin
delay(50);
gotoxy(35,12);textcolor(i);write('Stefanus 672013032');
gotoxy(35,13);writeln('Yosua 672013033');
end;
for i:=1 to 78 do begin
gotoxy(0+i,1);textcolor(lightgreen);write(#0); delay(10);
gotoxy(80-i,25);textcolor(lightgreen);write(#0);delay(10);
end;
for i:=1 to 24 do begin
gotoxy(79,0+i);textcolor(lightgreen);write(#0); delay(10);
gotoxy(1,26-i);textcolor(lightgreen);write(#0);delay(10);
end;
for i:= 1 to 77 do begin
gotoxy(i+1,2);textcolor(lightblue);write(#0);delay(10);
gotoxy(79-i,24);textcolor(lightblue);write(#0);delay(10);
end;
for i:=1 to 23 do begin
gotoxy(78,1+i);textcolor(lightblue);write(#0); delay(10);
gotoxy(2,25-i);textcolor(lightblue);write(#0);delay(10);
end;
for i:= 1 to 75 do begin
gotoxy(2+i,3);textcolor(lightgreen);write(#0);delay(10);
gotoxy(78-i,23);textcolor(lightgreen);write(#0);delay(10);
end;
for i:=1 to 21 do begin
gotoxy(77,2+i);textcolor(lightgreen);write(#0); delay(10);
gotoxy(3,24-i);textcolor(lightgreen);write(#0);delay(10);
end;
for i:= 1 to 73 do begin
gotoxy(3+i,4);textcolor(lightblue);write(#0);delay(10);
gotoxy(77-i,22);textcolor(lightblue);write(#0);delay(10);
end;
for i:=1 to 19 do begin
gotoxy(76,3+i);textcolor(lightblue);write(#0); delay(10);
gotoxy(4,23-i);textcolor(lightblue);write(#0);delay(10);
end;
for i:= 1 to 71 do begin
gotoxy(4+i,5);textcolor(lightgreen);write(#0);delay(10);
gotoxy(76-i,21);textcolor(lightgreen);write(#0);delay(10);
end;
for i:=1 to 17 do begin
gotoxy(75,4+i);textcolor(lightgreen);write(#0); delay(10);
gotoxy(5,22-i);textcolor(lightgreen);write(#0);delay(10);
end;
for i:= 1 to 69 do begin
gotoxy(5+i,6);textcolor(lightblue);write(#0);delay(10);
gotoxy(75-i,20);textcolor(lightblue);write(#0);delay(10);
end;
for i:=1 to 15 do begin
gotoxy(74,5+i);textcolor(lightblue);write(#0); delay(10);
gotoxy(6,21-i);textcolor(lightblue);write(#0);delay(10);
end;
for i:= 1 to 67 do begin
gotoxy(6+i,7);textcolor(lightgreen);write(#0);delay(10);
gotoxy(74-i,19);textcolor(lightgreen);write(#0);delay(10);
end;
for i:=1 to 12 do begin
gotoxy(73,6+i);textcolor(lightgreen);write(#0); delay(10);
gotoxy(7,20-i);textcolor(lightgreen);write(#0);delay(10);
end;
for i:= 1 to 65 do begin
gotoxy(7+i,8);textcolor(lightblue);write(#0);delay(10);
gotoxy(73-i,18);textcolor(lightblue);write(#0);delay(10);
end;
for i:=1 to 11 do begin
gotoxy(72,7+i);textcolor(lightblue);write(#0); delay(10);
gotoxy(8,19-i);textcolor(lightblue);write(#0);delay(10);
end;
for i:= 1 to 63 do begin
gotoxy(8+i,9);textcolor(lightgreen);write(#0);delay(10);
gotoxy(72-i,17);textcolor(lightgreen);write(#0);delay(10);
end;
for i:=1 to 8 do begin
gotoxy(71,8+i);textcolor(lightgreen);write(#0); delay(10);
gotoxy(9,18-i);textcolor(lightgreen);write(#0);delay(10);
end;
menu;
end
else if (input='3') then
begin
kelapkelip;
end
else menu;
end;
begin
cursoroff;
clrscr; [TULISAN WELCOME]
write(' '); pr3; pr6; pr7; pr2; pr7; pr1; pr1; pr7; pr3; pr6; pr7; pr6; pr1; pr6; pr6; pr1; pr6; pr7; pr1; pr6; pr1; pr6; pr1; pr1; writeln; delay(200);
write(' '); pr3; pr6; pr7; pr2; pr7; pr1; pr1; pr7; pr3; pr6; pr6; pr1; pr1; pr7; pr1; pr1; pr7; pr1; pr4; pr1; pr5; pr7; pr1; pr1; writeln; delay(200);
write(' '); pr3; pr6; pr7; pr2; pr7; pr3; pr6; pr6; pr3; pr6; pr6; pr3; pr2; pr7; pr3; pr2; pr7; pr3; pr8; pr5; pr2; pr7; pr8; writeln; delay(200);
write(' '); pr8; pr7; pr8; pr7; pr8; pr7; pr8; pr8; pr7; pr7; pr3; pr6; pr6; pr8; pr7; pr6; pr7; pr8; pr7; pr8; pr7; pr3; pr2; pr7; pr8; pr7; pr8; pr8; writeln; delay(200);
write(' '); pr8; pr7; pr8; pr7; pr8; pr7; pr8; pr8; pr7; pr7; pr3; pr6; pr6; pr8; pr7; pr6; pr7; pr8; pr7; pr8; pr7; pr3; pr2; pr7; pr8; pr7; pr8; pr8; writeln; delay(200);
write(' '); pr3; pr8; pr5; pr2; pr7; pr3; pr6; pr6; pr3; pr6; pr6; pr3; pr2; pr7; pr3; pr2; pr7; pr8; pr7; pr6; pr7; pr8; pr7; pr8; writeln; delay(200);
write(' '); pr1; pr4; pr8; pr8; pr7; pr1; pr1; pr7; pr1; pr1; pr7; pr1; pr1; pr7; pr8; pr7; pr8; pr7; pr8; pr7; pr6; pr7; pr8; pr7; pr1; pr1; writeln; delay(200);
pr7; pr1; pr6; pr1; pr6; pr1; pr1; pr7; pr1; pr1; pr7; pr7; pr1; pr6; pr6; pr1; pr7; pr7; pr8; pr7; pr6; pr7; pr8; pr7; pr1; pr1;
gotoxy(35,12);
kotak;
for c:=1 to 20 do
begin
gotoxy(37,11);
write ('LOADING');
for a:=1 to 3 do
begin
delay(150);
write(' .');
end;
gotoxy(44,11);
textcolor(black);
write(' . . .');
textcolor(7);
gotoxy(40,13);
delay(10);
write(5*c,' %');
gotoxy(32+c,16);
delay(10);
write(#178);
end;
gotoxy(33,18);
write('Please press enter!');
readln;
menu;
end.
Semoga agan agan yang baca gak pusing baca tulisan saya.
Semoga bermanfaat untuk agan agan sekalian
^_^
Tidak ada komentar:
Posting Komentar