Download
1 / 13

procedure TForm1.btnprosesClick(Sender: TObject); var zodiak:string; Bulan,Tanggal: Integer; begin - PowerPoint PPT Presentation


  • 93 Views
  • Uploaded on

procedure TForm1.btnprosesClick(Sender: TObject); var zodiak:string; Bulan,Tanggal: Integer; begin Tanggal := strtoint(edittanggal.Text ); Bulan:= strtoint(editbulan.Text ); if (tanggal<1) or(tanggal>31)then messagedlg('Tanggal Salah', mtinformation , [mbok],0) else

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' procedure TForm1.btnprosesClick(Sender: TObject); var zodiak:string; Bulan,Tanggal: Integer; begin' - montana


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

procedure TForm1.btnprosesClick(Sender: TObject);

var

zodiak:string;

Bulan,Tanggal: Integer;

begin

Tanggal := strtoint(edittanggal.Text );

Bulan:= strtoint(editbulan.Text );

if (tanggal<1) or(tanggal>31)then

messagedlg('Tanggal Salah', mtinformation , [mbok],0)

else

if (bulan<1)or (bulan>12) then

messagedlg('Bulan Salah',mtinformation,[mbok],0)

else

begin

if (bulan=3) and (tanggal>=21)or

(bulan=4)and (tanggal<=19)then

zodiak:='Aries'

else

if (bulan=4) and (tanggal>=20)or

(bulan=5)and (tanggal<=19)then

zodiak:='Aries'


Case bulan of

1: bulan := ‘Januari’

2: bulan := ‘Februari’

3: bulan :=‘Maret’

4: bulan :=‘April’

5: bulan :=‘Mei’

6: bulan :=‘Juni’

7: bulan :=‘Juli’

8: bulan :=‘Agustus’

9: bulan :=‘Spetember’

10: bulan :=‘Oktober’

11: bulan := ‘November’

else

bulan :=‘Desember’

End;


procedure TForm2.FormCreate(Sender: TObject);

begin

aturbulan.Items.Add('Januari')

aturbulan.Items.Add('Februari')

aturbulan.Items.Add('Maret')

aturbulan.Items.Add('April')

aturbulan.Items.Add('Mei')

aturbulan.Items.Add('Juni')

aturbulan.Items.Add('Juli')

aturbulan.Items.Add('Agustus')

aturbulan.Items.Add('September')

aturbulan.Items.Add('Oktober')

aturbulan.Items.Add('November')

aturbulan.Items.Add('Desember')

end;


procedure TForm2.FormCreate(Sender: TObject);

begin

aturbulan.Items.Add('Januari')

aturbulan.Items.Add('Februari')

aturbulan.Items.Add('Maret')

aturbulan.Items.Add('April')

aturbulan.Items.Add('Mei')

aturbulan.Items.Add('Juni')

aturbulan.Items.Add('Juli')

aturbulan.Items.Add('Agustus')

aturbulan.Items.Add('September')

aturbulan.Items.Add('Oktober')

aturbulan.Items.Add('November')

aturbulan.Items.Add('Desember')

end;


Var

Atur : string;

Text : string;

Bilangan : integer;

begin

Atur := chr(13)+chr(10);

Text := ‘ Bilangan Anda ‘ + atur;

For Bilangan := 1 to 10 do

Text := text + inttostr(bilangan)+atur;

Labelinfo.caption=text;

end;


ad