ForumSevgisi.Com

  ForumSevgisi.Com > ForumSevgisi Webmaster Bölümü > Webmaster Genel

Webmaster Genel Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


Yüzde İşlemleri

Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


Yüzde İşlemleri

ForumSevgisi Webmaster Bölümü Kategorisinde ve Webmaster Genel Forumunda Bulunan Yüzde İşlemleri Konusunu Görüntülemektesiniz,Konu İçerigi Kısaca ->> Yüzde İşlemleri Yüzde İşlemleri Kod: Tekrar merhaba arkadaşlar. Sizlere lazım olacağını düşündüğüm bir kod daha paylaşıyorum. Bir Program yazdınız ve ...

Kullanıcı Etiket Listesi

Yeni Konu aç  Cevapla
LinkBack Seçenekler Stil

Okunmamış 11 Mart 2015, 18:54   #1
Durumu:
Çevrimdışı
Kaf_Dağı - ait Kullanıcı Resmi (Avatar)
Arastirmaci
Üyelik tarihi: 26 Ekim 2014
Şehir: ~~~~~~
Mesajlar: 1.130
Konular: 710
Beğenilen: 168
Beğendiği: 334
www.forumsevgisi.com
Standart Yüzde İşlemleri

Yüzde İşlemleri

Yüzde İşlemleri


Kod:
        Tekrar merhaba arkadaşlar. Sizlere lazım olacağını düşündüğüm
bir kod daha paylaşıyorum.
 
Bir Program yazdınız ve yüzde hesabı yapmanız gerekti. Örnek veriyorum ;
 
Bir otel deki odaların kaçta kaçı dolu kaçta kaçı boş. şimdi başlıyorum.
 
// Var bloğumuzda değişken tanımlayalım
 
var
  odalar:integer;
  kullanilan,kalan: integer;
  kalyuzdem,kulyuzdem:double;
 
// Bir Procedure tanımlama yapıyorum
 
procedure TForm1.odakontrol();
begin
 
kullanilan:=0;
kalan:=0;
odalar:=0;
 
with dm.verialquery do
begin
Close;
SQL.Clear;
SQL.Add ('SELECT * FROM odalar');
Open;
*******;
end;
 
odalar:= dm.verialquery.recordcount;
 
 
with dm.verialquery do
begin
Close;
SQL.Clear;
SQL.Add ('SELECT * FROM odalar where durum='+chr(34)+ 'Dolu' +chr(34));
Open;
*******;
end;
 
dm.verialquery.first;
while not dm.verialquery.Eof do
begin
kullanilan:=kullanilan + 1;
dm.verialquery.next;
end;
 
kalan:=odalar - kullanilan;
 
end;
end;
 
// şimdi virgüllü çıkarsaki diye düşünüyoruz ve virgül olayını çözüyoruz Function alıntıdır
 
function Split(Input: string; Deliminator: string; Index: integer): string;
var
  StringLoop, StringCount: integer;
  Buffer: string;
begin
  StringCount := 0;
  for StringLoop := 1 to Length(Input) do
  begin
    if (Copy(Input, StringLoop, 1) = Deliminator) then
    begin
      Inc(StringCount);
      if StringCount = Index then
      begin
        Result := Buffer;
        Exit;
      end
      else
      begin
        Buffer := '';
      end;
    end
    else
    begin
      Buffer := Buffer + Copy(Input, StringLoop, 1);
    end;
  end;
  Result := TrimRight(Buffer);
end;
 
// şimdi Formun Show olayına yazdırtıyoruz
procedure TForm1.FormShow(Sender: TObject);
begin
odakontrol;
 
kulyuzdem:=(kullanilan*100)/odalar;
kalyuzdem:=(kalan*100)/odalar;
 
rzlabel1.caption:= inttostr(alanim)+' MB';
rzlabel2.caption:= inttostr(kullanilan)+' MB';
rzlabel3.caption:= inttostr(kalan)+' MB';
 
ProgressBar1.Position :=100;  // Tüm oda toplamımız 100%  eder
ProgressBar2.Position:=StrToInt( Split(floattostr(kulyuzdem), ',', 1) );  // Kullanılan oda sayısı
ProgressBar3.Position:=StrToInt( Split(floattostr(kalyuzdem), ',', 1) ); // Kalan oda Sayısı
 
end;

________________
.........................
imza
Alıntı ile Cevapla
Yeni Konu aç  Cevapla

Etiketler
islemleri, yuzde, yüzde işlemleri

Seçenekler
Stil


Saat: 11:29

Forum Yasal Uyarı
vBulletin® ile Oluşturuldu
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved.

ForumSevgisi.Com Her Hakkı Saklıdır
Tema Tasarım:
Kronik Depresif


Sitemiz bir 'paylaşım' sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabiliyorlar. Bu sebepten ötürü, sitemizdeki mesaj ya da konulardan doğabilecek yasal sorumluluklar o yazıyı paylaşan kullanıcıya aittir ve iletişim adresine mail atıldığı taktirde mesaj ya da konu en fazla 48 saat içerisinde silinecektir.

ankara escort, izmir escort ankara escort, ankara escort bayan, eryaman escort, bursa escort pendik escort, antalya escort,