1 / 15

Proses Beberapa IF dengan Radio Button

Proses Beberapa IF dengan Radio Button. Pemrograman Visual. Pernyataan IF…THEN…ELSE Pernyataan ini hanya memeriksa apakah suatu blok kode program dapat dieksekusi atau tidak. Jika kondisi pernyataan ini bernilai TRUE maka blok program yang ada di bawahnya akan dieksekusi.

lan
Download Presentation

Proses Beberapa IF dengan Radio Button

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Proses Beberapa IF dengan Radio Button Pemrograman Visual

  2. Pernyataan IF…THEN…ELSE Pernyataan ini hanya memeriksa apakah suatu blok kode program dapat dieksekusi atau tidak. Jika kondisi pernyataan ini bernilai TRUE maka blok program yang ada di bawahnya akan dieksekusi. Tetapi jika kondisi pernyataan bernilai False maka alur program akan mengeksekusi pernyataan yang ada dibawah pernyataan ELSE.

  3. Bentukdasarpernyataan IF…THEN…ELSE adalahsebagaiberikut: IF kondisiboolean THEN Pernyataan1; ELSE Pernyataan2; Jikapernyataan yang akandieksekusiketikakondisibernilaibenarlebihdarisatupernyataan, makapernyataan-pernyataantersebutharusdiapitdenganbegindanend , sehinggabentukdasarpernyataan IF…THEN nyaadalahsebagaiberikut: IF kondisiboolean THEN Begin Pernyataan1; End; ELSE begin Pernyataan2; end;

  4. Ada beberapa hal yang harus diperhatikan dalam penggunaan pernyataan IF, diantaranya adalah : • Kondisiyang diperiksaharusmenyatakansebuahkondisi Boolean (True/False). Sehinggadalambagiankondisiharusmenggunakan operator relasional (=, >, <, >=, <=, <>) danOperator Boolean (And, Or, Xor, dan NOT). • PernyataanIF dianggapsebagaisebuahpernyataansaja. Olehkarenaitutidakbolehadatandasemicolon ( ; ) sebelum ELSE, karena ELSE adalah bagian dari pernyataan IF. Jika ada tanda semicolon sebelum ELSE, berartipernyataan IF telahselesaidanbagian ELSE tersebutbukanlagimilik pernyataan IF yang di atasnya. Dan perintah ELSE tanpa didahului dengan pernyataan IF akan mengakibatkankesalahan.

  5. Radio Button • Radio Button digunakanuntukmenampilkansebuahpilihandimana user dapatmenggantinilainyadengan True atau False. • Radio Button digunakanuntukmenampilkansekumpulanpilihandimana user hanyabolehmemilihsatupilihansaja. • JikaAndamempunyai 2 pilihan yang salingterpisah, makagroupkantiappilihan-pilihantersebutdenganGroupBox

  6. HasilTampilan

  7. GroupBox1: TGroupBox; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RadioButton4: TRadioButton; Button2: TButton; Button1: TButton; procedure FormCreate(Sender: TObject); procedure ebnykKeyPress(Sender: TObject; var Key: Char); procedure Button2Click(Sender: TObject); procedure esatuanChange(Sender: TObject); procedure esatuanKeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} • Listing Program unit IF_RadioButton; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; enama: TEdit; ebnyk: TEdit; esatuan: TEdit; ejlh: TEdit; edisc: TEdit; ebersih: TEdit;

  8. procedure TForm1.FormCreate(Sender: TObject); begin ejlh.Enabled:=False; ejlh.Color:=clbtnface; ebersih.Enabled:=False; ebersih.Color:=clbtnface; end;

  9. procedure TForm1.ebnykKeyPress(Sender: TObject; var Key: Char); begin if not(key in ['0'..'9']) then begin key:=#0; messagedlg('Data Yang Dimasukan Harus berupa Angka',mterror,[mbok],0); end; end;

  10. procedure TForm1.Button2Click(Sender: TObject); begin if (application.MessageBox('Andayakinakankeluar','Informasi',MB_YesNo)=idyes)then close; end; procedure TForm1.esatuanChange(Sender: TObject); varjlh,bnyk, satuan : real; begin bnyk:=strtofloat(ebnyk.Text); satuan:=strtofloat(esatuan.Text); jlh:=bnyk*satuan; ejlh.Text:=floattostr(jlh); end;

  11. procedure TForm1.esatuanKeyPress(Sender: TObject; var Key: Char); begin if not(key in ['0'..'9']) then begin key:=#0; messagedlg('Data Yang Dimasukan Harus berupa Angka',mterror,[mbok],0); end; end;

  12. procedure TForm1.Button1Click(Sender: TObject); var jlh,disc,bersih: real; begin if RadioButton1.Checked=true then begin jlh:=strtofloat(ejlh.Text); disc:=0.05*jlh; edisc.Text:=floattostr(disc) end else

  13. if RadioButton2.Checked=true then begin jlh:=strtofloat(ejlh.Text); disc:=0.1*jlh; edisc.Text:=floattostr(disc) end else

  14. if RadioButton3.Checked=true then begin jlh:=strtofloat(ejlh.Text); disc:=0.15*jlh; edisc.Text:=floattostr(disc) end else begin jlh:=strtofloat(ejlh.Text); disc:=0.2*jlh; edisc.Text:=floattostr(disc) end ;

  15. jlh:=strtofloat(ejlh.text); disc:=strtofloat(edisc.text); bersih:=jlh-disc; ebersih.text:=floattostr(bersih); end; end.

More Related