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

slide1 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
procedure TForm1.btnprosesClick(Sender: TObject); var zodiak:string; Bulan,Tanggal: Integer; begin PowerPoint Presentation
Download Presentation
procedure TForm1.btnprosesClick(Sender: TObject); var zodiak:string; Bulan,Tanggal: Integer; begin

play fullscreen
1 / 13
procedure TForm1.btnprosesClick(Sender: TObject); var zodiak:string; Bulan,Tanggal: Integer; begin
106 Views
Download Presentation
montana
Download Presentation

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

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

  1. 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'

  2. 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;

  3. 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;

  4. 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;

  5. 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;