Membuat Program Penentuan huruf vocal

1. Buka aplikasi delphi anda.
2. Akan Muncul tampilan New from

3. Maukkan label untuk membuat keterangan "label' pada menu, kemudian ubah sesuai kemauan anda

4. Masukkan kembali edit text. pilih edit.text pada menu icon 

5. Kemudian buatlah button untuk memproses, pilih button.click pada menu icon kemudian ganti sesuai keinginan

6. kemudian masukkanlah script seperti berikut,

procedure TForm1.Button1Click(Sender: TObject);

begin

  if ( edit1.Text = 'A' ) or ( edit1.Text = 'a' ) or ( edit1.Text = 'E' )

  or ( edit1.Text = 'e' ) or ( edit1.Text = 'I' ) or ( edit1.Text = 'i' )

  or ( edit1.Text = 'O' ) or ( edit1.Text = 'o' ) or ( edit1.Text = 'U' )

  or ( edit1.Text = 'u' ) then

  edit2.Text := 'vocal'

  else if ( edit1.Text = 'B' ) or ( edit1.Text = 'b' ) or ( edit1.Text = 'C' ) or ( edit1.Text = 'c' ) or

  ( edit1.Text = 'D' ) or ( edit1.Text = 'd' ) or ( edit1.Text = 'F' ) or ( edit1.Text = 'f' ) or

  ( edit1.Text = 'G' ) or ( edit1.Text = 'g' ) or ( edit1.Text = 'H' ) or ( edit1.Text = 'h' ) or

  ( edit1.Text = 'J' ) or ( edit1.Text = 'j' ) or ( edit1.Text = 'K' ) or ( edit1.Text = 'k' ) or

  ( edit1.Text = 'L' ) or ( edit1.Text = 'l' ) or ( edit1.Text = 'M' ) or ( edit1.Text = 'm' ) or

  ( edit1.Text = 'N' ) or ( edit1.Text = 'n' ) or ( edit1.Text = 'P' ) or ( edit1.Text = 'p' ) or

  ( edit1.Text = 'Q' ) or ( edit1.Text = 'q' ) or ( edit1.Text = 'R' ) or ( edit1.Text = 'r' ) or

  ( edit1.Text = 'S' ) or ( edit1.Text = 's' ) or ( edit1.Text = 'T' ) or ( edit1.Text = 't' ) or

  ( edit1.Text = 'V' ) or ( edit1.Text = 'v' ) or ( edit1.Text = 'W' ) or ( edit1.Text = 'w' ) or

  ( edit1.Text = 'X' ) or ( edit1.Text = 'x' ) or ( edit1.Text = 'Y' ) or ( edit1.Text = 'y' ) or

  ( edit1.Text = 'Z' ) or ( edit1.Text = 'z' ) then

  edit2.Text := 'konsonan'

  else

  edit2.Text := ' yang anda masukkan tidak sesuai ';

end;

7. Untuk memeriksa tekan F9 ,

Posted in: MatKul