Hoşgeldin, Ziyaretçi
Sitemizden yararlanabilmek için Kayıt olmalısınız.

Kullanıcı Adınız:
  

Şifreniz:
  





Forumda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Toplam Üyeler: 2.544
» Son Üye: Paula Chaucer
» Toplam Konular: 4.438
» Toplam Yorumlar: 35.869

Detaylı İstatistikler

Son Aktiviteler
FDEventAlerter ağdan form...
Forum: Genel Programlama
Son Yorum:

info@guzelceker.com
34 dakika önce
» Yorumlar: 20
» Okunma: 386
3D Modelleme Projesi
Forum: Genel Programlama
Son Yorum:

Fesih ARSLAN
1 saat önce
» Yorumlar: 1
» Okunma: 82
Mpress ile sıkıştırmadaki...
Forum: Merakımdan Soruyorum
Son Yorum:

mrmarman
2 saat önce
» Yorumlar: 4
» Okunma: 119
OrangeUIStyles Kurulum ha...
Forum: Genel Programlama
Son Yorum:

selcukaktas
4 saat önce
» Yorumlar: 19
» Okunma: 2.584
OrangeUI 1.79 for Delphi ...
Forum: Diğer Konular
Son Yorum:

elixir84
Dün, Saat: 23:15
» Yorumlar: 3
» Okunma: 156
#4 USCO API ile SERİ PORT...
Forum: Gömülü Sistemler
Son Yorum:

guverdik
Dün, Saat: 21:08
» Yorumlar: 2
» Okunma: 133
Yeni Emojiler!
Forum: Diğer Konular
Son Yorum:

Fesih ARSLAN
Dün, Saat: 19:52
» Yorumlar: 3
» Okunma: 192
IOS Push Notification yap...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

Fesih ARSLAN
Dün, Saat: 09:55
» Yorumlar: 11
» Okunma: 422
Runtime TPanel Arkaplanın...
Forum: Genel Programlama
Son Yorum:

Abdullah ILGAZ
Dün, Saat: 09:52
» Yorumlar: 2
» Okunma: 107
Delphican - Cloudinary PH...
Forum: Açık Kaynak Kodlu Yazılım & Bileşen & Geliştirici Araçları
Son Yorum:

mrmarman
31-05-2020, Saat: 23:19
» Yorumlar: 0
» Okunma: 123

 
  Yuvarlama yapmasın
Yazar: serhat - 01-07-2017, Saat: 04:30 - Forum: Genel Programlama - Yorumlar (2)

Merhaba; 221,325 gibi listview de sayılarım var bu sayıları for döngüsü ile toplama işlemi yaptırıyorum.
Fakat 221,325 sayım 221,30 gibi bir sayıya dönüşüyor, virgülden sonraki sayının yuvarlama yapmamasını nasıl sağlarım? 



  
Adet: Integer;
Total, Fiyat: Double;
 begin
   Fiyat := StrToFloat(Items[I].SubItems[3]); // Fiyat
   Adet := StrToInt(Items[I].SubItems[4]); // Adet
   Items[I].SubItems[5] := FormatFloat('#,##0.00', (Fiyat * Adet));

 showmessage(FormatFloat('#,##0.00', (Fiyat * Adet)));

Bu konuyu yazdır

  SQL Server : Tablolar için parametrik sıralı alan listesi
Yazar: uparlayan - 01-07-2017, Saat: 00:05 - Forum: Makale - Yorumlar (6)

Merhaba,

İleride kullanılmak üzere elinizin altında bulunmasında fayda olduğunu düşündüğüm bir tablo değerli fonksiyon örneğini paylaşmak istiyorum; Bu fonksiyon temelde adını verdiğiniz tablonun sütun yapısını veri tablosu olarak vermeye yarıyor; 

Bunu bir view olarak yapmak da mümkündü fakat parametrik olması ve sıralama yapılabilmesi gibi avantajları nedeniyle (Multi-Statement Table-Value) şeklinde kodlamak cazip geldi diyelim...

