andrypein.net : Setelah posting kemarin mengenai statemen pemilihan yang membahas if dan case, sekarang kita praktekan logika if menggunakan delphi dengan contoh yang sederhananya.
Logika IF Menggunakan Delphi
okelah sekarang kita mulai saja, kita bentuk formnya seperti seperti gini :
untuk tombol keluar cukup ketikan close; saja pada scriptnya
dan untuk tombol new scriptnya
edit1.text:=''; edit2.text:=''; edit3.text:=''; edit1.setfocus;
dan untuk tombol proses
scriptnya kaya gini
procedure TForm1.Button1Click(Sender: TObject); var nilai:integer; ket:string; begin nilai:=strtoint(edit2.Text); if nilai > 85 then ket:='lulus' else ket:='tidak lulus'; edit3.Text:=ket; edit3.enabled:=false; end;
oke sekian semoga bermanfaat.
Gan kok scrift untuk new itu eror yaaa
tolong di bantu..!!!
@vj yadi
yang mana nya?
gan gimana cara nya bikin tampilan form yang berbeda/menarik(bkn default),kaya form agan yg diatas
thx..
itu mah tema bawaan window gan
@vj yadi masa eror mas,,, mungkin ada salah ketik, itu bukan tanda petik dua ("), tapi tanda petik satu dua kali ('').
makasih gan udh bantu :jabat
pak… tolong dibantu untuk listing pada radiobutton tapi outputnya di combobox…
contoh:
-pilihan radiobutton nya "Laki-laki" dan "perempuan"…
-ketika di klik "laki-laki" maka pilihan pada combobox tampil "ANDI – BUDI – CHARLY"
-ketika di klik "perempuan" maka pilihan pada combobox yang tampil "DEA – ERNA – FIFI"
MOHON DIBANTU YA PAK, SECEPATNYA…
JAWABANNYA LEWAT EMAIL JUGA BOLEH PAK DI
natnat_gownat[at]yahoo.co.id
if radiolaki.checked then
begin
combo.items.add(‘andi’);
combo.items.add(‘budi’);
combo.items.add(‘charli’);
end;
if radioperempuan.checked then
begin
combo.items.add(‘dea’);
combo.items.add(‘erna’);
combo.items.add(‘vivi’);
end;
jika menggunakan 2 if gimana codingnya ??