Jumat, 17 April 2015

putriyantimbp@gmail.com
Untitled Document
<script type='text/javascript'> //<![CDATA[ /* Teks berganti-ganti warna Script by Matt Hedgecoe Featured on JavaScript Kit, visit http://www.javascriptkit.com/script/script2/rainbowtext.shtml */ var text="PROGRAM ZODIAK BORLAND DELFI' Putri 'Yanti - WELCOME TO BIODATA PUTRI YANTI" //Ganti dengan teks anda var speed=80 //Kecepatan ganti warna if (document.all||document.getElementById){ document.write('<span id="highlight">' + text + '</span>') var storetext=document.getElementById? document.getElementById("highlight") : document.all.highlight } else document.write(text) var hex=new Array("00","14","28","3C","50","64","78","8C","A0","B4","C8","DC","F0") var r=1 var g=1 var b=1 var seq=1 function changetext(){ rainbow="#"+hex[r]+hex[g]+hex[b] storetext.style.color=rainbow } function change(){ if (seq==6){ b-- if (b==0) seq=1 } if (seq==5){ r++ if (r==12) seq=6 } if (seq==4){ g-- if (g==0) seq=5 } if (seq==3){ b++ if (b==12) seq=4 } if (seq==2){ r-- if (r==0) seq=3 } if (seq==1){ g++ if (g==12) seq=2 } changetext() } function starteffect(){ if (document.all||document.getElementById) flash=setInterval("change()",speed) } starteffect() //]]> </script>

Tampilan dari Zodiak di Program Delfi


unit Zodiak_U1;

Form1: TForm1;
implementation
{$R *.dfm}
Var KodeHari : integer;

Hari,Zodiak: string[10];
Tanggal:TdateTime;
Thn,Tgl,Bln:Word;
procedure TForm1.ProsesClick(Sender: TObject);
begin
// Pemisah Tanggal adalah-
Dateseparator:='-';
//Mencari Hari Lahir
Tanggal:=StrToDate(Ed_Tanggal.Text);
KodeHari:=DayOfWeek(tanggal);
Case KodeHari of
1: Hari:='Minggu';
2: Hari:='Senin';
3: Hari:='Selasa';
4: Hari:='Rabu';
5: Hari:='Kamis';
6: Hari:='Jumat';
7: Hari:='Sabtu';

end;
Ed_hari.Text:=Hari;
//Menentukan Zodiak
DecodeDate(Tanggal,Thn,Bln,Tgl);

If((Tgl>=21)And(Bln=3))Or((Tgl<=19)And(Bln=4))Then Zodiak:='Aries' Else If((Tgl>=20)And(Bln=4))Or((Tgl<=20)And(Bln=5))Then Zodiak:='Taurus' Else If((Tgl>=21)And(Bln=5))Or((Tgl<=21)And(Bln=6))Then Zodiak:='Gemini' Else If((Tgl>=22)And(Bln=6))Or((Tgl<=22)And(Bln=7))Then Zodiak:='Cancer' Else If((Tgl>=23)And(Bln=7))Or((Tgl<=22)And(Bln=8))Then Zodiak:='Leo' Else If((Tgl>=23)And(Bln=8))Or((Tgl<=22)And(Bln=9))Then Zodiak:='Virgo' Else If((Tgl>=23)And(Bln=9))Or((Tgl<=23)And(Bln=10))Then Zodiak:='Libra' Else If((Tgl>=24)And(Bln=10))Or((Tgl<=21)And(Bln=11))Then Zodiak:='SCORPIO' Else If((Tgl>=22)And(Bln=11))Or((Tgl<=21)And(Bln=12))Then Zodiak:='SAGITARIUS' Else If((Tgl>=22)And(Bln=12))Or((Tgl<=19)And(Bln=1))Then Zodiak:='CAPRICORN' Else If((Tgl>=20)And(Bln=1))Or((Tgl<=18)And(Bln=2))Then Zodiak:='AQUARIUS' Else If((Tgl>=19)And(Bln=2))Or((Tgl<=20)And(Bln=3))Then Zodiak:='PICES'
Else Zodiak :='-'; Ed_Zodiak.Text:=Zodiak;


end;
procedure TForm1.LagiClick(Sender: TObject);
begin
Ed_tanggal.Text:='';
Ed_Hari.Text:='';
Ed_Zodiak.Text:='';
Ed_Tanggal.SetFocus;
end;
procedure TForm1.SelesaiClick(Sender: TObject);
begin
Application.Terminate;
end;
end.
logoamik
Menu Utama


  • amik mbp


  • Blog Mahasiswa










  • Elearning AMIK MBP









  • Perpustakaan Amik Mbp









  • Portal Amik Mbp









  • dikti




    • divine-music.info
      divine-music.info

      divine-music.info

      divine-music.info target="_blank"> Situs
      divine-music.info
      </ b> Situs </ EMBED>

      Tidak ada komentar:

      Posting Komentar