Proses Percabangan dengan Check Box dan Radio Button

Proses Percabangan dengan Check Box dan Radio Button Pemrograman Visual

Ketentuan: • Nilai Murni didapat dari penjumlahan (Nilai teori * 40%) ditambah (Nilai Praktek * 60%) • Keterangan = Gagal jika nilai murni < 60 dan dinyatakan Lulus jika nilai murni >= 60 • Biaya perjurusan diperoleh dari dua pilihan jurusan yang ada: • Jika pilihan MI maka biaya nya 250000 • Jika pilihan TI maka biaya nya 300000 • Pilihan biaya waktu kuliah diperoleh dai 2 pilihan. Jika pagi maka biaya kuliah = 500000 dan 900000 untuk biaya kuliah malam. • Total biaya diperoleh dari penjumlahan jurusan ditambah biaya waktu kuliah. • Isi data lain digunakan untuk mengulang input data • Close untuk menutup program.

LISTING PROGRAM unit Check. Box; interface uses Windows, Messages, Sys. Utils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Std. Ctrls, Ext. Ctrls; type TForm 1 = class(TForm) Label 1: TLabel; Panel 1: TPanel; Label 2: TLabel; Label 3: TLabel; Edit 1: TEdit; Edit 2: TEdit; Label 4: TLabel; Label 5: TLabel; Edit 3: TEdit; Edit 4: TEdit; Label 6: TLabel; Edit 5: TEdit; Label 7: TLabel; Edit 6: TEdit; Group. Box 1: TGroup. Box; Check. Box 1: TCheck. Box; Check. Box 2: TCheck. Box; Label 8: TLabel; Label 9: TLabel; Edit 7: TEdit; Edit 8: Tedit; Radio. Group 1: TRadio. Group; Radio. Button 1: TRadio. Button; Radio. Button 2: TRadio. Button; Label 10: TLabel; Edit 9: TEdit; Button 1: TButton; Edit 10: TEdit; Button 2: TButton; Button 3: TButton; procedure Button 3 Click(Sender: TObject); procedure Edit 1 Change(Sender: TObject); procedure Edit 2 Change(Sender: TObject); procedure Check. Box 1 Click(Sender: TObject); procedure Check. Box 2 Click(Sender: TObject); procedure Radio. Button 1 Click(Sender: TObject); procedure Radio. Button 2 Click(Sender: TObject); procedure Button 1 Click(Sender: TObject); procedure Button 2 Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form 1: TForm 1; implementation {$R *. dfm}

procedure TForm 1. Button 3 Click(Sender: TObject); begin close; end; procedure TForm 1. Edit 1 Change(Sender: TObject); var tertulis, hsltulis : real; begin tertulis: =strtofloat(edit 1. Text); hsltulis: =tertulis*0. 4; edit 3. Text: =floattostr(hsltulis); end;

procedure TForm 1. Edit 2 Change(Sender: TObject); var praktek, hslpraktek, niltulis, nilpraktek, nilmurni : real; begin praktek: =strtofloat(edit 2. Text); hslpraktek: =praktek*0. 6; edit 4. Text: =floattostr(hslpraktek); niltulis: =strtofloat(edit 3. Text); nilpraktek: =strtofloat(edit 4. Text); nilmurni: =niltulis+nilpraktek; edit 5. Text: =floattostr(nilmurni); if nilmurni<60 then edit 6. Text: ='Gagal' else edit 6. Text: ='Lulus‘; end;

procedure TForm 1. Check. Box 1 Click(Sender: TObject); begin if checkbox 1. Checked=true then edit 7. Text: ='250000' else edit 7. Text: ='0'; end; procedure TForm 1. Check. Box 2 Click(Sender: TObject); begin if checkbox 2. Checked=true then edit 8. Text: ='300000' else edit 8. Text: ='0'; end;

procedure TForm 1. Radio. Button 1 Click(Sender: TObject); begin if radiobutton 1. Checked=true then edit 9. Text: ='500000' else edit 9. Text: ='0'; end; procedure TForm 1. Radio. Button 2 Click(Sender: TObject); begin if radiobutton 2. Checked=true then edit 9. Text: ='900000' else edit 9. Text: ='0'; end;

procedure TForm 1. Button 1 Click(Sender: TObject); var mi, ti, waktu, biaya : real; begin mi: =strtofloat(edit 7. Text); ti: =strtofloat(edit 8. Text); waktu: =strtofloat(edit 9. Text); biaya: =mi+ti+waktu; edit 10. Text: =floattostr(biaya); end;

procedure TForm 1. Button 2 Click(Sender: TObject); begin edit 1. Text: ='0'; edit 2. Text: ='0'; edit 3. Text: ='0'; edit 4. Text: ='0'; edit 5. Text: ='0'; edit 6. Text: =''; edit 7. Text: ='0'; edit 8. Text: ='0'; edit 9. Text: ='0'; edit 10. Text: ='0'; checkbox 1. Checked: =false; checkbox 2. Checked: =false; radiobutton 1. Checked: =false; radiobutton 2. Checked: =false; edit 1. Set. Focus; end.