ARKADAÞLAR..

Form1 de 1 tane HESAP BUTONU, 1 tane PANel,
Form2 de 8 tane CHECKBOX , 8 tane COMBOBOX ve 8 tane LABEL ,
Form3 te 1 tane LABEL , 2 tane LİSTBOX ve 1 tane HESAPLA BUTONUm var

- Kullanıcı Form2 de Checkboxlarla yiyeceklerini seçip, ComboBoxlar ile Porsiyonunu seçtiğinde her ComboBox ın yanında bulunan Label da 'Seçtiği yiyeceğe ait Fiyat' yazıyor..
- Ardından Form1 deki Hesap Butonuna tıkladığında ; Form2 de seçtiği yiyeceklerin isimleri Form3 deki ListBox1 de, fiyatları Form3 deki ListBox2 de görüntülenecektir..
- Daha sonra kullanıcı Form3 deki Hesapla Butonuna tıkladığında ; Form3 deki ListBox2 de yazan fiyatlar toplanıp Form1 deki Panelde yazıcak..

Þuan yazdığım kodlarda ;

- Form2 de seçtiğim yiyecekleri ve porsiyonlarına karşılık gelen fiyatı Form3 deki ListBoxlarda yazdırdım.
Seç[B]ilen yiyecekleri yazdırmada sorun çıkmadı.
Seçilen yiyeceklere karşılık gelen fiyatı ListBox2 ye yazdırdığımda şöyle bir ekran ortaya çıkıyor.

1

5


3

2
[/B]
Yani işaretlediklerimin fiyatı yazıyor, işaretlemediklerimin satırları BOÞ gözüküyor. Ben sadece işaretlediklerimin fiyatının yazm[B]Asını istiyorum.
Ayrıca ListBox2 deki fiyatların toplamını Form1 deki Panel de yazdırmada şu kodu kullanıyorum HATA VERİYOR ..

HESAPLA BUTONU:
procedure TForm1.Button1Click(sender: TObject);
var
toplam,i:integer;
begin
toplam:=0;
for i:=0 to listbox2.items.count-1 do
begin
toplam:=toplam+strtoint(listbox2.items);
Forum1.Panel1.Caption:=inttostr(toplam);
end;

end;

Bu kodları yazdığımda aşağıdaki hata ekrana çıkıyor.

[/B]Yani işaretlediklerimin fiyatı yazıyor, işaretlemediklerimin satırları BOÞ gözüküyor. Ben sadece işaretlediklerimin fiyatının yazm[B]Asını istiyorum.
Ayrıca ListBox2 deki fiyatların toplamını Form1 deki Panel de yazdırmada şu kodu kullanıyorum HATA VERİYOR ..

HESAPLA BUTONU:
procedure TForm1.Button1Click(sender: TObject);
var
toplam,i:integer;
begin
toplam:=0;
for i:=0 to listbox2.items.count-1 do
begin
toplam:=toplam+strtoint(listbox2.items);
Forum1.Panel1.Caption:=inttostr(toplam);
end;

end;

Bu kodları yazdığımda aşağıdaki hata ekrana çıkıyor.
[/B]Project Project1.exe raised exception class EConvertError with message ''' is not a valid integer valuse'. Process stopped.Use Step or Run to continue.

MyBrowserCash Kazanmak...

Merhaba Arkadaşlar size fazla bilinmeyen ama diger ptc sitelerine oranla daha kısa sürede ve bana göre en kolay yoldan para kazandıran siteden bahsetmek istiyorum...
Ben bu siteye yaklaşık 3 aydır üyeyim ve Toplamda 112$ aldım...
Belki Size fazla bir para gibi gelmeyebilir (bende sadece iddaa masraflarımı karşılıyorum ) ancak dedigim gibi neredeyse hiç ugraşmadan kazandıgım bir para... Mybrowsercash saglam bir ptc sitesidir. (İnanmayanlar araştırabilir fake filan degildir...)

Benim bu siteyi sizlerle paylaşma nedenim 2 gün önceye kadar standart üyedim ve artık golden üye oldum.. (sizin illa olmanıza gerek yok standart üye olarak bile kazanabilirsiniz.) golden üye oldugum için referral ile daha fazla kazanabilecegim... şimdi size direk refli linkimi verip direk üye olun derdim siz olurdunuz iki gün tıklar sonra vazgeçerdiniz

Bu yüzden refli linkimden üye olan herkesle bana getirdigi kazancın yarısını vermeyi planlıyorum... Durum açıklamak gerekirse üye olup düzenli bir biçimde tıkladıgınızda hem siz hem ben kazanıcam ben golden üye oldugum için sizden kazanacagım 2 haftalık ücret 5-6$ denk geliyor... (bu sizin tıklamanıza baglı) bu 6$'ın 3$nı size geri veriyorum... böylede iki taraftanda kazanmış oluyorsunuz...

Söyleyeceklerimin hepsi bu kadar refli linkimi veriyorum üye olanlar özelden mesaj atsınlar üye oldukları ismi söylesinler onlara sistemin nasıl çalıştıgını anlatayım...

Not:Sitenin tek kötü yanı hesabınız 10$ ve üstüne ulaşmadan para çekemiyorsunuz.


Refli MyBrowserCash


Refsiz MyBrowserCash

[h=1]Toshiba C660D-112 laptop 499 TL[/h]
Laptop gayet temiz ve sorunsuzdur. Þarj adaptörü ile birlikte satıştadır. Beşiktaşa yakın iseniz gelip görebilirsiniz.
Fiyat sondur pazarlık ve takas teklif etmeyiniz.

Teknik Özellikler :
AMD V140 İşlemci (2.3GHz)
250GB Harddisk
2GB RAM
15.6" led ekran

CHIP dergisi mayıs 2012 sayısını alırsanız WEBADAM dan 1 yıllık ücretsiz hosting hizmeti alabileceğiniz keye sahip olabilirsiniz. Her dergide farklı key bulunuyor ve keyler birden fazla kullanılamıyor.

Ücretsiz verilen hosting te 1000MB alan 1 mysql veritabanı 1 mail hesabı hakkınız bulunuyor. Ayrıca bu ayki sayıda World of Tanks oyunu için bir promosyon kuponuda yer alıyor.

Ntvspor biss şifresi biss key

NTV için; Biss ID: 0x1FFF (6 haneli için biss ID 0x001FFF)

NTVSPOR için; Biss ID: 0x1FFB (6 haneli için biss ID 0x001FFB)

Biss TP: 11054/30000 (H)

Key Değeri: A021230035461400 (eğer 12 hane ie sonraki sıfırları yazmayın)

Star yakın zamanda frekansını değişirdi. Star tv si çıkmayan veya yerine başka kanal çıkanlar aşağıdaki frekansı uydu alıcılarına ekleyip kanal araması yapmalı.

11054 H 30000