[Ars=sql]SET  ANSI_NULLS  ON
GO
SET  QUOTED_IDENTIFIER  ON
GO
--  =============================================
--  Author       : <Uğur  PARLAYAN>
--  Create  date : <2017-06-30-2158>
--  Description  : <Tabloların sütun listesini ve bir kaç yararlı bilgiyi içerir>
--  =============================================
ALTER  FUNCTION  dbo.fnt_sys_Kolonlar( @TabloAdi VARCHAR(50) )
RETURNS  @SONUC TABLE
(  ID        INT
,  Kolon     VARCHAR(50)
,  VeriTipi  VARCHAR(50)
,  CharSet   VARCHAR(50)
,  Bayt      INT
,  Bos       BIT
,  Primal    BIT
)  AS BEGIN
    INSERT INTO @SONUC (ID, Kolon, Primal, VeriTipi, Bos, Bayt, CharSet)
    SELECT    
             C.ORDINAL_POSITION                          as  ID
          ,  C.COLUMN_NAME                               as  Kolon
          ,  iif(T.CONSTRAINT_TYPE='PRIMARY KEY',1,0)    as  Primal
          ,  C.DATA_TYPE                                 as  VeriTipi
          ,  iif(C.IS_NULLABLE='YES',  1,  0)            as  Bos
          ,  COALESCE(C.CHARACTER_MAXIMUM_LENGTH,  C.NUMERIC_PRECISION)  as  Bayt
          ,  C.CHARACTER_SET_NAME                        as  CharSet
    FROM     INFORMATION_SCHEMA.COLUMNS                 as  C  LEFT  OUTER
    JOIN     INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE as  U  ON  U.TABLE_NAME = C.TABLE_NAME  AND  U.COLUMN_NAME = C.COLUMN_NAME  LEFT  OUTER
    JOIN     INFORMATION_SCHEMA.TABLE_CONSTRAINTS       as  T  ON  T.TABLE_NAME = C.TABLE_NAME  AND  T.CONSTRAINT_NAME = U.CONSTRAINT_NAME
    WHERE    C.TABLE_NAME = @TabloAdi
    ORDER BY C.ORDINAL_POSITION
    ;
    RETURN
END
GO[/ars]

Kullanımı ise oldukça basit;

[Ars=sql]SELECT * FROM dbo.fnt_sys_Kolonlar('Cariler');[/ars]

Bu konuyu yazdır

  firebird 3 hakkında sorular
Yazar: masteryoda - 30-06-2017, Saat: 23:21 - Forum: FireBird - Yorumlar (9)

Merhaba,
1)firebird 3 e bir göz atayım dedim Identity Column u gördüm bu artık generator kullanmamıza gerek kalmayacağı anlamına mı geliyor?
2)tutar girilecek bir numeric alan tanımlarken tipi numeric size 15 scale 6 yeterlimidir genelde muhasebe işlerinde daha fazla hasasiyet gerektiren durumlarınız oldumu?
3) blob alan tanımlarken subtype TEXT ve binary mevcut farkları nedir birde binary seçip size 80 dediğimiz de buradaki 80 ne yapıyor?
4) varchar bir alan tanımlarken charset utf8 collate olarak ta UCS_BASIC,UNICODE,UNICODE_CI,UNICODE_CI_AI ve UTF8 var bunların arasında ki fark nedir?

Bu konuyu yazdır

  Çalışmayı Durdurdu Hatası (Missing data provider or data packet )(Çözüldü)
Yazar: yhackup - 30-06-2017, Saat: 15:30 - Forum: Genel Programlama - Yorumlar (3)

Merhaba benim uygulama benden başka diğer bilgisayarlarda bu hatayı dönmeye başladı.


4MlEqQ.png


ShowMessage bile vermeden bu hataya düşüyor sebeb ne olabilir ki ?

procedure TForm10.FormCreate(Sender: TObject);
var
 i: integer;
 t: tstringlist;
begin
ShowMessage('321321321');

 Caption := Caption + Form1.GetBuildInfoAsString;
 if fileexists(ChangeFileExt(Application.ExeName, '.inf')) then

Bu konuyu yazdır

  Belli Periyotlarla Bir Metodun İşletilmesi
Yazar: Fesih ARSLAN - 30-06-2017, Saat: 14:50 - Forum: İpuçları - Yorumlar (9)

