Membuat Program Penentuan huruf vocal
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 ,
0 Response to "Membuat Program Penentuan huruf vocal"
Post a Comment