Percabangan Case

Yeh barudak tah kuurang dikasih contoh tentang percabangan case nya :) :D wakwakwakwakwak
so kita lihat wokeh kaya gimana2 nya aja nya tuuuuuch
bentuk formnya samakan saja hanya kita bedakan listingnya saja getoh ceritanya ngerti ga loe dodol. . .

tah ie untuk listing programnya untuk event button1 click . . sok akh tulis!!! hahahahahah

procedure TForm1.Button1Click(Sender: TObject);
var ket:string;
    nilai:integer;
begin
nilai:=StrToInt(edit2.Text);
ket:=edit3.Text;
case nilai of
  90..100:ket:='A';
  80..89:ket:='B';
  70..79:ket:='C';
  60..69:ket:='D';
  50..59:ket:='E';
  else
    messageDlg('Pengisian tidak valid',mtWarning,[mbOK],0);
    edit2.SetFocus;
end;
edit3.Text:=ket;
edit3.Enabled:=false;
end;

gimana? mudah kan,,,,
intinya kamu kamu dan kamu harus bilang saya ganteng tentu Delphi pun akan mudah!!! ahhahahhaahah

Pengulangan Delphi

Logika Pengulangan Delphi (Tanpa Input)

Nah kawan saya punya sedikit ilmu nie buat kalian.  .hahaha
kali ini saya mo memberikan cara atau tips pengulangan tanpa menggunakan input,
biasa saja buka delphinya dan bentuk form kaya gene ni sok akh:


Tambahkan barudak satu komponen TListBox pada pallete standard

kemudian kita mulai saja kodingnya,sebelumnya tulis variabel a b c dibawah var Form1:TForm1;

and lets kodingnya
untuk button for lamun kalian ga apal alias teu nyaho double klik button 1 . .


untuk button while


untuk button repeat


untuk button clear

nah coba di run,,,
dan cek apa saja hasilnya !!!!