Program hitung konsonan dan vocal

Contoh program sederhana lagi saya buat dengan menggunakan IDE Delphi. Program ini bertujuan untuk menentukan banyak jumlah konsonan dan vocal dari huruf awal dan huruf akhir yang ditentukan oleh user. Setelah user menekan tombol hitung, maka jumlah vocal dan konsonan dari huruf awal dan huruf akhir dari masukan user akan diketahui. Lebih jelasnya bisa dilihat gambar dibawah ini.

vocal-konsonan

Dalam program sederhana itu saya menggunakan komponen : 4 komponen Label untuk awal,akhir,vocal dan konsonan, 2 komponen Edit untuk jumlah vocal dan jumlah konsonan, 1 komponen Button untuk tombol Hitung, komponen memo untuk menuliskan abjad dari A sampai Z, komponen GroupBox untuk Hasil dan 2 komponen ComboBox untuk huruf awal dan huruf akhir. Berikut ini adalah kodenya :


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
cb_awal: TComboBox;
cb_akhir: TComboBox;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
E_vocal: TEdit;
E_konsonan: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
vocal,konsonan,i,j : integer;

begin
if(cb_awal.ItemIndex >= cb_akhir.ItemIndex)then
showmessage('salah menentukan awal dan akhir')
else
begin
Button1.Enabled;
vocal := 0;
konsonan := 0;
i := cb_awal.itemindex;

repeat
begin
if (i=0) or (i=4) or (i=8) or (i=14) or (i=20) then
vocal := vocal + 1
else
konsonan := konsonan + 1;
inc(i);
end;
until i > cb_akhir.itemindex;
E_vocal.Text := inttostr(vocal);
E_konsonan.Text := inttostr(konsonan);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
c : char;
begin
cb_awal.clear;
cb_akhir.clear;
for c:='A' to 'Z' do
begin
cb_awal.Items.Add(c);
cb_akhir.Items.Add(c);
end;
end;

end.


Kalau kamu sudah pernah membuat program dengan Delphi pasti tahu maksud kode tersebut, silakan untuk menyesuaikan antara komponen dengan kodenya. Namun bila kamu yang newbie abiz tentang program di Delphi, silakan komentar dengan menyisipkan alamat email, insya Allah kalau lagi OL saya kirim.

alhamdulillah sudah saya upload di Ziddu…silakan yg ingin [download]

Terimakasih, semoga membantu…

11 thoughts on “Program hitung konsonan dan vocal

  1. Assalamualaikum,,

    thx bgt ya,,
    ni yang saya cari,,
    habisnya penggunaan loopingnya bingung harus seperti ap,,

    salam kenal ya,,
    saya pun mahasiswa UNIKOM,, ^_^

  2. hindaka :

    Assalamualaikum,,

    thx bgt ya,,
    ni yang saya cari,,
    habisnya penggunaan loopingnya bingung harus seperti ap,,

    salam kenal ya,,
    saya pun mahasiswa UNIKOM,, ^_^

    walaikoemsalam…:-)
    salam kenal juga..:-)
    keep share n blogging kawan…:D

  3. assalamualaikum…

    kang,saya dimas…mahasiswa unikom juga…klo boleh tahu gimana cara bikin program
    untuk menghitung data statistik dari data yang ada pada sebuah memo,tetapi data disimpan dalam sebuah ListBox bukan memo. Untuk
    pengisiannya dilakukan dengan proses tertentu dimana hanya angka yang boleh diinputkan….

    soalnya pusing..heu
    mksih sebelumnya

  4. dimas :

    assalamualaikum…

    kang,saya dimas…mahasiswa unikom juga…klo boleh tahu gimana cara bikin program
    untuk menghitung data statistik dari data yang ada pada sebuah memo,tetapi data disimpan dalam sebuah ListBox bukan memo. Untuk
    pengisiannya dilakukan dengan proses tertentu dimana hanya angka yang boleh diinputkan….

    soalnya pusing..heu
    mksih sebelumnya

    walaikoemsalam…
    latihan pencet ctrl+spasi,,trus siapin juga kamus bhs Inggris..atau simplenya pencet F1…:D

    ayo kawan..pasti km bisa..Delphi itu mudah lho…modal coba2 aja…

  5. aulia :

    assalamualaikum..
    kang,sebenrnya syntax “inc” itu buat apa ya ? kalo ga pk jd error gt..
    hatur nuhuunn.. :)

    walaikoemsalam :

    inc(i) sama aja kaya i++ ato i = i + i 😉

  6. @ ade sartike :
    sama aja mw di Java, PHP, Delphi..
    kalu tau dasar logika nya,,ya tinggal sesuain sm sintax code bahasa masing2..

    logikanya looping trus main di IF
    if (i=0) or (i=4) or (i=8) or (i=14) or (i=20) then
    vocal := vocal + 1
    else
    konsonan := konsonan + 1;
    inc(i);
    end;

    itu logika utamanya..

Silahkan Komentar...

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s