1. * 5651 Sayılı Kanun'a göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur.
    * Telif hakkına konu olan eserlerin yasal olmayan şekilde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahiplerinin İLETİŞİM bölümünden bize ulaşmaları durumunda ilgili şikayet incelenip gereği 1 (bir) hafta içinde gereği yapılacaktır.
    E-posta adresimiz

Delphi İle Basit Bir Hesap Makinesi

Konusu 'Delphi İle Başlangıç' forumundadır ve YoRuMSuZ tarafından 28 Nisan 2007 başlatılmıştır.

  1. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.433
    Beğenileri:
    7.360
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.871 ÇTL
    Bu dersimizde Delphi basit dört işlemleri yapan bir hesap makinası uygulaması yapıyoruz.

    1. Delphi'yi başlatıyoruz.
    2. Form üzerine isimlerini değiştirmeden aşağıdaki bileşenleri Standart Sekmesinden ekliyoruz.

    3 adet Edit
    1 adet RadioGroup
    1 adet Buton ekliyoruz.

    [​IMG]

    4. Şimdi formumuza eklediğiniz RadioGroup bileşenine bir kez tıklayıp seçili hale getirip, soldaki Proterties sekmesinde okla gösterilen İtems satırındaki String bölümüne tıklıyoruz ve açılan pencereye sırası ile;

    Toplama
    Çıkarma
    Çarpma
    Bölme

    yazıp OK butonuna basıyoruz. Artık RadioGroup bileşeni üzerinde eklediğimiz String'ler görünüyor olmalı.

    5. Son aşamaya geldik. Buradaki amacımız RadioGroup bileşeninde seçtiğimiz işlemi buton aracılığı ile yaptırmak. Bunun için formumuza eklediğimiz Butonun OnClick yordamına (begin-end arasına) aşağıdaki kodu ekliyoruz.
    Kod:
      Kodları görebilmek için ÜYE omalısınız !
    Artık derleme işlemine geçebiliriz. (F9)

    Oluşan exe dosyamız aşağıdaki gibi olacaktır. Artık basit bir hesap makineniz var :)
    [​IMG]
     
  2. Melek

    Melek Usta

    Katılım:
    7 Haziran 2006
    Mesajlar:
    597
    Beğenileri:
    11
    Ödül Puanları:
    630
    Banka:
    45 ÇTL
    yardımcı konular eşliğinde kendi yaptığım hesap makinasının resmini sizlerle paylaşmak istedim

    [​IMG]
     
  3. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    2.989
    Beğenileri:
    3.804
    Ödül Puanları:
    8.080
    Cinsiyet:
    Bayan
    Banka:
    744 ÇTL
    yeni örnekler görme şansımız va mı .. :)
     
  4. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.433
    Beğenileri:
    7.360
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.871 ÇTL
    Eğer Delphi'yi kurarsam elbette :)

    Ayrıca kaynak kodlar konusunda yardımcı olabilirim @SAHRA_BUSE.

    E-Cozum.Net programları altında yayınlanan programların kaynak kodları elimde parçalar halinde verebilirim :)
     
    Son düzenleme: 26 Ocak 2014
  5. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    2.989
    Beğenileri:
    3.804
    Ödül Puanları:
    8.080
    Cinsiyet:
    Bayan
    Banka:
    744 ÇTL
    çok iyi olur.. :)
    bana da bu durumda süpersin demekten başka bişey düşmez.. :)
    teşekkürler..
     
  6. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.433
    Beğenileri:
    7.360
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.871 ÇTL
    Bir yıldır tek satır kod yazmıyorum ama hatırladıklarımla yardımcı olmaya çalışırım.
     
  7. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    2.989
    Beğenileri:
    3.804
    Ödül Puanları:
    8.080
    Cinsiyet:
    Bayan
    Banka:
    744 ÇTL
    konuyla ilgili paylaşımlarına baktım..
    konuya gayet hakimsin.. :)
    teşekkürler şimdiden..
    bende toparlayabilirsem paylaşırım örnek programlar.. :)
    bi programiçin iki saat pc başında oturduğum oluyo heralde..
    benim gibi arayanlara kolaylık olsun birazcık .. :)
     
  8. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    2.989
    Beğenileri:
    3.804
    Ödül Puanları:
    8.080
    Cinsiyet:
    Bayan
    Banka:
    744 ÇTL
    hani yeni örnek.. :D
    bide kaynak kodlar demiştin sanırım.. :P
     

Sayfayı Paylaş