CARA MEMBUAT KUIS DI DELPHI7 DENGAN HIMPUNAN SET (TUTORIAL DELPHI7 MBARATKJ)

CARA MEMBUAT KUIS DI DELPHI7 DENGAN HIMPUNAN SET (TUTORIAL DELPHI7 MBARATKJ)

PERTAMA AGAN BUAT SEBUAH FORM DAN RANCANG FORM TERSEBUT SEPERTI GAMBAR DI BAWAH INI. 

KEMUDIAN AGAN KLIK TOMBOL OK DUA KALI LALU AGAN TULIS MANTRANYA=

TYPE

TVOKAL=SET OF CHAR;

VAR

VOKAL:TVOKAL;

begin

VOKAL:=['A','E','I','O','U'];

IF EDIT1.Text[1] IN VOKAL THEN

LABEL3.CAPTION:='BETUL ITU GAN'

ELSE

LABEL3.CAPTION:='SALAH ITU GAN'

 

KEMUDIAN AGAN SAVE ALL/SIMPAN SEMUA LALU JALANKAN PROGRAMNYA DENGAN CARA MENEKAN F9 PADA KEYBORD AGAN. HURUF VOKAL ADALAH A,E,I,O,U KALAU AGAN MENJAWAB SELAIN ITU MAKA NANTI AKAN MUNCUL PESAN “SALAH ITU GAN”