Arsip: Perkalaian antara 2 buah listbox

 
user image
more 11 years ago

mysweetaurel

Maaf Langsung Aja Yah....(Maklum Orang Baru Belajar :oops: ) Kasus yang sy hadapi seperti ini.. :roll: Pada item listbox1 = harga/item Pada item listbox2 = Jumlah item Nah... Saya pengen menjumlahkan keduanya(Tiap Item) pada Listbox3 List1.indexitem=List2 dan list3. Caranya gimana ya...? Mohon Bantuan dari para pakar delphi.. Trims B4, :D
user image
more 11 years ago

ImanD

sebenernya kurang jelas sich, mudah2an sesuai deach! sample simple

procedure TForm1.ButtonJumlahkanClick(Sender: TObject);
var
  i: integer;
begin
  ListBox3.Items.Clear;
  for i:=0 to ListBox1.Count-1 do
    ListBox3.Items.Add(IntToStr(StrToInt(ListBox1.Items[i])+StrToInt(ListBox2.Items[i])))
end;
user image
more 11 years ago

yayaretina

menurutku dikalikan bro.. karena kayaknya pada listbox3 ingin menampilkan jumlah harga dan item..

procedure TForm1.ButtonJumlahkanClick(Sender: TObject);
var
   i: integer;
begin
   ListBox3.Items.Clear;
   for i:=0 to ListBox1.Count-1 do
      ListBox3.Items.Add(IntToStr(StrToInt(ListBox1.Items[i])*StrToInt(ListBox2.Items[i])))
end;
user image
more 11 years ago

_aa_

ini mencurigakan...
@mysweetaurel: .. Nah... Saya pengen menjumlahkan keduanya(Tiap Item) pada Listbox3 List1.indexitem=List2 dan list3. ..
sepertinya anda harus baca help dulu tentang tstrings
@yayaretina: ...
mungkin lebih portabel pake operasi float bukan integer, yang jelas harus dibungkus pake try - except/finally (selalu itu mah)
user image
more 11 years ago

mysweetaurel

Waduh Thanks yah.. buat masukannya. Dah sy coba n sukses, thanks bro.. :lol:
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com