Merhaba,
Daniele SpinettiYeniden Deneme Mekanizması konu başlıklı makalesinde işe yarar bir konuya değinmiş. 
Uygulamalarda sık kullanılan bir olayın denenmesi veya tekrar edilmesi için kullanılabilecek bir yöntem.
Örneğin, internet veya lokal network bağlantısına ihtiyaç duyan bir uygulamanın, bağlantıyı gerçekleştirmek için sürekli bağlanma isteği oluşturması. (Bağlantı deneme sayısı ve her denemede bekleme süresi belirlenebiliyor)
Paylaşmış olduğu örnekte, küçük bir değişiklik yaparak; farklı işlerde kullanılabilecek kodu paylaşmak istiyorum.
Daniele Spinetti'nin örneğinde, yapılan işlemin hataya düşmesi (işlemin başarısız olması) durumunda, belirlenen sayıda işlemin tekrarlanması isteniyor.
Şimdi vereceğim örnekte ise; TTimer çalışma prensibine benzer bir tekrarlama mekanizması işletiliyor. Tek farkı prosedürel metodun dinamik olmasıdır.
Her TTimer nesnesi yalnızca bir metod (OnTimer) işletir. Bu yöntemle her prosedürünüzü bir TTimer'a dönüştürebilirsiniz.

Unit

unit RetryHelperU;

interface

uses
 System.SysUtils;

type
 TRetryHelper = class(TObject)
   class procedure DoRetry(const ATimes: Integer; ADelayInMillis: Int64;
     AProc: TProc);
 end;

implementation

uses
 System.Classes;

{ TRetryer }

class procedure TRetryHelper.DoRetry(const ATimes: Integer;
 ADelayInMillis: Int64; AProc: TProc);
var
 LRetry: Integer;
begin
TThread.CreateAnonymousThread(
   procedure()
   begin
     LRetry := 0;
     while LRetry <= ATimes do
     begin
       Inc(LRetry);
       TThread.Queue(Nil,
         procedure
         begin
           AProc()
         end);
       if ADelayInMillis > 0 then
         TThread.Sleep(ADelayInMillis);
     end;
   end).Start;
end;

end.


Kullanımı
implementation

{$R *.fmx}

uses RetryHelperU;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TRetryHelper.DoRetry(20, 750,
   procedure
   begin
     Form1.Edit2.Text := IntToStr(Edit2.Text.ToInteger + Edit1.Text.ToInteger);
   end);

end;

Untitled.gif

Bu konuyu yazdır

  Basit Gider Uygulaması
Yazar: witalihakko - 30-06-2017, Saat: 04:00 - Forum: Açık Kaynak Kodlu Yazılım & Bileşen & Geliştirici Araçları - Yorumlar (2)

Uygulamada üç tane özellik vardır. Giderlerini girebilirsin, not alabilirsin ve hatırlatma koyabilirsin. Kullanımı ve arayüzü basittir. Basit gider takibi için kullanışlıdır. Access veritabanı kullanır. Uygulama açıldığında otomatik veritabanını oluşturacaktır.

Uygulama küçük ekranda açılır simgeye çift tıklayınca asıl uygulamayı açar.
2017-01-15_03-12-06.png

Uygulamada bilgilendirme balonları vardır.
GittiBaloonHint.gif

Bir kaç görsel:
2017-01-10_04-40-31.png

2017-01-10_04-45-51.png
Kategori oluşturma:
GittiKategori.gif

Örnek:
VMYjAZ.gif

MvJj6g.gif

Jl2jpQ.gif

RP3jJR.gif

Buradan İndirebilirsiniz | Yandex Disk

Bu konuyu yazdır

  İki tarih arası sorguda... [Çözüldü]
Yazar: dilo - 30-06-2017, Saat: 01:46 - Forum: Genel Programlama - Yorumlar (2)

İki tarih arasında listeleme yapmak istiyorum, fakat tarih alanım nedense işe yaramıyor belirtilen tarihle dışındaki verilerde listeleniyor. Acaba nerede hata yapıyorum?

 

       
       Close;
        SQL.Clear;
        SQL.Add('Select * From SATILAN');
        SQL.Add('Where URUNKODU Like ' + QuotedStr('%' + EditUrun.Text + '%'));
        SQL.Add('Or URUN Like ' + QuotedStr('%' + EditUrun.Text + '%'));
        SQL.Add('Or MODEL Like ' + QuotedStr('%' + EditUrun.Text + '%'));
        SQL.Add('And TARIH Between :Trh1 And :Trh2 Order By TARIH ASC, SAAT Desc Limit 0,1000');
        ParamByName('Trh1').AsDate := IlkTarih.Date;
        ParamByName('Trh2').AsDate := SonTarih.Date;
        Prepared := True;
        Open;

