...

Arsip: Cara jumlah otomatis pd tedit ?

 
user image
more 17 years ago

debby

Sorry nanya lagi !, aku buat beberapa tedit, kemudian saya isikan dengan nilai angka. gimana cara menjumlahkan secara otomatis (ketika mengisi angka pada edit1, edit2 ,edit3 sudah terisi dengan hasilnya), agar orang tidak lupa meng klik tombol jumlah ? Biasanya saya buat pake klik tombol jumlah hasil:=strtoint(edit1.Text)+strtoint(edit2.Text); edit3.Text:=inttostr(hasil); terima kasih
user image
more 17 years ago

l1th1um

di edit2.text pake onkeyup ato onchange aja
user image
more 17 years ago

mas_kofa

hasil:=strtoint(edit1.Text)+strtoint(edit2.Text); edit3.Text:=inttostr(hasil);
ganti StrToInt dgn StrToIntDef biar gak error....
user image
more 17 years ago

debby

Sorry jawaban anda belum jelas, mohon codenya dituliskan biar aku lebih jelas. Maksudku saat masukkan angka di edit1 langsung tertulis jumlah di edit3, begitu juga nulis di edit2 langsung tertulis jumlah (edit1+edit2) di edit3. Emang fasilitas keyup dan onchange ada, tapi cara nuangkan pikiran susah bagi saya Thank's
user image
more 17 years ago

debby

Mas kofa......pake StrToIntDef, Pesannya malah not enough actual parameters.
user image
more 17 years ago

mas_kofa

(dgn gaya seorang tentor yg lagi jelasin di depan kelas) dari form kosong kamu letakkan/ tambahkan edit1 1. lalu doubleklik edit1 tsb lalu ketikkan kode sbb : 

procedure TForm1.Edit1Change(Sender: TObject);
begin
  edit3.Text := IntToStr(StrToIntDef(Edit1.Text,0) + StrToIntDef(Edit2.Text,0));
end;
2. buatlah edit2 dgn mengkopi edit1 3. buatlah edit baru sbagai edit3 (jangan mengkopi dari edit1 atau edit2)... 4. run program dan dicoba....
user image
more 17 years ago

yayaretina

OnChange terletak pada Event OI komponen... Masukkan kode yg anda buat pada Event itu.
user image
more 17 years ago

mas_kofa

(dgn gaya seorang tentor yg lagi jelasin di depan kelas) dari form kosong kamu letakkan/ tambahkan edit1 1. lalu doubleklik edit1 tsb lalu ketikkan kode sbb : 

procedure TForm1.Edit1Change(Sender: TObject);
begin
  edit3.Text := IntToStr(StrToIntDef(Edit1.Text,0) + StrToIntDef(Edit2.Text,0));
end;
2. buatlah edit2 dgn mengkopi edit1 3. buatlah edit baru sbagai edit3 (jangan mengkopi dari edit1 atau edit2)... 4. run program dan dicoba....
user image
more 17 years ago

debby

nah gitu khan lebih jelas ...... makasih semuanya . soalnya dulu aku pake dbaseIII+ sekarang khan udah gak laku jadi beralih ke delphi. Tapi kenapa yah sekarang orang-orang kok pakenya foxpro emang bagusan mana sih dengan delphi ?
user image
more 17 years ago

mas_kofa

menurutku sih..bagusan delphi...... alasannya....karna aku gak bisa foxpro...... :)-
more ...
  • Pages:
  • 1
  • 2
  • 3
|
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Last Articles

Last Topic

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com