Menghitung Huruf Vokal dengan Delphi #111

andrypein.net : Postingan kali ini tentang aplikasi yang dapat menghitung huruf vokal dengan delphi.

Dengan niat memantapkan logika pemahaman saja dan dipraktekan dalam real, dan jelas implementasi bisa lebih dari contoh yang di pos kan aing sekarang.

Lanjut jadi begini saja penampakan dan source code nya.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  nama : string;
  i,vok : integer;
begin
  nama:=edit1.Text;
  vok:=0;
  for i:=1 to length(nama) do
    case nama[i] of
      'A','a','I','i','U','u','E','e','O','o' : vok:=vok+1;
    end;
  label2.Caption:='jumlah vokal dari kata '+nama+' ada '+inttostr(vok)+' buah';    
end;

end.

Seperti biasa da aing mah bageur jadi aplikasi menghitung huruf vokal dengan delphi nya bisa di donlod lah kalem.

Download

*AFK