Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Fungsi IF

Share on :
Fungsi IF digunakan untuk memilah data sehingga
nilai yang diinginkan menjadi tepat dan akurat.
Syntax :
  1. if ... { expression1 } then  
  2. begin  
  3. if ... { expression2 } then  
  4. ... { statement1 }  
  5. end  
  6. else  
  7. ... { statement2 } ;  
Contoh :

Untuk memindahkan cursor ke edit selanjutnya jika ditekan enter.

  1. procedure TForm1.eNipKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then eNama.SetFocus end; Mengisi nilai combobox status kawin berdasarkan jenis kelamin procedure TForm1.ekelaminKeyPress(Sender: TObject; var Key: Char); var npilih:bytebegin npilih:=ekelamin.ItemIndex; if key=#13 then begin // cek jika laki laki ubah nilai status if npilih=0 then begin eStatus.Items.Clear; // bersihkan nilai dulu eStatus.Items.Add('Kawin'); eStatus.Items.Add('Tidak Kawin'); eStatus.Items.Add('Duda');end else // cek jika perempuan ubah nilai status begin eStatus.Items.Clear; // bersihkan nilai dulu eStatus.Items.Add('Kawin'); eStatus.Items.Add('Tidak Kawin'); eStatus.Items.Add('Janda'); end; estatus.SetFocus; end;  

Semoga Bermanfaat Thumbs upOpen-mouthed smile
Cuma sedikit yang bisa saya tuliskan. . .Right hug


0 komentar on Fungsi IF :

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini