Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Menghitung Huruf Vokal dengan Delphi #111

Kopi pait akan manis jika ditambah gula

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.

menghitung banyak huruf vokal dengan delphi
ini cuy
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

Related Articles

6 Comments

  1. Kk mau tanya,

    Kenapa nulis case nya begini :
    case nama[i] of

    ada [i] nya?

    apa karena variabel nama nya string jadi harus begitu penulisannya? Maap saya newbie bangetzzz ….

    Penjelasannya gimana yah biar ngerti?

  2. Blognya keren Bro :duatthumb
    sebelumnya makasih banget bro, blog anda bener-bener bermanfaat

    Bro gueh minta bantuan nieh
    seumpa kita mau mencari kata terpanjang pada suatu kalimat?
    misalkan kita masukan kalimat pada TEdit1, kalimatny

    Andry Pein

    terus kita tekan tButton
    terus diTEdit2 muncul kata terpanjangnya yakni Andry…

    listing codenya kaya gimana yah bro, Hehehehe

    Maklum pemula Delphi,
    gueh tunggu jawabannya secepatnya bro Hehehehehe

    Makasih Bro ^_^

    Makasih Bro…

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button