Bu konuyu yazdır

  Veritaban Bağlantı yapma Programı
Yazar: admin02 - 29-06-2017, Saat: 17:47 - Forum: Açık Kaynak Kodlu Yazılım & Bileşen & Geliştirici Araçları - Yorumlar (16)

Microsoft Sql Microsoft Access Oracle Veritaban Bağlantıların kolaylıkla yapabilirsiniz c# diliyle yazılıdı işallah işinize yarar.

PROGRAMI İNDİR



DdJ5ql.png

Bu konuyu yazdır

  Küçük bir Sorun
Yazar: quiet1day - 28-06-2017, Saat: 15:34 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (1)




Quark Cube'nin yaptığı uygulamayı sindire sindire yapmaya çalışıyorum fajat 21.dakika 38. saniyede yaptığı işlemden sonra meteor ortaya çıkaramadım nerede eksikliğim var  bu konuda projemi inceleyip yardımcı olabilecek varmı ?

O adımlara kadar yaptığım uygulama  ;
http://dosya.co/xl17b9f88mf3/StresGun.rar.html

Bu konuyu yazdır

  Uzak Masaüstü Bağlantısı – Remote Desktop Connection Uygulaması
Yazar: yhackup - 28-06-2017, Saat: 11:05 - Forum: Açık Kaynak Kodlu Yazılım & Bileşen & Geliştirici Araçları - Yorumlar (43)

Edit:
Uygulama köklü bir güncelleme aldı.

Yeni sürüm,
Uzakv3 İndir

Detaylar,
4. Sayfa


Merhabalar,
Kendi işlerim için kullandığım, Sunuculara uzaktan erişim (RDP) yapabilmemi sağlayan bir uygulamadır.
Sınırsız sayıda Uzak Masaüstü Bağlantısı yapılabilir.
Veritabanı olarak MySQL kullanır. Database’nizde aşağıdaki tabloyu oluşturmanız ve ini dosyasından (veya uygulama açılırken sorar) ilgili Database’e yönlendirmeniz gerekmektedir.

Edit: Tabloyu manuel oluşturmanıza gerek yok artık.

Alıntı:Uygulama ilk açılışta veritabanı seçimi sunuyor.


dGXqaX.png

Eğer MySQL seçilirse,  Database bağlantısı istiyorum, bağlantıdan sonra tablo create ediyorum.

 
Tablo DDL bu şekildedir.
CREATE TABLE `uzakv2` (
 `id` int(10) NOT NULL AUTO_INCREMENT,
 `ip` varchar(25) DEFAULT NULL,
 `user` varchar(22) DEFAULT '0',
 `pass` varchar(20) DEFAULT NULL,
 `firma` varchar(15) DEFAULT NULL,
 `durum` varchar(6) DEFAULT 'Aktif',
 `lisanskod` varchar(8) DEFAULT NULL,
 `aciklama` varchar(200) DEFAULT NULL,
 `port` varchar(5) DEFAULT NULL,
 `LastConnect` DATETIME DEFAULT NULL,
 `counter` INTEGER DEFAULT 0,
 PRIMARY KEY (`id`)

);
Çalıştırmadan önce bağlantı ayarlarını ini dosyasından,

Kod:
[yhackup]
tema=Charcoal Dark Slate
server=127.0.0.1
port=3306
username=root
pass=
database=dbs001


Veya uygulama çalıştırıldığında ilk ekrandan bilgileri girip bağlanabilirsiniz.
2017-06-28_09-54-47.jpg

Uygulumada Tema desteği mevcuttur. (Açık bağlantı var iken değiştirmeyin 1f642.svg )
 * Edit : Açık Bağlantı varken tema değişikliğini engelledim.
2017-06-28_11-11-05.jpg

2017-06-28_09-46-12-1024x615.jpg
2017-06-28_09-47-07-1024x615.jpg



1.0.0.24 versiyonu ile gelen özellik ile, tek sekmede aynı anda 2 bağlantı kurulabilir.
2017-06-29_17-19-10-1024x425.jpg

Yandex Disk'ten indirebilirsiniz.

Bu konuyu yazdır