Form Registrasi

PENGUMUMAN: Pembayaran dengan Metode Bank Transfer di FJB Ditutup

Agan Lebih Suka beli mobil secara online atau offline?

Main Content

Post Reply

stars - based on 0 vote 5 stars 0 stars

nidusmays

Kaskus Addict

–

Join: 11-12-2011, Post: 1,836

25-01-2014 00:41

[Ask] [Delphi] Form Registrasi

Gan, Ane dapet tugas buat form pendaftaran.

Quote:

Dengan ketentuan
1. Label digunakan untuk menampilkan tanggal dan waktu pada saat form diaktifkan
2. no. formulir, nama siswa, jumlah sks, biaya per sks di input
3. total biaya sks tampil pada saat biaya per sks di input, total biaya sks=biaya per sks x jumlah sks
4. biaya gedung tampil pada saat di klik pilihan gelombang
- jika gelombang 1, biaya gedung 150000
- jika gelombang 2, biaya gedung 200000
- jika gelombang 3, biaya gedung 250000
5. tambahan biaya
- jika radio button pagi/siang biaya tambahan=0
- jika radio button sore/malam, biaya tambahan=250000
6. total bayar didapat dari total biaya sks+biaya gedung+tambahan biaya pada saat diklik tombol hitung
7. tombol bersih maka seluruh objek bersih
8. tombol keluar maka akan keluar dari program

Berjalan Normal sebelum ditekan tombol "Bersih"

Setelah ditekan tombol "Bersih"

Nah, ane punya masalah di point no. 7
Masalahnya ada di bagian "Biaya SKS" karena bila sudah terisi kemudian dihapus atau di kosongkan maka program menjadi error. Apa ada cara lain menghapus tanpa membuat error ??

Source Code-nya bisa agan liat disini -> http://codeviewer.org/view/code:3ba0 <- maap acak2 an soalnya abis ane otak atik tapi tetep aja gak jalan emoticon-Cape d... (S)

Mohon Pencerahannya Mastah emoticon-Smilie

peyotpetot

Kaskus Geek

–

Join: 29-11-2011, Post: 22,477

25-01-2014 08:02

Masalah timbul karena di event handler dari TEdit yang agan gunakan, agan berusaha untuk melakukan konversi dari String ke Float atau Integer, padahal String-nya kosong. Tidak hanya waktu agan menghapus, coba agan isikan huruf di TEdit itu, pasti error juga hasilnya.

Coba gunakan ini di event handler yang bersangkutan untuk melakukan konversi:

Code:



try [I]konversinya di sini[/I]

except on EConversionError do [I]lakukan sesuatu[/I]

   end;

atau kalo mau yang gampang dipahami, pake cara agan wonkedan di bawah
V
V

wonkedan86

Kaskus Holic

–

Join: 31-10-2010, Post: 986

25-01-2014 09:19

Bisa jg gunakan cara agan di atas /\
ato..

Code:



..

procedure TForm1.edit_sksChange(Sender: TObject);

begin

a:=strtofloat(edit_jumsks.Text);

b:=strtofloat(edit_sks.Text);

c:=a*b;

edit_biayasks.Text:=floattostr(c);

end;

..

Mungkin salah satu masalahnya disitu gan, coba ditambahin

Code:



..

if edit_jumsks.Text <> '' then

a:=strtofloat(edit_jumsks.Text)

else a:=0;



if edit_sks.Text <> '' then

b:=strtofloat(edit_sks.Text)

else b:=0;

..

Itu terjadi error krn pd saat agan mengklik tombol "button_bersih", event "edit_sksChange" kepanggil.. kemudian data dari "edit_jumsks.Text dan edit_sks.Text" menjadi kosong dan akhirnya ketika di konfersi dari string menjadi float menghasilkan error.

CMIIW

KASKUS Ads - Create Your Ads / Buat Iklan

nidusmays

Kaskus Addict

–

Join: 11-12-2011, Post: 1,836

25-01-2014 10:24

Quote:

Original Posted By peyotpetot►Masalah timbul karena di event handler dari TEdit yang agan gunakan, agan berusaha untuk melakukan konversi dari String ke Float atau Integer, padahal String-nya kosong. Tidak hanya waktu agan menghapus, coba agan isikan huruf di TEdit itu, pasti error juga hasilnya.

Coba gunakan ini di event handler yang bersangkutan untuk melakukan konversi:

Code:



try [I]konversinya di sini[/I]

except on EConversionError do [I]lakukan sesuatu[/I]

   end;

atau kalo mau yang gampang dipahami, pake cara agan wonkedan di bawah
V
V

Quote:

Original Posted By wonkedan86►Bisa jg gunakan cara agan di atas /\
ato..

Code:



..

procedure TForm1.edit_sksChange(Sender: TObject);

begin

a:=strtofloat(edit_jumsks.Text);

b:=strtofloat(edit_sks.Text);

c:=a*b;

edit_biayasks.Text:=floattostr(c);

end;

..

Mungkin salah satu masalahnya disitu gan, coba ditambahin

Code:



..

if edit_jumsks.Text <> '' then

a:=strtofloat(edit_jumsks.Text)

else a:=0;



if edit_sks.Text <> '' then

b:=strtofloat(edit_sks.Text)

else b:=0;

..

Waahh, terima kasih gan, Sekarang udah bisa emoticon-Big Grin

farizseptianand

Kaskuser

–

Join: 20-08-2013, Post: 244

01-02-2014 02:50

Quote:

Original Posted By nidusmays►

Waahh, terima kasih gan, Sekarang udah bisa emoticon-Big Grin

banyak yg linglung sana sini gara gara edit text nya ga singkron, makanya banyak komponen yg bisa menunjang beberapa jenis variable,. pengend lebih mudah pake komponen devexpress, ada komponen khusus currency, numbet text mask dsb.